Three routines are available to define, translate and delete symbols within a program using SIC without using the SYMBOL command.
SUBROUTINE SIC_SETSYMBOL(SYMBOL,TRANSLATION,ERROR)
Defines a symbol of name SYMBOL (Character*(*), maximum 12 characters), translation TRANSLATION (Character*(*), maximum 132 characters). An error flag (ERROR logical) is returned if the symbol could not be defined. Any previous definition is overridden.
SUBROUTINE SIC_GETSYMBOL(SYMBOL,TRANSLATION,ERROR)
Obtains the current translation of a given symbol. If TRANSLATION is too short, the translation is truncated without warning or error. ERROR is returned if the symbol is undefined only.
SUBROUTINE SIC_DELSYMBOL(SYMBOL,ERROR)
Deletes a symbol definition. ERROR is returned if the symbol was not defined.