can we read records in a file from botom to top. if
possible how can we read
Answers were Sorted based on User's Feedback
Answer / raj
yes,it is possible through JCL.
1. QSAM (sequential) file. You can run it thru SORT utility
adding SEQNUM and then sort then sort by SEQNUM in DESC
order
2. VSAM: In CICS you can read backward using READREV;
3. VSAM: I Batch unload the VSAM file using SORT in DESC
order by key value.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / rakesh
you can point to last rec using start, then read using 'read
prior' statement
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / guest
If you are using CICS Answer:1 is correct. Orther wise we
can not read from botom to top.
| Is This Answer Correct ? | 2 Yes | 2 No |
Answer / jayant
WORKAROUND:Sort the file in the descending manner first
based on its key,than read it normally.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / kk
data division.
working storage section.
01 opr pic a(1).
01 arrays.
02 aaa occurs n times.
03 name attribute.
------------------
------------------
01 I pic 9(2) value 1.
procedure division.
open file
read file at end move 'n' to opt
perform para1 until opt = 'n'
perform para2 until i = 0
para1.
move filed to aaa
add i to i.
read file at end move 'n' to opt.
perform-end.
para2.
diplay aaa(I).
compute i=i-1.
perform-end.
stop run.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / hari
Move low values to the key and then use READ PREV.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / krishna
If it is a tape file,
OPEN INPUT FILEXXX REVERSED,
then the pointer is posistioned at the last record and read
next will read the prior record...
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / piyush mani
hi all..
store the content of file in table(array) and then
by using index of array start reading the file from bottom
giv ur feedback....
| Is This Answer Correct ? | 0 Yes | 1 No |
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
There is a variable with value 19446. Requirement is to convert it to 194.46. I tried it by doing divide by 100 and my receiving field data type is 9(03)v99. But the output is 194. I am not getting the decimal value. Could anyone pls let me know how to get this done?
I try to use some column names in my cobol progorm but these column not in db2 table ..when do i get error ..while bind time or runtime?
How can you get the ksds file records into your cobol program?
Write some characteristics of cobol as means of business language.
What are options have been removed in COBOL 11?
What are the pertinent COBOL
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
What are literals?
what is the difference between perform varying and perform until
what r the types of perform statement
I encountered an error when I move spaces to a numeric field?What should I do to move spaces on that field?help please.