//*****
//*
//*    UI TAX PERIODIC EXTRACT SPECIFICALLY FOR RPT 793
//*    11/16/93   MODIFIED FOR Y2K/390 ENV.  ZL1
//*****
//DTSUX793 PROC
//*
//*********************************************************************
//STEP0100 EXEC PGM=DTSBD640,                         PERIODIC EXTRACT
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRO1 DD  DSN=DOESTAX.PROD.PER.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(16394,(900,900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*    THIS IS THE DSN FOR THE FILE PRODUCED FROM THE IRS TAPE
//DTSFQEUP DD  DUMMY
//*