gtpi1m7nSystem Installation Support Reference

OLDR JCL to Load E-Type Programs to VRDR

The example that follows shows the JCL required to load offline programs to the virtual reader (VRDR) using the E-type loader offline segment (OLDR).

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.

//OLDRVRDR JOB MSGLEVEL=1,CLASS=A,MSGCLASS=A,REGION=2100K
//NAME   EXEC PGM=TPFLDRnn,REGION=9000K,PARM='OLDR,CLMSIZE=9000000'
//STEPLIB  DD  DSN=ACP.LINK.RELnn.BSS,DISP=SHR
//         DD DSN=SYS1.EDC.SEDCLINK,DISP=SHR
//         DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//LOADMOD  DD  DSN=ACP.LINK.RELnn.BSS,DISP=SHR
//OBJLIB   DD  DSN=ACP.OBJ.RELnn.BSS,DISP=SHR
//CPRTEMP  DD  UNIT=SYSDA,
//             DSN=&&CPTEMP,SPACE=(TRK,(100,20)),
//             DCB=(RECFM=FB,BLKSIZE=4095,LRECL=4095),
//             DISP=(NEW,DELETE)
//PROGTEMP DD  UNIT=SYSDA,
//             DSN=&&PRTEMP,SPACE=(TRK,(100,20)),
//             DCB=(RECFM=FB,BLKSIZE=4095,LRECL=4095),
//             DISP=(NEW,DELETE)
//OUTPUT   DD  DSN=&&VRDROUT,DISP=(NEW,PASS),UNIT=SYSDA,
//             DCB=(RECFM=F,BLKSIZE=4095,LRECL=4095)
//SALTB    DD  DSN=ACP.SALTBL.RELnn.BSS,DISP=SHR
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//PRINTER  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//CEEDUMP  DD  SYSOUT=*
//SYSIN    DD  *
*** INPUT CONTROL CARDS ARE PLACED HERE
//*
//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