Outros usos do WITH

/******************** STATEMENTS**************************************
**
** WITH (FORM...)
** O WITH nao so e usado no cabecalho
** dos blocos (DO, REPEAT e FOR EACH),
** mas tambem no DISPLAY, PROMPT-FOR,
** SET, UPDATE e INSERT, tambem no
** FORM.
**
**
**********************************************************************/

Código:

FIND FIRST customer.
FORM customer.cust-num
     customer.name
     WITH CENTERED 
     COLOR WHITE/BLUE. 
DISPLAY customer.cust-num
        customer.name 
        WITH TITLE "Procedure".
FOR EACH customer:
    DISPLAY customer.cust-num
            customer.name
            WITH TITLE "For Each".
END.