DUTAS re-platformed to Raincode - Initial Source Code

JCL/SAMPLE.jcl

@@ -0,0 +1,14 @@
+//ECNTSUPT JOB TO,'JCL CNV LIST JCL',MSGCLASS=X,CLASS=A,REGION=4M,
+//         NOTIFY=ECNTSUP
+//SEARCH   EXEC PGM=FILEAID
+//SYSTOTAL DD   DUMMY
+//SYSPRINT DD   SYSOUT=*
+//SYSLIST  DD   SYSOUT=*,DCB=LRECL=80
+//DD01     DD   DISP=SHR,DSN=DOESTAX.PROD.JOBLIB
+//SYSIN    DD   *
+$$DD01 UPDATE FORM=JCL,MEMBERS=DTS
+       IF=(1,NE,C'//*'),
+      AND=(1,0,C' JOB '),
+      AND=(1,0,C'USER=#DOADTS'),
+     EDIT=(1,0,C'#DOADTS',C'#DOADTS')
+/*