//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..PROCS.BATCH.LIB                       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
//***