날씨가 무덥습니다.
다름이 아니라
Native SQL로 Update문을 처리하고 있습니다.
인터널 테이블을 돌아 레거시 시스템에 업데이트를 하려고 합니다.
근데 일부 데이터가 업데이트가 되지 않고있습니다.
물론 쿼리의 이상은 아니구요...
LOOP AT GT_DATA
TRY.
EXEC SQL.
UPDATE PEACE2.Z15MEST029
SET ZSAPIFC = 'Y',
ZREEORM = :R_CODE
WHERE WADAT_IST = :IT_UPDATA-VDATU
AND ZMESNO = :IT_UPDATA-BSTKD
ENDEXEC.
CATCH CX_SY_NATIVE_SQL_ERROR INTO LCX_ERROR.
L_MESSAGE = LCX_ERROR->GET_TEXT( ).
SQLCODE = LCX_ERROR->SQLCODE.
ENDTRY.
ENDLOOP.
이때 위의 문장 처럼 예외 처리만 했을뿐 COMMIT,ROLLBACK처리는 못했습니다.
묵시적으로는 COMMIT을 하는것 같은데..
제가 정확한 시점에 COMMIT 명령을 내리고 싶습니다.
어떻게 하면 되죠?