INPUT (MESSAGE), AVAILABLE (IF), NO-ERROR

/******************** STATEMENTS**********************************
**
**
** NO-ERROR (FIND...)
** E uma clausula da sintaxe do FIND
** e sempre que e usado, inibe a ava-
** liacao quanto ao FIND ter sido bem
** sucedido ou nao.
**
** AVAILABLE (IF)
** Trata-se de uma funcao que testa
** se algum registro especifico foi
** copiado para o screen-buffer.
**
** MESSAGE "string-1"
** E responsavel pela emissao de uma
** determinada string (cadeia de carac-
** teres) no rodape do screen.
**
** INPUT (MESSAGE...)
** O INPUT alem de ser usado na sintaxe
** da clausula WHERE, tambem pode ser
** usado na sintaxe do statement
** MESSAGE.
**
** IF, THEN, ELSE
** Sao condicionais.
**
**********************************************************************/

Código:

PROMPT-FOR customer.cust-num.

FIND customer 
      USING customer.cust-num NO-ERROR.
      
IF AVAILABLE customer  THEN
     DISPLAY customer.cust-num
             customer.name
             customer.credit-limit.           
ELSE
     MESSAGE
        "NAO FOI LOCALIZADO O  CLIENTE "
          INPUT customer.cust-num.