Translation Tables

• Telnet

• SMTP

• LPR

• FTP (generally called the control connection).

FTP also makes a data connection when files are transferred. During translation, ASCII-encoded data on the TCP/IP network is converted to EBCDIC-encoded data on the MVS system, and vice-versa. Translation tables for several languages are distributed with Cisco IOS for S/390 in both source and load format. You can specify any of the tables provided, modify them, or define and use your own translation tables.

The Telnet connection for an application uses the translate table specified by the TRANTBL parameter on the appropriate APPCFGxx configuration statement; the data connection uses the translate table specified by the CHARSET parameter. If these parameters are not coded in the configuration table, the ENGLISH translate table is the default.

Data connection translation can be done with both single- and double-byte translate tables. Telnet connection translation requires single-byte tables. The single-byte character set translate tables distributed with the product are ENGLISH (the default), DANISH, FCANADA, FRENCH, GERMAN, GSWISS, ITALIAN, KANJI83, KOREAN, JAPANES, SJIS83, SPANISH, SWEDISH, SW850 SW88591 and THAI. Distributed double-byte tables are HANGUL and KANJI. The source code for these tables is located in the SAMP data set and their load module forms are in the LOAD data set.

Prefix - XLTBL TYPE=START 
Set of translate tables 
Suffix - XLTBL TYPE=FINISH

For Telnet purposes, there should be four translate tables in the set. An ATOE table for ASCII-to-EBCDIC translation, ETOA for EBCDIC-to-ASCII translation, AUPC for ASCII lower case to upper case folding, and EUPC for EBCDIC lower case to upper case folding, respectively. Each individual table is 256 bytes long and suitable for use with the IBM System/370 TR instruction. Also, the statement labels for these tables must be listed in the XLTBL macro TABLE parameter in the order listed above.

Data translation requires only the first two tables (ATOE and ETOA), as there are no case changes involved in the transfer. Various command line entries require all four translate tables in the set.

SMP/E maintains all translate table source in the SAMP library. For existing tables, make changes in the SAMP member before executing UMODTRAN. Build new translate tables in a different library, as UMODTRAN will copy them into the SAMP library as part of its SMP/E processing. Once the table has been copied, all subsequent changes should be made in the SAMP library.

Directions for using UMODTRAN are located within the member. When needed, make a copy of the UMODTRAN provided and adapt it to your environment.

Sample JCL for UMODTRAN is shown below:

//UMODTRAN JOB                                      
//*              
//*    SAMPLE JCL STREAM TO ADD OR MODIFY TRANSLATE TABLES    
//*                                                         
//*   
//* ************************************************************ 
//*    *              ***  INSTRUCTIONS *** *
//* *************************************************************
//* *
//* * TO ADD OR MODIFY A TRANSLATE TABLE, DO THE FOLLOWING:
//* * 
//* * 1. MAKE THE FOLLOWING GLOBAL CHANGES TO THIS JCL STREAM 
//* * 
//* * . CHANGE 'UMODNAM' TO A UNIQUE 7 CHARACTER USERMOD NAME
//* *    (IF THIS IS NOT THE FIRST UPDATE TO THE TABLE YOU WILL
//* *    NEED TO ADD A PRE PARAMETER TO THE ++VER STATEMENT   
//* *    NAMING THE LAST USERMOD THAT WAS APPLIED.)
//* * . CHANGE 'TABNAME' TO THE TRANSLATE TABLE NAME. 
//* *  . CHANGE 'SMPINDX' TO THE SMP HIGH LEVEL QUALIFIER NAME.
//* *  . CHANGE 'XXX' TO THE APPROPRIATE RELEASE NUMBER.*
//* *  . CHANGE 'HOLDCL' TO YOUR SYSOUT HOLD CLASS.
//* *  
//* * DO 2.A -OR- 2.B 
//* *  
//* * 2.A FOR UPDATING AN EXISTING TABLE:  
//* *      
//* *  . VERIFY TABLE UPDATES WERE MADE IN THE SAMP LIBRARY 
//* *    MEMBER PRIOR TO RUNNING THIS JOB. 
//* *     
//* * 2.B FOR ADDING A NEW TABLE:  
//* *  
//* *  . POINT THE TEXTLIB DD STATEMENT TO THE LIBRARY  
//* *    CONTAINING THE NEW TABLE SOURCE.    
//* *   
//* *  . UNCOMMENT THE SYSLIB PARAMETER IN THE ++SRC 
//* *    STATEMENT. (USERMOD WILL COPY TABLE TO SAMP LIBRARY) 
//* *   
//* * 3. VERIFY THE JOB STATEMENT IS CORRECT AND SUBMIT THE JOB.
//*
//**************************************************************
//* 
//* 
//SMPE     EXEC PGM=GIMSMP,REGION=4096K,TIME=960,
//         PARM='CSI=SMPINDX.CSI,PROCESS=WAIT'
//SMPHOLD  DD  DUMMY            
//SMPLOG   DD  DSN=SMPINDX.SMPLOG,DISP=MOD 
//SMPOUT   DD  SYSOUT=HOLDCL            
//TEXTLIB  DD  DSN=SMPINDX.SAMP,DISP=SHR
//SMPPTFIN DD  *
++ USERMOD ( UMODNAM ) .
++ VER (Z038) FMID(T00XXX).    
++JCLIN .             
//JCLINASM JOB ( COMPANY ),'TRANSLATE',MSGCLASS=X 
//ASM      EXEC  PGM=ASMBLR,   
//            REGION=512K,    
//            PARM='OBJ,NODECK,LIST,NORENT'   
//*
//SYSIN    DD DSN=IOS390.ATCPSAMP(TABNAME),
//            DISP=( SHR,KEEP,KEEP ) 
//*      
//SYSGO    DD DSN=&&PUNCH ( TABNAME ),
//            UNIT=3380, 
//            SPACE=( 80,( 200,50 ) ),
//            DISP=(MOD,PASS)
//JCLINLNK JOB ( COMPANY ),'UMOD XLATE',MSGCLASS=X     
//LKED     EXEC PGM=IEWL,PARM='REUS,OL,LIST,NCAL',REGION=512K
//SYSLMOD  DD DSN=IOS390.TCPLOAD,DISP=SHR  
//ATCPLOAD DD DSN=IOS390.ATCPLOAD,DISP=SHR 
//SYSLIN   DD *                         
INCLUDE ATCPLOAD ( TABNAME )
MODE AMODE ( 31 ),RMODE ( ANY )
ENTRY $TABNAME    
NAME  TABNAME ( R ) 
//*   
++SRC ( TABNAME ) TXLIB ( TEXTLIB ) 
DISTMOD ( ATCPLOAD )  
/* SYSLIB(TCPSAMP)      */  
DISTLIB ( ATCPSAMP ) .    
//SMPCNTL  DD  *       
SET BDY ( GLOBAL ) .  
RECEIVE S ( UMODNAM ) .  
SET BDY ( TCPTZN ) .    
APPLY   S ( UMODNAM ) .  
/*