Delete/Replace - DL/I trace information

The DELETE/REPLACE module provides meaningful information when abnormal conditions arise leading directly to errors detected by Delete/Replace. This information can be found in the Delete/Replace work area (DLTWA).

Abends initiated by the Delete/Replace module (780, 796, 797, 798, 799, 802, 803, 804, 806, 807, 808, and 811) are traced in the DL/I trace table in a series of entries identified by an X'C4' in the first byte (TRACE FUNCTION CODE).

The first X'C4' entry in the series is provided by the routine that encountered the problem. Each additional entry is provided by the routine that called the routine which in turn wrote the prior entry in the table. Examining these entries in reverse sequence reveals the order in which control was passed from one routine to another.

You can obtain a complete description of the trace table entry for Delete/Replace by assembling the following lines of code:

DSECTS  CSECT
        DFSDLDC FUNC=DSECTS
        END

The second word in the Delete/Replace trace entry (called Entry1) uniquely identifies a Delete/Replace abend, and should be used by IBM® and customers when submitting APARs for better problem description. In some cases, the Entry1 word from the next trace entry along with the first Entry1 word uniquely identifies the abend. The Entry1 format is:

BYTE 0    ID of routine supplying this entry
     1    ID of routine that encountered error
     2    Subcode number of abend if multiples
     3    Internal code for abend

Each routine within the Delete/Replace module has a unique 1-byte identification number. The IDs can be obtained from the assembly listings of each of the four source modules which make up the Delete/Replace call. In general they are:

X'01'  to  X'1F'—control and common subroutines (DFSDLDC0)
X'20'  to  X'3F'—delete routines (DFSDLDD0)
X'40'  to  X'5F'—replace routines (DFSDLDR0)
X'60'  to  X'7F'—DLTWA build routines (DFSDLDW0)

Use the Entry1 word (the second word in the trace entry) when relating to a Delete/Replace problem in IMS with IBM Software Support.