giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
Procs/EFTBD100 Normal file
View File

@ -0,0 +1,82 @@
//***** 00000100
//** DAILY ELECTRONIC PAYMENT/REPORTING SUSTEM 00000201
//***** 00000300
//EFTBD100 PROC 00000401
//***** 00000500
//* 00001500
//********************************************************************* 00002000
//STEP0410 EXEC PGM=SORT,PARM='VLTEST=0', SORT DPT RECORDS 00002100
// COND=(0,LT) 00002200
//SYSOUT DD SYSOUT=* 00002300
//SORTIN DD DSN=DOESTAX.&MSTNODE..GOV1.TRANSOUT(+1), 00002930
// DISP=SHR 00003000
//* 00003400
//*ORTOUT DD DSN=&&EFTTRANS, 00003542
//SORTOUT DD DSN=DOESTAX.&MSTNODE..GOV1.SRT, 00003642
//* DISP=(NEW,CATLG,DELETE), 00003747
// DISP=(OLD,KEEP,DELETE), 00003847
// UNIT=SYSDA, 00003900
// SPACE=(8192,(1000,1000),RLSE), 00004000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTRECS4),DISP=SHR 00004236
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004300
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004400
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004500
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004600
//**** 00004700
//STEP0420 EXEC PGM=EFTBD100, EFT DRIVER PROGRAM 00004800
// COND=(0,LT), 00004902
// PARM='&BD100' 00005016
//SYSOUT DD SYSOUT=* 00005157
//SYSPRT1 DD SYSOUT=* 00005258
//SYSPRT2 DD SYSOUT=* 00005358
//SYSPRT3 DD SYSOUT=* 00005458
//SYSPRT4 DD SYSOUT=* 00005558
//SYSPRT5 DD SYSOUT=* 00005658
//SYSPRT6 DD SYSOUT=* 00005758
//SYSPRT7 DD SYSOUT=* 00005858
//SYSPRT8 DD SYSOUT=* 00005958
//SYSPRT9 DD SYSOUT=* 00006058
//SYSFINAL DD SYSOUT=* 00006158
//SYSPRINT DD SYSOUT=* 00006255
//SYSABOUT DD SYSOUT=* 00006355
//SYSUDUMP DD SYSOUT=* 00006455
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00006555
//* 00006655
//** 00006755
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00006855
// AMP=('BUFNI=5,BUFND=10') 00006955
//** 00007055
//CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR 00007155
//CBCTYST DD DSN=DOES.CICS.FIN730.CBCTYST.EX100102,DISP=SHR 00007255
//* 00007355
//EFT100R1 DD SYSOUT=Z, 00007455
// HOLD=&LHOLD., 00007555
// DEST=U@PRT65 00007655
//* 00007755
//*EFT100F1 DD DSN=&&EFTTRANS, 00007855
//* DISP=(OLD,PASS,DELETE) 00007955
//EFT100F1 DD DSN=DOESTAX.&MSTNODE..GOV1.SRT,DISP=SHR 00008055
//* 00009200
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1), BTC OUTPUT FILE 00009302
// DISP=(,CATLG,DELETE), 00009400
// SPACE=(8192,(100,200),RLSE), 00009500
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00009600
//* 00009700
//DTSFW001 DD DSN=DOESTAX.&MSTNODE..WAGE.BTC, BWTC OUTPUT FILE 00009844
//** DISP=(,CATLG,DELETE), 00009945
//** DISP=(OLD,KEEP,DELETE), 00010048
// DISP=SHR, 00010148
// SPACE=(25600,(100,200),RLSE), 00010248
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00010348
//* 00010448
//DTSFVRO1 DD DSN=DOESTAX.&MSTNODE..DOESERR, REPORT FILE 00010548
// DISP=(,PASS,DELETE), 00010648
// UNIT=SYSDA, 00010748
// SPACE=(8192,(100,100),RLSE), 00010848
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00010948
//** 00011029
//** REPORT RECORD SORT 00020029
//STEP0430 EXEC EFTXSORT 00030027
//* REPORT GENERATION 00040000
//* 00290000