Need to COMMIT explicitly, otherwise.....

 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.