parameters show_all as checkbox default 'X' user-command flag."定义功能码让界面立即刷新selection-screen begin of block b1 with frame title text-001 . parameters: p1 type c length 10, p2 type c length 10, p3 type c length 10.selection-screen end of block b1.selection-screen begin of block b2 with frame title text-002. parameters: p4 type c length 10 modif id bl2, p5 type c length 10 modif id bl2, p6 type c length 10 modif id bl2.selection-screen end of block b2.at selection-screen output."该事件触发于屏幕刷新之前 loop at screen. IF show_all <> 'X' and screen-group1 = 'BL2'. screen-active = '0'. ENDIF. modify screen. endloop.
