关于4GL中使用事务方法

lsdaniel

各位：你们好！

       我希望在4GL中使用事务，麻烦给个样例，谢谢！

        在手册中有关描述，但没有例子，多次测试也没能搞掂。

DEFAULT-COMMIT Attribute
(AppServer only)
Indicates how an open transaction under the control of a transaction initiating procedure is to
complete if the procedure is deleted in the absence of any SET-COMMIT( ) method or
SET-ROLLBACK( ) method.
Data Type:
LOGICAL
Access:
Readable/Writeable
Applies To:
Transaction Object Handle
Setting the DEFAULT-COMMIT attribute to TRUE ensures that the transaction is completed.
Setting it to FALSE ensures that the transaction is rolled back. The default value is FALSE.
NOTE:
One common event that can terminate an open transaction is deleting the transaction
initiating procedure that created the transaction.

SET-COMMIT( ) Method
(AppServer only)
Tells the transaction object to commit the transaction when the AppServer session completes
the current request and returns execution to the client.
Return Type:
LOGICAL
Applies To:
Transaction Object Handle


SET-COMMIT ( )
If the operation is successful, the method returns TRUE. If a transaction initiating procedure is
not active in the current AppServer session, this method returns FALSE. You also
cannot
invoke this method after prior invocation of a SET-ROLLBACK( ) method during service of
the same client request.

adminelvis

    edit-loop:
    do on endkey undo , leave
           ON ERROR UNDO,LEAVE:

        create code_mstr  .
                    code_domain = "a" .
                    code_fldname = "a" .
                    code_value = "c" .

               if hasError then do :
                       undo edit-loop,leave.  /* undo edit-loop,retry edit-loop ----leave 还是 retry 看程序逻辑需求*/
               end.
                  
    end.

pureblue2008

nice job 123456