
Emergency Recovery of the DSN Catalog
Chapter 4. Maintenance Procedures 4-9
// TLBL VSEBKUP
If the DSN Catalog is shared between VSE and CMS, the following is used:
// UPSI 110 (VSE & CMS)
// TLBL VSEBKUP
// TLBL CMSBKUP
When sharing the DSN Catalog among mixed releases of BIM-EPIC, any BIM-EPIC
Recorder File prior to Release 4.1 must be treated as a CMS Recorder File, with the
appropriate UPSI switches and TLBL included in the JCL.
// JOB RECOVER1
/*
/* PURPOSE: RECOVER THE BIM-EPIC CATALOG USING VSE LABELS.
/*
/* PREREQ: VSE/ESA 1.3
/*
/* THE FOLLOWING TSIDMNT CONTROL STATEMENTS WILL CREATE THE REQUIRED
/* BIM-EPIC DATASET DEFINITIONS FOR THIS EXAMPLE. CODE ADDITIONAL
/* OPERANDS AS NEEDED.
/*
/* CAT 'EPIC.CAT.BACKUP'
/* CAT 'EPIC.VSE.BACKUP'
/* CAT 'COMB.VSE.BACKUP'
/* CAT 'EPIC.CMS.BACKUP'
/* CAT 'COMB.CMS.BACKUP'
/* CAT '$$$.SORTWK1' POL=POOLNM EXT=N WRK=YES
/*
/* BIM-EPIC MUST BE TURNED ON IN YOUR SYSTEM. IF UNABLE TO INITIALIZE
/* BIM-EPIC BECAUSE NO CATALOG CURRENTLY EXISTS, REFER TO THE BIM-EPIC
/* INSTALLATION GUIDE FOR INITIALIZING A NEW CATALOG. DO NOT
/* INITIALIZE THE RECORDER FILE. THE DATA CURRENTLY RESIDING IN THAT
/* FILE IS CRITICAL TO THIS RECOVERY PROCEDURE.
/*
* STEP RECOVER1.000 PAUSE
/*
/* TURN BIM-EPIC OFF IN ALL OTHER SYSTEMS WHICH SHARE THIS BIM-EPIC
/* CATALOG. ONCE THIS STEP IS COMPLETED, THIS WILL BE THE ONLY
/* ACTIVE SYSTEM THAT HAS ACCESS TO THIS BIM-EPIC CATALOG.
/*
// PAUSE TURN BIM-EPIC OFF ON ALL OTHER MACHINES SHARING THIS CATALOG
/*
* STEP RECOVER1.005 TSIDDEB
/*
/* ASSURE THAT START-TRACK-1 (OR START-BLOCK-1) DATASETS WILL BE
/* SUPPORTED BY YOUR BIM-EPIC SYSTEM. SINCE THE TSIDUTL RESTORE
/* FUNCTION WILL AUTOMATICALLY CLEAR THE THE BIM-EPIC CATALOG OF ALL
/* ENTRIES IN PREPARATION OF THE ACTUAL CATALOG RESTORE, NO DATASET
/* DEFINITIONS EXIST WHEN THE WORK AND SORTWK1 FILES ARE OPENED.
/* THEREFORE, THESE TWO FILES ARE IDENTIFIED USING TEMPORARY STRTK=1
/* DEFINITIONS AND BOTH WILL BE AUTOMATICALY DELETED WHEN THIS JOB
/* STREAM COMPLETES.
/*
/* ALSO, ENSURE A RESPONSE OF 'ACCEPT' IS ALLOWED IF MESSAGE
/* 'EP011 UNASSIGNED INPUT BACKUP ...' OCCURS WHEN ATTEMPTING THE
/* TSIDUTL FUNCTION.
/*
// EXEC TSIDDEB
OPTION STRTK=1,ACCEPT=YES
/*
RECOVER1
Example
Komentáře k této Příručce