Interested to Buy Any Domain ? << Click Here >> for more details...
How to read records in reverse order in flat file?
I know we can do it by reading all records into an array....
Then read records in reverse order by using subscript or index
but can any body give me the exact code.
- 5 Answers
- 21404 Views
- TCS, I also Faced
- E-Mail Answers
Answer Posted / ch. ranveer singh gurjar
New update..by Ch. Ranveer Singh
IDENTIFICATION DIVISION.
PROGRAM-ID. 'OCCURS'.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC.
05 IN-EMP-ID PIC X(5).
05 IN-EMP-NAME PIC X(10).
05 FILLER PIC X(65).
FD OUTFILE.
01 OUTREC.
05 OUT-EMP-ID PIC X(5).
05 OUT-EMP-NAME PIC X(10).
05 FILLER PIC X(65).
WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(4).
01 EOF PIC X(1) VALUE 'N'.
01 ARRAY1.
05 ARREC OCCURS 1 TO 50 TIMES DEPENDING ON WS-COUNT.
10 AR-EMP-ID PIC X(5).
10 AR-EMP-NAME PIC X(10).
PROCEDURE DIVISION.
MOVE 1 TO WS-COUNT.
OPEN INPUT INFILE.
OPEN OUTPUT OUTFILE.
PERFORM MOVE-RECORD UNTIL EOF = 'Y'.
PERFORM PARA1 UNTIL WS-COUNT = ZEROS
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
MOVE-RECORD.
READ INFILE AT END MOVE 'Y' TO EOF
NOT AT END
MOVE INREC TO ARREC(WS-COUNT)
ADD 1 TO WS-COUNT.
PARA1.
MOVE ARREC(WS-COUNT) TO OUTREC
WRITE OUTREC
SUBTRACT 1 FROM WS-COUNT.
| Is This Answer Correct ? | 4 Yes | 1 No |
Post New Answer View All Answers
Can we change the password using ALTER? anyone tried and changed?
What is the difference between PIC 9.99 and 9v99 in COBOL?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What is the difference between Global and External Variables?
How you can characterize tables in cobol?
In which area will you utilize 88 level items in cobol?
How do you reference the fixed block file formats from cobol programs
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
What is the difference between a binary search and a sequential search what are the pertinent cobol?
What is rmode(any) ?
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.
how do you reference the ksds vsam file formats from cobol programs
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
Can you please let me know the centre name of INS certification in Kolkata.
