Interested to Buy Any Domain ? << Click Here >> for more details...
How to read the last 100 records from a COBOL file. The file
contains N number of records.
- 11 Answers
- 40762 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / bibhuti swain
PROCEDURE DIVISION.
PARA.
OPEN INPUT STUDFILE.
PERFORM PARA1 UNTIL EOF = 1.
DISPLAY 'TOTAL NO:OF RECORDS ' A.
COMPUTE B = A - 100.
MOVE 0 TO EOF.
CLOSE STUDFILE.
OPEN INPUT STUDFILE.
PERFORM PARA2 UNTIL EOF = 1.
CLOSE STUDFILE.
STOP RUN.
PARA1.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE A = A + 1.
PARA2.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE C = C + 1.
IF C >= B AND EOF NOT = 1
DISPLAY STUD-REC.
If anybody doesn't understand this logic i can explain..
In PARA2 the file is read from the beginning and the moment
the value of C reaches the value of B i.e value of C = B
and then it will satisfy the condition IF C >= B and from
there it will start displaying the records till end.
| Is This Answer Correct ? | 14 Yes | 1 No |
Post New Answer View All Answers
What are declaratives and what are their uses in cobol?
i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
What is the compute verb? How is it used?
What the difference is between continue and next sentence?
how to access the file from prodution from changeman tool and to submit a file to production
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
1.Is it possible to move the data from 99.99 to 99v99? 2.What is the CICS-vsam Compilation process? 3.In My GDG 5 generation will be there GDG3 got an abend what will happen? 4.In my GDG first generation is +1 And I want to add the new generation what will happen previous generation? 5.How can you give the PIC clause below conditions A). s9 (reddy), B). s9 (5) occurs 5 times? 6.How override the proc from a particular step? and what is symbolic and override Procs?
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
Write the code to count the sum of n natural numbers.
input= ,,,, mainframe training ,,, hyderabad .... location.... output1=$ mainframe training in hyderabad location$ output2=**** mainframe training in hyderabad location ****. In this pgn when we give input considering the spaces the output is displayed in this format.Like in the place of ,,,, $ should be displayed likewise.So please helpmeout.
What are literals?
What is the problem of ordered sequential files access?
Can you please let me know the centre name of INS certification in Kolkata.
