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.