Translating One File or All Files

File translation table records must be formatted as follows:

Record
Position
 
Entry
1-8 (to translate all files) Enter *FILES   (  represents a blank) to indicate that all files are to be translated. Complete the file translation table record beginning with positions 11 and 12. If *FILES   is specified, no other file translation table can be specified in the program.
1-8 (to translate a specific file) Enter the name of the file to be translated. Complete the file translation table record beginning with positions 11 and 12. The *FILES   entry is not made in positions 1 through 8 when a specific file is to be translated.
9-10 Blank
11-12 Enter the hexadecimal value of the character to be translated from on input or to be translated to on output.
13-14 Enter the hexadecimal equivalent of the internal character the RPG IV language works with. It will replace the character in positions 11 and 12 on input and be replaced by the character in positions 11 and 12 on output.
15-18
19-22
23-26
...
77-80
 All groups of four beginning with position 15 are used in the same manner as positions 11 through 14. In the first two positions of a group, enter the hexadecimal value of the character to be replaced. In the last two positions, enter the hexadecimal value of the character that replaces it.

The first blank entry ends the record. There can be one or more records per file translation table. When multiple records are required in order to define the table, the same file name must be entered on all records. A change in file name is used to separate multiple translation tables. An *FILES record causes all files, including tables and arrays specified by a T in position 18 of the file description specifications, to be translated by the same table. 

      HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
       * In this example all the files are translated
      H FTRANS
      FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++
      FFILE1     IP   F   10        DISK
      FFILE2     IS   F   10        DISK
      FFILE3     IS   F   10        DISK
      FFILE4     IS   F   10        DISK
 **FTRANS
 *FILES    81C182C283C384C4
      HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
       * In this example different translate tables are used and
       * FILE3 is not translated.
      H FTRANS
      FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++
      FFILE1     IP   F   10        DISK
      FFILE2     IS   F   10        DISK
      FFILE3     IS   F   10        DISK
      FFILE4     IS   F   10        DISK
 **FTRANS
 FILE1     8182
 FILE2     C1C2
 FILE4     81C182C283C384C4

[ Top of Page | Previous Page | Next Page | Contents | Index ]