EMS Manual

EMS Procedures

EMS Manual—426909-005

15-4

Examples

These examples show the use of the EMS procedures described in Table 15-3.

Example 1: Opening a Collector to Send Event Messages or

Text

To open an alternate collector named $ACOL, ues OPEN:

INT ALTCOLNAME[0:11] := ["$ACOL ", 9 * [" "]];

INT COL^FNUM;

CALL OPEN(ALTCOLNAME

, COL^FNUM

, 0 !Waited, READ/WRITE access, SHARED

!exclusion mode

, 1); !Auto-retry path errors

IF COL^FNUM > 0 THEN

BEGIN !Open successful

Example 2: Using WRITEREAD to Send an Event

To create an event message and use the WRITEREAD procedure to send it to a

collector:

INT COL^FNUM; !Initialized by OPEN

INT .EVENT^BUF[0:MAX^EVENT];

INT EVENT^SIZE;

INT ERROR;

IF NOT (ERROR := EMSINIT(BUF, .......)) THEN

BEGIN !Buffer successfully initialized

IF NOT (ERROR := EMSADDTOKENS(BUF, .....)) THEN

BEGIN !Tokens successfully added

CALL SSGETTKN(BUF, ZSPI^TKN^USEDLEN, EVENT^SIZE);

CALL WRITEREAD ( FILENUM

, EVENT^BUF

, EVENT^SIZE

, 0);

IF = THEN

BEGIN !Event successfully sent