//*****
//*
//*    UI TAX PERIODIC EXTRACT SPECIFICALLY FOR RPT 793
//*
//*****
//DTSUX793 PROC
//*
//*********************************************************************
//STEP0100 EXEC PGM=DTSBD640,                         PERIODIC EXTRACT
//**           TIME=(5,10),
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//**
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//**
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(16394,(900,900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*    THE FOLLOWING IS THE DSN FOR THE IRS TAPE (SEE OVERRIDE IN JOB)
//DTSFQEUP DD  DUMMY
//DTSFBPAS DD  DSN=DOESTAX.DEVL.FUTAFEIN.BYPASS,DISP=SHR
//*