help with locking using mssql

[Robert Edis]

G'day Viet

Try using a T-SQL stored procedure for the update or at least in-line SQL.
The "UPDATE tablename SET ..." in SQL Server will lock the table for
update.

Blue






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