DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSCHRGI.jcl

@@ -0,0 +1,72 @@
+//BCGBHRGI JOB (UI,4300,3400,T),PROD.FACHRGS.IN,
+//         CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****                                   /* UPLOAD FA DATA FROM CART.
+//****   OUT OF AREA TAPE DSN MUST HAVE USER ID AS THE FIRST NODE
+//****   IN DATA SET NAME (EXAMPLE: ECNTSUP.DCCHRG)
+//****
+//  SET QTR='QTR20091'                   /* DATA FOR THIS QUARTER
+//  SET LVLNODE='PROD'                   /* DEVL/TEST/PROD
+//*
+//**SET LINPUT='DTSBCHGF'                    /* FROM UPLOADED FLOPPY
+//**SET FAFILE='DOESTAX.CONV.CHRG.FISCAGNT.PCDATA.UPLOAD'
+//  SET  LINPUT='DTSBCHGT'                    /* FROM F.A. CART.
+//**SET  LINPUT='DTSBCHGX'                    /* FROM F.A. CART. W/DCB
+//**SET LBLOCKS='32720'                       /* BLKSIZE FOR CHGX CART
+//  SET  FAFILE='ECNTSUP.UCB3020.DC.DCTAPE'           /* ADP
+//**SET  FAFILE='QUCS.DC.ACCTLIST'            /* GM
+//**SET  FAFILE='DCCHG'               /* JF   {NOW TALX}
+//* SET  FAFILE='EMPL.UNITY'                  /* EMPLOYERS UNITY
+//**SET TVOLSER='12345'
+//  SET TVOLSER='035672'
+//****
+//****    10/07/04  GEORGE BROWN
+//****
+//****    SET UP GENERATION DATASET UNDER FILEAID - O.19.3.2
+//****    FOR THE DESIRED QUARTER
+//****    DOESTAX.CONV.CHRG.FISCAGNT.QTR20043 EXAMPLE)
+//****
+//*   SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
+//*   SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
+//*   SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
+//*   SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
+//****
+//****
+//* 02/01/01 - THIS JOB LOADS FISCAL-AGENT BENEFIT-CHARGING EMPLOYER-
+//*    INFO TO A GDG SET UP FOR THE GIVEN QTR.  THE F.A. INPUT COMES
+//*    EITHER FROM A CART. OR FROM A DASD FILE UPLOADED FROM A FLOPPY.
+//*     (THE GDG DSN = DOESTAX.CONV.CHRG.FISCAGNT.&QTR(+1))..
+//*
+//*   (IF NO DATA COMES IN FROM A FISC.AGNT FOR A QTR, THEN CALL THE
+//*    PRIOR QTR'S DATA FORWARD FOR THE GIVEN QTR.  SEE RUNCHRGF.)
+//*
+//*   -> PRESENTLY, THE CHRG.FISC.AGNTS ARE ADP (CART.), GM (CART.),
+//*      AND JF (CART.)  USE RUNTP591 AT THE END OF THE QTRLY CHRG
+//*      PROCESS TO DOWNLOAD DATA FOR RETURN TO EACH F.A.
+//*           !!! FRICK AND GATES HAVE MERGED INTO TALX UCXPRESS !!!
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//****
+//STEPJ100 EXEC &LINPUT.,
+//***
+//***
+//***
+//**    TALX, ADP AND PAYCHEX 1,SL LRECL=80,BLKSIZE=800
+//**    EMPLOYERS UNITY  ,NL, LRECL 80,BLKSIZE=80
+//***
+//***
+//     RECL='80', EMPLOYERS UNITY
+//     BLKIN='800',
+//**   LABEL=',NL'
+//     LABEL='1,SL'  FOR ADP, TALX AND PAYCHEX
+//**   LABEL='2,BLP'     FOR  TALX
+//****
+//OUTDD01 DD  DSN=DOESTAX.CONV.CHRG.FISCAGNT.&QTR(+1),
+//            DISP=(,CATLG,DELETE),
+//            SPACE=(8192,(100,200),RLSE),
+//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//SYSIN   DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),
+//        DISP=SHR
+//****