DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
120
Procs/DTSUX335
Normal file
120
Procs/DTSUX335
Normal file
@ -0,0 +1,120 @@
|
||||
//**** 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
|
||||
Reference in New Issue
Block a user