DATA WA TYPE SFLIGHT .
WA -CARRID = 'AA' .
WA -CONNID = '0017' .
PERFORM SAVE1 ON COMMIT .
WA -CARRID = 'AA' .
WA -CONNID = '0064' .
PERFORM SAVE2 ON COMMIT .
COMMIT WORK AND WAIT.
这时SAVE1 和SAVE2遇到COMMIT WORK AND WAIT. 时才执行。
所以
WA-CARRID = 'AA'.
WA-CONNID = '0017'.
是无效的,被后面的
WA-CARRID = 'AA'.
WA-CONNID = '0064'.
替代。