89 lines
6.9 KiB
Plaintext
89 lines
6.9 KiB
Plaintext
//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
|