gtpi1m7j | System Installation Support Reference |
The example that follows shows the JCL required to load offline data to tape using the auxiliary loader offline segment (TLDR).
//TLDRVTAP 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 UNIT=SYSDA,DSN=&&TLDROUT,DISP=(NEW,PASS) //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 /* //MKTAPE EXEC PGM=IEBGENER,REGION=58K //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=TLD.TAPE,LABEL=(,SL),UNIT=3480, // VOL=SER=vvvvvv,DISP=(,KEEP), // DCB=(BLKSIZE=4095,RECFM=U) //SYSUT1 DD DSN=&&TLDROUT,UNIT=SYSDA,DISP=(OLD,DELETE) //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 /*