IDMS: Slip trap for DC002001

book

Article ID: 198620

calendar_today

Updated On:

Products

CA IDMS CA IDMS - Database

Issue/Introduction

A DC002001 abend can be difficult to diagnose.

IDMS DC002001 V3054 T45034 RUNAWAY TASK ADS2 -- DETECTED WHEN IN SYSTEM PROGRAM

The condition is first detected while in system mode but is not reported until control next returns to user mode and the DC002001 is issued.
The severity on message DC002001 can be changed to 4 to generate an SVC dump but more than likely it will be taken too late to be useful.
This document describes a process for setting a slip trap on the instruction that first detects the condition, and generating a dump immediately.

Environment

Release : 19.0
Component : CA IDMS

Resolution

1. Determine the location of your RHDCOS00 module.

DCMT D MEM MOD RHDCOS00                                                   
     Mod:RHDCOS00 Csect:RHDCOESA Asmdate:200804 13.55                      
 <Addr>   <Offset>                 <Hex>                    <Character>    
00007000  00000000  D9C8C4C3 D6E2F0F0 CA7BD4C9 C4CA0100  *RHDCOS00.#MID...*

In this example, it's x'00007000'.

2. Use that address in the following command.

DCMT D MEM STR X'96089088' 7000                                           
 <Addr>   <Offset>                 <Hex>                    <Character>    
00015AB4  00000000  96089088 A7F4001E 5850A308 95005069  *o..hx4...&t.n.&.*

3. Note the addresses of the first and last bytes of the x'96089088'. In this case, they are 15AB4 and 15AB7.

4. Use them in the following slip trap:

SLIP SET,IF,J=cv-job-name,ID=ID21,A=SYNCSVCD,MODE=HOME,RA=(15AB4,15AB7),END

cv-job-name is the jobname of your CV.
ID21 is a suitable 4-character identifier of your choosing.

Note:
If the CV is cycled, the load address of RHDCOS00 as determined in step 1 may change.
If an APAR which replaces RHDCOESA (RHDCOS00) is applied, the offset of the relevant instruction as determined in steps 2 and 3 may change.
Therefore, if either of the above happen, then the instructions must be re-executed and the slip reset.