Return to the Sample Job Stream List

SPMRGETP Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=SPMRGETP,USER=0000SP0710000000,DISP=H,CLASS=G    DYNAM/T TAPE-MERGE
// JOB SPMRGETP
* // JA RERUNON X
// UPSI 10001110
// TLBL UIN,'SP91WSH0.(-5),D,U'
// TLBL UIN,'SP91WSH0.(-4),D,U'
// TLBL UIN,'SP91WSH0.(-2),D,U'
// TLBL UIN,'SP91WSH0.(-3),D,U'
// TLBL UIN,'SP91WSH0.(-1),D,U'
// TLBL UIN,'SP91WSH0,D,U'
// TLBL UOUT,'SP91WSH0,D,U'
// EXEC TDYNCOPY,SIZE=768K
FILES=06
LRECL=021
NRECS=350
/*
/&
// JA RERUNOFF
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//SPMRGETP JOB (SPMRGETP),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=ICETOOL                                           TDYNCOPY
//*
//STEP0010 EXEC PGM=ICETOOL
//* MT I              UIN      'SP91WSH0.(-5),D,U'
//UIN      DD  DSN=PROD.SP91WSH0(-5),
//             DISP=SHR
//* MT I              UIN      'SP91WSH0.(-4),D,U'
//         DD  DSN=PROD.SP91WSH0(-4),
//             DISP=SHR,
//             UNIT=AFF=UIN
//* MT I              UIN      'SP91WSH0.(-2),D,U'
//         DD  DSN=PROD.SP91WSH0(-2),
//             DISP=SHR,
//             UNIT=AFF=UIN
//* MT I              UIN      'SP91WSH0.(-3),D,U'
//         DD  DSN=PROD.SP91WSH0(-3),
//             DISP=SHR,
//             UNIT=AFF=UIN
//* MT I              UIN      'SP91WSH0.(-1),D,U'
//         DD  DSN=PROD.SP91WSH0(-1),
//             DISP=SHR,
//             UNIT=AFF=UIN
//* MT I              UIN      'SP91WSH0,D,U'
//         DD  DSN=PROD.SP91WSH0(0),
//             DISP=SHR,
//             UNIT=AFF=UIN
//* MT O              UOUT     'SP91WSH0,D,U'
//UOUT     DD  DSN=PROD.SP91WSH0(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//TOOLMSG  DD  SYSOUT=*
//* PR O
//DFSMSG   DD  SYSOUT=*
//* CD I
//TOOLIN   DD  *
 COPY FROM(UIN) TO(UOUT)
/*
//
   

Return to the Sample Job Stream List