Conversões de Formato

/******************** STATEMENTS**********************************
**
** STRING(valor, formato) (>= V6)
** E uma funcao que transforma deter-
** minado valor em caracter.
**
** INTEGER(valor) (>= V6)
** E uma funcao que transforma deter-
** minado valor em integer.
**
**
**********************************************************************/

Código:

DEFINE BUTTON   bt-fim LABEL "&Fim".  
DEFINE VARIABLE campo1 AS INTEGER 
       LABEL "Input 1" INITIAL 1000. 

DEFINE FRAME f-tela
       campo1   AT ROW  04 COLUMN 05
       bt-fim   AT ROW  04 COLUMN 29       
       WITH TITLE "FRAME MAE" SIDE-LABELS
       SIZE 40 BY 10 CENTERED ROW 4.

DISPLAY campo1 bt-fim
        WITH FRAME f-tela.

ENABLE ALL WITH FRAME f-tela.  

ON RETURN OF campo1
   DO:  
      ASSIGN campo1:screen-value = STRING(INTEGER(campo1:screen-value) * 1.30)
             campo1.
   END.

WAIT-FOR CHOOSE OF BT-FIM.