
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F3 DD DSN=&PFX..&VRM..F3.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(15)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F4 DD DSN=&PFX..&VRM..F4.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(15)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F5 DD DSN=&PFX..&VRM..F5.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(45)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F6 DD DSN=&PFX..&VRM..F6.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(45)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F7 DD DSN=&PFX..&VRM..F7.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(45)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F8 DD DSN=&PFX..&VRM..F8.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(45)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
//F9 DD DSN=&PFX..&VRM..F9.XMIT,
// UNIT=SYSDA,VOL=SER=&VSN,
// SPACE=(TRK,(45)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// DISP=(,CATLG,DELETE)
RECVUPLD (TSO/E RECEIVE processing)
The changes in RECVUPLD, which performs TSO/E RECEIVE processing, are explained below.
The following numbers correspond to the numbers appearing on the right side of the sample JCL.
(1) to (3)
Modify the JOB statement in accordance with the installation environment.
(4) to (14), (16), (18), (20), (22), (24), (26), (28), (30), and (32)
Change the prefix for the dataset name from HP to the TSO/E user ID.
(15), (17), (19), (21), (23), (25), (27), (29), (31), and (33)
Change VOLSER from #tso01 to TSOW00.
//RECVUPLD JOB (ACCT#),'TSO RECEIVE', -----(1)
// REGION=0M,CLASS=A, -----(2)
// MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID -----(3)
//*********************************************************************
//*
User Guide 283
Komentarze do niniejszej Instrukcji