How can i load all the data from a file to Table (array) in
cobol.How i manage the occurs clause with out reading the
file.Any options avilable ? Please can any one help me it
is urgent?
- 1 Answers
- 2674 Views
- HeadStrong, I also Faced
- E-Mail Answers
Answer Posted / Jaideep Choudhary
In COBOL, you can use the READ statement to read data from a file into an array. Here's an example:nn 01 WORKING-STORAGE SECTION.n 02 FILE-CONTROL. n SELECT INPUT-FILE ASSIGN TO 'INPUT.DAT' ORGANIZATION IS LINE SEQUENTIAL.n 03 DATA DIVISION.n 04 WORKING-STORAGE SECTION.n 05 01 DATA-RECORD.n 06 FIELD1 PIC X(20).n 07 FIELD2 PIC S9(4)V99 VALUE ZEROS. n 08 01 TABLE.n 09 03 WORK-TABLE OCCURS DEPENDING ON SIZE OF DATA-RECORD.n 05 FILE SECTION.n 06 FILE-CONTROL. n SELECT OUTPUT-FILE ASSIGN TO 'OUTPUT.DAT' ORGANIZATION IS LINE SEQUENTIAL.n 07 PROCEDURE DIVISION.n 01 READ-INPUT. n 02 DISPLAY 'Reading Input File'.n 03 OPEN INPUT INPUT-FILE.n 04 PERFORM READ-RECORD UNTIL END-OF-FILE.n 05 CLOSE INPUT-FILE.n 06 END-READ-INPUT.n 07 WRITE-OUTPUT. n 08 DISPLAY 'Writing Output File'.n 09 OPEN OUTPUT OUTPUT-FILE.n 10 PERFORM WRITE-RECORD FOR EACH WORK-TABLE.n 11 CLOSE OUTPUT-FILE.n 12 END-WRITE-OUTPUT.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
