EMS Manual

Example of Retrieving Event Messages

EMS Manual—426909-005

A-4

DDL Source File

A DDL file is necessary to event-message retrieval only for passing parameters to an

event-message filter.

This file contains DDL source statements to pass a CPU parameter to the filter:

! File name: MYAPDDL

?DICT !

?NOLIST

?SOURCE $SYSTEM.ZSPIDEF.ZSPIDDL

?LIST

! Request TACL, TAL, COBOL, and C output

?TACL MYAPTACL !, NOTIMESTAMP

?TAL MYAPTAL !, NOTIMESTAMP

?COBOL MYAPCOB !, NOTIMESTAMP

?C MYAPC !, NOTIMESTAMP

?SETSECTION constants

! Components of a subsystem ID

CONSTANT myap-val-owner VALUE IS "MYAPLAB ".

CONSTANT myap-ssn-myap VALUE IS 4.

CONSTANT myap-val-version VALUE IS 2.

* Defines the structure for the MYAP SSID

DEFINITION myap-val-ssid TACL SSID.

02 Z-FILLER TYPE CHARACTER 8

VALUE IS myap-val-owner.

02 Z-OWNER TYPE ZSPI-DDL-CHAR8

REDEFINES Z-FILLER.

02 Z-NUMBER TYPE ZSPI-DDL-INT

VALUE IS myap-ssn-myap.

02 Z-VERSION TYPE ZSPI-DDL-UINT

VALUE IS myap-val-version.

END

! MYAP token codes

TOKEN-CODE myap-tkn-param-cpu VALUE IS 1

TOKEN-TYPE IS ZSPI-TYP-UINT.