Occasionally it may be necessary to duplicate a Multi-User Facility (MUF) environment for the purpose of:
RECOMMEND using CXXCLONE
To create a duplicate MUF, the recommended process is to use DBUTLTY and VLSUTIL as is described in informational solution QI94581. Those instructions still apply to current releases of Datacom.
However, if as an alternative IBM's Data Facility Data Set Services (DFDSS) is used, this document will provide information to make its outcome successful.
Release: 15.1
In order to use this procedure the following requirements must be met:
Step one: Backup all of the data sets that make up the source MUF environment. To successfully build a duplicate environment, the source MUF must be shut down normally before beginning the backup. Use the DFDSS DUMP function with the following parameters to create the backup data sets:
//BACKUP EXEC PGM=ADRDSSU,REGION=6MNOTE: caithlq refers to the cart high-level qualifier and caihlq refers to the disk high-level qualifier.
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//TAPE DD DSN= caithlq .DB11.BACKUP,
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,LABEL=(1,SL,EXPDT=99365)
//SYSIN DD *
DUMP OUTDDNAME(TAPE) -
DATASET(INCLUDE( caihlq .DB11.**)) -
ALLDATA(*) -
ALLEXCP -
SHARE -
TOLERATE(ENQFAILURE)
/*
Step two: Restore the data sets from the DFDSS backup data set. If you are restoring these data sets to the same image as the source MUF, you must use the DFDSS rename capabilities to provide a new high-level qualifier . Failure to do this could cause the system to have data sets with duplicate names and possible overlays. When this step is completed, you will have the same environment you had at the time the backup was taken.
To complete the restore, use the DFDSS Utility with the following parameters:
//RESTORE EXEC PGM=ADRDSSU,REGION=6MNOTE: If this system is going to exist on a different machine or LPAR, running the above restore without the RENAMEUNCONDITIONAL control statement will give you a new system. Remember that, when creating new data sets, you must have the appropriate security clearances and profiles.
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//TAPE DD DSN=caithlq.DB11.BACKUP,
// DISP=SHR,
// UNIT=CART,LABEL=(1,SL,EXPDT=99365)
//SYSIN DD *
RESTORE DATASET -
(INCLUDE(caihlq.DB11.**) -
EXCLUDE(caihlq.DB11.xxxxxxxx.**) -
) -
OUTDYNAM((DASD01),(DASD02),(DASD03)) -
INDDAME(TAPE) -
RENAMEUNCONDITIONAL((*.DB11.**,*.DB11TST.**)) -
REPLACE -
CATALOG
/*
Step three: If you want the new target environment to coexist with the original source environment on the same system, you must complete the following steps after completing the restore/rename process.
WARNING: Do not attempt to start the new MUF until after you complete the following steps!!!
Step 3a: Modify the DBSYSID macro to code new CXXNAME, TOGROUP and TARGET_MUF_LIST parameters. If using simplify mode also change FORCE_DSN_CXXNAME and FORCE_DSN_CHAR parameters.
Refer to documentation section Modifying DBSIDPR Parameters for more details.
Once these changes have been made, re-assemble the DBSYSID macro to create a new DBSIDPR module. Place this copy of DBSIDPR into a new library that will be exclusive to this new MUF.
Step 3b: If you are using external security, copy the rules from the original system and make the appropriate changes to this new system.
Step 3c: Change the CXXNAME name (for example, PRODCXX to TESTCXX).
NOTE: If you are using external security, this new name must be used as the resource prefix of the rules that were added to that security product in Step 3b.
You must use DBUTLTY to accomplish this. For more details on the following control statements, refer to documentation section Utility Function Summary.
BACKUP AREA=CXX,DDNAME=DDNAME1
INIT AREA=CXX,CXXNAME=TESTCXX,DATACOM=zzwhere: zz = DB or AD, depending on the type of CXX backed up.
LOAD AREA=CXX,DDNAME=DDNAME1
BACKUP AREA=CXX,DDNAME=DDNAME2
Step 3d: Modify the new CXX to reference the new data areas.
CXXMAINT OPTION=ALTER,AREA=DEM,DBID=00001,DSN=caihlq.DB11TST.DBDEM
CXXMAINT OPTION=ALTER,AREA=IXX,DBID=00001,DSN=caihlq.DB11TST.DBIXX
CXXMAINT OPTION=ALTER,AREA=PAY,DBID=00001,DSN=caihlq.DB11TST.DBPAY
CXXMAINT OPTION=ALTER,AREA=PMF,DBID=00001,DSN=caihlq.DB11TST.DBPMF
LINK DBID=00001
LINK DBID=00002
This completes the creation of a duplicate Datacom Multi-User Facility. At this point a full backup should be performed and existing JCL should be modified to reference the new data set names.