Initial commit of DUTAS source code

JCL/RUNAU144.jcl

@@ -0,0 +1,25 @@
+//RUNAU144 JOB (UI,4300,3400,T),RUNBZ365,CLASS=S,MSGCLASS=X,            00000010
+//          NOTIFY=ECNTSUP
+//*                                                                     00001700
+//  SET LVLNODE='PROD'                                                  00001700
+//  SET MSTNODE='PROD'                                                  00001700
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*******************************************************************
+//***  COPY AUDIT PACKAGE X144 FILES TO BBACKUP  FILE.
+//**
+//*******************************************************************
+//**
+//COPYX144 EXEC PGM=IDCAMS,COND=(0,LT)
+//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,DISP=SHR
+//**
+//OUTDD01 DD DSN=DOESTAX.CONV.BACKUP.AUDTX144(+1),
+//      DISP=(NEW,CATLG,DELETE),
+//      UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
+//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=2560)
+//SYSPRINT DD SYSOUT=(*)
+//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
+//**
+//*********************************************************************