Usando o LIKE na definicao de variavel

/******************** STATEMENTS**********************************
**
** DEF VAR (DEFINE VARIABLE... )
**
** LIKE (DEFINE VARIABLE... )
**
**********************************************************************/

Código:

DEF VAR codigo LIKE CUSTOMER.CUST-NUM.
SET codigo.
FIND CUSTOMER WHERE
     CUSTOMER.CUST-NUM =  codigo.
DISPLAY CUSTOMER.NAME
        CUSTOMER.credit-limit.