OSI/AS and OSI/TS Supplement (Includes RFC-1006 Support)

General OSI/AS and OSI/TS Manual Changes and Corrections
107751 Tandem Computers Incorporated 8–3
The following pages give the corrected source code for this file. The source code file
for this example is provided as part of the OSI/TS software. It resides (by default) in
$SYSTEM.ZOSITS.EXEMST1.
! ***********************************************************
! * *
! * File: EXEMST1 *
! * *
! * This program demonstrates how to retrieve an event *
! * message produced by the OSI/TS subsystem and handle *
! * it appropriately. It does the following: *
! * *
! * - Starts and opens a consumer distributor *
! * *
! * - Prompts you at your terminal for the name of a *
! * filter object file. The filter name must be in *
! * GUARDIAN 90 local internal file name format: *
! * 8 bytes for the volume, 8 bytes for the subvolume, *
! * and 8 bytes for the individual file name. *
! * The volume and subvolume names must be padded on *
! * the right with spaces. For example: *
! * *
! * $myvol mysvol fltr1 *
! * *
! * - Issues SPI CONTROL commands to: *
! * Connect the collector $0 *
! * Load a filter file *
! * *
! * - Performs the following steps in a loop: *
! * Issues an SPI GETEVENT command *
! * Displays an event message at your terminal *
! * *
! * *
! * To terminate the program, press the BREAK key and *
! * type STOP. *
! * *
! ***********************************************************
?NOMAP,NOLMAP
?INSPECT,SYMBOLS
?EXTENDSTACK 4 ! To ensure enough stack space for EMSTEXT
?NOCODE
! ***********************************************************
! * Global declarations and definitions *
! ***********************************************************
! SPI standard definitions
?NOLIST, SOURCE $system.zspidef.zspital
?LIST
! EMS standard definitions
?NOLIST, SOURCE $system.zspidef.zemstal
?LIST