DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
40
Procs/DTSBX305
Normal file
40
Procs/DTSBX305
Normal 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
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user