gtpi1m7mSystem Installation Support Reference

OLDR JCL to Load E-Type Programs to Tape

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

Note:
nn is the release identification and ssid is the subsystem ID.
//OLDRVTAP JOB MSGLEVEL=1,CLASS=A,MSGCLASS=A,REGION=2100K
//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  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  DSN=OLD.TAPE,UNIT=3480,DISP=(NEW,KEEP),
//             VOL=SER=vvvvvv,LABEL=(,SL),
//             DCB=(BLKSIZE=4095,RECFM=U)
//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