//BCGBC30C JOB (UI,4300,3400,T),PROD.FAUC30S.IN,
//         CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//****
//****     THIS JOB IS TO LOAD CERIDIAN FROM 100 TO 80 CHARACTERS
//****     ONLY
//****
//****
//****     ADP AND PAYCHEX ARE RUN BY DTSUC30I
//****
//****
//****     AS OF JUNE 2004, PRO BUSINESS HAS MERGED WITH ADP CALIF.
//****     GEORGE BROWN JUNE 14, 2004
//****
//****     PROCESS ONLY ADP AND PAY CHEK WITH THIS JOB
//****     CERIDIAN IS NOW PROCESSED IN JOB DTSUC30Y
//****
//****
//  SET QTR='QTR20052'                       /* DATA FOR THIS QUARTER
//  SET LVLNODE='PROD'                       /* DEVL/TEST/PROD
//*
//**SET FAFILE='DOESTAX.CONV.UC30.FISCAGNT.PCDATA.UPLOAD'
//**SET LINPUT='DTSUC30F'                    /* FROM UPLOADED FLOPPY
//*
//  SET LINPUT='DTSUC30C'                    /* FROM F.A. CART.
//**SET LINPUT='DTSUC30T'                    /* FROM F.A. TAPE
//**SET LINPUT='DTSUC30A'                    /* FROM ADP-SPEC.
//**SET LINPUT='DTSUC30X'                    /* SPECIAL (DSN/BLKSZ)
//**SET FAFILE='DSN=FILEIN'                  /*   (ADP)
//**SET FAFILE='DSN=TAPEIN'                  /*  GENERIC
//**SET FAFILE='DSN=S100.DC.RATES.REQ'       /*   (ADP)
//  SET FAFILE='DSN=SUI0804'                 /*   (CER)
//**SET FAFILE='DSN=SUITAPE.DC'              /*   (PB)
//**SET FAFILE='DSN=RTLY.DC.SUIR.CART'       /*   (PC)
//**SET LVLABEL='(2,BLP,EXPDT=98000)'        /*   (SPEC.)
//  SET LVLABEL='(1,SL,EXPDT=98000)'         /*   OTHERS
//  SET TVOLSER='002705'
//**       THERE MAY BE A CONFLICT WITH CARTS STARTING WITH 4XXXXXX
//**       (DOESJES2) *OR* 0XXXXXX (UDC!!) - USE INPUT DCB + BLP
//**SET  LBLKSZ='800'
//**SET  LBLKSZ='8000'
//* SET  LBLKSZ='10000'
//**SET  LBLKSZ='32760'
//****
//* 02/01/01 - THIS JOB LOADS FISCAL-AGENT CONTRIB./WAGE EMPLOYER-
//*    INFO TO A GDG SET UP FOR THE GIVEN QTR.  THE F.A. INPUT COMES
//*    EITHER FROM A CART./TAPE OR FROM DASD (UPLOADED FLOPPY).
//*     (THE GDG DSN = DOESTAX.CONV.UC30.FAUPLOAD.&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 DTSUC30F.)
//*
//*   -> PRESENTLY, THE UC30.FISC.AGNTS ARE ADP (CART. ),
//*      CERIDIAN (CART.), PAYCHEX (CART.), AND PROBUSINESS (CART.)
//*      THE NEXT JOB WOULD BE RUNUC30G (ADD 'UC30' & FA CODE). THEN
//*      USE RUNRQ590 TO UPDATE THE MASTER FILES.  USE RUNTP590
//*      RIGHT AFTER RQ590 TO DOWNLOAD DATA FOR RETURN TO EACH F.A.
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//****
//STEPJ100 EXEC &LINPUT.
//****
//OUTDD01 DD  DSN=DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1),
//*UTDD01 DD  DSN=DOESTAX.CONV.UC30.FAUPLOAD.CER100,
//            DISP=(,CATLG,DELETE),
//            SPACE=(8192,(100,200),RLSE),
//        DCB=(SYS3.MODEL,RECFM=FB,LRECL=100,BLKSIZE=10000)
//*           SPACE=(8000,(100,200),RLSE),
//*           DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=800)
//**          DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//**      SPACE=(CYL,(1,1),RLSE),
//SYSIN   DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),
//        DISP=SHR
//****