DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSUC30F.jcl

@@ -0,0 +1,27 @@
+//DTSUC30F JOB (UI,4300,3400,T),PROD.FAUC30S.COPY,
+//         CLASS=A,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//**                                         PRIOR YRQTR (PB)
+// SET FACPYIN='DOESTAX.TEST.UC30.FISCAGNT.QTR20023.G0002V00'
+// SET FACPYOU='DOESTAX.CONV.UC30.FISCAGNT.QTR20023(+1)'
+//**                                         CURRENT YRQTR
+//****
+//* 01/01/01 - THIS JOB WILL COPY FISCAL AGENT CONTRIB./WAGE DATA FROM
+//*      A PRIOR YRQTR TO A NEW FILE FOR CURRENT YRQTR PROCESSING
+//*      (DOUBLE CHECK WHICH F.A. IS IN THE FILE CALLED FORWARD!!)
+//****
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//INDD01   DD  DSN=&FACPYIN.,
+//             DISP=SHR
+//OUTDD01  DD  DSN=&FACPYOU.,
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(8192,(100,200),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
+//**