gtpi1m7kSystem Installation Support Reference

TLDR JCL to Load Components to VRDR

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:

  1. nn is the release identification and ssid is the subsystem ID.

  2. This JCL transmits to a data set called vmnode.vmuid. Use the ELDRVRDR EXEC to convert this data set to a spool file that supports virtual reader input. A sample ELDRVRDR EXEC is shipped as segment UELV.

//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