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

["Gene Burns" <burns.gene@xxxxxxxxx>]

This will not compile on V5R2.

I get the Severity 30 error Name CLCMYR in external  description HCLMMAS is
not renamed; external name is ignored.



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.