z/TPF Program Management - IBM

Sample code
JCL for sending your output
VRDR
GDS
Tape
The following code samples show how to create the code that is necessary to
complete an offline load from your z/OS system.
The following examples show sample JCL for directing the output of your load.
The following JCL will send your output to VRDR:
//VRDRLD JOB MSGLEVEL=1,CLASS=S,MSGCLASS=S
/*ROUTE PRINT TPFVM1()
/*ROUTE PUNCH TPFVM1()
//TLDR EXEC PGM=TPFLDR,PARM=’TLDR’,REGION=90M
//STEPLIB DD DSN=ACP.LINK.CUR51.BSS,DISP=SHR
//LDROUT DD DSN=&&VRDROUT,SPACE=(TRK,(1600,120)),
// DISP=(NEW,PASS),UNIT=SYSDA
//LDRTEMP DD DSN=&&SYSUT1,SPACE=(CYL,(1600,120)),UNIT=SYSDA
//LDRREPRT DD SYSOUT=A
//SYSUDUMP DD DUMMY
//SYSABEND DD DUMMY
//LDRTRACE DD SYSOUT=A
//LDRLOAD DD *
/*
//TRANSMIT EXEC PGM=IKJEFT01,
// PARM=’TRANSMIT TPFVM1.(uderid) DDNAME(SYSTSIN) NOLOG NONOTIFY SEQ’
//SYSTSIN DD UNIT=SYSDA,
// DSN=&&VRDROUT,DISP=(OLD,DELETE)
//SYSTSPRT DD DUMMY
The following JCL will send your output to GDS:
//GDSLDR JOB MSGLEVEL=1,CLASS=S,MSGCLASS=S
/*ROUTE PRINT TPFVM1()
/*ROUTE PUNCH TPFVM1()
//GDSLD EXEC PGM=TPFLDR,PARM=’TLDR’,REGION=90M
//STEPLIB DD DSN=ACP.LINK.CUR51.BSS,DISP=SHR
//LDROUT DD DSN=,DISP=OLD
//LDRTEMP DD DSN=&&SYSUT1,SPACE=(CYL,(1600,120)),UNIT=SYSDA
//LDRREPRT DD SYSOUT=A
//LDRTRACE DD SYSOUT=A
//LDRLOAD DD *
The following JCL will send your output to the Virtual Tape Server (VTS):
//LDROUT DD DSN=BOSS.TAPE,UNIT=VTS,DISP=(OLD,KEEP),
// VOL=SER=TV2127,LABEL=(,SL),
// DCB=(BLKSIZE=4095,RECFM=U)
The following JCL will send your output to VTAPE:
//LDROUT DD DSN=DASD.TAPE,UNIT=VTAPE,DISP=(NEW,KEEP),
// VOL=SER=SCRTCH,LABEL=(,SL),
// SPACE=(TRK,(3500,500)),
// DCB=(BLKSIZE=4095,RECFM=U)
© Copyright IBM Corp. 2005, 2012 157