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 !!!