Re: check for record changed between read/chain(n) and update

d savmstr e ds extname(hclmmas) prefix(o)
d newmstr e ds extname(hclmmas) prefix(n)
d mstrDS e ds extname(hclmmas)


chain(n) (cmyrin: cmycin) clmmas; // get data for pg
savmstr = mstrDS;


How does this code get the data from the file into the mstrDS data
structure?

I have been able to get the file data into the DS using chain(n) (cmyrin:
cmycin) clmmas mstrDS, but then don't have it in the file fields in the
program.

Chaining twice, once with the DS and once without, gets me data in both the
fields and the DS, but they are not linked. Any changes I make to the data
in the file fields are not reflected in the DS.

How do you get changes to show in the DS?


On 6/5/07, Booth Martin <booth@xxxxxxxxxxxx> wrote:

You'll have trouble I believe if you don't have another data structure.
(least ways, I always have. :) )

d savmstr e ds extname(hclmmas) prefix(o)
d newmstr e ds extname(hclmmas) prefix(n)
d mstrDS e ds extname(hclmmas)

then I brought in the data:

chain(n) (cmyrin: cmycin) clmmas; // get data for pg
savmstr = mstrDS;
.... go to lunch, whatever
.... do stuff to change proposed record values
newmstr = mstrDS / save new values
chain cmyrin: cmycin) clmmas; // get data for pgm
if savmstr <> mstrds // then changed at another workstation
.... tell user changes made, etc.
else
eval mstrDS = newmstrds
update CMYRIN
endif


Gene Burns wrote:
> Thanks, Booth!
>
> I setup 2 data structures to start with:
>
> d savmstr e ds extname(hclmmas) prefix(o)
>
> d mstrDS ds likerec(clmmas)
>
> then I brought in the data:
>
> chain (cmyrin: cmycin) clmmas; // get data for pgm
> // ekb13 begin block
> chain(n) (cmyrin: cmycin) clmmas mstrDS; // load DS
> unlock hclmmas; // release lock
> savmstr = mstrDS;
> // ekb13 end block
>
> So now I have the data saved in a data structure, still have the fields
> available (no rewrite), and no lock on the file.
>
> Thanks everyone!
>
--
---------------------------------
Booth Martin
http://www.Martinvt.com
---------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.