How to read a previous record VSAM KSDS file?

Elixir · Posted: Tue Mar 20, 2012 4:03 am

Hi,

Please let me know How to read a previous record VSAM KSDS file.

dbzTHEdinosauer · Posted: Tue Mar 20, 2012 4:11 am

in CICS or Batch?

Elixir · Posted: Tue Mar 20, 2012 4:17 am

In Batch..if possible

Bill Woodger · Posted: Tue Mar 20, 2012 5:05 am

Do you mean the record before the current one you have read? Or just any old record you have read previously in that program?

What language, or are you not concerned?

Are you processing the KSDS "sequentially", "dynamically" or "randomly"?

I suppose the worst case is that you want the record before the one you have just read, randomly. So what does your key look like, the rightmost part of it anyway? If you need to read that record, what happened at the design stage to not have a key for it?

Bill O'Boyle · Posted: Tue Mar 20, 2012 5:16 am

Keep a copy of the current (already read) KEY before you issue a READ NEXT (assuming you're reading sequentially).

Once you've determined you've read past the desired key, issue a START KEY NOT LESS THAN "Previous Key" which will reposition the VSAM file (CRP) at the previous key, then issue a READ NEXT and you're done.

You may have to define ACCESS IS DYNAMIC in the FD, so verify this beforehand by testing both DYNAMIC access and ACCESS IS SEQUENTIAL.

Elixir · Posted: Tue Mar 20, 2012 5:40 am

I am using Batch COBOL program to attain this objective.

VSAM Input File

KEY(1st 5 Characters)
NON KEY(Last 7 Characters)

Key 1 AAAAAA
Key 2 BBBBBB
Key 3 CCCCCC
Key 4 DDDDDD
Key 5 EEEEEE

I am getting data from another flat file, it contains Key fields. I read the key fields 1 by 1 from the flat file.

If Key 1 then write to o/p Key1 AAAAAA BBBBBB

If Key 2 then write to o/p Key2 BBBBBB CCCCCC

If Key 3 then write to o/p Key3 CCCCCC DDDDDD

If Key 4 then write to o/p Key4 DDDDDD EEEEEE

If Key 5 then write to o/p Key5 EEEEEE AAAAAA

The reason to me ask How to Read previous record in VSAM file is, if the flat file contains Key 5, then I need to get the non-key Value from Key 1 record.

The output is a Flat file only

Thanks!

Bill Woodger · Posted: Tue Mar 20, 2012 12:14 pm

Maybe a modified two-file match? The match directly gets you the first non-key part, whilst the next match gets you the second. Special case is to save the second part first time it is created, as it will be used for the second part of the final match.

Elixir · Posted: Tue Mar 20, 2012 7:19 pm

The method I adopted is

(Appropriate File handling has been done)

Read Flat File to get the Key value.

Start File Key is not < Key Field

If Not File Status 23
Read File Key is Key field
Read Next
If not File Status 10
Write o/p
Else Move Lowest possible value into the key field
Start File Key is Key Field
Read File Key is Key field
Write o/p
End-if
Else
Error out not exist in VSAM
End-if

The Results are coming as expected. But I am not sure if its the best/only approach to be followed.

Thank you!

Bill Woodger · Posted: Tue Mar 20, 2012 7:33 pm

How about next time forget the colours, and use the Code tags. please?

Elixir · Posted: Tue Mar 20, 2012 7:40 pm

what code tags bill?

dbzTHEdinosauer · Posted: Tue Mar 20, 2012 7:48 pm

how to use bbcode, look for CODE

makes your convoluted negative, multi-tier IF easier to read.

Elixir · Posted: Tue Mar 20, 2012 7:48 pm

dbzTHEdinosauer · Posted: Tue Mar 20, 2012 7:50 pm

Elixir,
you were too busy posting code with the quote tag instead of code tag.
look at my previous post.

Elixir · Posted: Tue Mar 20, 2012 8:22 pm

dbzTHEdinosauer

The Posting time of both are 9:18 am (EST) what I see.

Cant avoid those...

Morever

Start File Key > Key Field is the correction I suggest.

dbzTHEdinosauer · Posted: Tue Mar 20, 2012 9:00 pm

the request was that you use bb CODE tags, not QUOTE tags (markup language)
to post your code,
because it is easier to read and understand when the indentation is perserved.

Bill Woodger · Posted: Wed Mar 21, 2012 5:32 am

dbzTHEdinosauer · Posted: Wed Mar 21, 2012 5:40 am

Bill,

you should go thru a few of elixer's previous threads first,
before you start asking him to explain what the hell is going on in this thread.