Copyright (c) Digital Equipment Corporation 1988. All rights reserved
LAYERED PRODUCT or COMPONENT: VER_3.2_PLI     OP/SYS: VER_5.0_VMS

SOURCE:     Digital Customer Support Center


OVERVIEW:

This program demonstrates how to call the Run Time Library Routine
LIB$GETSYI to obtain information about the system.


CAUTION:  This sample program has been tested using:
PRODUCT: VER_3.2_PLI on OPERATING SYSTEM: VER_5.0_VMS
However, we cannot guarantee its effectiveness because of the possibility of
errors in transmitting or implementing it.  It is meant to be used as a
template for writing your own program, and it may require modification for use
on your system.


PROGRAM NOTES:

LIB$GETSYI is easier to use than its counterpart SYS$GETSYI, because
it does not use an item list and it is synchronous.  Any of the item
codes that can be used with SYS$GETSYI can also be used with
LIB$GETSYI.  However, LIB$GETSYI only allows one item code at a time
to be used.

This program, in particular, returns the nodename on which the program
is executing.


PROGRAM SAMPLE:

ST:  proc options(main);

        %include LIB$GETSYI;
        %include $STSDEF;
        %include $SYIDEF;
        dcl item_code fixed bin(31) init(syi$_nodename);
        dcl resultant_string char(6);
        dcl resultant_length fixed bin(15);


        STS$VALUE = LIB$GETSYI(item_code,,resultant_string,
                               resultant_length,,);

        if ^STS$SUCCESS
            then signal VAXCONDITION(STS$VALUE);
        put skip list ('The Node: ', resultant_string);

        end ST;

buy online or call 1.800.AT.COMPAQ