TRANSLATE: Difference between revisions
No edit summary |
(Sample program to create a "Translate" file.) |
||
| Line 7: | Line 7: | ||
Used in [[Open]] statements: [[Open Display|Display]], [[Open Internal|Internal]], [[Open external|external]], and [[Open communications|communications]]. | Used in [[Open]] statements: [[Open Display|Display]], [[Open Internal|Internal]], [[Open external|external]], and [[Open communications|communications]]. | ||
The translate table is made up of 256 characters starting with the replacement value for CHR$(0), and ending with CHR$(255). | |||
See also the [[XLATE$]] internal function. | See also the [[XLATE$]] internal function. | ||
Sample Programs to create "TRANSLATE" tables: | |||
* This program created a TRANSLATE table that will only allow "Common Characters", and filter out unwanted symbols. Tihs is commonly used when importing data from Electronic Data files. | |||
00100 DIM Tbl$*512,Edi_Xlate$*512 | |||
00110 LET Edi_Xlate$ = Rpt$(" ", 32)&" !"&Chr$(34)&"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~*"&Rpt$(" ", 128) | |||
00120 LET Edi_Xlate$(11:11)=Chr$(10) : LET Edi_Xlate$(14:14)=Chr$(13) | |||
00130 LET Tbl$=Edi_Xlate$&Edi_Xlate$ | |||
00140 OPEN #1: "NAME=EDI_XLATE,RECL=512,replace",EXTERNAL,OUTPUT | |||
00150 WRITE #1,USING 160: Tbl$ | |||
00160 FORM Pos 1,C 512 | |||
00170 CLOSE #1: | |||
00180 END | |||
<noinclude> | <noinclude> | ||
[[Category:All Parameters]] | [[Category:All Parameters]] | ||
</noinclude> | </noinclude> | ||
Latest revision as of 18:33, 25 June 2017
TRANSLATE=<file ref>
The "TRANSLATE=file-ref" parameter indicates that character translation is required for all input or output of C, V, G, N, ZD or PIC strings. The file-ref must identify either a 256- or 512-byte file. The first 256 bytes are used as an input translation table.
This optional parameter allows the translation of data to or from another collating sequence. Internally, all computers represent letters of the alphabet, punctuation marks and even digits according to an arbitrary numbering scheme. Today, the common coding schemes is ASCII (American Standard Code for Information Interchange). In the past, EBCDIC (Extended Binary Coded Decimal Interchange Code) was used, especially for main frames. Probably the most common use of the TRANSLATE= capability is translating files between ASCII and EBCDIC.
An example of the difference between ASCII and EBCDIC is that the uppercase letters A, B and C are represented by 65, 66 and 67 respectively in ASCII; but in EBCDIC, they are 193, 194 and 195. Also, in ASCII, the blank or space character is represented by the number 32 while in EBCDIC it is number 64. Although all systems that currently run Business Rules the ASCII coding scheme, some older computer systems use EBCDIC.
Used in Open statements: Display, Internal, external, and communications.
The translate table is made up of 256 characters starting with the replacement value for CHR$(0), and ending with CHR$(255).
See also the XLATE$ internal function.
Sample Programs to create "TRANSLATE" tables:
- This program created a TRANSLATE table that will only allow "Common Characters", and filter out unwanted symbols. Tihs is commonly used when importing data from Electronic Data files.
00100 DIM Tbl$*512,Edi_Xlate$*512
00110 LET Edi_Xlate$ = Rpt$(" ", 32)&" !"&Chr$(34)&"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~*"&Rpt$(" ", 128)
00120 LET Edi_Xlate$(11:11)=Chr$(10) : LET Edi_Xlate$(14:14)=Chr$(13)
00130 LET Tbl$=Edi_Xlate$&Edi_Xlate$
00140 OPEN #1: "NAME=EDI_XLATE,RECL=512,replace",EXTERNAL,OUTPUT
00150 WRITE #1,USING 160: Tbl$
00160 FORM Pos 1,C 512
00170 CLOSE #1:
00180 END