COLUMN-LABEL "string1 ! string2" (DEFINE FRAME...)

/******************** STATEMENTS**************************************
**
** COLUMN-LABEL "string1 ! string2" (DEFINE FRAME...) (>= V6)
** Nao e caracteristica geral da frame.
** E uma caracteristica individual do dado
** que ocupa espaco na frame.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok".
DEF QUERY q-cust FOR customer.
DEF BROWSE b-cust QUERY q-cust
  DISPLAY customer.cust-num 
            COLUMN-LABEL "CODIGO"
          customer.name
            COLUMN-LABEL "NOME"
          customer.credit-limit 
            COLUMN-LABEL "CREDITO"
          customer.credit-limit * 0.30 
            COLUMN-LABEL " 30% DO ! CREDITO"
          customer.credit-limit * 1.30 
            COLUMN-LABEL " CREDITO ! MAIS 30%"
          WITH 8 DOWN SEPARATORS TITLE "CLIENTE".
OPEN QUERY q-cust
      FOR EACH customer.
DEFINE FRAME a
       b-cust SKIP(1)
       bt-fim
       WITH CENTERED ROW 3.
DISPLAY  b-cust bt-fim WITH FRAME a.       
ENABLE ALL WITH FRAME A.
WAIT-FOR CHOOSE OF bt-fim.