
Emergency Recovery of the DSN Catalog
4-10 BIM-EPIC Installation and System Guide
* STEP RECOVER1.010 TSIDUTL
/*
/* RESTORE THE BIM-EPIC CATALOG. IF THE DATASET NAME REFERENCED IN THE
/* 'BACKUP' LABEL DOES NOT EXIST IN THE BIM-EPIC CATALOG,
/* MESSAGE 'EP011 UNASSIGNED INPUT BACKUP ...' MAY APPEAR. THIS SHOULD
/* BE ANSWERED WITH THE CUU OF THE TAPE DRIVE WHERE THE CORRECT
/* BIM-EPIC CATALOG BACKUP HAS BEEN MOUNTED.
/* IF THE MESSAGE 'EP001 MOUNT TAPE...' IS ISSUED CALLING OTHER THAN
/* THE VOLSER OF THE DESIRED BIM-EPIC CATALOG BACKUP, RESPOND WITH THE
/* CUU OF THE PHYSICAL TAPE DRIVE WHERE THAT CORRECT BACKUP IS MOUNTED
/* AND THEN RESPOND 'ACCEPT' TO MESSAGE 'EP009 INCORRECT
/* DATASET/VERSION ...' WHICH MAY ALSO OCCUR.
/*
// TLBL BACKUP,'EPIC.CAT.BACKUP',,,,,,2
// DLBL WORK,'EPIC.UTL.WORK(D)'
// EXTENT SYS002,POOLNM,,,1,15 <======= FIX ME!
// DLBL SORTWK1,'===.SORTWK1(X)'
// EXTENT SYS001,POOLNM,,,1,100 <======= FIX ME!
// EXEC TSIDUTL
RESTORE
/*
* STEP RECOVER1.015 TSIDMNT
/*
/* CHANGE STATUS OF THE BIM-EPIC.CAT.BACKUP TO CLOSED.
/* THIS STEP IS NEEDED SINCE THE STATUS OF THIS VERSION
/* WAS OPEN WHILE THE CATALOG WAS BEING COPIED TO TAPE.
/*
// EXEC TSIDMNT
CLOSE 'EPIC.CAT.BACKUP'
/*
* STEP RECOVER1.020 TSIDRFS
/*
/* PERFORM MAINTENANCE ON THE BIM-EPIC RECORDER FILE.
/* THIS MAINTENANCE COMBINES THE 'END', 'BACKUP', 'CLEAR',
/* AND 'START' COMMANDS INTO A SINGLE COMMAND WHICH ASSURES
/* THAT ALL THESE REQUIRED FUNCTIONS ARE ALWAYS PERFORMED
/* AND IN THE CORRECT ORDER. THE OUTPUT MAY SPAN MORE
/* THAN ONE OUTPUT TAPE VOLUME.
/*
// TLBL RFBKUP,'EPIC.VSE.BACKUP'
// EXEC TSIDRFS
MAINT
/*
* STEP RECOVER1.025 TSIDSRT
/*
/* IF MORE THAN ONE BIM-EPIC RECORDER FILE BACKUP TAPE IS REQUIRED FOR
/* INPUT TO THIS RECOVERY PROCEDURE, USE JCL SIMILAR TO THIS TSIDSRT TO
/* COMBINE THEM INTO A SINGLE DATASET AS REQUIRED BY THE TSIDBLD
/* PROGRAM. IF ONLY THE 'EPIC.REC.BACKUP' DATASET VERSION CREATED ABOVE
/* IS REQUIRED AS INPUT TO THIS RECOVERY PROCEDURE, SKIP THIS STEP.
/*
// TLBL SORTIN1,'EPIC.VSE.BACKUP',,,,,1,2
// TLBL SORTIN2,'EPIC.VSE.BACKUP',,,,,2,2
// TLBL SORTOUT,'COMB.VSE.BACKUP'
// DLBL SORTWK1,'$$$.SORTWK1'
// EXTENT SYS001
// EXEC TSIDSRT
SORT FIELDS=(29,5,CH,A,17,4,CH,A),WORK=1,FILES=2
RECORD TYPE=F,LENGTH=338
INPFIL BLKSIZE=5746
OUTFIL BLKSIZE=5746
OPTION PRINT=ALL,ROUTE=LST
END
* STEP RECOVER1.030 CA-EPIC/CMS
Comentarios a estos manuales