85 lines
4.9 KiB
Plaintext
85 lines
4.9 KiB
Plaintext
//DTSRQ590 JOB (UI,4300,3400,T),PROD.BD590.FAUC30, 00000010
|
|
// CLASS=A,MSGCLASS=X, 00000010
|
|
//**** TYPRUN=SCAN,
|
|
//**** USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET QTR='QTR20082' /* YRQTR TO BE PROCESSED
|
|
// SET PGMNODE='PROD' /* LOAD LIBRARY
|
|
// SET LVLNODE='PROD' /* NON MASTER FILES
|
|
// SET LDATAIN='CONV' /* FISCAL AGENT RATE TAPE
|
|
// SET DATAOUT='PROD' /* FISCAL AGENT RATE TAPE
|
|
// SET BD590P='20082' /* DEFAULTS TO CURRENT CCYYQ
|
|
//****
|
|
//* 05/16/00 - THIS JOB WILL PROCESS ALL FISCAL AGENT DATA LOADED
|
|
//* FOR THE CONTRIB./WAGE FUNCTION FOR A GIVEN QUARTER
|
|
//* AGAINST THE MASTER FILES
|
|
//*
|
|
//* >>>>> NOTE: CICS REGION MUST BE DOWN TO RUN THIS JOB <<<<<
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//**** BKP BEFORE MSTR UPDT 00001700
|
|
//* (NOT NEEDED IF RUN IMMEDIATELY 00001700
|
|
//* *AFTER* A DAILY) 00001700
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//**** ELIMINATE DUPS FROM SAME FA 00310099
|
|
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
|
|
// COND=(0,LT) 00320099
|
|
//SYSOUT DD SYSOUT=* 00330000
|
|
//SORTIN DD DSN=DOESTAX.&LDATAIN..UC30.FISCAGNT.&QTR,
|
|
// DISP=SHR
|
|
//SORTOUT DD DSN=&&FANODUP,
|
|
// DISP=(NEW,PASS,DELETE), 00400000
|
|
// UNIT=SYSDA, 00400000
|
|
// SPACE=(8192,(100,200),RLSE), 00400000
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 00400000
|
|
//SYSIN DD * 00440099
|
|
SORT FIELDS=(10,15,CH,A) 00440099
|
|
SUM FIELDS=NONE 00440099
|
|
/* 00440099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00450099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00460099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
|
|
//**** 00480099
|
|
//**** SORT FA-UC30/RATE(S) DATA 00310099
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
|
|
// COND=(0,LT) 00320099
|
|
//SYSOUT DD SYSOUT=* 00330000
|
|
//SORTIN DD DSN=&&FANODUP,DISP=(OLD,PASS,DELETE)
|
|
//** 00400000
|
|
//SORTOUT DD DSN=&&FISCAGNT,
|
|
// DISP=(NEW,PASS,DELETE), 00400000
|
|
// UNIT=SYSDA, 00400000
|
|
// SPACE=(8192,(100,200),RLSE), 00400000
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 00400000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSUC30),DISP=SHR 00440099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00450099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00460099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
|
|
//**** 00480099
|
|
//* PROCESS FISC AGNT UC30/RATE(S) DATA
|
|
//STEP0300 EXEC PGM=DTSBD590,
|
|
// COND=(0,LT),
|
|
// REGION=4096K,
|
|
// PARM='&BD590P' /* DEFAULTS TO CURRENT CCYYQ
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//FAIFILE DD DSN=&&FISCAGNT, 00390099
|
|
// DISP=(OLD,DELETE,DELETE) 00400000
|
|
//DTSFVRO1 DD DSN=DOESTAX.&DATAOUT..UC30.BR590.&QTR,
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**** BKP AFTER MSTR BKP 00001700
|
|
//STEP0400 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)' /* IF 'NO' (+1) USED ABOVE
|
|
//
|