//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..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJGSI                                      00001600
//*                                                                     00001700
//STEP0100 EXEC DES300T1      EXTRACT DATA FROM WAGE FILE
//*********************************************************************
/*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/intranet/Outbound_intranet                                      
ascii                                                                 
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ' +
ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE' +
ECNTSUP.DOESTAX.PROD.FTP.WAGE
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*