Interested to Buy Any Domain ? << Click Here >> for more details...
how to fetch the record before the last record in a cobol
file( its a huge file and if the key field is not known)
- 5 Answers
- 18999 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / vijay kumar reddy
identification division.
program-id. -------
environment division.
file control.
select infile assign to disky.
organization is sequential.
acess mode is sequential.
select outfile assign to disky1.
organization is sequential.
acess mode is sequential.
data division.
file section.
fd 01 infile.
05 ---
05
fd 01 outfile.
05 ---
05
working-storager section.
77 ws-eof pic 9 value zero.
77 ws-buffer1 pic x(80) value spaces.
77 ws-buffer2 pic x(80) value spaces.
procedure division.
000-main-para.
100-open-para thru 100-exit-para.
200-read-para thru 200-exit-para until ws-eof=1.
300-close-para thru 300-exit-para.
stop run.
100-open-para.
open infile.
open outfile.
100-exit-para.
exit.
200-read-para.
at end.
move 1 to ws-eof.
display buffer1.
not at end.
move buffer2 to buffer1
read infile.
move inrec to buffer2.
read infile.
move inrec to buffer1.
200-exit-para.
exit.
300-close-para.
close infile.
close outfile.
300-exit-para.
exit.
| Is This Answer Correct ? | 1 Yes | 4 No |
Post New Answer View All Answers
if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.
Why would you use find and get rather than to obtain?
how do you reference the fixed unblock file formats from cobol programs
Define cobol?
Which mode is used to operate the sequential file?
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?
what happens if parmparameter passes zero bytes to the program
Can we redefine the field of x(200) to less than 200?
) How do u handle errors in BMS macro?
how do you reference the rrds file formats from cobol programs
How do we get current date from system with century in COBOL?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How do you get the data to code the BMS macro?
In which area will you utilize 88 level items in cobol?
