Buenas tardes Josber, así llamo al listado
Código COBOL:
move 0 to TOTMUNIPOB TOTMUNISUP
close munici.
open input MUNICI.
INITIALIZE REGMUNI.
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
INVOKE Lista 'Add' USING 1 1 RETURNING RETORNO
MOVE 'ListItems'(RETORNO) OF Lista TO LINEA
IF MUNIPRO = V-COD
MOVE MUNICOD TO 'Text'(1) OF LINEA
MOVE MUNICP TO 'Text'(2) OF LINEA
move MUNINOM to 'Text'(3) of linea
move MUNIGEN TO 'Text'(4) of linea
move MUNIPOB to 'Text'(5) of linea
move MUNISUP to 'Text'(6) of linea
perform calcul thru fi-calcul
move MUNIKM TO 'Text'(8) of linea
add 1 to cuantos
END-IF
end-read
end-perform.
close MUNICI.
Como dije anteriormente, el fichero indexado es de casi 10.000 regístros, bien si el que pretendo listar empieza en la linea 300, me deja 300 lineas en blanco, hasta que llega el primero de los que pido y entonces los lísta todos. No sé si queda claro lo que me sucede.
Gracias y perdona "la paliza"