//BCGBC30G JOB (UI,4300,3400,T),PROD.UC30FA.LOAD2GDG,                   00010027
//         CLASS=P,MSGCLASS=X,                                          00020019
//         NOTIFY=ECNTSUP,                                              00030018
//****     TYPRUN=SCAN,                                                 00040018
//         REGION=0M                                                    00050018
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**                                                                    00060018
//  SET LVLNODE='PROD'                         /* TEST/PROD             00070018
//  SET QTR='QTR20073'                         /* QTRCCYYQ              00080034
//**                                                                    00090018
//**SET UC30I='DOESTAX.TEST.UC30.FAUPLOAD'                              00100018
//  SET UC30I='DOESTAX.CONV.UC30.FAUPLOAD'                              00100018
//  SET UC30O='DOESTAX.CONV.UC30.FISCAGNT'                              00110018
//**                                   (FISC AGNTS ARE ADP,CER,PB,PC)   00120018
//*   PROCESSES THE UPLOADED CONTRIB./WAGE (UC30) DATA TO ATTACH        00130018
//*   'UC30' & APPROPRIATE F.A. CODE TO OUTPUT FILE IN PREP FOR         00140018
//*   RQ590 MASTER FILE UPDATE.                                         00150018
//**                                                                    00160018
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00170018
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00180018
//**                                                                    00190018
//*TEP0100 EXEC DTSUC30G,                                               00200030
//*     FAGENIN='(-2)',                                                 00210036
//*     FAGEN='(+1)',                                                   00220033
//*     FA='PC'                (CHOOSE FROM ADP,CER,PB,PC,ADA)          00230036
//*                                                                     00240018
//*TEP0200 EXEC DTSUC30G,                                               00250030
//*     FAGENIN='(-1)',                                                 00260030
//*     FAGEN='(+1)',                                                   00270030
//*     FA='CER'                         (CHOOSE FROM ADP,CER,PB,PC)    00280030
//*                                                                     00290018
//*                                                                     00340018
//STEP0300 EXEC DTSUC30G,                                               00350030
//      FAGENIN='(+0)',                                                 00360030
//      FAGEN='(+1)',                                                   00370030
//      FA='ADP'                         (CHOOSE FROM ADP,CER,PB,PC)    00380030
//*                                                                     00390018
//*TEP0400 EXEC DTSUC30G,   COMBINED WITH ADP 6/2004                    00391027
//*     FAGENIN='(-1)',     GEORGE BROWN PER PHONE CALL TO PB           00392027
//*     FAGEN='(+3)',                                                   00393027
//*     FA='PB' COMBINED WITH ADP 6/2004 (CHOOSE FROM ADP,CER,PB,PC)    00394027
//****                                                                  00400018