gtpi1m7i | System Installation Support Reference |
The example that follows shows the JCL required to load offline data to the general data set (GDS) using the auxiliary loader offline segment (TLDR).
//TLDRGDS JOB MSGLEVEL=1,CLASS=A,MSGCLASS=A, // USER=mvsuser,PASSWORD=password //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 UNIT=SYSDA,VOLUME=SER=dasd, // DSN=mvsuser.OUTPUT,SPACE=(TRK,(40,20)), // DCB=(RECFM=F,BLKSIZE=4095,LRECL=4095), // DISP=(OLD,KEEP,KEEP) //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 /*