gtpi1m7n | System Installation Support Reference |
The example that follows shows the JCL required to load offline programs to the virtual reader (VRDR) using the E-type loader offline segment (OLDR).
Notes:
//OLDRVRDR 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.BSS,DISP=SHR // DD DSN=SYS1.EDC.SEDCLINK,DISP=SHR // DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR //LOADMOD DD DSN=ACP.LINK.RELnn.BSS,DISP=SHR //OBJLIB DD DSN=ACP.OBJ.RELnn.BSS,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=&&VRDROUT,DISP=(NEW,PASS),UNIT=SYSDA, // DCB=(RECFM=F,BLKSIZE=4095,LRECL=4095) //SALTB DD DSN=ACP.SALTBL.RELnn.BSS,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 //* //TRANSMIT EXEC PGM=IKJEFT01, // PARM='TRANSMIT vmnode.vmuid DDNAME(SYSTSIN) NOLOG NONOTIFY SEQ' //SYSTSIN DD UNIT=SYSDA, // DSN=&&VRDROUT,DISP=(OLD,KEEP) //SYSTSPRT DD DUMMY