Deleting a CA DISK database

Products

• DISK BACKUP AND RESTORE
• DATACOM - AD
• Datacom/AD

Issue/Introduction

A CA DISK FDS (files data set) has been converted to a Datacom database with DBID 650 . This base is no longer needed and needs to be removed. Also the data and the data sets.  

This document explains how to do that. 

 

Environment

Component : Datacom/AD

Release : 15.0 and higher

Component: DISK BACKUP AND RESTORE  (CA DISK)

Release: 12.5 and higher

 

Resolution

The CA DISK documentation has some information on this process in DBDELETE - Delete a Disk Database . That process does not delete the data sets.  

First run the REMOVE step from that DBDELETE job and then run the steps below. 

There are 10 tables in this base and all tables have SQL access enabled ( Read-only access) . SQL tables need to be dropped.

To remove base 650:

1. check the running DISKMUF where you want to remove this base. Note the STEPLIB Datacom/AD CUSLIB and CAAXLOAD data set names .

2. stop CA DISK and then run DBUTLTY with the correct STEPLIB data sets and SYSIN cards:

   COMM OPTION=CLOSE,DBID=650
   LOAD AREA=DMS,DBID=650,FORMAT=NONE,SORT=1

3. run DBSQLPR using that same STEPLIB to drop the tables. Have a look at Datacom/AD CAAXSAMP member AXIVP01 and prepare your JCL based on that member .

   The cards in //SYSIN DD  *   should be 

   DROP TABLE CADISK.ARCHCMDS_650 ;
   DROP TABLE CADISK.ARCHVOLS_650 ;
   DROP TABLE CADISK.MIGRECAT_650 ;
   DROP TABLE CADISK.DSNINDEX_650 ;
   DROP TABLE CADISK.DASDSPCB_650 ;
   DROP TABLE CADISK.DMSPARMS_650 ;
   DROP TABLE CADISK.RETEXCLD_650 ;
   DROP TABLE CADISK.DMSPOOLS_650 ;
   DROP TABLE CADISK.RACFENCD_650 ;
   DROP TABLE CADISK.RESTCMDS_650 ; 

4. run DDUPDATE :

   //DEL     EXEC PGM=DDUPDATE,REGION=4096K     
   //STEPLIB  DD DSN=your AD.CUSLIB,      
   //         DISP=SHR                          
   //         DD DSN=your AD.CAAXLOAD,     
   //         DISP=SHR                          
   //SYSPRINT DD  SYSOUT=*                      
   //SYSOUT   DD  SYSOUT=*                      
   //SYSPUNCH DD  SYSOUT=*                      
   //DDSNAP   DD  SYSOUT=*                      
   //SNAPER   DD  SYSOUT=*                      
   //SYSUDUMP DD  SYSOUT=*                      
   //SYSIN    DD  *                             
   -USR DATACOM-INSTALL,NEWUSER                 
   -DEL DATABASE,DMS650                         
   1000 OBSOLETE                                
   -END  

5. run DBUTLTY (check again the STEPLIB) with SYSIN card 

   CXXMAINT OPTION=DELETE,DBID=650 

6. delete the physical data sets used by IXX650 and DMS650.