//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..PROCS.BATCH.LIB                       00001800
//*                                                                     00001900
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00002000
//*                                                                     00003000
//STEP0105 EXEC PGM=SORT,                       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,                          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