View previous topic :: View next topic
|
Author |
Message |
subhra das
New User
Joined: 01 Aug 2005 Posts: 9
|
|
|
|
Hi,
I want to read from 20th record to 50th record from a VSAM KSDS file and write it to a file.
Can anybody tell me how to code this in program.
Thanks
Subhra |
|
Back to top |
|
|
Aji
New User
Joined: 03 Feb 2006 Posts: 53 Location: Mumbai
|
|
|
|
hi
Fine tune the following logic.
working-storage section.
01 rec-no pic 99 value 0.
p1.
intialize key1.
start file1 key not < key1.
p2.
read file1 next record.
add 1 to rec-no.
if rec-no >= 20 and rec-no <= 50
write new-rec
end-if.
Aji Cherian |
|
Back to top |
|
|
subhra das
New User
Joined: 01 Aug 2005 Posts: 9
|
|
|
|
Thanks a lot Aji .I'll code this and let you know the result.
Thanks
Subhra |
|
Back to top |
|
|
|