IBM Support

Looking for Objects Marked Damaged

Troubleshooting


Problem

This document contains information on how to look for objects marked damaged.

Resolving The Problem

When some functions like save note a damaged object, the function changes the object description to damaged. This document shows how to query out those objects. Do the following:
1.
Create the library to contain the output file:
CRTLIB IBMKENT

2.

On the operating system command line, run the following command:

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(IBMKENT/FIND)
3. To start Interactive SQL, run the following command:

STRSQL

Note: Other SQL interfaces also work.
4. On the operating system command line, run the following command:

SELECT ODLBNM, ODOBNM, ODOBTX FROM ibmkent/find WHERE odobdm <> '0'

Alternatively, the following could be run:
1. On the operating system command line, run the following command:

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*ALL) OUTPUT(*PRINT)

Note that this could be limited to a specific library. For some reason, outputting to a physical file does not carry the Damaged tag; therefore, we need to output to a spooled file and then bring it back into a physical file.
2. To create the physical file to hold the spooled file, on the operating system command line, run the following command:

CRTPF FILE(QTEMP/DAMAGE) RCDLEN(135) SIZE(*NOMAX)
3. To copy the spooled file into the physical file, run the following command.

Note: Running this command assumes you are running this command in the same job that you ran the DSPOBJD command from. If not, you must prompt the command by pressing F4, and fill in the job name, number, and so on.

CPYSPLF FILE(QPRTOBJD) TOFILE(QTEMP/DAMAGE) SPLNBR(*LAST)
4. To start Interactive SQL, run the following command:

STRSQL

Note: Other SQL interfaces also work.
5. Run the following SQL statement:

select *                    
from qtemp/damage            
where damage like '%DAMAGED%'
   or rrn(damage) = 5    

[{"Type":"MASTER","Line of Business":{"code":"LOB68","label":"Power HW"},"Business Unit":{"code":"BU070","label":"IBM Infrastructure"},"Product":{"code":"SWG60","label":"IBM i"},"ARM Category":[{"code":"a8m0z0000000CH0AAM","label":"Internal LIC and Partitions"}],"ARM Case Number":"","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"7.3.0;7.4.0;7.5.0"}]

Historical Number

477889601

Document Information

Modified date:
08 October 2024

UID

nas8N1013883