gtpi1m7lSystem Installation Support Reference

OLDR JCL to Load E-Type Programs to GDS

The example that follows shows the JCL required to load offline programs to the general data set (GDS) using the E-type loader offline segment (OLDR).

Note:
nn is the release identification and ssid is the subsystem ID.
//OLDRGDS  JOB MSGLEVEL=1,CLASS=A,MSGCLASS=A,REGION=2100K,
//       USER=mvsuser,PASSWORD=password
//NAME   EXEC PGM=TPFLDRnn,REGION=9000K,PARM='OLDR,CLMSIZE=9000000'
//STEPLIB  DD  DSN=ACP.LINK.RELnn.ssid,DISP=SHR
//         DD DSN=SYS1.EDC.SEDCLINK,DISP=SHR
//         DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//LOADMOD  DD  DSN=ACP.LINK.RELnn.ssid,DISP=SHR
//OBJLIB   DD  DSN=ACP.OBJ.RELnn.ssid,DISP=SHR
//CPRTEMP  DD  UNIT=SYSDA,
//             DSN=&&CPTEMP,SPACE=(TRK,(100,20)),
//             DCB=(RECFM=FB,BLKSIZE=4095,LRECL=4095),
//             DISP=(NEW,DELETE)
//PROGTEMP DD  UNIT=SYSDA,
//             DSN=&&PRTEMP,SPACE=(TRK,(100,20)),
//             DCB=(RECFM=FB,BLKSIZE=4095,LRECL=4095),
//             DISP=(NEW,DELETE)
//OUTPUT   DD  UNIT=SYSDA,VOLUME=SER=dasd,
//             DSN=mvsuser.OUTPUT,SPACE=(TRK,(40,20)),
//             DCB=(RECFM=F,BLKSIZE=4095,LRECL=4095),
//             DISP=(OLD,KEEP,KEEP)
//SALTB    DD  DSN=ACP.SALTBL.RELnn.ssid,DISP=SHR
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//PRINTER  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//CEEDUMP  DD  SYSOUT=*
//SYSIN    DD  *
*** INPUT CONTROL CARDS ARE PLACED HERE