Skeleton job MIGLIM for primary migration is listed below. Skeleton job MICLIM for secondary migration is identical except the DSN suffix in DD statement SYSPRINT is S instead of P.
The labels %KODAK% and %ENDKODAK% enclose a part of the skeleton job that is placed in the migration job only when the target media is ROSs/OSS. (When the target media is not ROSs/OSS, nothing is inserted between these labels.)
//I900INMG JOB ,IOA900,MSGCLASS=X,CLASS=A,
// PERFORM=1
//*
%KODAK%
%ENDKODAK%
%REPEAT%
//MIGRAT EXEC PGM=CTVMIG,PARM='%TARMEDIA%,%MIGPREF%,%LEVEL%'
//STEPLIB DD DISP=SHR,DSN=IOAP.V900.LOAD
//DATRACE DD DUMMY
//ERRLOG DD SYSOUT=*,HOLD=YES
//DALOG DD DISP=SHR,DSN=IOAP.V900.LOG
//DAMIG DD DISP=SHR,
// DSN=CTDP.V900.MIG.E000
//DAMIGI DD DISP=SHR,
// DSN=CTDP.V900.MIGI.E000
//SYSPRINT DD DSN=CTVP.V900.%MISSNAME%.MIGLIST.P,
// DISP=(MOD,PASS,CATLG),SPACE=(CYL,(1,1)),UNIT=SYSALLDA
//SORTOUT DD SYSOUT=*,HOLD=YES
//SORTWK01 DD UNIT=SYSALLDA,SPACE=(CYL,(20,40))
//SYSOUT DD SYSOUT=*,HOLD=YES
//FTKIN DD *
VSET=%VSET%
FSET=%FSET%
//SYSIN DD *
%DSNS%
/*
%ENDREPEAT%
//*******************************************************************
//* CONTROL‑D ANALYZE STEP *
//* ---------------------- *
//*******************************************************************
//ANALYZE EXEC PGM=CTDBKC,COND=EVEN,REGION=4096K,
// PARM='%TIMESTMP%,%MISSNAME%'
//STEPLIB DD DSN=IOAP.V900.TLOAD,DISP=SHR
// DD DSN=IOAP.V900.LOAD,DISP=SHR
//TAPE DD DUMMY
//SYSIN DD DSN=CTVP.V900.%MISSNAME%.MIGLIST.P,
// DISP=(OLD,DELETE,CATLG)
//DAAMF DD DISP=SHR,
// DSN=CTDP.V900.AMF
//DAAMF1 DD DISP=SHR,
// DSN=CTDP.V900.AMF
//DALOG DD DISP=SHR,
// DSN=IOAP.V900.LOG
//DAACT DD DISP=SHR,
// DSN=CTDP.V900.ACT.E000
//DAACTI DD DISP=SHR,
// DSN=CTDP.V900.ACTI.E000
//DAMIG DD DISP=SHR,
// DSN=CTDP.V900.MIG.E000
//DAMIGI DD DISP=SHR,
// DSN=CTDP.V900.MIGI.E000
//SYSPRINT DD SYSOUT=*,HOLD=YES
//SYSABEND DD SYSOUT=*,HOLD=YES
//DATRACE DD SYSOUT=*,HOLD=YES
//
Parent Topic |