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

88
JCL/RUNRQACH.jcl Normal file
View File

@ -0,0 +1,88 @@
//DTSRQACH JOB (UI,4300,3400,T),RUN-EFT-ACH-UPDATES,CLASS=S,MSGCLASS=X, 00000125
//** TYPRUN=SCAN, 00000200
// NOTIFY=ECNTSUP,REGION=0M 00000425
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000505
// SET MSTNODE='PROD' REGION VSAM MASTER FILES 00000625
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB 00000725
// SET CPYNODE='TEST' WACHOVIA ACH INPUT FILE 00000824
//* 00000920
// SET WACHOLD='WACH.TRANSIN' 00001123
// SET WACHNEW='WACH.ACHDATA' 00001326
// SET GOV1ERR='WACH.ERROR' 00001424
// SET WACHERR='WACH.ERROR' 00001524
// SET LHOLD='YES' 00001600
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001800
//* 00001900
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002000
//* 00003000
//STEP0105 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAYMENT RECORDS 00004618
// COND=(0,LT) 00004718
//SYSOUT DD SYSOUT=* 00004818
//SORTIN DD DSN=DOESTAX.&CPYNODE..&WACHNEW, 00004923
// DISP=SHR 00005018
//SORTOUT DD DSN=&&EFTEMP, 00005222
// DISP=(NEW,PASS,DELETE), 00005322
// UNIT=SYSDA, 00005422
// SPACE=(8192,(1000,1000),RLSE), 00005522
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00005622
//* 00005722
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTSREC2),DISP=SHR 00006018
//********************************************************************* 00006118
//STEP0110 EXEC PGM=SORT,PARM='VLTEST=0', SORT EFTACH RECORDS 00006215
// COND=(0,LT) 00006315
//SYSOUT DD SYSOUT=* 00006415
//* 00006522
//SORTIN DD DSN=&&EFTEMP, 00006622
// DISP=(OLD,DELETE,DELETE), 00006722
// UNIT=SYSDA, 00006822
// SPACE=(8192,(1000,1000),RLSE), 00006922
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00007022
//* 00007115
//SORTOUT DD DSN=&&EFTACH, 00007215
// DISP=(NEW,PASS,DELETE), 00007315
// UNIT=SYSDA, 00007415
// SPACE=(8192,(1000,1000),RLSE), 00007515
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00007615
//* 00007715
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTSREC3),DISP=SHR 00007815
//********************************************************************* 00007915
//* CREATE RETURN TRANSCATIONS 00008016
//********************************************************************* 00008110
//STEP0200 EXEC EFTUP350 00008212
//* 00008316
//********************************************************************* 00008400
//* COPY CURRENT FTP FILE INTO GDG 00008516
//* 00008616
//********************************************************************* 00008703
//STEP0300 EXEC PGM=IDCAMS,COND=(0,LT) 00008811
//SYSPRINT DD SYSOUT=* 00008900
//INDD01 DD DSN=DOESTAX.&CPYNODE..&WACHNEW,DISP=SHR 00009023
//OUTDD01 DD DSN=DOESTAX.&MSTNODE..&WACHOLD(+1), 00009123
// DISP=(,CATLG,DELETE), 00009200
// SPACE=(8192,(100,200),RLSE), 00009300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=94,BLKSIZE=9400) 00009400
//* 00009500
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00010000
//* 00020000
//* 00030026
//* DELETE ACH FILE 00040000
//**** 00060000
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT) 00070011
//GOV1FACH DD DSN=DOESTAX.&CPYNODE..&WACHNEW, 00080023
// DISP=(OLD,DELETE,DELETE) 00090000
//* 00100000
//**** 00101000
//* CREATE A NEW (EMPTY) ACH FILE 00102016
//**** 00103000
//* 00104000
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT) 00111011
//SYSPRINT DD SYSOUT=* 00120000
//GOV1FACH DD DSN=DOESTAX.&CPYNODE..&WACHNEW, 00160023
// DISP=(NEW,CATLG,DELETE), 00170000
// UNIT=SYSDA, 00180002
// SPACE=(5600,(100,50),RLSE), 00190000
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00200000
//* 00201000
//* 00202000