91 lines
7.1 KiB
Plaintext
91 lines
7.1 KiB
Plaintext
//DTSRQ120 JOB (UI,4300,3400,T),PROD.BE120,CLASS=P,MSGCLASS=X, 00010013
|
|
// NOTIFY=ECNTSUP, 00020018
|
|
// REGION=0M 00050000
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** 00051000
|
|
// SET UINODE='PROD' /* 00051121
|
|
// SET PRGNODE='PROD' /* 00051221
|
|
// SET LVLNODE='PROD' /* 00051321
|
|
// SET CHGNODE='PROD' 00051421
|
|
// SET CHGMNBR='CHGM002' 00051521
|
|
// SET CHGMSSN='CHGM030' 00051621
|
|
// SET QTRLY='SPE0316' 00051721
|
|
// SET LDEST=U@PRT65 00051821
|
|
// SET LHOLD='YES' 00051921
|
|
//* 00054000
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00060000
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00070000
|
|
//**** 00080000
|
|
//* ON REQUEST REPORT DTSBR120 - 00130000
|
|
//* POTENTIALLY FICTITIOUS EMPLOYERS 00140000
|
|
//**** 00160000
|
|
//* NO BACKUP NEEDED BEFORE THIS REPORT 00200003
|
|
//**** 00250003
|
|
//* THIS COMPARISON USUALLY CONSISTS OF: 00251003
|
|
//* BENEFIT/CHRG DATA FOR THE LAST FOUR COMPLETED QUARTERS, WITH 00260003
|
|
//* THE UI TAX LIABILITY DATA PRECEDING THIS BENEFIT/CHRG SPAN 00261001
|
|
//* BY 180 DAYS. E.G.: 00262001
|
|
//* (*) IF THIS JOB RUNS ON 04/04/01, THEN THE BENEFIT/CHARGE DATA 00270003
|
|
//* USED ARE 04/01/00 TO 03/31/01 00271001
|
|
//* AND THE UI TAX LIABILITY DATA 00272001
|
|
//* USED ARE 10/01/99 TO 09/30/00 00272101
|
|
//* 10/01/99-09/30/00 PRECEDES 04/01/00-03/31/01 BY 180 DAYS. 00273001
|
|
//* 00273101
|
|
//** BEN/CHRG DATA -> | 00/2 | 00/3 | 00/4 | 01/1 | (*) 00274010
|
|
//** | 99/4 | 00/1 | 00/2 | 00/3 | <- UI TAX DATA 00275010
|
|
//**** 00281001
|
|
//* STEP0100 WILL EXTRACT BENEFIT CHARGE DATA FOR THE DESIRED SPAN: 00282003
|
|
//* 00283003
|
|
//* COLS. RUN TYPE: 00283103
|
|
//* 01-03 RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00283204
|
|
//* 05-10 MMDDYY = START DATE OF SELECTION 00283903
|
|
//* 12-17 MMDDYY = END DATE OF SELECTION 00284003
|
|
//* 19-23 YNNNN = REPORT TYPES DESIRED: 00284204
|
|
//* - Y/N RATED REPORT (W)(O) 00284304
|
|
//* 00284803
|
|
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00285203
|
|
//* (OR NOT... FOR NOW) 00285303
|
|
//**** 00285403
|
|
//STEP0100 EXEC DTSUXCGP 00285503
|
|
//STEP0100.SYSIN DD * 00285603
|
|
RPT,040116,123117,YNNNN,000000 00285720
|
|
/* /* USE THESE FOR A RERUN <== 00285803
|
|
//*TEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00285913
|
|
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00286013
|
|
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00286113
|
|
//**** 00286303
|
|
//* SYSIN CARD: RPT,070101,063002,YNNNN,000000 00286403
|
|
//**** 00286503
|
|
//* STEP0200 WILL EXTRACT UI TAX LIABILIY DATA FOR THE DESIRED SPAN: 00286604
|
|
//* 00286704
|
|
//* COLS. 00286804
|
|
//* 01-03 120 = EXTRACT FOR RPT120 00286904
|
|
//* 05-10 MMDDYY = START DATE OF SELECTION 00287004
|
|
//* 12-17 MMDDYY = END DATE OF SELECTION 00287104
|
|
//* 19-21 NNN = MAX. NBR. OF EMPLOYEES PER EMPLOYER TO BE EXAMINED 00287304
|
|
//* 00287504
|
|
//STEP0200 EXEC DTSUX120, 00287611
|
|
// RUNTYPE='OR' 00287704
|
|
//STEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00287806
|
|
// DISP=SHR 00287906
|
|
//STEP0200.EXTPARM DD * 00288006
|
|
120,070114,063015,005 00288120
|
|
/* 00288206
|
|
//**** 00288306
|
|
//* SYSIN CARD: 120,010101,123101,005 00288406
|
|
//**** 00288506
|
|
//**** REPORT RECORD SORT 00288606
|
|
//STEP0250 EXEC DTSRSORT 00288706
|
|
//**** REPORT GENERATION 00289004
|
|
//STEP0300 EXEC DTSRQRPT 00290002
|
|
//** POTENTIALLY FICTITIOUS EMPLYRS 00310121
|
|
//*TEP0100.RPT120R1 DD SYSOUT=(V,DTS120R1),HOLD=&LVDHOLD., 00310221
|
|
//STEP0100.RPT120R1 DD SYSOUT=* 00310221
|
|
//STEP0100.RPT907R1 DD SYSOUT=* 00310421
|
|
//STEP0100.RPT907R2 DD DUMMY 00310621
|
|
//STEP0100.RPT980R1 DD SYSOUT=* 00310721
|
|
//STEP0100.CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00310908
|
|
// DISP=SHR 00311008
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00312007
|
|
//**** 00320004
|