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.
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'
(IMS_DB_NAME POS(00001) CHAR(00034) READONLY
,SOURCE_DATASET POS(00035) CHAR(00054)
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.