EMS Manual

EMS Procedures
EMS Manual—426909-005
15-5
Examples
Example 3: Issuing a Text Message Using the WRITE
Procedure
To define a text message buffer and use the WRITE procedure to send it to a collector:
LITERAL TEXT^SIZE = 12;
INT COL^FNUM; !Initialized by OPEN
INT .TEXT^BUF[0:TEXT^SIZE-1] := ["CODER HAS BECOME BUCOLIC"];
CALL WRITE (COL^FNUM
, TEXT^BUF
, TEXT^SIZE '<' 1);
IF = THEN
BEGIN !Text message sent successfully
Example 4: Opening a Collector for the SPI Interface
To open an alternate collector named $ALTC for the SPI interface, use the OPEN
procedure:
INT ALT^SPI^FNUM := -1;
INT ALT^SPI^FNAME[0:11] := ["$ALTC #ZSPI "];
CALL OPEN (ALT^SPI^FNAME, ALT^SPI^FNUM, 0, 1);
IF ALT^SPI^FNUM > 0 THEN
BEGIN !Open succeeded