Using the TSGU to Generate New Transcoding Tables

How to:

The TSGU is a multi-functional utility that is used to create the transcoding table (TRANTBL), sorting table (SORTTBL), and monocasing table (CASETBL).

Syntax: How to Use the TSGU Command 

TSGU
TSGU GEN
TSGU KTBL {pdfy_name|??}
TSGU INFO info-command 
TSGU CASE
TSGU SORT

where:

no parameters

Generates the NLS transcoding table (TRANTBL).

GEN

Generates all the tables (TRANTBL, CASETBL and SORTTBL).

INFO

Displays information about the current NLS configuration.

CASE

Generates the custom monocasing table (CASETBL) binary file.

SORT

Generates the custom sort sequence table (SORTTBL) binary file.

KTBL PD??

Generates the special font information tables (PDFYTBL) when Unicode fonts should be used in PDF format files. You can specify a pdfy-name font metrics file for a specific font, or use PD?? to generate all of the files.

Example: Submitting JCL to Generate the Transcoding Table and Unicode PDF Font Tables

In this example, the high-level qualifier for your FOCUS production libraries is FOC7706.

Taiwanese code page 937 has been added to member CPCODEPG in FOC7706.CONF.CFG: 

CP00037   E SBCS  US IBM MF EBCDIC code
CP00437   A SBCS  US PC ASCII code
CP00137   A SBCS  ANSI Character Set for MS-Windows
CP01047   E SBCS  IBM MF Open Systems (Latin 1)
CP65001   A UTF8  Unicode (UTF-8)
CP00937   E SOSI  Taiwanese IBM MF (cp37+cp835)

The following JCL invokes FOCUS, issues the TSGU commands to generate the transcoding and PDF tables, and exits FOCUS: 

//*  YOUR JOB CARD GOES HERE
//*
//FOCUS    EXEC PGM=FOCUS
//STEPLIB  DD DSN=FOC7706.FOCLIB.LOAD,DISP=SHR
//ERRORS   DD DSN=FOC7706.CONF.CFG,DISP=SHR
//         DD DSN=FOC7706.ERRORS.DATA,DISP=SHR
//SYSPRINT DD SYSOUT=* 
//SYSIN DD *
TSGU 
TSGU KTBL PD??
FIN
/*

SYSPRINT will show various Generating File messages.

Member NLSCFG in FOC7706.CONF.CFG has been created with the following commands to invoke FOCUS with the new code page and language: 

LANG = T-CHINESE
CODE_PAGE = 937
DATEOUTPUT = DEFAULT
COLLATION = CODEPAGE

Now, you can invoke FOCUS, and code page 937 will be in effect with Taiwanese as the configured language. Issue the following command so that your emulator can display the Chinese characters: 

SET TERMINAL=IBM5550

Syntax: How to Use the TSGU Info-Commands 

TSGU INFO CP [DBCS] [nnn [nnn [...]]] [MAT [DES]]
TSGU INFO CP [SBCS] [nnn [nnn [...]]] [MAT [DES]]
TSGU INFO TRAN [idx [idx [...]]] [M] [V]
TSGU INFO CASE [nnn [nnn [...]]] [M] [V]
TSGU INFO SORT [nnn [nnn [...]]] [M] [V]
TSGU INFO SET

where:

CP

Lists transcoding tables.

DBCS

Lists only DBCS transcodings.

SBCS

Lists only SBCS transcodings.

nnn

Code page which only shows given code page transcodings (no leading zeros necessary).

idx

Index which only shows given index transcodings.

MAT

Creates a matrix report for transcoding tables.

DES

Reverses an order of code pages in a matrix report.

TRAN

Shows transcoding table contents (trantbl.err).

CASE

Shows uppercase/lowercase table contents (casetbl.err).

SORT

Shows sort table contents (sorttbl.err).

M

Masks null transcode values in tables.

V

Shows tables in vertical layout.

SET

Shows the list of available languages.

Syntax: How to Use the TSGU ? Command

To see the online help information for the TSGU command, issue the following command: 

TSGU ?

The output is: 

TSGU  : GEN   : cpcodepg-id ::
      : TRAN  : cpcodepg-id :: (default)
      : CASE  : cpcodepg-id ::
      : SORT  : cpcodepg-id ::
      : INFO  : info-command ::
      : XLAT  : infile  : outfile  :::
      : XLAT  TEMPLATE : cp1 cp2 ::
      : KTBL  : ktbl-command : : xxxx : xxxx : ... ::::
      : ERR   err-command :
 GEN  : generate all necessary tables (binary files)
 TRAN : generate a TRANTBL and KTBL binary files
 CASE : generate a CASETBL binary file
 SORT : generate a SORTTBL binary file
 INFO : display info of the current Translation Services (? LANG)
 XLAT : convert a file by specified Code Pages in config file (tsgu.nls)
       TEMPLATE shows a sample batch file/unix shell script for multi-
       files to be XLATed. (tsgult only)
 KTBL : generate individual KTBL binary files
 ERR  : convert EDAHOME/nls/*.err file (UNIX and Windows NT only)
 xxxx : DBCS translation table identifier
cpcodepg-id:
    Max 4 characters. To use customized and saved CPCODEPG.NLS
    If specified, a file named 'cpcp:cpcodepg-id:.nls' is used instead.
    cpcpall.nls and cpcpucs.nls are provided as samples.
info-command:
    CP   :| DBCS |: : nnn | nnn | ... : : MAT : DES ::
          | SBCS |
    TRAN : idx : idx : ... :: : M : : V ::
    CASE : nnn : nnn : ... :: : M : : V ::
    SORT : nnn : nnn : ... :: : M : : V ::
    ALL

    CP   : Show TRTIDX
    DBCS : Show only DBCS translations
    SBCS : Show only SBCS translations
      idx  : Index, show only given indexes translations
      nnn  : Code Page, show only given Code Pages translations
      MAT  : Make a matrix report for TRTIDX
      DES  : Reverses an order of Code Pages in a matrix report
      TRAN : Show translation tables (TRANTBL)
      CASE : Show upcase/lowcase tables (CASETBL)
      SORT : Show sort tables (SORTTBL)
      M    : Mask null translate values in tables
      V    : Show tables vertical layout against horizontal
      ALL  : Show intlcm info for debugging
ktbl-command:
      CHK
      FMT
      CNV : UDC : : nn | CPU | MEM :
      RVS : UDC : : nn | CPU | MEM :
      LST : FFFF :
      ADD

      CHK : Check the KTBLs translation integrity
      FMT : Format the KTBLs
      CNV : Convert the KTBLs
      RVS : Make a reverse translation table for the KTBLs
      LST : List the DBCS translation
      ADD : Make a new DBCS translation from two KTBLs
      UDC : Remove Unused UDC code translation
      nn  : Threshold level for indexing the ranges
      CPU : nn = 65536, to make only one index range
      MEM : nn = 4, to make the smallest size format for the KTBLs
      FFFF: Produce entries for source code even they are translated
             to invalid codes
err-command:
     GEN  aaa
     UCS  aaa

     GEN : Create *:aaa:.err files in the directory EDACONF/etc.
           (JPE and GE5 only)
     UCS : Create *(aaa).err files in Unicode (utf-8) into the
           directory EDACONF/etc.
     aaa : Language abbreviation
 Information Builders