Leave List-Processing 新解

 

report  ztest_list_processor no standard page heading.
* Data
data: ls_spfli type spfli.
parameters: p_name type char20 default 'ENTRY1'.
initialization.
  clear: ls_spfli.
top-of-page."当有write语句时，top-of-page才会被执行
  write:  ' Carrid', 20 'Connid' ,50 'Cityto'.
at selection-screen output.
  write:/ 'at selection-screen output.'. "在这里输出没用
at selection-screen.
  write:/ 'at selection-screen.'. "在这里输出没用
  if p_name = 'ENTRY1'.
    message 'Pass entry1!' type 'S'.
    set pf-status space. " 设置 Gui_status,很有用
    leave to list-processing. "从Program-processor将control传递给list-processor，马上回到输出界面
  endif.
start-of-selection.
  if p_name = 'ENTRY2'.
    message  'Can not Pass entry2!' type 'S'.
    leave list-processing. "从list-processor将control传递给Program-processor,马上回到initialization事件
  endif.
*---Get and output data
  "如果control 在list-processor,当点返回按钮时，会退出当时屏幕，也就会退出list-processor,control又回到program-processor
  select carrid
         connid
         cityto
    into corresponding fields of ls_spfli
    from spfli.
    write:/ ls_spfli-carrid,
            ls_spfli-connid,
            ls_spfli-cityto.
  endselect.
end-of-selection.
  write:/ 'end-of-selection.'.