//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
//****