The LIB$GET_SYMBOL routine retrieves a symbol's current value. This routine is VMS-specific and should never be used on other machines.
Usage
CALL "LIB$GET_SYMBOL" USING SYM-NAME, SYM-VALUE, SYM-SIZE, SYM-LOCATION
Parameters
SYM-NAME PIC X(n)
Contains the name of the symbol to retrieve. The local symbol table is searched first, followed by the global table.
SYM-VALUE PIC X(n)
If a value is found, it is returned in the second parameter.
SYM-SIZE (optional) PIC 9(n) USAGE COMP-1
The third parameter is optional. It is filled in with the number of characters contained in the returned value.
SYM-LOCATION (optional) PIC X or PIC 9
The final parameter is also optional. It is filled in with a "1" if the value is found in the local symbol table, a "2" if found in the global table.
This routine does not report any error conditions. See the VMS System Routines manual for details on VMS-specific routines.