Event code 32 — perform GOTO validation (CICS only) event

Purpose

This event is used to verify with the member language that a GOTO-out-of-block can be performed which transfers control to a location specified on an EXEC CICS® HANDLE CONDITION condition (label).

Syntax

Call CEEEVnnn (32, pgmrsa, xpgmind) 
POINTER   *pgmrsa;
INT4      *xpgmind;
pgmrsa (input)
The address of the save area of a routine that is being exited by a GOTO-out-of-block in order to transfer control to the EXEC CICS HANDLE CONDITION condition (label).
xpgmind (output)
A fullword set to indicate if the GOTO-out-of-block is restricted for this routine:
0
The GOTO-out-of-block is allowed.
1
The GOTO-out-of-block is not allowed.

Usage notes

  • This event is called only when running under CICS.
  • If a member event handler detects an error during this event, it should return with return code 16, and place the reason code for the error in CEECAACICSRSN field of the CAA. Language Environment passes this reason code to CICS.
  • CICS SPF: Language Environment calls languages in key 8 for this event. Storage for parameters can be in key 8.
Parent topic: Event handler calls