gtpi1m7k | System Installation Support Reference |
The example that follows shows the JCL required to load offline data to the virtual reader (VRDR) using the auxiliary loader offline segment (TLDR).
Notes:
//TLDRVRDR JOB MSGLEVEL=1,CLASS=A,MSGCLASS=A //TLDR EXEC PGM=TPFLDRnn,REGION=7000K,PARM='TLDR,SYS=ACP,CLMSIZE=4000000' //STEPLIB DD DSN=ACP.LINK.RELnn.ssid,DISP=SHR // DD DSN=SYS1.EDC.SEDCLINK,DISP=SHR // DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR //SALTB DD DSN=ACP.SALTBL.RELnn.ssid,DISP=SHR //OBJDD DD DSN=ACP.OBJ.RELnn.ssid,DISP=SHR //LOADMOD DD DSN=ACP.LINK.RELnn.ssid,DISP=SHR //ALDRCPL DD DSN=ACP.LINK.RELnn.ssid,DISP=SHR //TLDROUT DD DSN=&&VRDROUT,DISP=(NEW,PASS),UNIT=SYSDA //TAPEOUT DD DSN=&&SYSUT1,SPACE=(TRK,(20,20)),UNIT=SYSDA //TEMPLOAD DD DSN=&&SYSUT1,SPACE=(TRK,(20,20)),UNIT=SYSDA //LOADLIST DD SYSOUT=* //LOADSUM DD DSN=&&LOADSUM,DISP=(NEW,PASS),UNIT=SYSDA, // LRECL=133,SPACE=(TRK,(10,10)),RECFM=FBA //SYSUDUMP DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSIN DD * *** INPUT CONTROL CARDS ARE PLACED HERE /* //PRTSUM EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&LOADSUM,UNIT=SYSDA,DISP=(OLD,DELETE) //SYSUT2 DD SYSOUT=*,LRECL=133 //SYSIN DD * PRINT PREFORM=A /* //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