Previous Topic: CAPC094E

Next Topic: CAPC098E

CAPC097E

INTERNAL ERROR. DIAGNOSTIC PGM IN CONTROL.

Reason:

The error recovery mechanisms (for example, ESTAE exits) of the [assign the value for vinf in your book]runtime system have encountered an unexpected and unrecoverable abend. The most likely event is an unexpected 0Cx abend in the runtime system.

This could be traceable to an invalid control block, product logic error, or user error. The runtime system captures a few data elements related to the abend and attempts to relate the abending PSW address to an offset within a named module. The abend code (e.g., 0C4) and the registers at abend, along with other pertinent information are written to CAIPRINT. The execution monitor then issues a user ABEND code of 1097 and an ABEND dump is produced.

The difference in abend code reflects what process was in control at the time of the abend.

This message is issued (abend code 1097) when a user diagnostic program was in control and did not return to its caller. The Installation Guide documents how a customer can create a reporting module for specific abend codes that are given control by Abend Reporter to report on the error. For example, assume that the runtime system has initially trapped a system 0C1. Normally, Abend Reporter calls the distributed module CAOD00C1 to produce the abend box (description, probable causes, etc.). If a 1097 abend appears, you should look for the presence of an entry for 0C1 in the user abend table module CAOCAB80. This customization process is discussed in the Installation Guide.

Action:

Contact CA Technical Support to report the problem after the dump is available. In the RTM2WA summary, abends are represented by a chain of SDWA control blocks displayed in chronological order from the oldest to the newest. Generally, diagnose the problem by finding the SWDA in the RTM2WA SUMMARY chain that matches the abend code and registers displayed on CAIPRINT. The unexpected and unrecoverable abend is documented as the SDWA that is queued just prior to the final user abend code 1097.