Includes

/******************** stateMENTS**********************************
**
** {include-file.i}
**
**********************************************************************/

Código:

DEF VAR codigo LIKE customer.cust-num.

REPEAT:
   {exe0072.i}
   SET codigo.
   FIND customer WHERE
        customer.cust-num = codigo.
   UPDATE customer.name
          customer.credit-limit
          customer.balance.
END.

Conteudo da Include

Código:

FORM codigo
     customer.name
     customer.credit-limit
     customer.balance
     WITH ROW 4 1 COLUMN
     SIDE-LABELS 1 DOWN
     CENTERED TITLE
     "Atualizacao de Clientes".