ViewPoint Manual

Customizing ViewPoint
ViewPoint Manual—426801-001
6-26
Preparing Your ZVPT-EXTRAS
Program for Installation
Event messages selected for acknowledgment are passed as messages in SPI format in a
data file. (This file was described earlier under the subsection “Passing Marked Event
Messages.”) The order of events in the data file corresponds to the order of the selected
event messages on the Events screen. This is also the order of the flags in
ZVPT-DELETE-ACCEPTED. Hence, event 1 in the data file corresponds to
Z-DELETE-ACCEPTED-FLAGS (1) in ZVPT-DELETE-ACCEPTED and corresponds
to the first event message marked for deletion on the screen.
A single SCREEN COBOL statement denies the acknowledge operation for all marked
event messages:
MOVE ZEROES TO z-delete-accepted-all-flags.
The program unit can supply an explanatory message for ViewPoint to display when the
acknowledge operation is denied. The message should be moved into the Z-REASON
field of ZVPT-DELETE-ACCEPTED. ViewPoint displays the contents of this field on
line 20 of the Events screen if an acknowledge operation is denied and Z-REASON is
not blank.
The option to call ZVPT-EXTRAS-DELETE is indicated by a Boolean parameter
(CALL-EXTRAS-DELETE) that you must add to the server configuration for
ZVPT-EVNT-COLL in the PATHBASE file used to configure ViewPoint. TRUE
indicates that the program unit ZVPT-EXTRAS-DELETE should be called; FALSE (the
default value) indicates that this program unit should not be called. (Refer to Section 7,
Installation, Configuration, and Startup for a description of changing the PATHBASE
configuration file.)
Preparing Your ZVPT-EXTRAS Program for Installation
You must compile all the program units you write into an object library that is referred
to by the TCLPROG routine of the ViewPoint program. This library is initially named
POBJ on the ViewPoint program subvolume. You can invoke the compilation as
follows:
SCOBOLX /IN source-file, OUT $S.#HOLD, NOWAIT/ POBJ
During installation of the ViewPoint application, ViewPoint program units are copied to
the POBJ library on the ViewPoint program subvolume.
Server classes that you refer to in your custom program units must either be added to the
Pathway application associated with the ViewPoint application or else exist within a
separate Pathway application. You use a SEND verb that specifies PATHMON and
SYSTEM to send a command to a server class in a separate Pathway application. Refer
Figure 6-6. DDL for ZVPT-DELETE-ACCEPTED
definition ZVPT-DELETE-ACCEPTED.
02 Z-DELETE-ACCEPTED-ALL-FLAGS pic x(50).
02 Z-DELETE-ACCEPTED-FLAGS pic 9 occurs 50 times
redefines Z-DELETE-ACCEPTED-ALL-FLAGS.
88 Z-DELETE-ACCEPTED value 1.
02 Z-REASON pic x(66).
end.