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

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.