If an IDMS CV abends during warmstart, it may be be necessary to perform a manual recovery.
This process is described in detail at Recovery Procedures After a Warmstart Failure, however the guidelines provided in this article should be of assistance in the general case.
Environment: All supported releases.
1. Take a backup of the CV journals and, if feasible, all of the database and dictionary files in the CV.
2. Run an ARCHIVE JOURNAL FULL to archive all of the journals that are marked as full.
Sample JCL:
//ARCHJRNL EXEC PGM=IDMSBCF,REGION=0M
//STEPLIB DD DISP=SHR,DSN=<yourHLQ>.DBA.LOADLIB
// DD DISP=SHR,DSN=<yourHLQ>.CUSTOM.LOADLIB
// DD DISP=SHR,DSN=<yourHLQ>.CAGJLOAD
//SYSLST DD SYSOUT=*
//SYSJRNL1 DD DISP=SHR,DSN=<yourHLQ>.SYSJRNL1
//SYSJRNL2 DD DISP=SHR,DSN=<yourHLQ>.SYSJRNL2
//SYSJRNL3 DD DISP=SHR,DSN=<yourHLQ>.SYSJRNL3
//SYSJRNL4 DD DISP=SHR,DSN=<yourHLQ>.SYSJRNL4
//SYSJRNL DD DSN=<yourHLQ>.GDG.ARCHJRNL(+1),
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(100,100)),DCB=BLKSIZE=8000
//SYSIDMS DD *
DMCL=dmclname
//SYSIPT DD *
CONNECT TO SYSTEM;
ARCHIVE JOURNAL FULL;
3. If the output of the above job indicates that there is still one active journal that is not full, then run another ARCHIVE JOURNAL with READ and specify that journal ddname in the input.
//SYSIPT DD *
CONNECT TO SYSTEM;
ARCHIVE JOURNAL READ SYSJRNLn;
4. Using IEBGENER or something similar, concatenate all of the archive journals taken since the last startup, in the order in which they were created, into one file.
5. If the archive journal files are on disk, it may be necessary to SORT the resulting archive journal file in descending order.
Use SORT input SORT FIELDS=(13,16,BI,D). If this is done, specify ROLLBACK3490 in the SYSIDMS parameter file of the ROLLBACK job (step 6).
6. Run the ROLLBACK. If this does not work, go no further and contact Technical Support for further assistance.
Sample JCL:
//ROLLBACK EXEC PGM=IDMSBCF,REGION=0M
//STEPLIB DD DISP=SHR,DSN=<yourHLQ>.DBA.LOADLIB
// DD DISP=SHR,DSN=<yourHLQ>.CUSTOM.LOADLIB
// DD DISP=SHR,DSN=<yourHLQ>.CAGJLOAD
//SYSIPT DD *
CONNECT TO SYSTEM;
ROLLBACK DMCL ACTIVE;
//SYSIDMS DD *
DMCL=dmclname
ROLLBACK3490 <== if necessary
//SYSLST DD SYSOUT=*
//SYS001 DD DISP=SHR,DSN=archive.journal.file
//SYSLST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
7. Format the CV journals.
8. Unlock every database file in the DMCL.
9. Start the CV.