The LIB$GET_SYMBOL routine retrieves a symbol's current value. This routine is VMS-specific and should never be used on other machines.
CALL "LIB$GET_SYMBOL" USING SYM-NAME, SYM-VALUE, SYM-SIZE, SYM-LOCATION
|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 PIC 9(n) USAGE COMP-1 (optional)||The third parameter is optional. It is filled in with the number of characters contained in the returned value.|
|SYM-LOCATION PIC X or PIC 9 (optional)||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.