28 lines
1.1 KiB
Plaintext
28 lines
1.1 KiB
Plaintext
//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
|
|
//***
|