FORMAT (DEFINE VARIABLE...)

/******************** STATEMENTS**********************************
**
** FORMAT (DEFINE VARIABLE...)
** E possivel definir qual o formato de
** uma variavel criada.
**
** VIEW-AS FILL-IN (DEFINE VARIABLE...)
** Fill-in e uma widget, assim como Field
** e button tambem sao. O fill-in e muito
** parecido com o Field. A diferenca e que
** o field o format e o size sao iguais.
** No fill-in o format e o size nem sempre
** sao iguais.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim     LABEL "&Fim".
DEF BUTTON bt-show    LABEL "&Show".
DEF BUTTON bt-enable  LABEL "&Enable".
DEFINE VARIABLE campo1 AS CHARACTER INITIAL "Linguagem"
     FORMAT "X(150)" VIEW-AS FILL-IN SIZE 10 BY 1.
DEFINE VARIABLE campo2 AS CHARACTER INITIAL "Progress"
     FORMAT "X(150)" VIEW-AS FILL-IN SIZE 10 BY 1.
DEFINE VARIABLE campo3 AS CHARACTER INITIAL "4GL"
     FORMAT "X(150)" VIEW-AS FILL-IN SIZE 10 BY 1.

DEFINE FRAME F-TELA         
             SKIP(1)             
             campo1   SKIP
             campo2   SKIP
             campo3   SKIP(1)
             bt-show  SPACE(4) bt-enable 
             SPACE(4) SPACE(4) bt-fim
             WITH SIDE-LABELS CENTERED 
             NO-BOX ROW 4 .

ENABLE bt-fim bt-show bt-enable 
       WITH FRAME F-TELA.

ON CHOOSE OF bt-enable
     ENABLE ALL WITH FRAME F-TELA.

ON CHOOSE OF bt-show 
      DISPLAY campo1 campo2 campo3 
               WITH FRAME F-TELA.

WAIT-FOR CHOOSE OF bt-fim.

ASSIGN campo1 campo2 campo3.