MVSFORUMS.com

[avid_lrner]

Hey there,

Have a small situation.

Following is an example of records in my file.

rec001
rec002
rec003
cnt001
cnt002


IF <some condition>
insert a new record rec004 just after rec003
else
write records as they are into the output file.
END-IF.

Currently, the condition is getting satisfied and rec004 is getting inserted just after rec003....but, am losing the values of cnt001...

Current output:

rec001
rec002
rec003
rec004
cnt002

This is happening because, am inserting rec004, after reading cnt001...so, am losing the values of cnt001.

Any help would be appreciated.

thanks,
avid_lrner.

[rony&ruby]

Hi, avid_Irner:

What kind of your file? Only sequential?
Maybe you can change your file type in to KSDS, and read , insrt.

If you were insisted to carter for QSAM, I thought the only thing you can do is to maintain the sequenced records, as linked-table.

Wish help!
_________________
Ron Yang