TNT JCL

Preparing Control Information › Transaction Name Table › TNT JCL

TNT JCL

The JCL used to compile, assemble, and link edit a TNT is presented below.

z/OS (TNT)

//*******************************************************************
//*                                                                 *
//*        COMPILE TNT                                              *
//*                                                                 *
//*******************************************************************
//TNTC     EXEC PGM=ESVSTNTC,REGION=512K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.loadlib,DISP=SHR
//SYSLST   DD   SYSOUT=A,DCB=BLKSIZE=133
//SYSPCH   DD   DSN=&.&tnt.,DISP=(NEW,PASS)
//              DCB=(RECFM=FB,LRECL=80,BLKSIZE=4560),
//                  SPACE=(CYL,(1,1)),
//                  UNIT=disk
//SYSIDMS  DD   *
Input SYSIDMS parameters, as required
//SYSIPT   DD   *
Insert TNT input statements here
/*
//*******************************************************************
//*                                                                 *
//*        ASSEMBLE COMPILER OUTPUT                                 *
//*                                                                 *
//*******************************************************************
//ASM      EXEC PGM=ASMA90,PARM='NOLOAD,DECK',COND=(4,LT,S1),
//         REGION=512K
//SYSPRINT DD   DUMMY
//SYSUT1   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSUT2   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSUT3   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSPUNCH DD   DSN=&.&tntobj.,UNIT=disk,DISP=(NEW,PASS),
//              SPACE=(80,(400,40))
//SYSIN    DD   DSN=&.&tnt.,DISP=(OLD,DELETE)
//*******************************************************************
//*                                                                 *
//*        LINK TNT TO CA IDMS/DB LOAD LIBRARY                      *
//*                                                                 *
//*******************************************************************
//LINK     EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(196K,12K)',
//         REGION=512K
//SYSPRINT DD   SYSOUT=A
//SYSLIN   DD   DSN=&.&tntobj.,DISP=(OLD,DELETE)
//SYSUT1   DD   UNIT=disk,SPACE=(TRK,(20,5))
//SYSLMOD  DD   DSN=user.loadlib(tntname),DISP=SHR

idms.dba.loadlib	Data set name of the CA IDMS/DB load library containing CA IDMS DMCL and database name table load modules
idms.loadlib	Data set name of the CA IDMS/DB load library containing ESVSTNTC
&.&tnt.	Temporary data set that contains output from the compile step
disk	Symbolic device type for disk file
&.&tntobj.	Temporary data set that contains output from the assembly step
user.loadlib	Data set name of the user load library where the TNT load module will be placed
tntname	Name of the TNT load module
SYSIDMS	DDname of the parameter file provided by CA IDMS to specify runtime directives and operating system-dependent parameters. A complete description of the SYSIDMS parameter file, see CA IDMS Common Facilities Guide.

z/VSE (TNT)

*********************************************************************
*                                                                   *
*           COMPILE TNT                                             *
*                                                                   *
*********************************************************************
//EXEC PROC=IDMSLBLS
//DLBL     idmslib,'idms.lib'
//EXTENT   ,xxxxxx
//LIBDEF   PHASE, SEARCH=idmslib.sublib
//DLBL     IDMSPCH,'work',,SD
//EXTENT   SYS020,nnnnnn,,,ssss,llll
//ASSGN    SYS020,disk
//EXEC     ESVSTNTC
Input SYSIDMS parameters, as required
Insert TNT input statements here
/*
*********************************************************************
*                                                                   *
*           ASSEMBLE COMPILER OUTPUT                                *
*                                                                   *
*********************************************************************
//DLBL     IJSYSIN,'work',,SD
//EXTENT   SYSIPT,nnnnnn,,,ssss,llll
  ASSGN    SYSIPT,disk
//OPTION CATAL
  PHASE tntname,*
//EXEC ASMA90
  CLOSE SYSIPT,SYSRDR
/*
*********************************************************************
*                                                                   *
*           LINK TNT TO CA IDMS/DB LIBRARY                           *
*                                                                   *
*********************************************************************
//EXEC LNKEDT
/&

IDMSLBLS	Name of the procedure provided at installation containing the file definitions for CA IDMS dictionaries, database, SYSIDMS, and other CA IDMS files.
cdmscl	Filename of the CA IDMS/DB library
nnnnnn	Volume serial number of disk unit
idmslib	Filename of the CA IDMS Library
idms.lib	File-id of the CA IDMS Library
work	File-id of work file
ssss	Relative starting track of disk file
llll	Number of tracks required for disk file
disk	Device assignment of disk file
tntname	Name of the TNT PHASE
SYSIDMS	DDname of the parameter file provided by CA IDMS to specify runtime directives and operating system-dependent parameters. A complete description of the SYSIDMS parameter file, see CA IDMS Common Facilities Guide.