Ver Mensaje Individual
  #12
Antiguo 30 de marzo de 2015, 16:28
Kuk
Administrador
Última Actividad 21.09.2026 18:24
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Breew, "Text" no vale para calculos. Debes usar siempre POW-NUMERIC. Ya es el propio control el que se encarga de darle formato que has establecido. Haz lo siguiente:

Código COBOL:
  1. *******************************
  2.      ENVIRONMENT     DIVISION.
  3.      DATA            DIVISION.
  4.      WORKING-STORAGE SECTION.
  5.      01 campo1          pic 9999v99.
  6.      01 campo2          pic 9999v99.
  7.      
  8.      PROCEDURE       DIVISION.
  9.           move POW-NUMERIC of cmtext1 to campo1.
  10.           move POW-NUMERIC of cmtext2 to campo2.
  11.           Add campo1  to Campo2.
  12.           Move campo2 to POW-NUMERIC of cmtext3.

O incluso puedes hacer esto:

Código COBOL:
  1. ADD POW-NUMERIC OF CmText1 TO POW-NUMERIC OF CmText2
  2.     GIVING POW-NUMERIC OF CmText3

O tambien con COMPUTE:

Código COBOL:
  1. COMPUTE POW-NUMERIC OF CmText3 =
  2.     POW-NUMERIC OF CmText1 + POW-NUMERIC OF CmText2    



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita