gtpi1m7jSystem Installation Support Reference

TLDR JCL to Load Components to Tape

The example that follows shows the JCL required to load offline data to tape using the auxiliary loader offline segment (TLDR).

Note:
nn is the release identification and ssid is the subsystem ID.
//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
/*