121 lines
9.5 KiB
Plaintext
121 lines
9.5 KiB
Plaintext
//**** 00000100
|
|
//** 00000200
|
|
//** INITIAL LOAD: ACCOUNTING DATABASE. 00000399
|
|
//** (*NO* MSTR UPDATE) 00000505
|
|
//** 00000605
|
|
//DTSUX335 PROC RUNTYPE='RQ', 00000799
|
|
// PREBACK='N', 00000821
|
|
// CHKONLY='N', 00000921
|
|
// IOTRACE='N' 00001038
|
|
//** DEFNS NEEDED FOR THIS PROC: 00001105
|
|
//** LVLNODE = DEVL/TEST/PROD 00001205
|
|
//**** 00001408
|
|
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT 00001519
|
|
// COND=(0,LT), 00001619
|
|
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.' 00001722
|
|
//* 00001819
|
|
//SYSOUT DD SYSOUT=* 00004001
|
|
//SYSABOUT DD SYSOUT=* 00005001
|
|
//SYSUDUMP DD SYSOUT=* 00006001
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00012201
|
|
// AMP=('BUFNI=5,BUFND=10') 00013001
|
|
//DTSFVRO1 DD DUMMY 00020039
|
|
//DTSFBTCO DD DUMMY 00050039
|
|
//SYSIN DD DDNAME=EXTPARM 00081019
|
|
//**** 00082099
|
|
//DTSFPARM DD DSN=&&X335PARM, 00082199
|
|
// DISP=(NEW,PASS,DELETE), 00082299
|
|
// UNIT=SYSDA, 00082499
|
|
// SPACE=(16,(10,10),RLSE), 00082599
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=16) 00082699
|
|
//* 00082799
|
|
//DTSFPRF DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF, 00082899
|
|
//** DISP=(NEW,CATLG,CATLG), 00082999
|
|
// DISP=(OLD,KEEP,KEEP), 00083099
|
|
// UNIT=SYSDA, 00083199
|
|
// SPACE=(CYL,(10,5),RLSE), 00083299
|
|
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=28800) 00083399
|
|
//* 00083499
|
|
//DTSFDET DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DET, 00083599
|
|
//** DISP=(NEW,CATLG,CATLG), 00083699
|
|
// DISP=(OLD,KEEP,KEEP), 00083799
|
|
// UNIT=SYSDA, 00083899
|
|
// SPACE=(CYL,(10,5),RLSE), 00083999
|
|
// DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500) 00084099
|
|
//* 00084199
|
|
//DTSFFSC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.FSC, 00084299
|
|
//** DISP=(NEW,CATLG,CATLG), 00084399
|
|
// DISP=(OLD,KEEP,KEEP), 00084499
|
|
// UNIT=SYSDA, 00084599
|
|
// SPACE=(CYL,(10,5),RLSE), 00084699
|
|
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600) 00084799
|
|
//* 00084899
|
|
//DTSFADR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ADR, 00084999
|
|
//** DISP=(NEW,CATLG,CATLG), 00085099
|
|
// DISP=(OLD,KEEP,KEEP), 00085199
|
|
// UNIT=SYSDA, 00085299
|
|
// SPACE=(CYL,(10,5),RLSE), 00085399
|
|
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00085499
|
|
//* 00085599
|
|
//DTSFACCT DD DSN=&&ACCT, 00085699
|
|
// DISP=(NEW,PASS,DELETE), 00085799
|
|
// UNIT=SYSDA, 00085899
|
|
// SPACE=(CYL,(75,10),RLSE), 00086099
|
|
// DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00086199
|
|
//* 00086299
|
|
//DTSFTRAN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN, 00086399
|
|
//** DISP=(NEW,CATLG,KEEP), 00086499
|
|
// DISP=(OLD,KEEP,KEEP), 00086599
|
|
// UNIT=SYSDA, 00086699
|
|
// SPACE=(CYL,(20,5),RLSE), 00086799
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00086899
|
|
//** 00086999
|
|
//DTSFQTR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QTR, 00087099
|
|
//** DISP=(NEW,CATLG,KEEP), 00087199
|
|
// DISP=(OLD,KEEP,KEEP), 00087299
|
|
// UNIT=SYSDA, 00087399
|
|
// SPACE=(CYL,(10,5),RLSE), 00087499
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=28700) 00087599
|
|
//** 00087699
|
|
//DTSFRATE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.RATE, 00087799
|
|
//** DISP=(NEW,CATLG,KEEP), 00087899
|
|
// DISP=(OLD,KEEP,KEEP), 00087999
|
|
// UNIT=SYSDA, 00088099
|
|
// SPACE=(CYL,(10,5),RLSE), 00088199
|
|
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00088299
|
|
//** 00088399
|
|
//DTSFQCOL DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QCOLL, 00088499
|
|
//** DISP=(NEW,CATLG,KEEP), 00088599
|
|
// DISP=(OLD,KEEP,KEEP), 00088699
|
|
// UNIT=SYSDA, 00088799
|
|
// SPACE=(CYL,(10,5),RLSE), 00088899
|
|
// DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00088999
|
|
//** 00089099
|
|
//DTSFSUM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00089199
|
|
//** DISP=(NEW,CATLG,CATLG), 00089299
|
|
// DISP=(OLD,KEEP,KEEP), 00089399
|
|
// UNIT=SYSDA, 00089499
|
|
// SPACE=(CYL,(10,5),RLSE), 00089599
|
|
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00089699
|
|
//** 00089799
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCOUNTING DETAIL 00089899
|
|
// COND=(0,LT) 00089999
|
|
//SYSOUT DD SYSOUT=* 00090099
|
|
//* 00090199
|
|
//SORTIN DD DSN=&&ACCT, 00091099
|
|
// DISP=(OLD,DELETE,DELETE) 00100099
|
|
//* 00101099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00102099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00103099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00104099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00105099
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT, 00108099
|
|
//** DISP=(NEW,CATLG,KEEP), 00109099
|
|
// DISP=(OLD,KEEP,KEEP), 00109199
|
|
// UNIT=SYSDA, 00109299
|
|
// SPACE=(CYL,(75,10),RLSE), 00109399
|
|
// DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00109499
|
|
//**** 00110001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX335),DISP=SHR 00120099
|