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

[Booth Martin <booth@xxxxxxxxxxxx>]

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!
>