73 lines
2.9 KiB
Plaintext
73 lines
2.9 KiB
Plaintext
//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
|
|
//****
|