CANIAS[TROIA] INSERT /UPDATE 로직

트랜잭션 선언은 필수

OBJECT: 
 INTEGER INDBTRAN;

INDBTRAN = SYS_INDBTRANSACTION;

IF !INDBTRAN THEN
BEGINTRAN;
ENDIF;

LOOP AT TEMPTABLE
BEGIN
MOVE-CORRESPONDING TEMPTABLE TO TEMPTABLE1;

INSERT INTO TEMPTABLE1;

IF SYS_STATUS THEN

IF !INDBTRAN THEN
   ROLLBACKTRAN;
   ENDIF;
ENDIF;

UPDATE TEMPTABLE
   SET BY = SYS_USER
      , DAT = SYS_CURRENTDATE 
 WHERE AAAA = SYS_CLIENT 
   AND BBBB = LCOM  ;


IF SYS_STATUS THEN
IF !INDBTRAN THEN
ROLLBACKTRAN;
ENDIF;

ENDIF;
ENDLOOP;

IF !INDBTRAN THEN
COMMITTRAN;
ENDIF;