83 lines
6.5 KiB
Plaintext
83 lines
6.5 KiB
Plaintext
//***** 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
|