Initial commit of DUTAS source code

Procs/DTSUX793

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