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

55
JCL/DTSFT303.jcl Normal file
View File

@ -0,0 +1,55 @@
//DTSFT303 JOB (UI,4300,3400,T),DTSFT303,CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
//****************************************************************** 00001700
//* COPY REFUND TRANSACTIONS PRODUCTION. 00001700
//****************************************************************** 00001700
//* 00001700
// SET LVLNODE='PROD'
//* 00001700
//****************************************************************** 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//*********************************************************************
//STEP0100 EXEC PGM=DTSBU192, CHECK FOR EMPTY REFUND FILE
// COND=(0,LT)
//RFUNDINP DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//* |
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
//* |
//******************************************************************
//***
//STEP0200 EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT303),DISP=SHR
/*
//******************************************************************
//* |
//* BACKUP : MAKE A BACKUP COPY OF REFUND TRANS FROM DUTAS
//* |
//******************************************************************
//STEP0300 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
//INDD02 DD DSN=DOESTAX.PROD.FTP.REFUND.X303(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=750,BLKSIZE=7500)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//