gtpi1m7m | System Installation Support Reference |
The example that follows shows the JCL required to load offline programs to tape using the E-type loader offline segment (OLDR).
//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