//DTSBX465 JOB (HS,0000,0000,P),DOESOTR.EXTRACT2,CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//         USER=#DOADTS,
//         REGION=4M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET  UINODE='PROD'
//    SET MSTNODE='PROD'
//    SET LVLNODE='PROD'
//    SET PRGNODE='PROD'
//    SET OUTNODE='PROD'
//****
//*  PRODUCE THE QUARTERLY WAGE EXTRACT FOR THE OFFICE OF TAX &
//*  REVENUE  CONTACT: CAMILLE WIGGLESWORTH 442-7033 FAX: 442-7076
//*  REVENUE  CONTACT: LOUISE SIMMONS       442-7035 FAX: 442-7076
//*
//*  EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (ON REQUEST)
//*  RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//** FTP FILES TO OTR SERVER
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//STEP0025 EXEC PGM=IEFBR14,REGION=1024K
//BUSINES DD  DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
//            DISP=(OLD,DELETE,DELETE)
//**
//STEP0050 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//GOVT    DD  DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
//            DISP=(OLD,DELETE,DELETE)
//**
//STEP0075 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//FED     DD  DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
//            DISP=(OLD,DELETE,DELETE)
//**
//STEP0100 EXEC PGM=DTSBX465
//PRNTR    DD  SYSOUT=(*)
//SYSOUT   DD  SYSOUT=(*)
//SYSUDUMP DD  SYSOUT=(*)
//SYSPRINT DD  SYSOUT=(*)
//SYSDBOUT DD  SYSOUT=(*)
//SYSCOUNT DD  SYSOUT=(*)
//*
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//*WG960F1 DD  DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFNAME DD  DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//BUSINES DD  DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
//            SPACE=(CYL,(90,5),RLSE),
//            DISP=(NEW,CATLG,DELETE),
//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//GOVT    DD  DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
//            SPACE=(CYL,(5,1),RLSE),
//            DISP=(NEW,CATLG,DELETE),
//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//FED     DD  DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
//            SPACE=(CYL,(1,1),RLSE),
//            DISP=(NEW,CATLG,DELETE),
//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//****
//** CHANGE QUARTER DATES ON THE PARMCARD BEFORE RUNNING JOB )
//****
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSBX465),
//             DISP=SHR
//**
//*
//STEP0400 EXEC PGM=FTP
//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN    DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//OUTPUT   DD SYSOUT=*
//INPUT    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
/*
//EMAIL    EXEC PGM=IEBGENER,
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:KALYAN.JILLUMUDI@DC.GOV',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//            'TO:KELLY.DINKINS@DC.GOV',
//         'SUBJECT: DOES QUARERLY WAGES UPLOADED  )',
//         'FILEDESC: DOES WAGES                          ',
//         'FILENAME:DOESWAGE.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.OTR.WAGES.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**