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