UMODTRAN fails with GIM40501E

Products

• TCPaccess

Issue/Introduction

Description:

Running UMODTRAN to create or update a translate table fails with

TABXLAT C2E600X GIM40501E  2  THE DISTLIB IN THE MCS (ATCPSAMP) FOR  SRC TABXLAT DOES NOT MATCH THE
                              DISTLIB VALUE (SAMP) IN THE SRC ENTRY FOR  TABXLAT.

Solution:

The key to preventing this error is that the DSN values in the JCLIN portion of the UMODTRAN JCL should not be changed as SMP uses these to map to the DDDEFs.

Sample JCL, where the name of the usermod is TABTRAN and the name of the new translate table is TABXLAT:

//SMPE     EXEC PGM=GIMSMP,REGION=4096K,TIME=960,
//         PARM='CSI=TCPSNS.V60SP5.CSI,PROCESS=WAIT'
//SMPHOLD  DD  DUMMY
//SMPLOG   DD  DUMMY
//SMPOUT   DD  SYSOUT=*
//LOAD     DD  DSN=TCPSNS.V60SP5.LOAD,DISP=SHR  <---may need to be added
//TEXTLIB  DD  DSN=TCPSNS.V60SP5.INSTALL,DISP=SHR
//SMPPTFIN DD  DATA
++ USERMOD (TABTRAN) .
++ VER (Z038)
   FMID(C2E600X) .
++JCLIN .
//JCLINASM JOB 9989,AMA,MSGCLASS=X
//ASM      EXEC  PGM=ASMBLR,
//            REGION=512K,
//            PARM='OBJ,NODECK,LIST,NORENT'
//*
//SYSIN    DD DSN=SNSTCP.ATCPSAMP(TABXLAT), <----do not change DSN
//            DISP=(SHR,KEEP,KEEP)
//*
//SYSGO    DD DSN=&&PUNCH(TABXLAT),
//            UNIT=SYSDA,
//            SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//JCLINLNK JOB 9989,'UMOD XLATE',MSGCLASS=X
//LKED     EXEC PGM=IEWL,PARM='REUS,OL,LIST,NCAL',REGION=512K
//SYSLMOD  DD DSN=SNSTCP.TCPLOAD,DISP=SHR    <----do not change
//ATCPLOAD DD DSN=SNSTCP.ATCPLOAD,DISP=SHR   <----do not change
//SYSLIN   DD *
  INCLUDE ATCPLOAD(TABXLAT)
  MODE AMODE(31),RMODE(ANY)
  ENTRY $TABXLAT
  NAME  TABXLAT(R)
//*
++SRC (TABXLAT) TXLIB(TEXTLIB)
                DISTMOD(ATCPLOAD)
                SYSLIB(TCPSAMP)
                DISTLIB(ATCPSAMP) .
/*
//SMPCNTL  DD  *
 SET BDY(GLOBAL) .
 RECEIVE S(TABTRAN) .
 SET BDY(TCPTZN) .
 APPLY   S(TABTRAN) .
/*

Environment

Release:
Component: NTCPAC