//GSIRQ300 JOB (UI,4300,3400,T),WAGE-FILE-UPD,CLASS=S,MSGCLASS=X,       00000010
//**        TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//  SET  UINODE='PROD'            REGION VSAM MASTER FILES
//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES
//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
//*
//****
//*    UI TAX DAILY WAGE FILE REBUILD                               *
//*                                                                 *
//*    NOTE:  BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE       *
//*           CICS REGION.                                          *
//*                                                                 *
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJGSI                                      00001600
//*                                                                     00001700
//STEP0100 EXEC DES300T1      EXTRACT DATA FROM WAGE FILE
//*********************************************************************