DUTAS re-platformed to Raincode - Initial Source Code

JCL/DESTTCNV.jcl

@@ -0,0 +1,27 @@
+//DESTTCNV JOB (UI,4300,3400,T),EMT2PRD,CLASS=A,MSGCLASS=X,             00000010
+//****      TYPRUN=SCAN,
+//          USER=#DOADTS,
+//          NOTIFY=ECNTJP2,REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//  SET LVLNODE='PROD'
+//  SET BCKNODE='BACKUP'
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00000300
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//****                                                                  00000500
+//*  SPECIAL JOB TO RUN A CONVERSION OF EMT TO THE PROD REGION.         00000700
+//****
+//STEP0100 EXEC DTSUTVSM,      /* BACKUP THE WORKING REGION
+//            LVLNODE='PROD',BKUPGEN='(+1)'
+//****
+//**STEP0200 EXEC AXXX2XXX,      /* BRING IN ALL MST FILES FROM PROD
+//**            LVLNDIN='PROD',LVLNDOUT='PROD',BKUPGEN='(-1)'
+//****
+//STEP0300 EXEC EXXX2XXX,      /* BRING IN     MSTE/F/G  FROM TEST
+//            LVLNDIN='TEST',LVLNDOUT='PROD',BKUPGEN='(+0)'
+//****
+//STEP0400 EXEC DESBZ067       /* DELETE TAPE TRACKING AIX RECS
+//***
+//STEP0400 EXEC DESUAIX        /* REBUILD AIX RECORDS
+//***