Need to COMMIT explicitly, otherwise.....

最新推荐文章于 2024-09-25 14:30:16 发布

「已注销」

最新推荐文章于 2024-09-25 14:30:16 发布

阅读量985

点赞数

文章标签： insert sql

本文链接：https://blog.csdn.net/toughhou/article/details/6705319

版权

D110-INSERT-CUST-TRAN.
    PERFORM E100-SET-NULLS-LENGTHS.
    EXEC SQL
      INSERT INTO TOUGH.TVARCUST
         ( CUSTNO,FNAME,LNAME,CITY,STATE,
           ZIPCODE,HOMEPH,WORKPH,NOTES)
      VALUES
         ( :DT003-CUSTNO,
           :DT003-FNAME,
           :DT003-LNAME,
           :DT003-CITY,
           :DT003-STATE,
           :DT003-ZIPCODE,
           :DT003-HOMEPH:IND-HOMEPH,
           :DT003-WORKPH:IND-WORKPH,
           :DT003-NOTES:IND-NOTES)
    END-EXEC.
    IF SQLCODE NOT = 0
       MOVE 'N' TO VALID-TRAN-SW
       IF SQLCODE < 0
          MOVE 'N' TO VALID-TRAN-SW
          MOVE SQLCODE            TO PEM-SQLCODE
          MOVE 'TOUGH.TVARCUST'   TO PEM-TABLE
          MOVE 'D110-INSERT-CUST-TRAN' TO PEM-PARAGRAPH
          MOVE DT003-CUSTNO TO PEM-KEY
          PERFORM D990-SQL-ERROR-ROUTINE
       END-IF
    ELSE
       PERFORM D140-COMMIT
    END-IF.

The sql update cann't commit automatically. why?

Answer:
It will commit after it process all the record in the file.
There are 10 records there, 7 processed successfully, 3 failed.
If we didn't commit explicitly, the 7 successfully updated records wouldn't be updated to DB.