REPORT  Z05_028 .

DATA : wa LIKE sflight,

             g_flg TYPE c.

PERFORM insert.

PERFORM update ON COMMIT.

IF g_flg EQ 'X'.

             COMMIT WORK.

ENDIF.

FORM insert.

             wa-carrid = 'KO'.

             wa-connid = '01'.

             INSERT sflight

             FROM wa.

             IF SY-SUBRC EQ 0.

                           g_flg = 'X'.

             ENDIF.

ENDFORM.

FORM update .

             UPDATE sflight

             SET connid = '02'

             WHERE carrid = 'KO'

             AND connid = '01'.