No se utilizarlo Josber, pero muchas gracias.
Esto que acompaño, no me funciona, pero quisiera algo así:
Código COBOL:
ENVIRONMENT DIVISION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WK-ROW PIC 9(5).
01 CODIGO PIC 9(5).
01 FINFIC PIC X.
01 LI PIC 9(8).
01 LIO PIC 9(8).
01 DESDE PIC 9(8).
01 POW-PCMLIST OBJECT REFERENCE POW-CLISTITEM.
PROCEDURE DIVISION.
OPEN OPEN I-O PROVIN
MOVE POW-NUMERIC OF P-LIN TO DESDE
MOVE POW-NUMERIC OF P-LIN3 TO PROVCOD
MOVE ROWCOUNT OF VIEW TO LIO
PERFORM VARYING LI FROM DESDE BY 1 UNTIL LI > LIO
MOVE 'TEXT' OF "listitems"(LI, 1) OF VIEW2 TO PROVCOD
MOVE "Text" OF "listitems"(LI, 2) OF VIEW2 TO PROVNOM
MOVE 'Numeric' OF "listitems"(LI, 3) OF VIEW2 TO PROVPOB
MOVE 'Numeric' OF "listitems"(LI, 4) OF VIEW2 TO PROVHOM
MOVE 'Numeric' OF "listitems"(LI, 5) OF VIEW2 TO PROVDON
REWRITE REGPROV
DISPLAY 'ERROR AL GRABAR'
END-WRITE
ADD 1 TO PROVCOD
END-PERFORM
CLOSE PROVIN
OPEN INPUT PROVIN
DISPLAY '---------< INICIO FICHERO >----------------'
INITIALIZE FINFIC
PERFORM UNTIL FINFIC = 'S'
READ PROVIN NEXT RECORD AT END MOVE 'S' TO FINFIC
NOT AT END
DISPLAY PROVCOD ' - ' PROVNOM(1) ' - ' PROVPOB ' - ' PROVHOM
END-READ
END-PERFORM
CLOSE PROVIN