gtpi1m7l | System Installation Support Reference |
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).
//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