屏幕流:
PROCESS BEFORE 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.
主程序: