43 lines
3.3 KiB
Plaintext
43 lines
3.3 KiB
Plaintext
//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..PROCLIB 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
|