RE: Finding all damaged objects

Hi Michael,

First of all - keep the backup tapes until everything is sorted out.

In similar situations I've found that the main obstacle is physical files. Logical files can usually be recreated without issues if a damage should be found.
Physical files in general consists of a header and a bunch of extensions. If you have a header damage the rclstg or a backup run will flag the physical file as damaged.
If the damage happens to be in one or more of the extensions - that will be found when you try to access data in the damaged area.

Long time ago when this was a more frequent thing I created a list of all physical files ( one record per member ) on the system and then run a copyfile similar to:

CPYF FROMFILE(FROMFILE) TOFILE(QTEMP/FROMFILE) FROMMBR(FROMMBR) TOMBR(TOMBR)
MBROPT(*REPLACE) CRTFILE(*YES) FMTOPT(*MAP *DROP)

You need to run this for every member and the most important part is the FMTOPT(*MAP *DROP) which forces the cpyf to read every row and every column.
If there is a damage it will be found and flagged in the joblog. As the IBM manuals tend to say: This might be a very long time running task.


Best regards

Stefan