99 lines
7.7 KiB
Plaintext
99 lines
7.7 KiB
Plaintext
//BCGBRCER JOB (UI,4300,3400,T),PROD.FAUC30S.IN, 00001004
|
|
// CLASS=P,MSGCLASS=X,NOTIFY=DCGGAB, 00002007
|
|
// RESTART=STEP0200, 00003004
|
|
//*** RESTART=STEP0200, 00003004
|
|
//*** RESTART=STEP0200, 00003004
|
|
// REGION=0M 00004004
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** THIS JOB IS SET UP TO PROCESS THE QUARTERLY RATE TAPE 00004104
|
|
//** FROM FISCAL AGENT CERIDIAN ONLY 00004204
|
|
//** RESTARTS AT STEP0200 AFTER CERIDIAN CD IS UPLOADED 00004304
|
|
//** 00004404
|
|
//* CERIDIAN HAS A RECORD SIZE OF 100 CHARACTERS INSTEAD OF 00004504
|
|
//** 80 CHARACTERS AS ADP AND PAY CHEK 00004604
|
|
//** THE FIRST STEP LOAD THE FILE TO A 100 BYTE DATSET 00004704
|
|
//** THE SECOND STEP SORTS AND REFORMATS THE FILE TO 80 CHARACTERS 00004804
|
|
//** FOR INPUT TO JOB DTSUC30G 00004904
|
|
//** 00005004
|
|
//** CHANGE THE SET STATEMENT FOR QTR AND TVOLSER ONLY 00005104
|
|
//**** 00005204
|
|
// SET QTR='QTR20091' /* DATA FOR THIS QUARTER 00006009
|
|
// SET LVLNODE='PROD' /* DEVL/TEST/PROD 00007004
|
|
//* 00008004
|
|
//**SET FAFILE='DOESTAX.CONV.UC30.FISCAGNT.PCDATA.UPLOAD' 00009004
|
|
//**SET LINPUT='DTSUC30F' /* FROM UPLOADED FLOPPY 00009104
|
|
//* 00009204
|
|
// SET LINPUT='DTSUC30Y' /* FROM F.A. CART. 00009305
|
|
//**SET LINPUT='DTSUC30T' /* FROM F.A. TAPE 00009404
|
|
//**SET LINPUT='DTSUC30A' /* FROM ADP-SPEC. 00009504
|
|
//**SET LINPUT='DTSUC30X' /* SPECIAL (DSN/BLKSZ) 00009604
|
|
//**SET FAFILE='DSN=FILEIN' /* (ADP) 00009704
|
|
//**SET FAFILE='DSN=TAPEIN' /* GENERIC 00009804
|
|
//**SET FAFILE='DSN=S100.DC.RATES.REQ' /* (ADP) 00009904
|
|
// SET FAFILE='DSN=SUI0804' /* (CER) 00010004
|
|
//**SET FAFILE='DSN=SUITAPE.DC' /* (PB) 00010104
|
|
//**SET FAFILE='DSN=RTLY.DC.SUIR.CART' /* (PC) 00010204
|
|
//**SET LVLABEL='(2,BLP,EXPDT=98000)' /* (SPEC.) 00010306
|
|
// SET LVLABEL='(1,SL,EXPDT=98000)' /* OTHERS 00010406
|
|
// SET TVOLSER='002508' 00010509
|
|
//** THERE MAY BE A CONFLICT WITH CARTS STARTING WITH 4XXXXXX 00010604
|
|
//** (DOESJES2) *OR* 0XXXXXX (UDC!!) - USE INPUT DCB + BLP 00010704
|
|
//**SET LBLKSZ='800' 00010804
|
|
//**SET LBLKSZ='8000' 00010904
|
|
//* SET LBLKSZ='10000' 00011004
|
|
//**SET LBLKSZ='32760' 00011104
|
|
//**** 00011204
|
|
//* 02/01/01 - THIS JOB LOADS FISCAL-AGENT CONTRIB./WAGE EMPLOYER- 00011304
|
|
//* INFO TO A GDG SET UP FOR THE GIVEN QTR. THE F.A. INPUT COMES 00011404
|
|
//* EITHER FROM A CART./TAPE OR FROM DASD (UPLOADED FLOPPY). 00011504
|
|
//* (THE GDG DSN = DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1)).. 00011604
|
|
//* 00011704
|
|
//* (IF NO DATA COMES IN FROM A FISC.AGNT FOR A QTR, THEN CALL THE 00011804
|
|
//* PRIOR QTR'S DATA FORWARD FOR THE GIVEN QTR. SEE DTSUC30F.) 00011904
|
|
//* 00012004
|
|
//* -> PRESENTLY, THE UC30.FISC.AGNTS ARE ADP (CART. ), 00012104
|
|
//* CERIDIAN (CART.), PAYCHEX (CART.), AND PROBUSINESS (CART.) 00012204
|
|
//* THE NEXT JOB WOULD BE RUNUC30G (ADD 'UC30' & FA CODE). THEN 00012304
|
|
//* USE RUNRQ590 TO UPDATE THE MASTER FILES. USE RUNTP590 00012404
|
|
//* RIGHT AFTER RQ590 TO DOWNLOAD DATA FOR RETURN TO EACH F.A. 00012504
|
|
//**** 00012604
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00012704
|
|
//**** 00012804
|
|
//STEPJ100 EXEC &LINPUT. 00012904
|
|
//**** 00013004
|
|
//*UTDD01 DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1), 00013104
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.CER100, 00013204
|
|
// DISP=OLD, 00013305
|
|
//* DISP=(,CATLG,DELETE), 00013405
|
|
//** SPACE=(8000,(100,200),RLSE), 00013505
|
|
// SPACE=(CYL,(1,1),RLSE), 00014004
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=100,BLKSIZE=10000) 00014104
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00014204
|
|
// DISP=SHR 00014304
|
|
//**** 00014404
|
|
//**** 00015100
|
|
//* THS STEP WILL GET AN 80-BYTE REC FROM A 100-BYTE FILE 00015204
|
|
//* FROM (CERIDIAN) FISCAL AGENT FILE (1) AND CREATE 00016004
|
|
//** GENERATION DATASET 00016104
|
|
//** DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1) 00017004
|
|
//** THE OTHER GENERATIONS ARE CREATED IN JOB DTSUC30I 00018004
|
|
//** FOR ADP AND PAY CHEK 00019004
|
|
//**** 00100001
|
|
//STEP0200 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00110000
|
|
//SYSOUT DD SYSOUT=(*) 00120000
|
|
//SYSPRINT DD SYSOUT=(*) 00130000
|
|
//SORTIN DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.CER100, 00131000
|
|
// DISP=SHR 00131100
|
|
//* 00131200
|
|
//*ORTOUT DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1), 00132005
|
|
//SORTOUT DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1), 00132005
|
|
// DISP=(NEW,CATLG,DELETE), 00132100
|
|
// UNIT=SYSDA, 00132200
|
|
// SPACE=(TRK,(10,10),RLSE), 00132300
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=800) 00132405
|
|
//SYSIN DD * 00132500
|
|
SORT FIELDS=COPY 00132600
|
|
INREC FIELDS=(1:1,80) 00132700
|
|
/* 00132800
|
|
//**** 00132900
|