Cobol Foro - [Duda] Sumar decimales

Cobol Foro (https://www.cobolforo.es/index.php)

- COBOL - General (https://www.cobolforo.es/forumdisplay.php?f=44)

- - [Duda] Sumar decimales (https://www.cobolforo.es/showthread.php?t=1577)

Tengo un problema que no he podido resolver, sumar una columna de ListView.
La variable global, la tengo definida como : TOTSUP PIC S9(5)V99 COMP-5 (He probado con COMP-3 y COMP-4) pero no me suma la columna o no aparece la suma donde tengo previsto.
Trabajo en Windos-11 con PWCobol v.9

Hola @Socavi, dos cuestiones sin ver el codigo , la primera la columna 4 del ListView es declarada como numerica?
segunda el campo donde debes mostrar el total de las superficies esta visible es decir POW-TRUE

De todas maneras te paso un simple ejemplo que suma las columnas 3 , 4 , 5 y las muestra en un TextBox

Saludos ....

Buenas tardes Fastpho y muchas gracias por tu ayuda. A mi me resulta extraño que sume correctamente la columna(3) de la población, pero no la (4) de Superficie
las variables global creo que estan bien declaradas y no se dónde encontrar el error.

Código COBOL:

     OPEN INPUT MUNICI
     invoke Lista 'Clear'
     move ' ' to finfic move 0 to cuantos
     perform until finfic = 's'
        read MUNICI NEXT RECORD AT END MOVE 's' to finfic
           not at end
           IF MUNICOM = WZMU
              INVOKE Lista 'Add' USING 1 1 RETURNING RETORNO
              MOVE 'ListItems'(RETORNO) OF Lista TO LINEA
              MOVE MUNICOD TO 'Text'   (1) OF LINEA
              MOVE MUNINOM TO 'Text'   (2) OF LINEA
              MOVE MUNIPOB TO 'Numeric'(3) OF LINEA
              MOVE MUNISUP TO 'Numeric'(4) of linea
              PERFORM CALCUL THRU FI-CALCUL
              move V-COE   TO 'Numeric'(5) OF LINEA
              MOVE MUNIALT TO 'Numeric'(6) OF LINEA
              MOVE IDESCAT TO 'Numeric'(7) OF LINEA
              ADD  MUNIPOB TO TOTPOB
              ADD  MUNISUP TO TOTSUP 
              add 1 to cuantos
           END-IF
        end-read
     end-perform.
     close MUNICI.
     move cuantos   TO 'Caption'   of CmStatic32.
     move TOTPOB  TO pow-numeric OF V-TOTPOB.
     MOVE TOTSUP  TO pow-numeric OF V-TOTSUP.
     PERFORM COMPROVA THRU FI-COMPROVA.
     
     EXIT PROGRAM.

Feliz y Próspero Año Nuevo 2.023 !!!

@Socavi, supongo que sí pero, tienen la misma PICTURE en la WORKING que en la tabla, ¿no?, de todas maneras, creo recordar que el listview, trabaja a 4 decimales, le pongas lo que le pongas.

Un salu2.-

Cita:

Citación del post de Socavi (Mensaje 8507)

Código COBOL:

     OPEN INPUT MUNICI
     invoke Lista 'Clear'
     move ' ' to finfic move 0 to cuantos
     perform until finfic = 's'
        read MUNICI NEXT RECORD AT END MOVE 's' to finfic
           not at end
           IF MUNICOM = WZMU
              INVOKE Lista 'Add' USING 1 1 RETURNING RETORNO
              MOVE 'ListItems'(RETORNO) OF Lista TO LINEA
              MOVE MUNICOD TO 'Text'   (1) OF LINEA
              MOVE MUNINOM TO 'Text'   (2) OF LINEA
              MOVE MUNIPOB TO 'Numeric'(3) OF LINEA
              MOVE MUNISUP TO 'Numeric'(4) of linea
              PERFORM CALCUL THRU FI-CALCUL
              move V-COE   TO 'Numeric'(5) OF LINEA
              MOVE MUNIALT TO 'Numeric'(6) OF LINEA
              MOVE IDESCAT TO 'Numeric'(7) OF LINEA
              ADD  MUNIPOB TO TOTPOB
              ADD  MUNISUP TO TOTSUP 
              add 1 to cuantos
           END-IF
        end-read
     end-perform.
     close MUNICI.
     move cuantos   TO 'Caption'   of CmStatic32.
     move TOTPOB  TO pow-numeric OF V-TOTPOB.
     MOVE TOTSUP  TO pow-numeric OF V-TOTSUP.
     PERFORM COMPROVA THRU FI-COMPROVA.
     
     EXIT PROGRAM.

Feliz y Próspero Año Nuevo 2.023 !!!

@Socavi viendo tu codigo , agrega esta linea para ver que valor tiene TOTSUP

Código COBOL:

 
   display "Total Superficie : " , TOTSUP
   MOVE TOTSUP  TO pow-numeric OF V-TOTSUP

Saludos ....

Gracias Josber, confirmado, si están bien declaradas (creo),

Código COBOL:

    02 TOTPOB PIC S9(7)      COMP-5.
    02 TOTSUP PIC S9(5)V99 COMP-5.

Hola Fastpho, realizada la prueba sugerida, la Superficie muestra +0014575, sin separación de coma, pero sigue sin mostrarla en V-TOTSUP., Muchas gracias a ambos.

@Socavi, estás seguro que no se trata de un problema de muestreo del control? Estos componentes, incluído el V-TOTSUP los tienes en un CmFrame? Muevele un 0 tal cual al principio a ver si se ve, si no, al final del tratamiento, un simple

Código COBOL:

MOVE 0 TO POW-NUMERIC OF V-TOTSUP

A ver qué tal

Hola Kuk, puesta en practica tu sugerencia, no pasa el valor 0, y debería porque la variable, esta declarada en la Working-storage como

Código COBOL:

 01 VARIABLES GLOBAL.    
     02 TOTPOB PIC S9(7)      COMP-5.
     02 TOTSUP PIC S9(5)V99 COMP-5.

@Socavi, la cuestión no es el valor sino la posición, el orden de capas. Me parece que el control que tengas con el nombre V-TOTSUP (imagino que es un CmStatic) se mete por detrás del CmFrame.

Haz lo siguiente, añade esta líne en tu código al final del tratamiento, después de moverle el 0

Código COBOL:

     INVOKE V-TOTSUP "ZOrder" USING 0

Buenos días Kuk, tampoco hace nada, es curioso, que el display que sugirio el amigo Fastpho da la suma correcta de la superficie, pero no la 'coloca en el lugar prevísto, cosa rara, pero es lo que hay, lo seguire intentando.