Roy Hewitt wrote:
Miklos Szigetvari wrote:
Hi
We have a one pack RESCUE system generated under z/OS 1.4
and the actual IODF generated under z/OS 1.7.
I copied this new IODF to the RESCUE, but got a B0 wait state.
(saying IODF is in a higher version as the system attempting to use )
Can I solve this without regenerate the RESCUE ?
Miklos,
You have a couple of options,
A) Apply toleration PTFs to the zOS 1.4 system....
or maybe try the following...
I just remebered we still have a couple of 1.4 systems still running
here so decided to try it.. and it does create a valid V4 iodf.
Also, my previous post was missing the production-ise step.. here's an
example that creates a 1.4 IODF on a 1.7 system:
SYS0.IODF07 is input IODF 1.7
SYS0.IODF98 is 1.4 iodf
SYSX.TEMP.LOAD is a library containing 1.4 CBDM* modules from Linklib.
SYSA is the OSConfig id
//* Extract MVSCP from live IODF
//*
//STEP00 EXEC PGM=CBDMGHCP,
// PARM='CONFIG,OS,SYSA'
//HCDIODFS DD DSN=SYS0.IODF07,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//HCDDECK DD DSN=SYSX.IOCPDATA(MVSCP1),DISP=OLD
//*
//* DELETE IODFS
//*
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE SYS0.IODF98.WORK.CLUSTER
IF MAXCC > 4 THEN SET MAXCC = 0
DELETE SYS0.IODF98.CLUSTER
IF MAXCC > 4 THEN SET MAXCC = 0
//*
//* DEFINE NEW IODF DATASETS
//*
//STEP02 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME (SYS0.IODF98.WORK.CLUSTER) -
LINEAR -
TRACKS(1000 0) -
VOLUMES(IODF01) -
) -
DATA (NAME (SYS0.IODF98.WORK))
DEFINE CLUSTER (NAME (SYS0.IODF98.CLUSTER) -
LINEAR -
TRACKS(1000 0) -
VOLUMES(IODF01) -
) -
DATA (NAME (SYS0.IODF98))
//*
//* INITIALIZE IODF
//*
//STEP03 EXEC PGM=CBDMGHCP,
// PARM='INITIODF SIZE=12000,ACTLOG=NO'
//STEPLIB DD DSN=SYSX.TEMP.LOAD,DISP=SHR
//HCDIODFT DD DSN=SYS0.IODF98.WORK,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*
//STEP04 EXEC PGM=CBDMGHCP,
// PARM='INITIODF SIZE=12000,ACTLOG=NO'
//STEPLIB DD DSN=SYSX.TEMP.LOAD,DISP=SHR
//HCDIODFT DD DSN=SYS0.IODF98,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*
//* MIGRATE IODF
//*
//STEP05 EXEC PGM=CBDMGHCP,
// PARM='MIGR,O,SYSA,MVS'
//STEPLIB DD DSN=SYSX.TEMP.LOAD,DISP=SHR
//HCDIODFT DD DSN=SYS0.IODF98.WORK,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//HCDIN DD DSN=SYSX.IOCPDATA(MVSCP1),DISP=OLD
//HCDLIB DD DSN=SYS1.MACLIB,DISP=SHR
//*
//* Productionise IODF
//*
//STEP06 EXEC PGM=CBDMGHCP,
// PARM='PRODIODF DESC1=SYS0,DESC2=IODF98'
//STEPLIB DD DSN=SYSX.TEMP.LOAD,DISP=SHR
//HCDIODFS DD DSN=SYS0.IODF98.WORK,DISP=OLD
//HCDIODFT DD DSN=SYS0.IODF98,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
