//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