Using the default error-exit routine

GDDM V3R2 Base Application Programming Guide

Using the default error-exit routine

GDDM V3R2 Base Application Programming Guide
SC33-0867-01

If you don't issue an FSEXIT call in your program to specify an error exit explicitly, the default error exit applies. The default error exit becomes current at the moment your program initializes GDDM. GDDM uses the default error threshold specified, usually by the systems-support personnel who customize GDDM, on the ERRTHRS external default. The usual setting for this default is 4. (On the IMS subsystem, it is 8.) This causes the default error exit to be called following all errors of severity 4 or higher (8 or higher on IMS).

The default error exit displays the error message to the end user and returns control to the program. (For this to function under IMS, you need to take special actions. See "Specifying the default error exit under IMS" in topic D.9.)

You may need to specify the default error exit explicitly, if you want the program to continue using it with a different error threshold. If you want only messages about errors, severe errors and unrecoverable errors to appear on the user's screen, you can specify 0 on the first parameter of FSEXIT and 8 (error) on the second parameter.

To ensure the correct data type for this parameter, the call should be coded in the following way in PL/I:

CALL FSEXIT(BINARY(0,31),8); /* Call default exit to present */ /* error messages if severity */ /* is 8 or more. */

This call would suppress messages of "warning" level. Only messages of higher severity would be sent to the user console.

When a new program is being tested, it may prove useful to call the default exit after every GDDM call. This, in effect, sends a trace to the display of all the GDDM calls that have been executed. This is the statement needed:


     CALL FSEXIT(BINARY(0,31),0);  /* Call default exit after every  */
                                   /* call to trace the program flow */

Subtopics:

Notices | Terms of use | Support | Contact z/OS