//DTSBZ387 JOB (UI,4300,3400,T),JHP.PROD,CLASS=P,MSGCLASS=X, 00000010 //* TYPRUN=SCAN, // USER=#DOADTS, // NOTIFY=ECNTSUP //* 00001700 /*ROUTE PRINT U@PRT65 00001700 // SET LVLNODE='PROD' // SET MSTNODE='PROD' //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //* 00001700 //STEP0100 EXEC PGM=DTSBZ387, /* PRINT ADMIN ASSESS NOTICES // COND=(0,LT), // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSWESQ DD DSN=DOESTAX.&MSTNODE..VSAM.WESQ,DISP=SHR //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BE325.RPT(+1), // DISP=(,CATLG,DELETE), // SPACE=(16394,(900,900),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) /* //********************************************************************* 00120000 //STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00130000 // COND=(0,LT) 00140000 //SYSOUT DD SYSOUT=* 00150000 //SORTIN DD DSN=DOESTAX.PROD.BE325.RPT(+1),DISP=SHR 325 RPTS 00150199 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00240000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00250000 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00260000 //SORTOUT DD DSN=&&SRTRPT, 00270000 // DISP=(,PASS,DELETE), 00280000 // UNIT=SYSDA, 00290000 // SPACE=(8192,(1000,1000),RLSE), 00300000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00310000 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR 00320099 //********************************************************************* 00330000 //* 00543800 //STEP0300 EXEC PGM=DTSBD800, OUTPUT GENERATION 00543900 // TIME=(1,30), 00544000 // COND=(0,LT) 00545000 //SYSOUT DD SYSOUT=* 00546000 //SYSABOUT DD SYSOUT=* 00547000 //SYSUDUMP DD SYSOUT=* 00548000 //** 00548199 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00548299 //** 00548399 //PARMIN DD * 00549000 DTSBD800,INC,325 00550099 //*DTSBD800,EXC 00560000 /* 00570000 //** 00580000 //ATLSTIN DD * 00590000 DTSBD800 00600000 /* 00610000 //** 00620000 //DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00630000 //** 00640000 //DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00670000 // AMP=('BUFNI=5,BUFND=10') 00680000 //* 00738199 //DTSWESQ DD DSN=DOESTAX.PROD.VSAM.WESQ,DISP=SHR 00738299 //RPT325R1 DD SYSOUT=W,DEST=HOLD 00738499 //RPT325R2 DD SYSOUT=Z,DEST=HOLD 00738599 //RPT325R3 DD SYSOUT=Z,DEST=HOLD 00738699 //RPT325R4 DD SYSOUT=Z,DEST=HOLD 00738799 //RPT325R5 DD SYSOUT=Z,DEST=HOLD 00738899 //* 00738199 //RPT980R1 DD SYSOUT=* 00738199 //PRINTER DD SYSOUT=* 00738199 //**********************************************************************01190000 // 01200000