屏幕流:
OUTPUT.
MODULE tal1_change_tc_attr.
LOOP AT sp1 WITH CONTROL tab_crl CURSOR tab_crl-current_line.

ENDLOOP.
MODULE status_0100.


PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP AT sp1.
CHAIN.
FIELD sp1-carrid.
FIELD sp1-connid.
FIELD sp1-countryfr.
MODULE tal1_modify ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.
MODULE cancel AT EXIT-COMMAND.
MODULE user_command_0100.

主程序: