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.