Initial commit of DUTAS source code

Procs/DTSUZ793

@@ -0,0 +1,25 @@
+//*****
+//*
+//*    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
+//*