Initial commit of DUTAS source code

JCL/DTSEMTPS.jcl

@@ -0,0 +1,31 @@
+//DTSTPSEM JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X,           00010014
+//**       TYPRUN=SCAN,                                                 00011014
+//         NOTIFY=ECNTSUP,REGION=0M                                     00014018
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****                                                                  00040000
+//****                                                                  00520000
+/*JOBPARM LINES=99999
+/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
+//***************************************************************
+//*   U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
+//*           INCLUDE JOB SEPARATORS
+//*   U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//*   U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//*   U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//***************************************************************
+//EMAIL    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:MARK.POWELL@DC.GOV',
+//         'FILEDESC: TPS SI SECOND NOTICE                ',
+//         'FILENAME:TPSSIREPT.TXT')
+//SYSUT1   DD DISP=SHR,
+//         DSN=DOESTAX.PROD.CHARGESI.QTR092
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*