Update existing IMS DBDs with Storage Dataset Name

Document ID : KB000044200
Last Modified Date : 14/02/2018
Show Technical Document Details

Question: 

Is there a way to update all existing IMS DBDs stored in the repository and provide the actual storage dataset name?  The current IMS DBD import program does not capture and store the actual source dataset name so we need a way to provide this information for all DBDs which have been imported into the repository.

 

Answer:

The DBXLOAD utility can be used to update existing DBDs stored in the repository with the storage dataset name if a list of DBDs and their respective storage dataset names can be provided in a FB 80 dataset. 

DBXLOAD will then use this list to update all existing DBDs.  This can be accomplished by using the following control card for DBXLOAD

 

REUSE DATA FROM SYSRC01 ERROR SYSER01                 

    VALIDATE NO STATUS 'DBXT'                      

    SAVEAUDIT VERSION '0'                             

    INTO DIALOG 'IMS'  ENTITY 'IMS DBD'               

  FIELDS                                              

  (IMS_DB_NAME             POS(00001) CHAR(00034) READONLY

  ,SOURCE_DATASET        POS(00035) CHAR(00054)        

  );                                                  

/*          

Note. 

 

The example above assumes that the DBD name will start in position 1 and occupy up to 34 bytes.  The source dataset name begins in position 35. Change DBXT to the status where your DBDs are present.