78 lines
3.1 KiB
Plaintext
78 lines
3.1 KiB
Plaintext
//BCGBC30C JOB (UI,4300,3400,T),PROD.FAUC30S.IN,
|
|
// CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
//****
|
|
//**** THIS JOB IS TO LOAD CERIDIAN FROM 100 TO 80 CHARACTERS
|
|
//**** ONLY
|
|
//****
|
|
//****
|
|
//**** ADP AND PAYCHEX ARE RUN BY DTSUC30I
|
|
//****
|
|
//****
|
|
//**** AS OF JUNE 2004, PRO BUSINESS HAS MERGED WITH ADP CALIF.
|
|
//**** GEORGE BROWN JUNE 14, 2004
|
|
//****
|
|
//**** PROCESS ONLY ADP AND PAY CHEK WITH THIS JOB
|
|
//**** CERIDIAN IS NOW PROCESSED IN JOB DTSUC30Y
|
|
//****
|
|
//****
|
|
// SET QTR='QTR20052' /* DATA FOR THIS QUARTER
|
|
// SET LVLNODE='PROD' /* DEVL/TEST/PROD
|
|
//*
|
|
//**SET FAFILE='DOESTAX.CONV.UC30.FISCAGNT.PCDATA.UPLOAD'
|
|
//**SET LINPUT='DTSUC30F' /* FROM UPLOADED FLOPPY
|
|
//*
|
|
// SET LINPUT='DTSUC30C' /* FROM F.A. CART.
|
|
//**SET LINPUT='DTSUC30T' /* FROM F.A. TAPE
|
|
//**SET LINPUT='DTSUC30A' /* FROM ADP-SPEC.
|
|
//**SET LINPUT='DTSUC30X' /* SPECIAL (DSN/BLKSZ)
|
|
//**SET FAFILE='DSN=FILEIN' /* (ADP)
|
|
//**SET FAFILE='DSN=TAPEIN' /* GENERIC
|
|
//**SET FAFILE='DSN=S100.DC.RATES.REQ' /* (ADP)
|
|
// SET FAFILE='DSN=SUI0804' /* (CER)
|
|
//**SET FAFILE='DSN=SUITAPE.DC' /* (PB)
|
|
//**SET FAFILE='DSN=RTLY.DC.SUIR.CART' /* (PC)
|
|
//**SET LVLABEL='(2,BLP,EXPDT=98000)' /* (SPEC.)
|
|
// SET LVLABEL='(1,SL,EXPDT=98000)' /* OTHERS
|
|
// SET TVOLSER='002705'
|
|
//** THERE MAY BE A CONFLICT WITH CARTS STARTING WITH 4XXXXXX
|
|
//** (DOESJES2) *OR* 0XXXXXX (UDC!!) - USE INPUT DCB + BLP
|
|
//**SET LBLKSZ='800'
|
|
//**SET LBLKSZ='8000'
|
|
//* SET LBLKSZ='10000'
|
|
//**SET LBLKSZ='32760'
|
|
//****
|
|
//* 02/01/01 - THIS JOB LOADS FISCAL-AGENT CONTRIB./WAGE EMPLOYER-
|
|
//* INFO TO A GDG SET UP FOR THE GIVEN QTR. THE F.A. INPUT COMES
|
|
//* EITHER FROM A CART./TAPE OR FROM DASD (UPLOADED FLOPPY).
|
|
//* (THE GDG DSN = DOESTAX.CONV.UC30.FAUPLOAD.&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 DTSUC30F.)
|
|
//*
|
|
//* -> PRESENTLY, THE UC30.FISC.AGNTS ARE ADP (CART. ),
|
|
//* CERIDIAN (CART.), PAYCHEX (CART.), AND PROBUSINESS (CART.)
|
|
//* THE NEXT JOB WOULD BE RUNUC30G (ADD 'UC30' & FA CODE). THEN
|
|
//* USE RUNRQ590 TO UPDATE THE MASTER FILES. USE RUNTP590
|
|
//* RIGHT AFTER RQ590 TO DOWNLOAD DATA FOR RETURN TO EACH F.A.
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//****
|
|
//STEPJ100 EXEC &LINPUT.
|
|
//****
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.&QTR(+1),
|
|
//*UTDD01 DD DSN=DOESTAX.CONV.UC30.FAUPLOAD.CER100,
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=100,BLKSIZE=10000)
|
|
//* SPACE=(8000,(100,200),RLSE),
|
|
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=800)
|
|
//** DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//** SPACE=(CYL,(1,1),RLSE),
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),
|
|
// DISP=SHR
|
|
//****
|