//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..PROCS.BATCH.LIB                       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,                                                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,                                                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
//