help with locking using mssql

[Viet Nguyen]

Hi , Could someone give me some help to convert the following quick
procedure to the relational model using powerhouse and mssql. I need to
convert the lock / unlock statements.

Thank you.

 

procedure internal xupdate

   begin

      if timetype_post of peabsence <> " "

         then begin

 

                lock pycheckdock, ctaccr, peabsence, peaccr, peaccrtran

                do xupdate-accr

              end

         else  lock pycheckdock, peabsence

 

      let timeqty_dock of peabsence =   &

        timeqty_dock of peabsence + xdock_qty

      let docked of peabsence = "Y"

      put peabsence

      let ssnumr of pycheckdock = ssnumr of peabsence

      put pycheckdock  reset

      unlock all

   end

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20060123/0cff429c/attachment.html