DUTAS re-platformed to Raincode - Initial Source Code

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

40
Procs/DTSBX305 Normal file
View File

@ -0,0 +1,40 @@
//**** 00000010
//* IMPORT CFO REFUND CHECKS ISSUED FILE 00001700
//* AND UPDATE TAX MASTER. 00001700
//* 00001700
//* RUNS DAILY AT 7:00 PM. 00001700
//** 00001700
//DTSBX305 PROC
//** 00001700
//STEP0200 EXEC PGM=DTSBX305,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//X305PARM DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305PARM,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5050,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=5050)
//* 00001700
//X305IMP DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305IMP,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5450,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=5450)
//* 00001700
//X306EXP DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305EXP,
//** DISP=(NEW,CATLG,KEEP),
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5050,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=5450)
//* 00001700
//*********************************************************************