ViewPoint Manual

Customizing ViewPoint
ViewPoint Manual—426801-001
6-25
EXTRAS-DELETE Interface
Z-DELETED-FLAG of ZVPT-EVENT-MARKED
is a Boolean value indicating whether an event was deleted. TRUE (-1) indicates
that the event was an action or critical event, and that it was deleted either
automatically or by operator action. FALSE (0) indicates that the event was not
deleted.
Z-EVENT-BUFFER-LEN of ZVPT-EVENT-MARKED
is the event message length in bytes.
Z-EVENT-BUFFER of ZVPT-EVENT-MARKED
is an SPI buffer containing the event message. This is a variable-length field, with a
maximum of 3900 bytes. For how to retrieve tokens or text from the event message
in this buffer, refer to the EMS Manual.
EXTRAS-DELETE Interface
Optionally, ViewPoint can call a user-provided program unit whenever an operator
attempts to manually acknowledge an event message from the Primary Events screen.
The called program unit can authenticate or audit the acknowledge operation using the
user ID and the event buffers. An array of flags returned in the Linkage Section of the
program unit is used to permit or deny acknowledge operations on the marked event
messages. The program unit must be named ZVPT-EXTRAS-DELETE and should have
the following PROCEDURE DIVISION definition:
PROCEDURE DIVISION
USING ZVPT-IPC-HDR,
ZVPT-LINK-DATA-L,
ZVPT-USER-REQUEST,
ZVPT-DELETE-ACCEPTED.
The Linkage Section declarations for ZVPT-EXTRAS-DELETE are identical to those
for ZVPT-EXTRAS shown earlier, with one additional declaration:
ZVPT-DELETE-ACCEPTED. Note, however, that the link back to ViewPoint differs
from that of ZVPT-EXTRAS. ZVPT-EXTRAS can call any other ViewPoint screen;
ZVPT-EXTRAS-DELETE can exit and return only to the Primary Events screen.
ZVPT-DELETE-ACCEPTED contains an array of Boolean flags; each flag corresponds
to an event message marked for deletion. On entry to the program unit, the flags all
have a value of TRUE, indicating permission to acknowledge. If a flag is set to FALSE
(0), the corresponding event message that is marked for deletion is not deleted and
ViewPoint displays an advisory message on line 20 of the Events screen. The
ZVPT-DELETE-ACCEPTED declaration is shown in Figure 6-6 and is distributed with
ViewPoint in the file GDDL (with language versions in GTAL for TAL, GCOB for
COBOL85, and GLNK for SCREEN COBOL).