= INPUT

/******************** STATEMENTS**********************************
**
** = INPUT (WHERE...)
** O imput e para forcar que seja consi-
** derado, nao o valor que um determinada
** locacao de memoria, possua no screen
** buffer e nao no record buffer.
** O INPUT so deve ser usado, apos um
** PROMPT-FOR em um campo de uma tabela,
** que nao foi copiado para o RECORD
** BUFFER
**
**********************************************************************/

Código:

PROMPT-FOR customer.cust-num.    

FIND customer WHERE
     customer.cust-num 
           =  INPUT customer.cust-num.
DISPLAY customer.name
                customer.credit-limit.