Informar símbolos para o ligador.
EXTERNAL <nome1> [[,<nome2>] [,<nome3>]......]
|
<nome> |
representa o nome do procedimento codificado em outro arquivo fonte. |
Possibilita executar PROCEDURES através da função &S( ).
O exemplo a seguir mostra uma forma de uso do comando EXTERNAL e da função &S().
CLEAR
SET MESSAGE TO 23,21
MESSAGE " Pressione uma das letras maiúsculas "
EXTERNAL inclui, altera && Declara símbolos para ligador.
WAIT "Inclui ou Altera (I/A) ?" TO k
IF k $ "Aa"
var_cad = "altera"
ELSEIF k $ "Ii"
var_cad = "inclui"
ELSE
CLEAR MESSAGE
MESSAGE "Opcao Nao Valida"
QUIT && Termina programa
ENDIF
DO &S (var_cad)
DO, PROCEDURE, SET KEY e &S( ).