DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTP591.jcl

@@ -0,0 +1,43 @@
+//BCGBP591 JOB (UI,4300,3400,T),PROD.FACHRG.DATAOUT,                    00000010
+//          CLASS=P,MSGCLASS=X,                                         00000010
+//****      TYPRUN=SCAN,
+//****      USER=OPCSUB,
+//          NOTIFY=ECNTSUP,REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//****                               *CHARGING* FISC.AGNT. DOWNLOAD
+//  SET LVLNODE='PROD'
+//  SET  LYRQTR='QTR093'
+//* SET TVOLSER='X00022'
+//* SET LFAGENT='FAOUTADP'                /* ADP INC.        (CART)
+//  SET LFAGENT='FAOUTTA'                 /* TALX UCM SERV.  (CART)
+//* SET LFAGENT='FAOUTEU'  LABEL=(,NL)    /* EMPL UNITY      (CART)
+//***                        /* GATES MCDONALD  {'GM' IS NOW 'TA'}
+//***      !!!    BUT... HAS NOT YET CHANGED THE CODE ON THE CART.
+//***      !!!                  THIS CHANGE IS PLANNED FOR QTR20032.
+//**SET LFAGENT='FAOUTJF'    /* J FRICK & CO    {'JF' NOW IS 'TA'}
+//****     !!!    FINALLY ACCOMPLISHED FOR 20033    !!!
+//**SET LFAGENT='FAOUTGM'    /* GATES MCDONALD  {'GM' IS NOW 'TA'}
+//****     !!!    FINALLY ACCOMPLISHED FOR 20034    !!!
+//****
+//**  THIS JOB TRANSFERS THE QTRLY OUTPUT OF DTSCHRGS
+//**          (SPLIT OF DTSCHGQ1 OUTPUT FROM CHARGING)
+//**   TO A MEDIUM FOR SHIPMENT TO AND PROCESSING BY FISCAL AGENT(S)
+//****
+//STEPCPY1 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01  DD DSN=DOESTAX.&LVLNODE..CHG.&LFAGENT..&LYRQTR.,
+//         DISP=SHR
+//INDD02 DD DSN=MAILOUT.DOESTAX.&LVLNODE..CHG.&LFAGENT..&LYRQTR.,
+//         VOL=SER=&TVOLSER.,
+//**       UNIT=700,
+//         UNIT=CART90,
+//         DISP=(NEW,KEEP,DELETE),
+//****     LABEL=(2,BLP),       /* (BLP=SECURITY VIOLATION AT IBM KY)
+//         LABEL=(,SL,EXPDT=98000),
+//***      LABEL=(,NL,EXPDT=98000),
+//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300)
+//SYSIN   DD *
+   REPRO INFILE(INDD01) OUTFILE(INDD02)
+/*
+//