ABAP格式

声明：

 data: begin of it_item occurs 0,

          end of it_item.

 data it_item1 like it_item  occurs 0  with header line.

 data it_header like table of zit_header with header line.

 data: begin of istp2 occurs 0,
        num1  like stpox-stufe,
        num2  like stpox-stufe.
        include structure  stpov.      "BOM 項目（展開以顯示用途清單）
data: end   of istp2.

data it_tab_header like zsi_header value is initial.

选择屏幕：

   selection-screen begin of block b1 with frame title text-002.
   parameter:  p_bukrs like bkpf-bukrs obligatory default  '2000'.    "紙本輸出
   select-options: s_budat for bkpf-budat obligatory.
   parameter: p_file like rlgrap-filename default 'C:\Test.TXT'. "檔案預設下載路徑
   selection-screen end of block b1.

提示错误信息：

     if sy-subrc <> 0.
        message s001  with '无数据!' display like 'E'.
     exit.
     endif.