總覽：如何使用這座圖書館

這是把 Dropbox\09_SAP_AB_ABAP編程 多年累積的教材，整理成可以隨時查閱的 ABAP 線上圖書館。所有程式碼都已改寫為 SAP S/4HANA 1809 以後可直接使用的現代 ABAP 寫法（內嵌宣告、@ 逸出主機變數、建構式運算、CL_SALV_TABLE、class-based exception）。

1. 四部曲學習路線

2. 這份文件的體例

• SE38 這樣的標記代表交易碼，可直接在 SAP 命令列輸入。
• 藍底方塊是補充說明、綠底方塊是實務技巧或老師口訣、紅底方塊是 S/4HANA 注意事項或常見錯誤，紅色的請務必看。
• （依講義步驟整理） 代表原講義該處只有截圖，內文是依 SAP 標準流程補寫成可操作的文字步驟。
• 每章最後都有「練習與自我檢核」，題目沿用原教材編號，方便對照舊講義。

3. 開發前的三個提醒

4. 最常用的交易碼

5. 最常用的資料表（S/4HANA 版）

6. 這份圖書館還可以怎麼長大

同目錄下的 CLAUDE.md 與 SKILL.md 已定義好擴充規則。之後想加東西時，只要把新資料放進 Dropbox 對應資料夾，然後告訴 Claude「照 SKILL.md 把 XXX 加進 ABAP 圖書館」，就會依同樣的體例、同樣的 S/4HANA 語法基準續寫，章節編號與側欄目錄會自動接上。可以優先補的方向：

1. 09_ABAP二次開發 的 SD / MM / PP / FI / CO / QM 實務案例（ZMMI0001、ZPPB0002 缺料表、DBCO 連 SQL Server 等）。
2. 15_累計心得 的常用日期函數、HR 表、ACDOCA 筆記、透過欄位查表名。
3. L36 的 136 個 ABAP OOP 範例、L31 的 36 套源碼。
4. 原廠 BC 教材（BC400 / BC401 / BC402 / BC405 / BC410 / BC414 / BC425 / BC430 / BC470 / BC490）的重點摘要與對照。
5. CDS View、RAP、ABAP Cloud 這一塊全新的內容，目前教材尚未涵蓋。

第 1-1 章 編寫第一支程式：SE38 / SQL / 內表 / WRITE / Package / Request / STMS

這一章把 ABAP 開發者第一週要會的事一次講完：認得住十個核心 TCODE、在 SE38 建出第一支 Z 開頭的報表、寫出第一句 ABAP SQL、把資料放進內表再輸出、把程式歸進 Package 並掛到傳輸請求，最後沿著 DEV → QAS → PRD 傳出去。學完之後，你能獨立完成「查資料 → 寫程式 → 存檔激活 → 執行 → 傳輸」的完整迴圈，並且知道哪些是講義裡的舊寫法、在 S/4HANA 該怎麼改。

1. 認識十個核心 TCODE（先會查，才會寫）

老師的第一堂課不是教語法，而是要你先「看得懂 SAP 在做什麼」。寫 ABAP 的人如果不會用標準交易查資料，寫出來的程式一定跟業務對不上。下表是講義列出的十個 TCODE，建議背下來當日常工具。

2. 開發環境：SE38、SE80 與 ADT（Eclipse）

ABAP 有三種主要的開發入口，功能有重疊但定位不同：

• SE38（ABAP Editor）：最直接的入口，適合寫可執行報表（Type 1）。初學者從這裡開始。
• SE80（Object Navigator 物件瀏覽器）：以「Package／程式／Function Group／Class／Screen」為樹狀結構管理，可以一次看到一個開發物件底下的所有 Include、畫面、文字元素。建 Function Group、Module Pool、Class 建議走 SE80。
• ADT（ABAP Development Tools for Eclipse）：S/4HANA 時代的正式開發工具。CDS View、AMDP、RAP（Restful ABAP Programming Model）、ABAP Unit 的完整體驗只有 ADT 有，SE80 在 S/4 已被 SAP 標示為「不再增強」。

3. 寫程式的四步驟與命名規則（Z／Y 命名空間）

講義把建立第一支程式拆成四個動作，這四步在 S/4HANA 依然完全一樣：

1. 程式名稱一定要 Z 開頭（或 Y 開頭）。
2. 設定屬性：Title、Type、Status、Application。
3. 指定 Package：練習環境可選 Local Object（$TMP）；正式開發要放進自己的 Package（例如講義用的 Z600_2409_ERP000）。
4. 執行程式：F8，或用 SA38／SE93 建成 TCODE 執行。

命名空間規則：SAP 保留了所有不以 Z／Y 開頭的名稱給標準物件。客戶自建物件只能用 Z* 或 Y*；若公司有向 SAP 申請的專屬命名空間，則是 /ABCDE/ 這種斜線包起來的形式。表格、資料元素、Domain、Class、Function Module 全部適用同一規則。

4. 用 SE16N／SE16H 學寫 SQL

老師的心法：不會寫 SQL 就先去 SE16N 點一遍。SE16N 的選擇畫面本質上就是一句 SELECT，把條件填一填、按執行，你要的 WHERE 條件就成形了。

• SE16N 進入後在指令列輸入 &SAP_EDIT 可開啟編輯模式（正式機嚴禁使用，會繞過所有業務邏輯與變更文件）。
• SE16N 支援「技術欄位名稱／描述」切換、可指定輸出欄位、可設定筆數上限。
• SE16H（HANA 版）更強：可直接做 Group By、Sum、Count、以及多表 JOIN，等於在畫面上做出一份聚合報表，很適合先驗證邏輯再寫成 ABAP。

5. 第一支 SELECT：從講義的舊寫法到 S/4HANA 現代寫法

講義的第一支程式 Z2202_00_01（取出料號為 DXTR1000 的訂單明細）原本是這樣寫的（此處刻意保留作為反例）：

" ===== 反例：講義原始寫法，S/4HANA 請勿再這樣寫 =====
REPORT z2202_00_01.
TABLES: vbap.                          " 宣告了整張表當共用工作區
SELECT * INTO CORRESPONDING FIELDS OF vbap
  FROM vbap
  WHERE matnr = 'DXTR1000'.            " 主機變數沒有 @、寫死常數
  WRITE: / vbap-vbeln, vbap-posnr, vbap-matnr,
           vbap-meins, vbap-kwmeng.
ENDSELECT.                             " 一筆一筆丟回 AP Server，效能最差

改寫成 S/4HANA 1809 之後的現代 ABAP：

REPORT z2202_00_01.

" 第一支 SELECT 的現代寫法：明列欄位 + 內嵌宣告 + 一次抓進內表
SELECT vbeln, posnr, matnr, meins, kwmeng
  FROM vbap
  WHERE matnr = 'DXTR1000'          " 常數不需要 @；只有主機變數才要
  INTO TABLE @DATA(lt_vbap).

IF lt_vbap IS INITIAL.
  MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'W'.
  RETURN.
ENDIF.

LOOP AT lt_vbap ASSIGNING FIELD-SYMBOL(<ls_vbap>).
  WRITE: / <ls_vbap>-vbeln,
           <ls_vbap>-posnr,
           <ls_vbap>-matnr,
           <ls_vbap>-meins,
           <ls_vbap>-kwmeng.
ENDLOOP.

" 開發階段的安全寫法：先限制筆數再放大
SELECT vbeln, posnr, matnr, meins, kwmeng
  FROM vbap
  WHERE matnr = 'DXTR1000'
  ORDER BY vbeln, posnr                 " 沒有 ORDER BY 就沒有順序保證
  INTO TABLE @DATA(lt_vbap)
  UP TO 10 ROWS.

6. 選擇畫面 PARAMETERS 與型態宣告（Search Help 的關鍵）

講義 Z2202_00_02 讓使用者自己輸入料號；Z2202_00_03 則刻意示範「宣告方式不同，會不會有下拉選單（Search Help）」的差別。這是初學者最容易踩的坑。

REPORT z2202_00_02.

" 寫法 A：直接用 DDIC 欄位型態 —— 自動繼承 Search Help、轉換常式、欄位說明
PARAMETERS p_matnr TYPE vbap-matnr.

SELECT vbeln, posnr, matnr, meins, kwmeng
  FROM vbap
  WHERE matnr = @p_matnr               " 主機變數一律加 @
  INTO TABLE @DATA(lt_vbap).

LOOP AT lt_vbap INTO DATA(ls_vbap).
  WRITE: / ls_vbap-vbeln, ls_vbap-posnr, ls_vbap-matnr,
           ls_vbap-meins, ls_vbap-kwmeng.
ENDLOOP.

REPORT z2202_00_03.

" 寫法 B：自訂型態 —— 只有長度、沒有語意，畫面上「沒有下拉選單」
TYPES: ty_matnr(40) TYPE c.
PARAMETERS p_bad TYPE ty_matnr.        " 反例：F4 出不來

" 寫法 C：型態指向 Data Element —— Search Help 會回來
TYPES: ty_matnr_dd TYPE matnr.         " matnr 是 Data Element
PARAMETERS p_ok TYPE ty_matnr_dd.

" 寫法 D：最直接、實務最常用
PARAMETERS p_best TYPE mara-matnr.

7. 工作區與內表：從 TYPES 到 Internal Table

講義 Z2202_00_04 的重點在於建立四層概念：TYPES（型態） → STRUCTURE（結構） → WORK AREA（工作區） → INTERNAL TABLE（內表）。這是所有 ABAP 程式的骨架。

REPORT z2202_00_04.

" ① 定義結構型態（只是藍圖，不佔記憶體）
TYPES: BEGIN OF ty_vbap,
         vbeln  TYPE vbap-vbeln,
         posnr  TYPE vbap-posnr,
         matnr  TYPE vbap-matnr,
         meins  TYPE vbap-meins,
         kwmeng TYPE vbap-kwmeng,
       END OF ty_vbap.

" ② 定義內表型態（表格藍圖）
TYPES: ty_t_vbap TYPE STANDARD TABLE OF ty_vbap WITH EMPTY KEY.

" ③ 真正配置記憶體：工作區（一列）與內表（多列）
DATA: ls_vbap TYPE ty_vbap,           " Work Area = 一列
      lt_vbap TYPE ty_t_vbap.         " Internal Table = 多列

" ④ 建構式寫法：直接生出一列 / 一張表，不必逐欄位搬
ls_vbap = VALUE #( vbeln = '0000000001'
                   posnr = '000010'
                   matnr = 'DXTR1000'
                   meins = 'PC'
                   kwmeng = 10 ).

lt_vbap = VALUE #( ( vbeln = '0000000001' posnr = '000010' matnr = 'DXTR1000' )
                   ( vbeln = '0000000001' posnr = '000020' matnr = 'DXTR2000' ) ).

8. 關鍵案例：用內表取代 ENDSELECT 提升效率

講義 Z2202_00_05 是整章最重要的觀念題：把 SELECT ... ENDSELECT 換成「一次抓進內表 + LOOP」。老師把它拆成十個編號步驟，建議直接背成模板。

REPORT z2202_00_05.

"=== 01 定義結構 =====================================
TYPES: BEGIN OF ty_vbap,
         vbeln  TYPE vbap-vbeln,
         posnr  TYPE vbap-posnr,
         matnr  TYPE vbap-matnr,
         meins  TYPE vbap-meins,
         kwmeng TYPE vbap-kwmeng,
       END OF ty_vbap.

"=== 02 定義內表（工作區改用 LOOP 內嵌宣告，不必另外開）====
DATA lt_vbap TYPE STANDARD TABLE OF ty_vbap WITH EMPTY KEY.

"=== 03 選擇畫面：型態接 DDIC，才有下拉選單 =============
PARAMETERS p_matnr TYPE mara-matnr OBLIGATORY.

"=== 04 一次讀進內表（只跟 DB 往返一次）=================
START-OF-SELECTION.
  SELECT vbeln, posnr, matnr, meins, kwmeng
    FROM vbap
    WHERE matnr = @p_matnr
    ORDER BY vbeln, posnr
    INTO TABLE @lt_vbap.

  IF sy-subrc <> 0.
    MESSAGE |料號 { p_matnr ALPHA = OUT } 查無訂單明細| TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

"=== 05 迴圈輸出 =====================================
  LOOP AT lt_vbap ASSIGNING FIELD-SYMBOL(<ls>).
    WRITE: / <ls>-vbeln, <ls>-posnr, <ls>-matnr,
             <ls>-meins, <ls>-kwmeng.
  ENDLOOP.

  WRITE: / |共 { lines( lt_vbap ) } 筆|.

9. 傳票案例：主子檔 JOIN 與 S/4HANA 的 ACDOCA

講義第 4 節用 FI 傳票示範「怎麼把主檔與子檔關聯起來」。原始寫法是兩支 SELECT ... ENDSELECT 各印各的，再進化成一句 JOIN。以下是現代化改寫。

REPORT z20211109_ncu.

" 舊 ECC 觀念：BKPF（表頭）與 BSEG（行項目）用 BUKRS + BELNR + GJAHR 關聯
PARAMETERS: p_gjahr TYPE bkpf-gjahr DEFAULT '2021',
            p_budat TYPE bkpf-budat DEFAULT '20211109'.

START-OF-SELECTION.
  SELECT h~gjahr, h~budat, h~cputm, h~usnam, h~belnr,
         h~tcode, h~blart,
         d~buzei, d~koart, d~valut, d~prctr, d~dmbtr,
         d~shkzg, d~pargb, d~bschl, d~kokrs, d~kostl,
         d~menge, d~werks
    FROM bkpf AS h
    INNER JOIN bseg AS d
      ON  h~bukrs = d~bukrs        " 三個鍵都要接，少一個就是笛卡兒乘積
      AND h~belnr = d~belnr
      AND h~gjahr = d~gjahr
    WHERE h~gjahr = @p_gjahr
      AND h~budat = @p_budat
    ORDER BY h~usnam, h~belnr, d~buzei
    INTO TABLE @DATA(lt_accts).

  LOOP AT lt_accts ASSIGNING FIELD-SYMBOL(<ls>).
    WRITE: / <ls>-gjahr, <ls>-budat, <ls>-cputm, <ls>-usnam,
             <ls>-belnr, <ls>-buzei, <ls>-tcode, <ls>-blart,
             <ls>-bschl, <ls>-dmbtr, <ls>-werks.
  ENDLOOP.

" S/4HANA 建議寫法：直接讀 ACDOCA（Universal Journal）
SELECT rbukrs, gjahr, belnr, docln, budat, bldat, blart,
       racct, rcntr, prctr, segment,
       hsl, wsl, ksl, waers, drcrk, usnam
  FROM acdoca
  WHERE rldnr  = '0L'                 " 0L = Leading Ledger，一定要帶
    AND rbukrs = @p_bukrs
    AND gjahr  = @p_gjahr
    AND budat  = @p_budat
  ORDER BY rbukrs, gjahr, belnr, docln
  INTO TABLE @DATA(lt_acdoca).

10. ACDOCA 與 MATDOC 重要欄位、SE37 建立 Function Group

講義第 5 節把 ACDOCA 的關鍵欄位整理成一張速查表，這是 S/4HANA FI/CO 開發的必備字典。

SE37 / SE80 建立 Function Group 與 Function Module：

• Function Group（程式類型 F）是 Function Module 的容器，一個 FG 底下可以有很多 FM，共用 FG 的全域資料。
• 建立步驟：SE80 → 選 Function Group → 輸入名稱（例如講義的 Z600_ERP300）→ 存檔並指定 Package → 激活。
• 講義特別提醒（20250320）：激活時要把 Include 程式（LZxxxTOP、LZxxxUXX）一併勾選激活，否則會失敗。這是新手最常卡住的地方。
• SE11 產生表格維護畫面（Table Maintenance Generator）時也需要指定一個 Function Group，所以建議先把自己的 FG 建好。

" Function Module 的現代呼叫方式：例外用 class-based 或至少檢查 sy-subrc
DATA(lv_matnr_in) = CONV matnr( '000000000000001234' ).

CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input  = lv_matnr_in
  IMPORTING
    output = DATA(lv_matnr_out).

" 更現代的等價寫法：字串範本的 ALPHA 選項，不必呼叫 FM
DATA(lv_disp) = |{ lv_matnr_in ALPHA = OUT }|.

11. WRITE 清單輸出：格式、TOP-OF-PAGE、HIDE，以及 S/4 時代的定位

WRITE 是 ABAP 最古老的輸出方式，產生的是「Classical List（傳統清單）」。講義第 8 節用它示範了對齊、畫表格線、雙擊鑽取等技巧。

REPORT zdemo_write.

" ① 對齊：WRITE 後面的數字是「起始欄位（column）」
SELECT matnr, mtart FROM mara
  WHERE matnr BETWEEN 'P-100' AND 'P-200'
  ORDER BY matnr
  INTO TABLE @DATA(lt_mara)
  UP TO 10 ROWS.

TOP-OF-PAGE.
  " 每一頁的表頭：TEXT-001 等文字元素在 SE38 → 移至 → 文字元素 維護
  WRITE: /0 TEXT-001, 16 sy-vline,
          20 TEXT-002, 28 sy-vline,
          30 TEXT-003, 50 sy-vline.
  ULINE.

START-OF-SELECTION.
  LOOP AT lt_mara ASSIGNING FIELD-SYMBOL(<ls>).
    WRITE: /0  <ls>-matnr, 16 sy-vline,
            20 <ls>-mtart, 28 sy-vline,
            30 space,      50 sy-vline.
    ULINE.
  ENDLOOP.

  ULINE.
  WRITE: / |共 { lines( lt_mara ) } 筆|, 50 TEXT-001, sy-uname.

HIDE 與 AT LINE-SELECTION：雙擊鑽取（Drill-down）——講義 08-6 示範顯示銷售訂單，雙擊某一行就顯示該料號的描述。

REPORT zdemo_hide.

DATA gt_makt TYPE SORTED TABLE OF makt WITH UNIQUE KEY matnr spras.
DATA gv_matnr TYPE vbap-matnr.

START-OF-SELECTION.
  SELECT vbeln, posnr, matnr FROM vbap
    WHERE matnr LIKE 'P-%'
    ORDER BY vbeln, posnr
    INTO TABLE @DATA(lt_vbap).

  SELECT matnr, spras, maktx FROM makt
    WHERE matnr LIKE 'P-%' AND spras = @sy-langu
    INTO CORRESPONDING FIELDS OF TABLE @gt_makt.

  LOOP AT lt_vbap ASSIGNING FIELD-SYMBOL(<ls>).
    gv_matnr = <ls>-matnr.
    WRITE: /10 <ls>-vbeln, 20 <ls>-posnr, 30 <ls>-matnr.
    HIDE gv_matnr.          " 把本行的料號藏進系統暫存區
  ENDLOOP.
  CLEAR gv_matnr.

AT LINE-SELECTION.
  " 雙擊時，系統自動把該行 HIDE 起來的值還原到 gv_matnr
  IF line_exists( gt_makt[ matnr = gv_matnr spras = sy-langu ] ).
    DATA(ls_makt) = gt_makt[ matnr = gv_matnr spras = sy-langu ].
    WRITE: / ls_makt-matnr, ls_makt-maktx.
  ELSE.
    MESSAGE |料號 { gv_matnr } 無描述| TYPE 'S'.
  ENDIF.

" 同一份資料，改用 ALV 只要三行 —— 這才是 S/4HANA 該交出去的東西
TRY.
    cl_salv_table=>factory(
      IMPORTING r_salv_table = DATA(lo_alv)
      CHANGING  t_table      = lt_vbap ).

    lo_alv->get_functions( )->set_all( abap_true ).   " 開啟工具列全部功能
    lo_alv->get_columns( )->set_optimize( abap_true ).
    lo_alv->get_display_settings( )->set_list_header( '銷售訂單明細' ).
    lo_alv->display( ).

  CATCH cx_salv_msg INTO DATA(lx_salv).
    MESSAGE lx_salv->get_text( ) TYPE 'E'.
ENDTRY.

12. JOIN 的差異、多語系 T002 與同名不同義的欄位

講義 08-2 用一支程式同時跑 INNER JOIN 與 LEFT JOIN，讓學生自己數筆數，體會兩者差別。老師的註解只有一句：「沒事別用 LEFT JOIN」。

REPORT zdemo_join.

" ① INNER JOIN：兩邊都要有才出現。MAKT 沒有 E 語系的料號會消失
SELECT a~matnr, a~mtart, t~maktx
  FROM mara AS a
  INNER JOIN makt AS t ON a~matnr = t~matnr
  WHERE a~matnr BETWEEN 'P-100' AND 'P-200'
    AND t~spras = 'E'
  ORDER BY a~matnr
  INTO TABLE @DATA(lt_inner).

WRITE: / |INNER JOIN 筆數：{ lines( lt_inner ) }|.

" ② LEFT OUTER JOIN：MARA 全留，找不到描述的 MAKTX 為空
"    注意 SPRAS 條件必須寫在 ON 裡面，寫在 WHERE 會把 LEFT 打回 INNER
SELECT a~matnr, a~mtart, t~maktx
  FROM mara AS a
  LEFT OUTER JOIN makt AS t
    ON  a~matnr = t~matnr
    AND t~spras = 'E'
  WHERE a~matnr BETWEEN 'P-100' AND 'P-200'
  ORDER BY a~matnr
  INTO TABLE @DATA(lt_left).

WRITE: / |LEFT JOIN 筆數：{ lines( lt_left ) }|.

LOOP AT lt_left ASSIGNING FIELD-SYMBOL(<ls>).
  WRITE: / <ls>-matnr, <ls>-mtart, <ls>-maktx.
ENDLOOP.

語系 T002：SAP 用單碼語言鍵（SPRAS）。講義列出的常用對照：

" 語系轉換：單碼 <-> ISO 雙碼
DATA lv_iso  TYPE laiso.
DATA lv_lang TYPE sy-langu.

" 單碼 -> ISO
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING input  = sy-langu
  IMPORTING output = lv_iso.

" ISO -> 單碼
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
  EXPORTING input  = 'ZF'
  IMPORTING output = lv_lang.

" 最佳實務：不要寫死 'E'，用 sy-langu，並在查不到時 fallback 到英文
SELECT SINGLE maktx FROM makt
  WHERE matnr = @lv_matnr AND spras = @sy-langu
  INTO @DATA(lv_maktx).
IF sy-subrc <> 0.
  SELECT SINGLE maktx FROM makt
    WHERE matnr = @lv_matnr AND spras = 'E'
    INTO @lv_maktx.
ENDIF.

同名不同義的欄位（講義 08-3）：這是 SD 模組最容易搞混的地方。

13. RANGES／SELECT-OPTIONS：區間與列舉

講義 08-8 標註「有點難，可半年後再學」，但它是 ABAP 選擇條件的底層原理，早懂早受益。

REPORT zrange.

" 現代寫法：用 RANGE OF 型態（不要再用 RANGES: 敘述，它會產生帶表頭列的舊物件）
DATA lt_carrid TYPE RANGE OF spfli-carrid.

" ① 區間（BT）：low 到 high 之間
lt_carrid = VALUE #( ( sign = 'I' option = 'BT' low = 'AA' high = 'HH' ) ).

" ② 列舉（EQ）：逐一列出，最精準
lt_carrid = VALUE #( sign = 'I' option = 'EQ'
                     ( low = 'AA' )
                     ( low = 'LH' )
                     ( low = 'UA' ) ).

SELECT carrid, connid, cityfrom, cityto
  FROM spfli
  WHERE carrid IN @lt_carrid          " IN 一律搭配 @
  ORDER BY carrid, connid
  INTO TABLE @DATA(lt_spfli).

LOOP AT lt_spfli ASSIGNING FIELD-SYMBOL(<ls>).
  WRITE: / <ls>-carrid, <ls>-connid, <ls>-cityfrom, <ls>-cityto.
ENDLOOP.

RANGE 表固定有四個欄位：

" 實務標準骨架：SELECT-OPTIONS 直接餵進 WHERE ... IN
TABLES mara.   " 注意：SELECT-OPTIONS 的 FOR 需要一個宣告過的欄位；
               " 現代寫法可改為先 TYPES 再用 RANGE，或維持此處最小範圍的宣告

SELECT-OPTIONS: s_matnr FOR mara-matnr,
                s_mtart FOR mara-mtart.
PARAMETERS:     p_max   TYPE i DEFAULT 100.

START-OF-SELECTION.
  SELECT matnr, mtart, meins
    FROM mara
    WHERE matnr IN @s_matnr
      AND mtart IN @s_mtart
    ORDER BY matnr
    INTO TABLE @DATA(lt_out)
    UP TO @p_max ROWS.

14. Package、SE21、SE80 與程式類型

Package（舊稱 Development Class 開發類）是 ABAP 所有開發物件的歸屬單位。講義的定義：

• 儲存 SAP 系統開發過程中的所有相關物件（程式、表結構定義、資料類型等），方便管理與查詢。
• 透過 Package 可以方便地把它所包含的物件批量傳輸到不同伺服器。傳輸是透過請求號（Request）進行，請求號是一份文件，記錄所有物件的修改記錄。
• 不屬於任何開發類的物件，可分配給本地開發類 $TMP；該類中的物件不能進行系統間傳輸，主要用於測試。

建立步驟（SE21 或 SE80）（依講義步驟整理）：

1. 執行 SE21（Package Builder），或 SE80 → 下拉選 Package。
2. 輸入 Package 名稱（必須 Z／Y 開頭，例如講義的 Z600_2409_ERP000），按 Create。
3. 填入 Short Description、Software Component（客戶物件選 HOME）、Transport Layer（選系統的標準傳輸層，例如 ZDEV 或 SAP；此欄決定物件會被傳到哪條傳輸路徑）。
4. Package Type 一般選 Not a Main Package（不是主套件）。
5. 存檔 → 系統要求指定 Workbench Request → 建立或選一個既有的請求號 → 完成。

SE80 物件瀏覽器：同一個 Package 底下可組織多個物件——程式、Function Group、Class、Table、Screen、Transaction、Message Class 全都掛在樹上。開發時把 SE80 開著，比反覆切 SE38／SE11／SE37 快得多。

程式類型（Program Type，可由 TRDIR 資料表查詢）：

" 用程式查自己 Package 底下有哪些物件（TADIR = 開發物件目錄）
PARAMETERS p_devc TYPE tadir-devclass DEFAULT 'Z600_2409_ERP000'.

SELECT pgmid, object, obj_name, author, srcsystem
  FROM tadir
  WHERE devclass = @p_devc
  ORDER BY object, obj_name
  INTO TABLE @DATA(lt_tadir).

LOOP AT lt_tadir ASSIGNING FIELD-SYMBOL(<ls>).
  WRITE: / <ls>-pgmid, <ls>-object, <ls>-obj_name, <ls>-author.
ENDLOOP.

" 查程式類型（TRDIR-SUBC：1=可執行 M=Module Pool F=FuncGroup I=Include K=Class）
SELECT name, subc, cnam, unam, udat
  FROM trdir
  WHERE name LIKE 'Z%'
  ORDER BY name
  INTO TABLE @DATA(lt_trdir)
  UP TO 100 ROWS.

15. 傳輸請求 SE09／SE10 與 STMS 傳輸路徑

ABAP 的每一次修改都會被記錄在傳輸請求（Transport Request，TR）裡。這是 SAP 變更管理的核心。

兩種請求：

• Workbench Request（工作台請求）：跨 Client 的開發物件——程式、Table、Class、Function、Screen。編號形式 DEVK900123。
• Customizing Request（客製化請求）：Client 相關的設定資料（SPRO 的配置）。編號形式 DEVK900124。

請求的結構：一個 Request（主請求）底下掛數個 Task（任務），每位開發者一個 Task，物件實際登記在 Task 上。

請求狀態（講義原文）：Modifiable＝可修改（還在開發中，物件被鎖住）；Released＝已釋放（已寫出檔案，可以被匯入下一個系統，內容不能再改）。

釋放與傳輸的完整流程（依講義步驟整理）：

1. 開發完成 → SE09 找到自己的 Request。
2. 先釋放 Task（子項）：選中 Task → 按卡車圖示（Release Directly）。
3. 再釋放 Request（主項）：同樣按卡車圖示。此時系統會做語法／一致性檢查，並把物件寫成傳輸檔案（cofiles + data files）。
4. STMS → Import Overview → 進入 QAS 的 Import Queue → 找到剛才的請求號 → Import Request。
5. 在 QAS 測試通過後，再從 STMS 的 PRD 佇列匯入。

STMS 的觀念（講義 10-5）：標準三層架構是 DEV → QAS → PRD，「有時不只這三區」。常見的變化包括：

" 查某個物件被登記在哪些傳輸請求裡（E071 = 傳輸請求物件明細）
PARAMETERS p_obj TYPE e071-obj_name DEFAULT 'Z2202_00_05'.

SELECT e071~trkorr, e071~pgmid, e071~object, e071~obj_name,
       e070~trstatus, e070~as4user, e070~as4date, e07t~as4text
  FROM e071
  INNER JOIN e070 ON e070~trkorr = e071~trkorr
  LEFT OUTER JOIN e07t ON  e07t~trkorr = e071~trkorr
                       AND e07t~langu  = @sy-langu
  WHERE e071~obj_name = @p_obj
  ORDER BY e070~as4date DESCENDING
  INTO TABLE @DATA(lt_tr).

LOOP AT lt_tr ASSIGNING FIELD-SYMBOL(<ls>).
  " TRSTATUS: D=Modifiable L=Modifiable(protected) R=Released O=Release started
  WRITE: / <ls>-trkorr, <ls>-trstatus, <ls>-as4user, <ls>-as4date, <ls>-as4text.
ENDLOOP.

16. 自建資料表練習（SE11／SE14／SM30）

講義第 9 節要每位學員建立四張自己的表，作為整個課程的練習資料庫。命名規則：Z_學號_表名（學號用二位數字），例如 Z2202_00_KNA1。

建表的關鍵設定（老師特別強調的坑）：

• Delivery and Maintenance 頁籤，Data Browser/Table View Maint. 必須選 「X — Display/Maintenance Allowed」，否則 SE16N／SM30 都進不去。
• 技術設定（Technical Settings）必修：Data Class（一般主檔選 APPL0，交易資料選 APPL1）、Size Category。沒設定就無法激活。
• 表必須先激活，才能執行 Utilities → Table Maintenance Generator（產生維護畫面）。
• Table Maintenance Generator 需要指定一個 Function Group——所以要先在 SE80／SE37 把自己的 FG 建好。
• Recording Routine 要勾「no, or user, recording routine」，這樣在 SM30 編輯資料時才不會每次都要求輸入 Change Request 號碼。
• 一旦產生了維護畫面（Maintenance Screen Number），SE16N 就變成只能瀏覽不能維護，資料只能在 SM30 維護。
• Primary Key 一旦建立很難修改，設計時務必想清楚。事後要調整可研究 SE14（Database Utility，可做 Activate and Adjust Database，注意會有資料轉換風險）。

17. 編輯器熱鍵、Pretty Printer、SE93／SA38 與其他工具

ABAP Editor 熱鍵（講義 08-1；若失效通常是被中文輸入法攔截）：

其他必知工具：

• Pretty Printer（Shift+F1）：自動縮排、統一大小寫。在 SE38 右下角的 Options 圖示裡可設定風格（關鍵字大寫／小寫、縮排寬度）——老師建議勿動預設值，團隊風格一致比較重要。
• SA38：直接輸入程式名稱執行，不進編輯器。
• SE93：把程式編譯成 TCODE。老師提醒：「其實很多時候，在學模組運用時，PROGRAM 就可以了」——不必急著建 TCODE。
  建立步驟：SE93 → 輸入 Z 開頭的 TCODE 名稱 → Create → 選 Program and selection screen (report transaction) → 填程式名稱 → 存檔並指定 Package／Request。
• SU53：權限不足時的第一招。跳出 "No authorization" 之後立刻執行 SU53，會顯示最後一次失敗的權限檢查物件與欄位值，截圖給 Basis 就能開權限。
• SCI（Code Inspector）：靜態程式碼檢查，可檢查命名規則、效能問題、安全性問題。搭配 ATC（ABAP Test Cockpit）是 S/4HANA 的標準做法。
• ABAPDOCU：SAP 內建的 ABAP 語法文件與範例程式庫（對應的範例程式是 DEMO* 開頭）。忘記語法時比 Google 快。
• 個人清單（Favorites）：SAP Easy Access 左側可把常用 TCODE 與程式加進「我的最愛」，還可以放網址與檔案捷徑。
• 搜尋的萬用字元：SAP 各處搜尋一律用 *（多字元）與 +（單一字元）；ABAP SQL 的 LIKE 則是 % 與 _。兩套不要搞混。

TIME ZONE 的觀念（講義 10-10）：

" 時區換算的現代寫法
DATA lv_ts TYPE timestampl.
GET TIME STAMP FIELD lv_ts.                  " 取得 UTC 時間戳記

CONVERT TIME STAMP lv_ts TIME ZONE sy-zonlo
        INTO DATE DATA(lv_date) TIME DATA(lv_time).

WRITE: / |UTC 時戳：{ lv_ts }|,
       / |使用者時區 { sy-zonlo }：{ lv_date DATE = USER } { lv_time TIME = USER }|,
       / |系統日期 SY-DATUM：{ sy-datum DATE = USER }|,
       / |本地日期 SY-DATLO：{ sy-datlo DATE = USER }|.

18. 除錯入門（Debug）

講義以截圖為主，這裡整理成可操作的文字步驟（依講義步驟整理）。

進入 Debugger 的四種方法：

1. 設中斷點：在 SE38 編輯器中，游標停在該行 → 點左側「停止」圖示，或按 Ctrl+Shift+F12。執行到該行就會停。
2. 指令列輸入 /h：在任何畫面的指令列輸入 /h 按 Enter，畫面顯示 "Debugging switched on"，接著按下一個動作就會進入偵錯。這招對標準程式最好用。
3. 程式中寫死：加一行 BREAK-POINT.（所有人都會停，絕不能傳到正式機）或 BREAK <使用者名稱>.（只有指定使用者會停）。
4. SE80／SAT：對背景 Job 用 SM37 → 選 Job → 指令列 JDBG 進入偵錯。

Debugger 的操作鍵：

常用技巧：

• Watchpoint（監看點）：不知道變數在哪裡被改壞時，設 Watchpoint（新 Debugger 的 Break./Watchpoints 頁籤），變數值一變就停。這是抓「金額為什麼變成 0」這類問題的利器。
• 看內表：在 Variables 區輸入內表名稱，雙擊即可展開所有列；可用上方的篩選功能找特定列。
• 改值：在 Debugger 裡雙擊變數值 → 修改 → 按鉛筆／Change 圖示，可以即時改變執行結果，用來模擬各種情境（正式機請小心，這會真的影響過帳結果）。
• Call Stack：看目前的呼叫堆疊，快速找出「是誰呼叫我的」。
• SY-SUBRC 是第一嫌疑犯：每個 SELECT、READ TABLE、CALL FUNCTION 之後都先看 SY-SUBRC，多數 bug 在這裡就抓到了。

" 除錯友善的寫法：把關鍵判斷點寫成明確的訊息，而不是靜默失敗
SELECT SINGLE matnr, mtart, meins
  FROM mara
  WHERE matnr = @p_matnr
  INTO @DATA(ls_mara).

IF sy-subrc <> 0.
  " 不要只 RETURN，留下可追查的訊息
  MESSAGE |MARA 查無料號 { p_matnr ALPHA = OUT }（程式 { sy-repid } 第一段查詢）|
          TYPE 'E'.
ENDIF.

" 開發階段的條件式中斷點：只對自己停，不影響同事
IF sy-uname = 'CASPER'.
  BREAK-POINT.       " 上線前務必移除
ENDIF.

19. 解決企業問題的手段與順序

講義最後一節只有三句話，但它是整套課程的價值觀，也是資深顧問與新手最大的差別：

1. 能配置的就用後台配置（SPRO）解決。
2. 一定要改程式就用增強（Enhancement／BAdI／User Exit）。
3. 非不得已才寫程式。

練習與自我檢核

1. 作業 1-01：找出 FI、CO、SD、MM、PP 五大模組的重大雙檔。
   要點：BKPF/BSEG（S/4→ACDOCA）、COBK/COEP、VBAK/VBAP、EKKO/EKPO、MKPF/MSEG（S/4→MATDOC）、AUFK+AFKO/AFPO。
2. 作業 2-01：用 SE16H 把上題找到的雙檔做成關聯，並試著加上 Group By 與 Sum。
3. 作業 3-01：把 Z2202_00_05 的多餘程式碼刪掉，並讓選擇螢幕的料號能下拉選單。
   要點：刪 TABLES: VBAP.、未使用的 TYPES 與 DATA；PARAMETERS p_matnr TYPE mara-matnr。
4. 作業 4-01：說明 MARA、MARC、MARD、MAKT 的關聯性。
   要點：MATNR → +WERKS → +LGORT 的三層結構，MAKT 是 MATNR+SPRAS 的多語系描述。
5. 作業 5-01：列出你認為最重要的 MATDOC 二十個欄位，並照第 9 節寫成 JOIN 報表程式。
6. 作業 7-01：檢查自己的 SE21，確認 Package 已建立、程式已歸屬、Request 已產生。
7. 作業 8-01：DESCRIBE TABLE 能算出內表筆數，那「通透表（Transparent Table，即資料庫表）」如何計算筆數？
   答案：用 SELECT COUNT(*) FROM mara INTO @DATA(lv_cnt). 或 SELECT COUNT( * ) AS cnt ... INTO ...。切勿把整張表撈進內表再 lines( )，那會把 DB 拖垮。另外 DESCRIBE TABLE it LINES lv_n 現代等價寫法是 lv_n = lines( it )；DESCRIBE TABLE it KIND lv_k 可取回內表種類（S 標準／O 排序／H 雜湊），OCCURS 可取回初始行大小。
8. 作業 8-02：把第 11 節的 ZDEMO 改寫成「由畫面上決定語系」。
   要點：加 PARAMETERS p_spras TYPE sy-langu DEFAULT sy-langu.，WHERE 改成 spras = @p_spras。進階：用 SELECT-OPTIONS 支援多語系並在 ALV 中分欄顯示。
9. 作業 9-01 / 10-01：建立客戶、料號、訂單主檔、訂單明細四張自建表，設定技術設定、產生 Table Maintenance、用 SM30 建資料。
10. 自我檢核：不看講義，能否在 15 分鐘內完成——建 Package（SE21）→ 建程式（SE38）→ 寫出「選擇畫面 + SELECT 進內表 + ALV 輸出」→ 激活 → 執行 → 在 SE09 找到自己的 Request？做得到，這一章就過關了。
11. 觀念題：為什麼在 S/4HANA 上 SELECT * 特別傷？
    要點：HANA 是欄式（Column Store）儲存，只讀需要的欄位成本極低；SELECT * 等於強迫掃描並重組所有欄位（ACDOCA 有 500 欄），且無法使用只掃描部分欄位的最佳化。
12. 觀念題：為什麼老師說「條件用區間跟用列舉，答案會不同，用列舉的才正確」？
    要點：BT 是字串比較、值域可能不連續、前導零／ALPHA 轉換差異。金額彙總類邏輯務必用 EQ 逐一列舉。

第 1-2 章 ABAP 資料字典：資料表 / 視圖 / 結構 / 域 / 資料元素 / 類型組 / 搜尋說明 / 鎖物件

這一章是整個 ABAP 開發的地基。資料字典（ABAP Dictionary，DDIC）是 SAP 全系統唯一的「資料型別中央登記處」：資料表長什麼樣、欄位的合法值有哪些、兩張表怎麼關聯、F4 按下去跳出什麼、多人同時改一筆資料誰先誰後——全部在 SE11 裡決定，而不是在程式裡硬寫。學完這一章，你能自己設計出一組互相關聯的 Z 資料表（客戶／物料／訂單主檔／訂單明細），為它們建 Domain、Data Element、外來鍵、Text Table、四種 View、Search Help 與 Lock Object，並用 SE54 產生維護畫面、掛上 SM30 與自訂 TCODE，最後知道在 S/4HANA 時代哪些做法該改成 CDS View。

1. 資料字典是什麼：六種基本物件

ABAP 資料字典是定義與管理「資料元素」與「資料庫元素」的中心工具。系統所有的全域資料型別、資料表結構都要在字典裡建立與維護；字典保證了資料的完整性、一致性與安全性。老師特別交代：這張表要會默寫，才會記得 DD 的威力有多強大。

四種 View 的差異，是本章最常被考的觀念：

2. 用 SE11 建第一張 Z 資料表（含 Delivery Class 與 Maintenance）

講義的目標很明確：本節做完，要能用 SE16N 維護自己的資料。而且提醒「實作之前，請先學會建立 function group」，因為後面 SE54 產生維護畫面時一定會用到。

SE11 建表的標準步驟：（依講義步驟整理）

1. SE11 → 選 Database table → 輸入 ZERP300_KNA1 → Create。
2. Delivery and Maintenance 頁籤：
   • Delivery Class 選 A（Application table，主資料與交易資料）。老師強調：這個畫面一定要選 A，其他的不要選；C 雖然是客製，但那是 SPRO 的客製。
   • Data Browser/Table View Maint. 選 Display/Maintenance Allowed，否則 SE16N / SM30 進不去、也產不出維護畫面。
3. Fields 頁籤：第一個欄位一律是 MANDT（Data Element MANDT，Domain MANDT，CLNT 3），並勾 Key，代表這是 client-dependent 的表。
4. 逐欄輸入欄位名與 Data Element，勾選主鍵（Key）與 Initial Values。
5. 幣別／數量欄位要設參考欄位：CURR 型別要指定 Reference table + Reference field（幣別欄位 CUKY），QUAN 型別要指定單位欄位（UNIT）。這是講義中「處理數量 QUAN 與金額 CURR 欄位」的重點。
6. Extras → Enhancement Category 設為「Can Be Enhanced (Deep)」，否則激活時會一直跳警告。
7. 按 Technical Settings（技術設定）填 Data Class / Size Category（見第 3 節）。
8. 存檔 → 指定 Package 與 Request → Activate。老師提醒：要 ACTIVE 才可被 SE16N 使用。

講義示範的客戶資料表 ZERP300_KNA1：

建好、激活好之後，先用最單純的方式把資料撈出來驗證。以下是 S/4HANA 的現代寫法：

REPORT zerp300_kna1_list.

" 選擇畫面：以客戶編號區間查詢自建客戶表
SELECT-OPTIONS: s_kunnr FOR zerp300_kna1-kunnr.

START-OF-SELECTION.

  " 一律明列欄位；主機變數用逸出字元 @
  SELECT kunnr,
         name1,
         zwert,
         zmeng,
         zieme
    FROM zerp300_kna1
    WHERE kunnr IN @s_kunnr
    ORDER BY kunnr             " SELECT 沒有 ORDER BY 就沒有排序保證
    INTO TABLE @DATA(lt_kna1).

  IF lt_kna1 IS INITIAL.
    MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory(
        IMPORTING r_salv_table = DATA(lo_alv)
        CHANGING  t_table      = lt_kna1 ).

      lo_alv->get_functions( )->set_all( abap_true ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->display( ).

    CATCH cx_salv_msg INTO DATA(lx_salv).
      MESSAGE lx_salv->get_text( ) TYPE 'E'.
  ENDTRY.

3. 技術設定：Data Class、Size Category、Buffering、Logging

SE11 裡按下「Technical Settings」是很多人跳過、卻在上線後出事的地方。

" 需要保證讀到資料庫最新值時（例如剛做完更新、或表有開 buffering）
SELECT SINGLE kunnr, name1
  FROM zerp300_kna1
  WHERE kunnr = @lv_kunnr
  BYPASSING BUFFER
  INTO @DATA(ls_kna1).

IF sy-subrc <> 0.
  MESSAGE |客戶 { lv_kunnr ALPHA = OUT } 不存在| TYPE 'E'.
ENDIF.

SE14（Database Utility）：當表結構改過（加欄位、改長度、改主鍵）而激活失敗，或狀態顯示「不一致」時的救援工具。

• SE14 → 輸入表名 → Edit → Activate and adjust database：把字典定義同步到實體資料庫（含資料轉換）。
• Delete data → 清空資料重建（會刪資料，正式機不要亂按）。
• Check → 比對字典與資料庫是否一致。
• 改主鍵、縮短欄位長度、改型別，都可能觸發完整的資料轉換（表會被鎖住），大表請排離峰執行。

4. Domain 與 Data Element：把「合法值」寫進字典

SE11 建 Domain 與 Data Element 是為了「一次定義、到處引用」。老師的話：建立資料表時，引用自定 Data Type 並綁定 Domain，可做好資料一致性的管理，這在大型系統上非常重要。

Domain（SE11 → Domain）重點頁籤：

• Definition：Data Type（CHAR／NUMC／DEC／CURR／QUAN／DATS／TIMS／UNIT／CUKY…）、No. Characters、Decimal Places。
• Sign：數值型 Domain 才有；不打勾＝只能輸入正數（講義特別提到這一點）。
• Output Characteristics：Output Length、Conversion Routine（轉換常式）。例如 SPRAS 用 ISOLA 把內部 1 碼語言碼轉成 ISO 2 碼；物料號碼用 MATN1 做前置補零。轉換常式其實是一對 CONVERSION_EXIT_xxxxx_INPUT / _OUTPUT 函數。
• Value Range：可填 Single Values（固定值）、Intervals（區間），或指定 Value Table（值表）。

Data Element（SE11 → Data type → Data element）重點：

• Elementary Type：綁 Domain（建議）或直接給 Predefined Type。
• Field Label：Short／Medium／Long／Heading——這是畫面與 ALV 抬頭的文字來源，一定要填，否則報表抬頭是空白。
• Further Characteristics：Search Help（掛 F4）、Parameter ID（SET/GET PARAMETER 記憶值）、Default Component Name。
• Documentation：使用者在畫面上按 F1 看到的說明。

講義練習 03-3：建立一個幣別欄位的 Data Element，並限定只能填 TCURC 內的內容。作法是 Domain 型別 CUKY 長度 5、Value Table 指定 TCURC，Data Element 引用它，再在表欄位上建立外來鍵到 TCURC。

固定值（Fixed Values）是放在 DD07L／DD07T，可以直接讀出來當下拉清單：

" 讀取某個 Domain 的固定值清單（DD07L 值、DD07T 文字），用來自製下拉或做檢核
DATA(lv_domname) = CONV domname( 'ZDSTATUS' ).

SELECT l~domvalue_l AS value,
       t~ddtext     AS text
  FROM dd07l AS l
  INNER JOIN dd07t AS t
    ON  t~domname    = l~domname
    AND t~valpos     = l~valpos
    AND t~as4local   = l~as4local
    AND t~ddlanguage = @sy-langu
  WHERE l~domname  = @lv_domname
    AND l~as4local = 'A'                  " 只取 Active 版本
  ORDER BY l~valpos
  INTO TABLE @DATA(lt_fixval).

" 用 REDUCE 組出一段可讀的說明字串
DATA(lv_hint) = REDUCE string(
  INIT s = ``
  FOR ls IN lt_fixval
  NEXT s = COND #( WHEN s IS INITIAL
                   THEN |{ ls-value }={ ls-text }|
                   ELSE |{ s } / { ls-value }={ ls-text }| ) ).

cl_demo_output=>display( lv_hint ).

5. 外來鍵（Foreign Key）與 Text Table

定義：兩個表中有一個相同欄位，它在一個表中是主鍵，那麼這個公有欄位就是另一個表的外鍵。以另一個表的外鍵作關鍵字的表稱為主表（Check Table），具有此外鍵的表稱為從表（Foreign Key Table）。作用是保持資料一致性與完整性：外鍵只能引用主表中存在的值，或使用空值。

SE11 建外來鍵的步驟：（依講義步驟整理）

1. Fields 頁籤，游標點在要建外鍵的欄位上（例如 Z2202_00_VBAK-KUNNR）。
2. 按工具列的外來鍵圖示（鑰匙）。
3. 輸入 Check table（例如 Z2202_00_KNA1）；系統會依 Domain 自動建議欄位對應（Check table field ↔ Foreign key field）。
4. 設定 Cardinality（基數）：主表 1 或 C（C＝可為空），從表 1／C／N／CN。客戶 1 → 訂單 N 就是 1:CN。
5. 設定 Foreign key field type（外鍵欄位類型）：
   • Non-key-fields/candidates：外鍵欄位不是主鍵
   • Key fields/candidates：是主鍵欄位或能唯一確定記錄
   • Key fields of a text table：這張表是主表的文本表
6. 可勾 MsgClass/MsgNo 指定檢核失敗時的訊息。

" 上傳／過帳前自行檢核外來鍵：一次撈出所有主表 Key，再用 line_exists 判斷
SELECT kunnr
  FROM zerp300_kna1
  FOR ALL ENTRIES IN @lt_upload
  WHERE kunnr = @lt_upload-kunnr
  INTO TABLE @DATA(lt_valid_kunnr).

" FOR ALL ENTRIES 的空表陷阱：驅動表為空時會撈出「整張表」，務必先擋
IF lt_upload IS INITIAL.
  MESSAGE '無上傳資料' TYPE 'E'.
ENDIF.

" 轉成 HASHED 表，判斷才快
DATA lt_key TYPE HASHED TABLE OF kunnr WITH UNIQUE KEY table_line.
lt_key = VALUE #( FOR ls IN lt_valid_kunnr ( ls-kunnr ) ).

LOOP AT lt_upload ASSIGNING FIELD-SYMBOL(<ls_up>).
  IF NOT line_exists( lt_key[ table_line = <ls_up>-kunnr ] ).
    <ls_up>-msg = |客戶 { <ls_up>-kunnr } 不存在於主檔|.
  ENDIF.
ENDLOOP.

Text Table（文本表）：一張表是另一張表的文本表，條件是——文本表的主鍵＝主表主鍵 ＋ 語言欄位 SPRAS，除了這些欄位以外沒有其他能確定唯一性的欄位；而且要在 SPRAS 欄位上建立外來鍵、外鍵類型選 Key fields of a text table，Check table 填 T002。設定成功後，主表在 SE11 的 Delivery and Maintenance 頁籤就會顯示對應的 Text Table。

經典組合：MARA（物料主檔）↔ MAKT（物料說明）、TCURC（幣別）↔ TCURT（幣別說明）、T001W（工廠）↔ T001W 本身無文本表但有 NAME1。

練習題：知道 MAKT，如何得知對應的 MARA？講義列了四種辦法：

1. SE11 顯示 MAKT，在主鍵欄位 MATNR 上按「外來鍵關係」，就看得到 Check table = MARA。
2. 看 Delivery and Maintenance 頁籤（舊版在 Further characteristics），會標註 Text Table／Master Data Table。
3. 依 SAP 命名習慣猜（主表 + T，如 MARA→MAKT、TCURC→TCURT），但光憑名稱不一定準，最終仍要回 SE11 核對。
4. 用 Data Element／Domain 的 Where-Used List，或直接查字典表 DD03L / DD08L。

" 用程式反查：某張表的所有外來鍵關係（DD08L = 外鍵表頭）
PARAMETERS p_tab TYPE tabname OBLIGATORY DEFAULT 'MAKT'.

START-OF-SELECTION.

  SELECT tabname,            " 從表
         fieldname,          " 外鍵欄位
         checktable,         " 主表（Check Table）
         frkart,             " 外鍵類型（TEXT = 文本表）
         card                " 基數
    FROM dd08l
    WHERE tabname  = @p_tab
      AND as4local = 'A'
    INTO TABLE @DATA(lt_fk).

  " 順便帶出主表的中文說明
  SELECT tabname, ddtext
    FROM dd02t
    FOR ALL ENTRIES IN @lt_fk
    WHERE tabname    = @lt_fk-checktable
      AND ddlanguage = @sy-langu
      AND as4local   = 'A'
    INTO TABLE @DATA(lt_txt).

  cl_demo_output=>display( lt_fk ).

6. 四張 Z 表與 ER Diagram（講義主線練習）

講義要求：以下四個表的關聯性，是學習 ER Diagram 的典型案例，請手繪關聯圖。這四張表也是後面所有 View、Search Help、Lock Object 練習的基礎。

關聯（外來鍵方向：從表 → 主表）：

• ZERP300_VBAK-KUNNR → ZERP300_KNA1（客戶 1 → 訂單 N）
• ZERP300_VBAP-VBELN → ZERP300_VBAK（訂單主檔 1 → 明細 N）
• ZERP300_VBAP-MATNR → ZERP300_MARA（物料 1 → 明細 N，這是講義的練習題）
• ZERP300_VBAK-WAERK / VBAP-WAERK → TCURC（幣別檢核）

講義另一組同構的練習表（2202 班的版本），欄位命名不同但關係一樣，做外來鍵時要注意：外來鍵有限定必須透過 Data Element，所以要先建 ZDKUNNR（Domain）與 ZEKUNNR（Data Element）才能綁到 Z2202_00_KNA1；同理明細表要建 ZDMATNR / ZEMATNR 綁 Z2202_00_MARA。

7. SE54 表格維護產生器、SM30 與自訂 TCODE

光有表還不夠，使用者要能自己維護資料。這就是表格維護產生器（Table Maintenance Generator）的工作。入口有兩個：SE54，或 SE11 顯示該表 → Utilities → Table Maintenance Dialog（或 Table Maintenance Generator）。

產生步驟：（依講義步驟整理）

1. Authorization Group：沒有特別需求填 &NC&。
2. Function Group：填一個已存在且已激活的 Function Group（講義示範 ZFG2202_00_KNA1）。老師提醒：若無適合的 Function Group，可選 Z000，記得要按左上的新增鈕（像 A4 紙）；也可以用 SE37／SE80 先建一個，Function group 一定要激活。
3. Maintenance type：
   • one step：只有一張總覽畫面（Overview），適合欄位少的表
   • two step：總覽 + 單筆明細畫面，欄位多時用
4. Maint. Screen No.：按「Find Scr. Number(s)」讓系統自動配號（例如 0001 / 0002）。
5. 按 Create，系統自動產生 Screen、PBO/PAI 模組與更新程式。
6. 激活。若激活不完整，要用 SE80 打開該 Function Group 全部激活（老師 250501 特別註記過兩次的坑）。

產生後，使用者用 SM30 輸入表名／視圖名就能維護；SM31 是舊版入口；SM34 用來維護 View Cluster（多層設定表串成一個維護樹）。

SM30 也能變 TCODE（講義 02-4）：用 SE93 建立「Transaction with parameters（parameter transaction）」：

1. SE93 → 輸入 ZKNA1M → Create → 選 Transaction with parameters (parameter transaction)。
2. Transaction 填 SM30，勾 Skip initial screen。
3. Default Values 區填：VIEWNAME = ZERP300_KNA1、UPDATE = X（X＝維護模式，空白＝顯示）。
4. 存檔激活，使用者輸入 ZKNA1M 就直接進入維護畫面。

SM30 的 Events（SE54 → Environment → Modification → Events）可以掛自訂邏輯，例如存檔前檢核。以下是事件常式的現代化寫法（放在維護畫面所屬 Function Group 的 Include 中）：

" SE54 Event 21（Fill hidden fields）／01（Before saving the data in the database）
" 在存檔前補上異動人／異動日，並做自訂檢核
FORM zerp300_kna1_before_save.

  DATA: lv_error TYPE abap_bool.

  LOOP AT total ASSIGNING FIELD-SYMBOL(<ls_total>).

    " TOTAL 的前段就是視圖／資料表結構，後面才是維護畫面用的動作旗標
    ASSIGN <ls_total> TO FIELD-SYMBOL(<ls_row>) CASTING TYPE zerp300_kna1.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.

    " 自訂檢核：金額不可為負
    IF <ls_row>-zwert < 0.
      MESSAGE |客戶 { <ls_row>-kunnr } 的金額不可為負| TYPE 'E'.
      lv_error = abap_true.
    ENDIF.

  ENDLOOP.

  IF lv_error = abap_true.
    " sy-subrc 非 0 時，維護畫面會中止存檔
    sy-subrc = 4.
  ENDIF.

ENDFORM.

8. 建立 Database View / Projection View / Maintenance View

Database View（講義 05）：把 Z2202_00_VBAK ＋ Z2202_00_KNA1 建成 ZDV2202_00_VBAK。

1. SE11 → View → Create → 選 Database view。
2. Tables 區輸入兩張表 → 按 Relationships，系統會依既有外來鍵自動帶出 Join 條件（也可自己在 Join Conditions 手打）。
3. View Fields 區按 Table fields 逐一挑欄位。
4. Selection Conditions 可加固定過濾條件（例如 MANDT = 或某狀態碼）。
5. Maintenance Status：多表視圖只能設 read only。
6. 激活後，就可以在 ABAP SQL 直接 SELECT ... FROM ZDV2202_00_VBAK。

練習題：ZDV300_VBAP_MARA（訂單明細 ＋ 物料）、ZDV300_VBAK_KNA1（訂單主檔 ＋ 客戶）。

Maintenance View（講義 06）：建 ZMV_2202_00_VBAK。

• 參與的表必須已有外來鍵，連接條件不能自訂。
• 所有參與表的主鍵都要放進視圖欄位，否則激活會報錯。
• 每個欄位可設 R/O（唯讀）、Key。
• 一定要建立螢幕——也就是要走 SE54 表格維護產生器，否則 SM30 進不去。
• 練習題：ZMV300_VBAP_VBAK。

Projection View：只能一張表，用途是遮罩欄位（例如只讓某群使用者看得到客戶編號與名稱，看不到金額），可維護。

Help View：專供 Search Help 的 Selection Method；參與表必須有外來鍵，語意是 LEFT OUTER JOIN（主表沒有對應文字時仍會出現），這正是「物料 + 物料說明」F4 的標準做法。

" 不建 DB View，直接在 ABAP SQL 做 JOIN（S/4HANA 建議做法之一）
SELECT k~vbeln,
       k~erdat,
       k~kunnr,
       c~name1,
       k~netwr,
       k~waerk
  FROM zerp300_vbak AS k
  INNER JOIN zerp300_kna1 AS c
    ON c~mandt = k~mandt
   AND c~kunnr = k~kunnr
  WHERE k~erdat IN @s_erdat
    AND k~kunnr IN @s_kunnr
  ORDER BY k~vbeln
  INTO TABLE @DATA(lt_order).

" 需要「客戶沒訂單也要出現」時，改 LEFT OUTER JOIN
SELECT c~kunnr,
       c~name1,
       SUM( k~netwr ) AS total_netwr
  FROM zerp300_kna1 AS c
  LEFT OUTER JOIN zerp300_vbak AS k
    ON  k~mandt = c~mandt
    AND k~kunnr = c~kunnr
  GROUP BY c~kunnr, c~name1
  ORDER BY c~kunnr
  INTO TABLE @DATA(lt_sum).

9. Structure、Table Type、Type Group 與 SYST

Structure（講義 07）：SE11 → Data type → Structure。老師的注意事項：

• 一般結構不需要放 MANDT（結構不落地，沒有 client 概念）。
• 命名前三個字不能有底線，所以講義用 ZDV_ 這種寫法（Z + 兩碼 + 底線）。
• 結構可以多層巢狀（欄位型別直接引用另一個結構，或用 .INCLUDE 包進來）。
• 結構的用處是「寫程式時會方便很多」：ALV 的輸出結構、函數的介面參數、BDC 的資料容器，全都靠它。

Table Type（講義 08）：SE11 → Data type → Table type。指定 Line Type（通常是剛才那個 Structure）、Access（Standard／Sorted／Hashed）、Key（Non-unique／Unique、Key components）。有了全域 Table Type，函數模組的 TABLES／CHANGING 參數才能直接引用。

" 對照：字典裡的 Structure / Table Type，在程式端的等價寫法
TYPES: BEGIN OF ty_order,
         vbeln TYPE zerp300_vbak-vbeln,
         erdat TYPE zerp300_vbak-erdat,
         kunnr TYPE zerp300_vbak-kunnr,
         name1 TYPE zerp300_kna1-name1,
         netwr TYPE zerp300_vbak-netwr,
         waerk TYPE zerp300_vbak-waerk,
       END OF ty_order.

" 三種存取型態，對應 Table Type 的 Access 設定
TYPES: ty_t_order_std  TYPE STANDARD TABLE OF ty_order WITH DEFAULT KEY,
       ty_t_order_srt  TYPE SORTED   TABLE OF ty_order WITH NON-UNIQUE KEY vbeln,
       ty_t_order_hsh  TYPE HASHED   TABLE OF ty_order WITH UNIQUE KEY vbeln.

DATA(lt_order) = VALUE ty_t_order_std( ).

" 巢狀結構：明細掛在表頭之下（字典的多層結構在程式端就是這樣）
TYPES: BEGIN OF ty_head,
         vbeln TYPE zerp300_vbak-vbeln,
         items TYPE STANDARD TABLE OF zerp300_vbap WITH EMPTY KEY,
       END OF ty_head.

" 用 CORRESPONDING 在字典結構之間搬資料，取代逐欄 MOVE
DATA ls_out TYPE ty_order.
SELECT SINGLE vbeln, erdat, kunnr, netwr, waerk
  FROM zerp300_vbak
  WHERE vbeln = @lv_vbeln
  INTO @DATA(ls_vbak).

ls_out = CORRESPONDING #( ls_vbak ).

Type Group（講義 09）：類型組是「定義了多個資料類型的程式」。宣告時一定要用類型組的名稱起頭，而且要用 TYPE-POOL 宣告。最有名的就是 ALV 用的 SLIS：

" 類型組本體（SE11 → Type Group）：所有型別名稱必須以類型組名開頭
TYPE-POOL slis.

TYPES: slis_list_type(1) TYPE n,
       slis_char_1(1)    TYPE c,
       slis_text40(40)   TYPE c.

特殊結構 SYST（講義 07-2）：SY 是系統結構，老師要求至少記 10 個：

10. Search Help：Elementary、Collective 與 Search Help Exit

搜尋說明（F4 說明）是很有用的功能，可提高使用者友善性；可用於自建表或資料元素。設計時老師要你注意四個點：傳入屬性、顯示屬性、條件屬性、傳回屬性——對應到 SE11 Search Help 畫面的參數表格。

Elementary Search Help（簡單型）建立步驟，以講義 10-1 的 ZSH_MSEHI（數量單位）為例：（依講義步驟整理）

1. SE11 → Search help → Create → 選 Elementary search help。
2. Selection method：填資料來源，可以是 Table、View 或 Help View。單位用 T006A（含語言）或建一個 Help View 把 T006 ＋ T006A 串起來。
3. Dialog type：Display values immediately（直接列值）／Dialog with value restriction（先問條件）／Dialog depends on set of values（值多才問）。
4. 參數表格填 MSEHI（IMP/EXP 勾 EXP、LPos 1）、MSEHT（LPos 2）、SPRAS（IMP 勾、預設 SY-LANGU、Modification not allowed 勾）。
5. 激活 → 按「測試」鈕（F8）試跑。

講義另一個練習 ZSH_WAERK（讓 ZERP300_VBAK 使用）的四個步驟，重點在多語言：

1. 直接用 TCURC 當 Selection Method「似乎不是好主意，因為不能多語言」。
2. 換成 TCURC 的 Text Table（標準是 TCURT；講義自建版寫成 ZTURT）。
3. 找到「登錄語系的系統變數」＝ SY-LANGU，設成 SPRAS 參數的預設值。
4. 把 Search Help 掛到資料表欄位上。

Search Help 加掛在物件的五種模式（講義原文）：

1. SE11 顯示資料表 → 游標在欄位上 → 按工具列的 Srch Help 鈕（掛在 Table Field）
2. Screen（Dynpro）的欄位屬性 → Search help 欄位
3. Data Element 的 Further Characteristics → Search Help（最推薦，一次全系統生效）
4. Dialog／報表：PARAMETERS p_x TYPE ... MATCHCODE OBJECT <search help>
5. 透過 Check Table 的隱含 F4（沒建 Search Help 時，外來鍵的主表就是預設 F4 來源）

REPORT zdemo_search_help.

" 模式 4：選擇畫面欄位直接掛字典的 Search Help
PARAMETERS: p_meins TYPE zerp300_vbap-vrkme MATCHCODE OBJECT zsh_msehi,
            p_waers TYPE zerp300_vbak-waerk MATCHCODE OBJECT zsh_waerk.

" 完全自訂的 F4：用內表當值來源（字典裡做不到的情境才用）
PARAMETERS p_type TYPE char10.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_type.

  TYPES: BEGIN OF ty_f4,
           code TYPE char10,
           text TYPE char40,
         END OF ty_f4.

  DATA(lt_f4) = VALUE STANDARD TABLE OF ty_f4(
    ( code = 'A' text = '主資料' )
    ( code = 'B' text = '交易資料' )
    ( code = 'C' text = '設定資料' ) ).

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'CODE'          " 回傳哪一欄
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = 'P_TYPE'        " 回填到哪個畫面欄位
      value_org       = 'S'             " S = 結構式內表
    TABLES
      value_tab       = lt_f4
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc <> 0.
    MESSAGE '取值失敗' TYPE 'S' DISPLAY LIKE 'W'.
  ENDIF.

Collective Search Help（複雜型）：由多個 Elementary Search Help 組成，使用者按 F4 時會看到多個頁籤（例如物料可用「依說明找」「依物料群組找」「依工廠找」）。建立時在 Included search helps 頁籤加入各個 Elementary，並按 Parameter assignment 把 Collective 的參數對應到各 Elementary 的參數。

講義 10-3：Collective Search Help 還可以再擴充——以 ME23 為例，把游標放在欄位上按 F1 → 技術資訊，可得知搜尋說明是 MEKK，就可以針對 MEKK 加入自己的 Elementary Search Help（Append Search Help，SE11 → Goto → Append Search Help，這樣升級不會被蓋掉）。

Search Help Exit：Search Help 也可以增強，用一支函數模組介入 F4 的每個階段。切記必須遵守 F4IF_SHLP_EXIT_EXAMPLE 的格式（複製它的介面），把函數名填在 Search Help 的 Search help exit 欄位。

FUNCTION z_shlp_exit_werks.
*"----------------------------------------------------------------------
*"  介面必須完全複製 F4IF_SHLP_EXIT_EXAMPLE：
*"  TABLES    shlp_tab   TYPE shlp_desct
*"            record_tab STRUCTURE seahlpres
*"  CHANGING  shlp       TYPE shlp_descr
*"            callcontrol LIKE ddshf4ctrl
*"----------------------------------------------------------------------

  " callcontrol-step 會依序被呼叫多次，用 CASE 分階段處理
  CASE callcontrol-step.

    WHEN 'SELONE'.
      " 選擇要用哪一個 Elementary Search Help（Collective 才會走到）
      RETURN.

    WHEN 'PRESEL'.
      " 進入選值畫面前：動態塞入額外的限制條件
      " 例如只允許使用者看自己有權限的工廠
      READ TABLE shlp-selopt ASSIGNING FIELD-SYMBOL(<ls_sel>)
           WITH KEY shlpfield = 'WERKS'.
      IF sy-subrc <> 0.
        APPEND VALUE ddshselopt( shlpfield = 'WERKS'
                                 sign      = 'I'
                                 option    = 'EQ'
                                 low       = '1000' ) TO shlp-selopt.
      ENDIF.
      RETURN.

    WHEN 'SELECT'.
      " 自己撈資料：撈完把 callcontrol-step 設成 'DISP' 可跳過標準選取
      RETURN.

    WHEN 'DISP'.
      " 清單顯示前：過濾掉不該讓使用者看到的列
      LOOP AT record_tab ASSIGNING FIELD-SYMBOL(<ls_rec>).
        IF <ls_rec>-string CS 'TEST'.
          DELETE record_tab INDEX sy-tabix.
        ENDIF.
      ENDLOOP.
      RETURN.

    WHEN 'RETURN'.
      " 使用者選定之後、回填畫面之前
      RETURN.

  ENDCASE.

ENDFUNCTION.

11. Lock Object 鎖物件與 ENQUEUE／DEQUEUE

鎖物件是對資料的存取進行並行控制。加鎖就是把使用者正在存取的資料登記在記憶體的 Lock Table（由 Enqueue Server 管理），解鎖就釋放。建立鎖物件會自動產生兩個函數，一個加鎖、一個解鎖；鎖物件名稱要以 E 開頭。

SE11 建立步驟：（依講義步驟整理）

1. SE11 → Lock object → 輸入 EZERP300_VBAK → Create。
2. Tables 頁籤：Primary table 填 ZERP300_VBAK；若要連明細一起鎖，可再加 Secondary table（要有外來鍵關係）。
3. Lock mode 選：
   • E（Write lock，獨佔可累加）：最常用，同一交易可重複加鎖
   • S（Read lock，共享）：多人可同時讀，但不可有人寫
   • X（Exclusive，不可累加）
   • O（Optimistic）：先樂觀讀，存檔時才升級為寫鎖
4. Lock parameter：預設是主表的所有 Key 欄位；可只挑部分（未挑的欄位視為萬用，會鎖更廣）。
5. 激活 → 系統產生 ENQUEUE_EZERP300_VBAK 與 DEQUEUE_EZERP300_VBAK。

REPORT zerp300_vbak_change.

PARAMETERS p_vbeln TYPE zerp300_vbak-vbeln OBLIGATORY.

START-OF-SELECTION.

  " 1. 先加鎖，鎖不到就不要往下做
  CALL FUNCTION 'ENQUEUE_EZERP300_VBAK'
    EXPORTING
      mode_zerp300_vbak = 'E'          " E = 寫鎖
      mandt             = sy-mandt
      vbeln             = p_vbeln
      _scope            = '2'          " 2 = 鎖延續到 COMMIT WORK 才由更新程序釋放
      _wait             = abap_true    " 鎖不到時稍等再試
    EXCEPTIONS
      foreign_lock      = 1
      system_failure    = 2
      OTHERS            = 3.

  CASE sy-subrc.
    WHEN 0.
      " 取得鎖，繼續
    WHEN 1.
      " sy-msgv1 會帶回鎖住這筆資料的使用者
      MESSAGE |訂單 { p_vbeln ALPHA = OUT } 正被使用者 { sy-msgv1 } 鎖定中| TYPE 'E'.
    WHEN OTHERS.
      MESSAGE '鎖定失敗，請洽系統管理員' TYPE 'E'.
  ENDCASE.

  " 2. 讀取 → 修改
  SELECT SINGLE vbeln, erdat, kunnr, netwr, waerk
    FROM zerp300_vbak
    WHERE vbeln = @p_vbeln
    INTO @DATA(ls_vbak).

  IF sy-subrc = 0.
    ls_vbak-netwr = ls_vbak-netwr + 100.

    UPDATE zerp300_vbak
       SET netwr = @ls_vbak-netwr
     WHERE vbeln = @p_vbeln.

    IF sy-subrc = 0.
      COMMIT WORK AND WAIT.
      MESSAGE |訂單 { p_vbeln ALPHA = OUT } 已更新，共 { sy-dbcnt } 筆| TYPE 'S'.
    ELSE.
      ROLLBACK WORK.
      MESSAGE '更新失敗' TYPE 'E'.
    ENDIF.
  ENDIF.

  " 3. 一定要解鎖（_scope = '2' 時 COMMIT 會自動解，但顯式解鎖較保險）
  CALL FUNCTION 'DEQUEUE_EZERP300_VBAK'
    EXPORTING
      mode_zerp300_vbak = 'E'
      mandt             = sy-mandt
      vbeln             = p_vbeln
      _scope            = '3'.

12. 擴充既有資料表：Append Structure 與 Include

要在標準表（或別人的表）上加欄位，不能直接改表定義（升級會被蓋掉、且屬於修改標準），正確做法有兩種：

" 讀取自己 Append 上去的欄位，跟標準欄位混用完全一樣
SELECT matnr,
       mtart,
       matkl,
       zzcustom_flag,          " 來自 Append Structure ZA_MARA_EXT
       zzcustom_grp
  FROM mara
  WHERE mtart = @p_mtart
    AND lvorm = @space
  ORDER BY matnr
  INTO TABLE @DATA(lt_mara).

" 動態判斷某欄位是否存在（跨系統版本相容時很好用）
DATA(lo_struct) = CAST cl_abap_structdescr(
                    cl_abap_typedescr=>describe_by_name( 'MARA' ) ).

DATA(lt_comp) = lo_struct->get_components( ).

IF line_exists( lt_comp[ name = 'ZZCUSTOM_FLAG' ] ).
  cl_demo_output=>write( '本系統的 MARA 已擴充 ZZCUSTOM_FLAG' ).
ELSE.
  cl_demo_output=>write( '本系統尚未擴充' ).
ENDIF.

13. S/4HANA 補充：CDS View 取代自建 DB View、HANA 上的 Z 表設計

講義的 Database View 觀念要保留（考證照、看舊程式都用得到），但新開發請改用 ABAP CDS View。CDS 的好處是：可加註解（讓 Fiori／OData／分析工具直接使用）、支援參數、支援關聯（association）、支援彙總與 SQL 函數、程式碼可進版控。

" 寫法 A：S/4HANA 1809 ~ 1909 可用（DDIC-based CDS View）
@AbapCatalog.sqlViewName: 'ZVERP300ORD'
@AbapCatalog.compiler.compareFilter: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: '訂單主檔含客戶名稱'
define view Z_I_Erp300Order
  as select from zerp300_vbak as Ord
  inner join    zerp300_kna1  as Cust
    on  Ord.mandt = Cust.mandt
    and Ord.kunnr = Cust.kunnr
{
  key Ord.vbeln  as SalesOrder,
      Ord.erdat  as OrderDate,
      Ord.kunnr  as Customer,
      Cust.name1 as CustomerName,
      @Semantics.amount.currencyCode: 'Currency'
      Ord.netwr  as NetAmount,
      @Semantics.currencyCode: true
      Ord.waerk  as Currency
}

" 寫法 B：S/4HANA 2020（ABAP 7.55）以後的 CDS View Entity — 新專案請用這個
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: '訂單主檔含客戶名稱'
define view entity Z_I_Erp300Order
  as select from zerp300_vbak as Ord
  association [1..1] to zerp300_kna1 as _Customer
    on  $projection.Customer = _Customer.kunnr
{
  key Ord.vbeln       as SalesOrder,
      Ord.erdat       as OrderDate,
      Ord.kunnr       as Customer,
      _Customer.name1 as CustomerName,

      @Semantics.amount.currencyCode: 'Currency'
      Ord.netwr       as NetAmount,

      @Semantics.currencyCode: true
      Ord.waerk       as Currency,

      _Customer                       // 曝露 association 給上層 View 使用
}

" 在 ABAP 中消費 CDS View：跟讀一般資料表一樣，但可用別名欄位與彙總
SELECT SalesOrder,
       OrderDate,
       Customer,
       CustomerName,
       NetAmount,
       Currency
  FROM z_i_erp300order
  WHERE OrderDate IN @s_erdat
    AND Customer  IN @s_kunnr
  ORDER BY SalesOrder
  INTO TABLE @DATA(lt_order).

" Code Pushdown：彙總交給 HANA 做，不要撈回 ABAP 再 LOOP 加總
SELECT Customer,
       CustomerName,
       SUM( NetAmount ) AS TotalAmount,
       COUNT( * )       AS OrderCount
  FROM z_i_erp300order
  WHERE OrderDate IN @s_erdat
  GROUP BY Customer, CustomerName
  HAVING SUM( NetAmount ) > 10000
  ORDER BY Customer
  INTO TABLE @DATA(lt_sum).

Z 表在 HANA 上的設計原則：

• SE11 建的表在 HANA 預設是 Column Store（欄式儲存），適合分析與大量掃描；只有極高頻單筆讀寫的小表才考慮 Row Store（技術設定的 Storage Type）。
• 不要亂建 Secondary Index。Row Store 時代靠索引解決的問題，HANA 靠欄式壓縮＋平行掃描就夠了；多餘索引反而拖慢寫入、佔記憶體。真的要建，先用 ST05／SQL Monitor 證明有需要。
• Code Pushdown：能在 SQL 做的（JOIN、彙總、CASE、字串處理）就不要撈回 ABAP 用 LOOP 做。
• 大表避免 SELECT *——欄式儲存下，多讀一欄就多一份 I/O。
• SELECT SINGLE 沒有排序保證：多筆符合時回傳哪一筆由 DB 決定，HANA 上結果可能與 AnyDB 不同。要指定就寫 ORDER BY ... UP TO 1 ROWS。

14. 用程式讀字典：DD* 表與 RTTI

字典本身也是一堆表。會查這些表，等於多了一把萬用鑰匙：

REPORT zdict_explorer.

PARAMETERS p_tab TYPE tabname OBLIGATORY DEFAULT 'ZERP300_VBAK'.

START-OF-SELECTION.

  " 一次撈出表的欄位清單，並帶出 Data Element 的中文說明
  SELECT f~position,
         f~fieldname,
         f~keyflag,
         f~rollname AS data_element,
         f~domname  AS domain,
         f~datatype,
         f~leng,
         f~decimals,
         t~ddtext   AS description
    FROM dd03l AS f
    LEFT OUTER JOIN dd04t AS t
      ON  t~rollname   = f~rollname
      AND t~ddlanguage = @sy-langu
      AND t~as4local   = 'A'
    WHERE f~tabname   = @p_tab
      AND f~as4local  = 'A'
      AND f~fieldname <> '.INCLUDE'
    ORDER BY f~position
    INTO TABLE @DATA(lt_field).

  IF lt_field IS INITIAL.
    MESSAGE |資料表 { p_tab } 不存在或未激活| TYPE 'E'.
  ENDIF.

  TRY.
      cl_salv_table=>factory(
        IMPORTING r_salv_table = DATA(lo_alv)
        CHANGING  t_table      = lt_field ).
      lo_alv->get_functions( )->set_all( abap_true ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO DATA(lx).
      MESSAGE lx->get_text( ) TYPE 'E'.
  ENDTRY.

" 用 RTTS 動態建立內表：使用者輸入表名，就把它整張撈出來顯示
PARAMETERS p_tname TYPE tabname OBLIGATORY DEFAULT 'ZERP300_KNA1'.

DATA lr_data TYPE REF TO data.
FIELD-SYMBOLS <lt_any> TYPE STANDARD TABLE.

START-OF-SELECTION.

  TRY.
      " 依表名取得結構描述，再組出對應的內表型別
      DATA(lo_struct) = CAST cl_abap_structdescr(
                          cl_abap_typedescr=>describe_by_name( p_tname ) ).

      DATA(lo_table) = cl_abap_tabledescr=>create(
                         p_line_type  = lo_struct
                         p_table_kind = cl_abap_tabledescr=>tablekind_std ).

      CREATE DATA lr_data TYPE HANDLE lo_table.
      ASSIGN lr_data->* TO <lt_any>.

      " 動態 SELECT（整列取出，這裡是有意為之的例外）
      SELECT * FROM (p_tname)
        INTO TABLE @<lt_any>
        UP TO 500 ROWS.

      cl_salv_table=>factory(
        IMPORTING r_salv_table = DATA(lo_alv)
        CHANGING  t_table      = <lt_any> ).
      lo_alv->display( ).

    CATCH cx_sy_move_cast_error.
      MESSAGE |{ p_tname } 不是結構或資料表| TYPE 'E'.
    CATCH cx_salv_msg INTO DATA(lx_salv).
      MESSAGE lx_salv->get_text( ) TYPE 'E'.
  ENDTRY.

練習與自我檢核

1. 建立 ZERP300_KNA1：MANDT／KUNNR／NAME1／ZWERT／ZMENG／ZIEME。檢核點：CURR 有沒有指定幣別參考欄位（VBAP-WAERK）、QUAN 有沒有指定單位參考欄位（VBAP-ZIEME）？Delivery Class 是不是 A？做到能用 SE16N 新增出資料才算成功。
2. SE54 建維護畫面 → SM30 能維護。若 Function Group 選不到，用 SE37／SE80 自己建一個並全部激活；也可先用 Z000。做完再用 SE93 把它包成一支 TCODE（parameter transaction，VIEWNAME + UPDATE=X + Skip initial screen）。
3. 建立四張表並手繪 ER Diagram：ZERP300_KNA1 / ZERP300_MARA / ZERP300_VBAK / ZERP300_VBAP，標出 1:N 關係與外來鍵方向。
4. Domain + Data Element 練習：建一個幣別 Data Element，限定只能填 TCURC 內的值（Domain 型別 CUKY 5 + Value Table TCURC，Data Element 綁它，表欄位建外來鍵）。另建一個數值 Domain 並觀察 Sign 不打勾＝只能輸入正數。
5. 外來鍵練習（講義 04）：Z2202_00_VBAK N → 1 Z2202_00_KNA1。要先建 ZDKUNNR（Domain）+ ZEKUNNR（Data Element）。練習題：為訂單明細建 ZDMATNR + ZEMATNR，Z2202_00_VBAP N → 1 Z2202_00_MARA。
6. Text Table 練習：知道 MAKT，如何找到 MARA？寫出四種方法（SE11 外鍵、Delivery and Maintenance 頁籤的 Text Table 標註、命名習慣＋回頭核對、Where-Used List / DD03L / DD08L）。
7. Database View：建 ZDV2202_00_VBAK（VBAK + KNA1）。練習題：ZDV300_VBAP_MARA、ZDV300_VBAK_KNA1。答案要點：多表 DB View 只能顯示、強制 INNER JOIN。
8. Maintenance View：建 ZMV_2202_00_VBAK，記得所有主鍵都要進視圖並用 SE54 產生螢幕。練習題：ZMV300_VBAP_VBAK。
9. Structure / Table Type：建一個 ZDV_ 開頭的多層結構（不要放 MANDT，前三碼不能有底線），再建對應的 Table Type，然後在報表中用它接 SELECT 結果並用 CL_SALV_TABLE 顯示。
10. SYST 默寫：至少寫出 10 個 SY 欄位與用途（SUBRC／UNAME／DATUM／UZEIT／TCODE／INDEX／TABIX／MANDT／LANGU／ULINE／VLINE／MSGV1／DBCNT）。
11. Type Group：說明 TYPE-POOL slis 裡的型別命名規則（必須以類型組名開頭），並回答：S/4HANA 上為什麼不必再寫 TYPE-POOLS？新開發應該改用什麼？
12. Search Help 10-1：建 ZSH_MSEHI，並為 Z2202_00_MARA 新增 MSEHI 欄位（Data Element MEINS）掛上它。10-2：ZUSER 系列練習修改名字。ZSH_WAERK：四步驟（TCURC 不能多語言 → 改用 Text Table → SPRAS 預設 SY-LANGU → 掛到 ZERP300_VBAK）。
13. Search Help 連動：解釋為什麼 P_1 TYPE T001W-WERKS 不會連動、P_1 TYPE T001L-WERKS 會連動。
14. Collective Search Help 擴充：以 ME23 找出採購資訊的 Search Help 是 MEKK，說明如何用 Append Search Help 掛上自己的 Elementary（升級安全）。並說出 Search Help Exit 必須遵守哪支範例函數的介面（F4IF_SHLP_EXIT_EXAMPLE）與五個 step（SELONE／PRESEL／SELECT／DISP／RETURN）。
15. Lock Object：建 EZERP300_VBAK，寫一支程式做「加鎖 → 讀 → 改 → COMMIT → 解鎖」，並測試兩個 session 同時執行時第二個會拿到什麼訊息（FOREIGN_LOCK，SY-MSGV1 帶鎖定者）。再說明 _SCOPE 1/2/3 的差別，以及用 SM12 查鎖。
16. S/4HANA 觀念題：① 為什麼新開發不建 Database View 而用 CDS？② 1809 與 2020 的 CDS 語法差在哪（sqlViewName / DEFINE VIEW ENTITY）？③ Z 表在 HANA 上該不該加索引？④ 為什麼「SELECT SINGLE 沒排序保證」會造成成本報表結果不穩定？

第 1-3 章 三層 VIEW 與重要主數據：SM30 / SE54 / SE39 / ZUSER 實作

這一章要做兩件事。第一件是把「資料表 → 維護視圖 → 維護對話框 → View Cluster → 自訂 TCODE」這條完整的三層式維護鏈路親手做一遍，做出跟 SAP 標準畫面（NACE、OKKP、OMT3）一模一樣的多階維護畫面。第二件是把 SAP 的重要主數據表一次認完：使用者（USR21／ADRP／USR02）、客戶（KNA1／KNB1／KNVV）、廠商（LFA1／LFB1／LFM1）、物料、銷售、採購、財務、庫存，並且知道在 S/4HANA 這些表哪些已經變成相容視圖。學完之後，你能看到任何一個 SAP 畫面就反推出它背後是哪張表、是怎麼被設計出來的。

1. 為什麼要學三層維護？先看 SAP 自己怎麼做

SAP 標準系統裡有一大類畫面長得都一樣：左邊一個樹狀或清單，選一筆，雙擊進去下一層，再選一筆，再進去更下一層。這種畫面叫做多階維護視圖（View Cluster，中文常稱「維護視圖群組」），不是有人手工刻的 Dialog 程式，而是用 SE54 產生出來的。

• NACE　輸出控制（Output Determination）。應用別 → 輸出類型 → 存取順序 → 條件記錄，典型的多階維護。講義第二節就是叫你先去 NACE 點一遍，體會「原來這是產生出來的」。
• OKKP　管控範圍（Controlling Area）維護，也是三層式：管控範圍 → 分派公司代碼 → 啟動元件／控制指標。
• OMT3　把倉庫號碼指派到工廠／儲存地點（Assign Warehouse Number to Plant/Storage Location），是 WM 與 IM 整合的重要設定。路徑：SPRO → Enterprise Structure → Assignment → Logistics Execution → Assign Warehouse Number to Plant/Storage Location。它其實就是一支「參數交易」，背後跑的是 View Cluster。

2. 三層式維護的觀念地圖：表 → 維護視圖 → 維護對話框 → View Cluster

整條鏈路一共四個物件，缺一不可。很多同學做不出來，都是因為搞不清楚自己現在在做哪一層。

3. 第一步：SE11 建三張表 ZMARA / ZMARC / ZMARD 與外部索引鍵

這三張表在模仿 SAP 標準物料主檔的三層結構：ZMARA（一般資料，Key = MANDT + MATNR）→ ZMARC（工廠資料，Key = MANDT + MATNR + WERKS）→ ZMARD（儲存地點／庫存資料，Key = MANDT + MATNR + WERKS + LGORT）。

建外部索引鍵的操作：在 SE11 的 Fields 頁籤把游標停在該欄位 → 按工具列的 Foreign Keys 鑰匙圖示 → Check table 填上層表名 → 系統會自動提出欄位對應（Key fields）→ 確認 Field assignment 正確 → Cardinality 通常填 1 : CN（上層一筆對下層多筆）→ Foreign key field type 選 Key fields of a text table / Non-key-fields 視情況。（依講義步驟整理）

三張表建好之後，先用一段 ABAP 驗證資料串得起來。這是現代寫法的 JOIN，一次把三層撈出來：

REPORT zmm_zmard_check.

" 三層 JOIN：ZMARA(一般) → ZMARC(工廠) → ZMARD(儲存地點)
" 注意：ABAP SQL 一律用 @ 逸出主機變數；不要用 SELECT *
PARAMETERS: p_werks TYPE t001w-werks OBLIGATORY.

SELECT a~matnr,
       a~mtart,
       a~matkl,
       a~meins,
       c~werks,
       c~dismm,
       c~ekgrp,
       d~lgort,
       d~labst,
       d~insme
  FROM zmara AS a
  INNER JOIN zmarc AS c ON c~matnr = a~matnr
  INNER JOIN zmard AS d ON d~matnr = c~matnr
                       AND d~werks = c~werks
  WHERE c~werks = @p_werks
  ORDER BY a~matnr, c~werks, d~lgort
  INTO TABLE @DATA(lt_stock).

IF lt_stock IS INITIAL.
  MESSAGE |工廠 { p_werks } 沒有任何資料| TYPE 'S' DISPLAY LIKE 'W'.
  RETURN.
ENDIF.

" 用 REDUCE 直接算總庫存，不要再寫迴圈累加
DATA(lv_total) = REDUCE zmard-labst( INIT s = CONV zmard-labst( 0 )
                                     FOR <ls> IN lt_stock
                                     NEXT s = s + <ls>-labst ).
WRITE: / |工廠 { p_werks } 未受限庫存合計：{ lv_total NUMBER = USER }|.

4. 第二步：SE11 建三個維護視圖 ZMV_MARA / ZMV_MARC / ZMV_MARD

路徑：SE11 → View → 輸入 ZMV_MARA → Create → 選 Maintenance View。

1. Tables/Join Conditions：Tables 只放一張表（ZMARA）。三層維護的每一個維護視圖各自對應一張表，不要在這裡就 JOIN 起來，JOIN 是 View Cluster 的工作。
2. View Flds：按 Table fields 把要維護的欄位全部帶進來。Key 欄位一定要在。
3. Maint.Status（維護狀態）頁籤：Access = Read and change（可讀可改）；Delivery class 通常設 A（Application table）或 C（Customizing table，會產生傳輸請求）。
4. 存檔 → 指定 Package（三個 View 必須放同一個 Package）→ Activate。
5. ZMV_MARC、ZMV_MARD 重複同樣動作。

5. 第三步：SE54 產生維護對話框（一步式 vs 兩步式）

SE54 初始畫面：輸入 Table/View = ZMV_MARA → 選 Generated Objects → Create。要填的三個關鍵欄位：

三個維護視圖各做一次 SE54，做完三個維護對話框。做完之後用 SM30 逐一測試：輸入 ZMV_MARA → Maintain → 應該可以新增／修改／刪除。

6. 在維護對話框掛事件：存檔前檢核（Event 01 / 05 / 21）

SE54 → 進入產生畫面後選單 Environment → Modification → Events，選一個事件編號，填一個 FORM 名稱，按小鉛筆讓系統把 FORM 骨架寫進 Function Group 的 include（通常是 LZFG_MM_MARAF01）。常用事件：

*&---------------------------------------------------------------------*
*& Include LZFG_MM_MARAF01 —— SE54 事件的自訂 FORM
*&---------------------------------------------------------------------*

" Event 21：Fill hidden fields（自動補建檔人與建檔日）
FORM fill_hidden_fields.
  " TOTAL / EXTRACT 是維護對話框產生的全域內表，型別為 view 的結構
  zmv_mara-ersda = COND #( WHEN zmv_mara-ersda IS INITIAL
                           THEN sy-datum ELSE zmv_mara-ersda ).
  zmv_mara-ernam = COND #( WHEN zmv_mara-ernam IS INITIAL
                           THEN sy-uname ELSE zmv_mara-ernam ).
ENDFORM.

" Event 01：Before saving —— 存檔前檢核
FORM check_before_save.
  " 物料類型必須存在於 T134，否則擋下
  FIELD-SYMBOLS <ls_row> TYPE zmv_mara.

  LOOP AT total ASSIGNING FIELD-SYMBOL(<ls_total>).
    " TOTAL 的第 1 個字元是動作旗標，資料本體從第 2 個字元起
    ASSIGN <ls_total>+1 TO <ls_row> CASTING.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.

    SELECT SINGLE @abap_true FROM t134
      WHERE mtart = @<ls_row>-mtart
      INTO @DATA(lv_exists).

    IF lv_exists <> abap_true.
      MESSAGE |物料類型 { <ls_row>-mtart } 不存在於 T134| TYPE 'E'.
    ENDIF.
  ENDLOOP.
ENDFORM.

7. 第四步：SE54 建 View Cluster（三層）與 SM34 執行

路徑：SE54 → 在初始畫面選 Edit View Cluster（維護視圖群組）→ 輸入名稱 ZMV_MARA_000 → Create。

1. Object Structure（物件結構）：依序把三個維護視圖登記進來
   • ZMV_MARA　Position 1、Dep. = 上層（起始節點）、Predecessor 留空
   • ZMV_MARC　Position 2、Predecessor = ZMV_MARA
   • ZMV_MARD　Position 3、Predecessor = ZMV_MARC
2. 每一列雙擊進 Field-Dependence（欄位相依）：把上層傳下來的 Key 欄位對應好，並勾上前面說的 S。ZMARC 要對 MANDT + MATNR；ZMARD 要對 MANDT + MATNR + WERKS。系統自動抓的關聯鍵可能不準，要會自己調整。
3. Header Entry：填 View Cluster 的說明文字。
4. 存檔 → 指定 Package（跟三個 View 同一個 Package）→ 返回上一頁之後，要再按 ACTIVATE 鈕（老師特別提醒，很多人漏掉這一步，結果 SM34 打不開）。

執行：SM34 → 輸入 ZMV_MARA_000 → Maintain。應該看到左邊 Dialog Structure 樹狀，點 ZMARA 選一筆物料 → 雙擊左樹的「工廠」節點 → 只出現該物料的工廠資料 → 再往下就是儲存地點。

三層維護實作心得（老師的三條鐵律）

1. 所有的 View 都要在同一個 Package。跨 Package 會在啟用或傳輸時出問題。
2. SE54 讓系統自動抓關聯鍵時，可能不準，要會自己調整。自動推導靠的是外部索引鍵，外鍵設計不完整就會抓錯。
3. 「S」設定在建 Maintenance View 與 Cluster View 時都要勾。

SE11 改良修正（6-03）

• 執行結果應該是 MANDT 不必勾成 S。MANDT 是 client 欄位，系統自己會處理，勾成 S 反而會多出一個沒用的相依條件。
• 有些欄位的抬頭（Column heading）不正確，這是資料元素的短文字問題。只能在 Screen Layout（畫面配置）上修飾 —— 進 SE51 或從 SE54 的產生畫面雙擊欄位，改 Text 屬性；或者回到 SE11 把 Data Element 的 Field Label（Short／Medium／Long／Heading）補齊，再重新產生一次維護對話框。

8. 第五步：把 View Cluster 變成自己的 TCODE（參數交易）

SM34 每次都要輸入 View Cluster 名稱很不方便。SAP 標準的做法（OMT3、OVXM 這些交易就是這樣做出來的）是建一支參數交易（Parameter Transaction），直接跳過初始畫面。

操作：SE93 → 建立交易碼 ZMM_MARA3 → 選 Transaction with parameters (parameter transaction) →

相關的系統表（想知道某個 TCODE 背後掛的是哪個 View Cluster，就查這幾張）：

如果不想建 TCODE，也可以在自己的程式裡直接叫起維護畫面：

REPORT zmm_call_maint.

" (1) 叫起單一維護視圖 = 程式版的 SM30
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
  EXPORTING
    action                 = 'U'          " U = 維護(可改)，S = 顯示
    view_name              = 'ZMV_MARA'
  EXCEPTIONS
    client_reference       = 1
    foreign_lock           = 2
    invalid_action         = 3
    no_clientindependent_auth = 4
    no_database_function   = 5
    no_editor_function     = 6
    no_show_auth           = 7
    no_tvdir_entry         = 8
    no_upd_auth            = 9
    only_show_auth         = 10
    permission_failure     = 11
    view_not_found         = 12
    OTHERS                 = 13.

IF sy-subrc <> 0.
  MESSAGE |呼叫維護畫面失敗，SUBRC = { sy-subrc }| TYPE 'E'.
ENDIF.

" (2) 叫起 View Cluster = 程式版的 SM34
CALL FUNCTION 'VIEWCLUSTER_MAINTENANCE_CALL'
  EXPORTING
    viewcluster_name = 'ZMV_MARA_000'
    maintenance_action = 'U'
  EXCEPTIONS
    client_reference          = 1
    foreign_lock              = 2
    viewcluster_not_found     = 3
    viewcluster_is_inconsistent = 4
    missing_generated_function = 5
    no_upd_auth               = 6
    no_show_auth              = 7
    object_not_found          = 8
    no_tvdir_entry            = 9
    no_clientindependent_auth = 10
    called_from_other_system  = 11
    OTHERS                    = 12.

IF sy-subrc <> 0.
  MESSAGE |呼叫 View Cluster 失敗，SUBRC = { sy-subrc }| TYPE 'E'.
ENDIF.

9. SE39：分割螢幕編輯器與程式比較

SE39 是 ABAP Splitscreen Editor（分割螢幕編輯器）：左右各開一支程式，同一個畫面對照著看、對照著改。做客製最常用在「客戶版程式 vs 標準程式」、「新版 vs 舊版」的比對。

• 開啟：SE39 → 左欄輸入程式 A、右欄輸入程式 B → Display／Change。也可以從 SE38 的選單 Utilities → Splitscreen Editor 進去。
• 比對：左右都載入之後按 Compare（比較）鈕，系統會標出差異行；Next difference / Previous difference 逐段跳。
• 搬程式碼：選取左邊的段落 → 用剪下貼上直接放進右邊，做版本移植時很省事。
• 版本管理：真正要看「同一支程式的不同版本」差異，用 SE38 → Utilities → Versions → Version Management，選兩個版本按 Compare；跨系統比對可以按 Remote comparison 指定 RFC 目的地，比對 DEV 與 PRD 的同一支程式。
• Eclipse/ADT：在 ADT 裡是 Compare With → Another ABAP Object / Local History，功能更好用，但 SE39 在只有 SAP GUI 的客戶現場仍然是必備技能。

10. 查資料的兩把刀：SE16N 與 SE16H；以及怎麼由畫面欄位反查資料表

SE16 / SE16N / SE16H 的差別

由畫面欄位反查資料表（四招）

1. F1 → 技術資訊（Technical Information）：把游標放在欄位上按 F1 → 按小鎚子（Technical Information）→ 會顯示 Table Name（畫面結構名）、Field Name、Data Element、Screen field、Program name / Screen number。注意這裡看到的常常是畫面結構（例如 RM03M、VBAK 的 dialog structure），不一定是真正的資料庫表。
2. 從 Data Element 反查：拿到 Data Element 之後，SE11 顯示該 Data Element → 按 Where-Used List（Ctrl+Shift+F3） → 勾 Table Fields → 就會列出所有用到這個資料元素的資料表。
3. SE84（Repository Information System）：ABAP Dictionary → Database Tables／Views，可以用名稱樣式、Package、Application Component 搜尋。例如想找 SD 的表就用 Application Component = SD 去撈。SE84 也可以反查「某個 Table 被哪些程式用到」。
4. SDBE / ST05（追 SQL）：
   • ST05 SQL Trace：Activate Trace → 去畫面做一次操作 → 回來 Deactivate Trace → Display Trace。追出來的每一行都是真正打到 DB 的 SQL，表名一目瞭然。這是最可靠的一招。
   • SDBE Explain SQL Statement：把一段 SQL 貼進去看執行計畫（Explain Plan），用來判斷有沒有走到索引。ST05 的 trace 明細上按 Explain 也會轉到同樣的功能。

也可以用程式查字典。下面這段用 DDIC 表反查「哪些資料表含有某個欄位」：

REPORT zdd_find_table.

PARAMETERS: p_field TYPE dd03l-fieldname DEFAULT 'MATNR'.

" DD02L 資料表目錄 / DD03L 欄位 / DD02T 表說明 / DD04T 資料元素說明
SELECT t~tabname,
       t~tabclass,
       f~fieldname,
       f~keyflag,
       f~rollname,
       x~ddtext AS table_text
  FROM dd02l AS t
  INNER JOIN dd03l AS f ON f~tabname = t~tabname
  LEFT OUTER JOIN dd02t AS x ON x~tabname = t~tabname
                            AND x~ddlanguage = @sy-langu
  WHERE f~fieldname = @p_field
    AND t~tabclass  = 'TRANSP'          " 只看透明表
    AND t~as4local  = 'A'               " 只看已啟用版本
  ORDER BY t~tabname
  INTO TABLE @DATA(lt_tab).

IF lt_tab IS INITIAL.
  MESSAGE |找不到含欄位 { p_field } 的透明表| TYPE 'S' DISPLAY LIKE 'W'.
  RETURN.
ENDIF.

TRY.
    cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                            CHANGING  t_table      = lt_tab ).
    lo_alv->get_functions( )->set_all( ).
    lo_alv->get_columns( )->set_optimize( abap_true ).
    lo_alv->get_display_settings( )->set_list_header( |含有欄位 { p_field } 的資料表| ).
    lo_alv->display( ).
  CATCH cx_salv_msg INTO DATA(lx_salv).
    MESSAGE lx_salv->get_text( ) TYPE 'E'.
ENDTRY.

11. SAP 重要主數據表總覽（以及 S/4HANA 的相容視圖）

這是老師要求「一定要背」的部分。寫 ABAP 的人腦子裡要有這張地圖，看到需求才知道去哪撈資料。

物料主檔（MM）

客戶主檔（SD／FI）—— XD99 大量維護

廠商主檔（MM／FI）—— XK99 大量維護

銷售 / 出貨 / 開票（SD）

採購（MM）

生產（PP）

財務與庫存（FI / MM-IM）—— S/4 變動最大的區域

組織與共用表

12. 使用者主檔：USR21 / ADRP / USR02 與 ZUSER 實作（ALV 版）

這是講義 7-01 的核心：以 USR21 為核心，往兩邊接。

原講義寫法的問題（要看得懂、但不要照抄）

• TABLES: USR02, USR21, ADRP. —— 只為了 SELECT-OPTIONS 的參照就宣告 TABLES，會產生同名的全域工作區，是舊寫法。改用 SELECT-OPTIONS s_bname FOR gv_bname 搭配 DATA gv_bname TYPE usr21-bname.。
• 在 LOOP 裡對每一筆做兩次 SELECT SINGLE —— 典型的 N+1 查詢。1000 個使用者就打 2000 次 DB。正解是一次 JOIN，或先用 FOR ALL ENTRIES 撈進兩張 hash 內表再對照。
• SELECT * ... INTO CORRESPONDING FIELDS OF TABLE —— 欄位靠名字硬對，欄位改名就默默出錯，而且傳整列浪費 IO。
• ALV 版裡 i_callback_pf_status_set = 'STATUS_SET'，但實際 FORM 叫 FORM_PF_STATUS_SET，名字對不上，事件不會觸發。這是原程式的實際 Bug，抄的時候要注意。
• lt_event 都填好了卻又同時傳 i_callback_*，兩套機制重複；REUSE_ALV_GRID_DISPLAY 在 S/4 已不建議新開發使用。

ZUSER 現代版（CL_SALV_TABLE + 一次 JOIN）

*&---------------------------------------------------------------------*
*& Report ZUSERS  —— 使用者清單（USR21 + USR02 + ADRP）
*& S/4HANA 現代寫法版本
*&---------------------------------------------------------------------*
REPORT zusers.

" 不用 TABLES:，只宣告參照用的變數
DATA: gv_bname TYPE usr21-bname.

SELECT-OPTIONS: s_bname FOR gv_bname.

TYPES: BEGIN OF ty_out,
         recn       TYPE i,                  "項次
         bname      TYPE usr21-bname,        "用戶帳號
         aname      TYPE usr02-aname,        "建檔人員
         trdat      TYPE usr02-trdat,        "最後登錄日
         ltime      TYPE usr02-ltime,        "最後登錄時
         uflag      TYPE usr02-uflag,        "鎖定旗標
         persnumber TYPE adrp-persnumber,    "人事編號
         name_last  TYPE adrp-name_last,     "姓
         name_first TYPE adrp-name_first,    "名
         kostl      TYPE usr21-kostl,        "成本中心
       END OF ty_out.

START-OF-SELECTION.

  " 一次 JOIN 解決，不要在迴圈裡 SELECT SINGLE（N+1 查詢）
  " ADRP 是時間相依，一定要加有效期間與 NATION 條件
  SELECT u21~bname,
         u02~aname,
         u02~trdat,
         u02~ltime,
         u02~uflag,
         u21~persnumber,
         p~name_last,
         p~name_first,
         u21~kostl
    FROM usr21 AS u21
    LEFT OUTER JOIN usr02 AS u02 ON u02~bname = u21~bname
    LEFT OUTER JOIN adrp  AS p   ON p~persnumber = u21~persnumber
                                AND p~nation     = @space
                                AND p~date_from <= @sy-datum
                                AND p~date_to   >= @sy-datum
    WHERE u21~bname IN @s_bname
    ORDER BY u21~bname
    INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_out).

  IF lt_out IS INITIAL.
    MESSAGE '查無符合條件的使用者' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  " 補流水號：用 INDEX INTO 取代自己累加的計數器
  LOOP AT lt_out ASSIGNING FIELD-SYMBOL(<ls_out>).
    <ls_out>-recn = sy-tabix.
  ENDLOOP.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                              CHANGING  t_table      = lt_out ).

      lo_alv->get_functions( )->set_all( ).                       "啟用全部工具列功能
      lo_alv->get_display_settings( )->set_striped_pattern( abap_true ). "斑馬紋
      lo_alv->get_display_settings( )->set_list_header(
        |ZUSERS 用戶清單列表 (CASPER)　來源：USR21 / USR02 / ADRP| ).
      lo_alv->get_columns( )->set_optimize( abap_true ).          "最佳欄寬

      " 逐欄設定中文抬頭 —— 取代舊版一大段 fieldcat
      DATA(lo_cols) = lo_alv->get_columns( ).

      LOOP AT VALUE stringtab( ( `RECN` ) ( `BNAME` ) ( `ANAME` ) ( `TRDAT` )
                               ( `LTIME` ) ( `UFLAG` ) ( `PERSNUMBER` )
                               ( `NAME_LAST` ) ( `NAME_FIRST` ) ( `KOSTL` ) )
           INTO DATA(lv_col).
        TRY.
            DATA(lo_col) = CAST cl_salv_column_table( lo_cols->get_column( CONV #( lv_col ) ) ).
            DATA(lv_text) = SWITCH string( lv_col
                              WHEN `RECN`       THEN `項次`
                              WHEN `BNAME`      THEN `用戶代碼`
                              WHEN `ANAME`      THEN `建檔人員`
                              WHEN `TRDAT`      THEN `最後登錄日`
                              WHEN `LTIME`      THEN `最後登錄時`
                              WHEN `UFLAG`      THEN `鎖定`
                              WHEN `PERSNUMBER` THEN `人事編號`
                              WHEN `NAME_LAST`  THEN `姓`
                              WHEN `NAME_FIRST` THEN `名`
                              WHEN `KOSTL`      THEN `成本中心`
                              ELSE lv_col ).
            lo_col->set_short_text( CONV #( lv_text ) ).
            lo_col->set_medium_text( CONV #( lv_text ) ).
            lo_col->set_long_text( CONV #( lv_text ) ).
          CATCH cx_salv_not_found.
            CONTINUE.
        ENDTRY.
      ENDLOOP.

      " 把 BNAME 設為 Key 欄位（會變色並釘在左邊）
      TRY.
          CAST cl_salv_column_table( lo_cols->get_column( 'BNAME' ) )->set_key( abap_true ).
        CATCH cx_salv_not_found.
      ENDTRY.

      lo_alv->display( ).

    CATCH cx_salv_msg INTO DATA(lx_salv).
      MESSAGE lx_salv->get_text( ) TYPE 'E'.
  ENDTRY.

13. ZUSER（WRITE 版）—— 老師要求「要會默寫」的那一支

還沒學 ALV 之前，先用 WRITE 版練基本功。這一支的重點是：SELECT → SORT → LOOP → WRITE → 統計筆數，把整個報表骨架背下來。以下是現代化改寫，語意跟原講義完全一致（篩選 BNAME LIKE 'E%'）。

*&---------------------------------------------------------------------*
*& Report ZUSERS_WRITE —— WRITE 版（背骨架用）
*&---------------------------------------------------------------------*
REPORT zusers_write LINE-SIZE 160.

TYPES: BEGIN OF ty_out,
         bname      TYPE usr21-bname,
         aname      TYPE usr02-aname,
         persnumber TYPE adrp-persnumber,
         name_last  TYPE adrp-name_last,
         name_first TYPE adrp-name_first,
       END OF ty_out.

START-OF-SELECTION.

  " LIKE 'E%' 在 ABAP SQL 用 LIKE 'E%'；跳脫字元用 ESCAPE
  SELECT u21~bname,
         u02~aname,
         u21~persnumber,
         p~name_last,
         p~name_first
    FROM usr21 AS u21
    LEFT OUTER JOIN usr02 AS u02 ON u02~bname = u21~bname
    LEFT OUTER JOIN adrp  AS p   ON p~persnumber = u21~persnumber
                                AND p~nation     = @space
    WHERE u21~bname LIKE 'E%'
    ORDER BY u21~bname
    INTO TABLE @DATA(lt_out).

  " 用 lines( ) 取代 DESCRIBE TABLE ... LINES
  DATA(lv_cnt) = lines( lt_out ).

  IF lv_cnt = 0.
    WRITE: / '查無資料'.
    RETURN.
  ENDIF.

  WRITE: /05 '項次',
          25 '員工帳號',
          50 '建檔人員',
          75 '員工編號',
         100 '姓',
         125 '名'.
  ULINE.

  LOOP AT lt_out INTO DATA(ls_out).
    WRITE: /05 sy-tabix,
            25 ls_out-bname,
            50 ls_out-aname,
            75 ls_out-persnumber,
           100 ls_out-name_last,
           125 ls_out-name_first.
  ENDLOOP.

  ULINE.
  WRITE: / |Record : { lv_cnt }　執行人員：{ sy-uname }　日期：{ sy-datum DATE = USER }|.

14. 客戶（XD99）與廠商（XK99）三合一 ALV 練習

講義 7-02／7-03 的兩題練習，做法完全對稱。這裡各給一支範本。

*&---------------------------------------------------------------------*
*& Report ZSD_CUSTOMER_ALL —— 客戶三視角合併（KNA1 + KNB1 + KNVV）
*&---------------------------------------------------------------------*
REPORT zsd_customer_all.

DATA: gv_kunnr TYPE kna1-kunnr,
      gv_bukrs TYPE knb1-bukrs,
      gv_vkorg TYPE knvv-vkorg.

SELECT-OPTIONS: s_kunnr FOR gv_kunnr,
                s_bukrs FOR gv_bukrs,
                s_vkorg FOR gv_vkorg.

START-OF-SELECTION.

  " 一般 + 公司代碼 + 銷售範圍，一次三表 JOIN
  " 一個客戶可能有多家公司代碼、多個銷售範圍 → 結果會是笛卡兒展開，這是正常的
  SELECT a~kunnr,
         a~name1,
         a~name2,
         a~land1,
         a~spras,
         a~sortl,
         a~erdat,
         a~ernam,
         b~bukrs,
         b~akont,                    "應收帳款統馭科目
         b~zterm AS zterm_fi,
         v~vkorg,
         v~vtweg,
         v~spart,
         v~waers,
         v~zterm AS zterm_sd,
         v~ktgrd,                    "客戶科目分類群組
         v~vwerk,
         v~inco1,
         v~inco2
    FROM kna1 AS a
    LEFT OUTER JOIN knb1 AS b ON b~kunnr = a~kunnr
    LEFT OUTER JOIN knvv AS v ON v~kunnr = a~kunnr
    WHERE a~kunnr IN @s_kunnr
      AND ( b~bukrs IN @s_bukrs OR b~bukrs IS NULL )
      AND ( v~vkorg IN @s_vkorg OR v~vkorg IS NULL )
    ORDER BY a~kunnr, b~bukrs, v~vkorg, v~vtweg, v~spart
    INTO TABLE @DATA(lt_cust).

  IF lt_cust IS INITIAL.
    MESSAGE '查無客戶資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                              CHANGING  t_table      = lt_cust ).
      lo_alv->get_functions( )->set_all( ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->get_display_settings( )->set_list_header( '客戶主檔：一般 / 公司代碼 / 銷售範圍' ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO DATA(lx).
      MESSAGE lx->get_text( ) TYPE 'E'.
  ENDTRY.

*&---------------------------------------------------------------------*
*& Report ZMM_VENDOR_ALL —— 廠商三視角合併（LFA1 + LFB1 + LFM1）
*&---------------------------------------------------------------------*
REPORT zmm_vendor_all.

DATA: gv_lifnr TYPE lfa1-lifnr,
      gv_bukrs TYPE lfb1-bukrs,
      gv_ekorg TYPE lfm1-ekorg.

SELECT-OPTIONS: s_lifnr FOR gv_lifnr,
                s_bukrs FOR gv_bukrs,
                s_ekorg FOR gv_ekorg.

START-OF-SELECTION.

  SELECT a~lifnr,
         a~name1,
         a~name2,
         a~land1,
         a~spras,
         a~ktokk,                    "帳戶群組（不是搜尋字串！）
         a~sortl,                    "搜尋字串在這裡
         a~kunnr,                    "同一法人對應的客戶代號
         a~erdat,
         a~ernam,
         b~bukrs,
         b~akont,                    "應付帳款統馭科目
         b~zterm AS zterm_fi,
         m~ekorg,
         m~waers,
         m~zterm AS zterm_mm,
         m~inco1,
         m~inco2
    FROM lfa1 AS a
    LEFT OUTER JOIN lfb1 AS b ON b~lifnr = a~lifnr
    LEFT OUTER JOIN lfm1 AS m ON m~lifnr = a~lifnr
    WHERE a~lifnr IN @s_lifnr
      AND ( b~bukrs IN @s_bukrs OR b~bukrs IS NULL )
      AND ( m~ekorg IN @s_ekorg OR m~ekorg IS NULL )
    ORDER BY a~lifnr, b~bukrs, m~ekorg
    INTO TABLE @DATA(lt_vend).

  IF lt_vend IS INITIAL.
    MESSAGE '查無廠商資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                              CHANGING  t_table      = lt_vend ).
      lo_alv->get_functions( )->set_all( ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->get_display_settings( )->set_list_header( '廠商主檔：一般 / 公司代碼 / 採購組織' ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO DATA(lx).
      MESSAGE lx->get_text( ) TYPE 'E'.
  ENDTRY.

15. Infotype 與 HR 資料表

什麼是 Infotype

Infotype（資訊類型）是把內容相似的資料分組管理的單位，用四位數字當代碼，例如 0001 組織分派、0002 個人資料。從技術面看，一個 Infotype 同時是一組資料分群、一個畫面、一張資料庫表、以及一個結構；它還帶著系統控制屬性，例如時間限制（Time Constraint）、追溯計算相關性等。

為什麼 HR 要用 Infotype？講義給了兩個理由：

• Security（安全）：HR 資料的敏感度差很多。地址、稅務資料員工可以自己看自己改；薪資、考評不行。切成不同 Infotype 才能對每一組資料套不同的權限設定 —— 誰能看、誰能改。
• History（歷史）：HR 資料是時間相依的。你現在的薪資是一個數字，下個月一號調薪之後是另一個數字；七月一日搬家。舊資料必須保留，Payroll 才知道今天該付多少、下個月該付多少；報表也才回答得出「YuLin 從到職到現在的薪資變化」。所以每一個 Infotype 記錄都有起始日（BEGDA）與結束日（ENDDA）。

HR 資料表命名規則

常用 TCODE：PA20 顯示人事主檔、PA30 維護人事主檔、PA40 人事措施（Personnel Actions，到職／調動／離職就是走這裡，會依序帶出一連串 Infotype 畫面）、PPOME 組織與職位維護、PPOSE 顯示組織架構、PP01 維護 PD 物件。

講義 9-2 的題目：取得 PPOME 的輸入內容 → HRP1001。現代寫法：

*&---------------------------------------------------------------------*
*& Report ZHR_HRP1001 —— 讀組織管理關係表 HRP1001 並以 SALV 顯示
*&---------------------------------------------------------------------*
REPORT zhr_hrp1001.

DATA: gv_objid TYPE hrp1001-objid.

PARAMETERS:     p_plvar TYPE hrp1001-plvar DEFAULT '01',  "計畫版本，01=現行
                p_otype TYPE hrp1001-otype DEFAULT 'O'.   "物件類型 O=組織單位 S=職位 P=人員
SELECT-OPTIONS: s_objid FOR gv_objid,
                s_uname FOR gv_objid NO INTERVALS.        "維護人員（示意）

START-OF-SELECTION.

  " 明列欄位、用 @ 逸出、加上有效期間；不要 SELECT *
  SELECT plvar,          "計畫版本
         otype,          "物件類型
         objid,          "物件編號
         subty AS relat, "關係代碼（A/B + 三位）
         istat,          "規劃狀態
         begda,
         endda,
         sclas,          "對方物件類型
         sobid,          "對方物件編號
         uname,          "最後維護人員
         aedtm           "最後維護日期
    FROM hrp1001
    WHERE plvar = @p_plvar
      AND otype = @p_otype
      AND objid IN @s_objid
      AND begda <= @sy-datum
      AND endda >= @sy-datum
    ORDER BY objid, subty, sobid
    INTO TABLE @DATA(lt_rel).

  IF lt_rel IS INITIAL.
    MESSAGE '查無組織關係資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                              CHANGING  t_table      = lt_rel ).
      lo_alv->get_functions( )->set_all( ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->get_display_settings( )->set_list_header( 'HRP1001 組織管理關係（PPOME 的資料來源）' ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO DATA(lx).
      MESSAGE lx->get_text( ) TYPE 'E'.
  ENDTRY.

16. 開發命名規則釋例

這是一份實際專案的開發準則案例，僅供參考；到職場之後仍需依公司的規範。命名的四個原則：簡易快捷且唯一、符合 SAP 客戶化命名空間、盡可能短、有意義；少用特殊字元（底線除外）；如果是複製 SAP 標準物件，請在前面加 "Z_"。

Repository 物件

程式類型代碼（Program Type，命名第 4 碼）

SAP 模組代碼

程式內變數命名

訊息與傳輸請求

Message Number 為 3 位數字，000～999。傳輸請求（Task / Request）的描述格式：「YYMMDD：程式名稱代碼：修改或新增主要描述」，最長 60 字元，例如 060720：ZMMR0001：增加物料類型條件。實務上仍應以 Basis 顧問提供的 CR 描述規定為準。

17. 總結練習：從零做出一整套（第一節的驗收題）

講義開宗明義給的練習順序，是把 1-2 章的資料字典與這一章的維護畫面串起來的完整流程：

1. Domain（域）—— 定資料型態、長度、值範圍（Value Range／Fixed Values）
2. Data Element（資料元素）—— 掛 Domain，定四種欄位標籤與 F1 說明文件
3. Master Table（主檔表）—— 例如 Z00_KNA1
4. Transaction Table（交易表）—— 例如 Z00_VBAK
5. Foreign Key（外部索引鍵）—— 把交易表接回主檔表
6. Search Help（搜尋說明）—— 掛在欄位或 Data Element 上，F4 才有東西
7. Maintenance View（維護視圖）＋ SE54 產生維護畫面

驗收成果：用 SM30 打開 Z00_VBAK，能新增、修改、刪除，且外鍵欄位按 F4 會跳出正確的搜尋說明。

做完之後，可以寫一支小程式驗證資料的參照完整性（下層有、上層沒有的孤兒資料）：

*&---------------------------------------------------------------------*
*& Report ZMM_CHECK_ORPHAN —— 檢查三層表的參照完整性
*&---------------------------------------------------------------------*
REPORT zmm_check_orphan.

" 先把上層 Key 撈成 HASHED，查找 O(1)
SELECT matnr FROM zmara
  INTO TABLE @DATA(lt_mara).

DATA lt_mara_key TYPE HASHED TABLE OF zmara-matnr WITH UNIQUE KEY table_line.
lt_mara_key = VALUE #( FOR <m> IN lt_mara ( <m>-matnr ) ).

SELECT matnr, werks FROM zmarc
  ORDER BY matnr, werks
  INTO TABLE @DATA(lt_marc).

DATA lt_bad TYPE TABLE OF string.

LOOP AT lt_marc INTO DATA(ls_marc).
  " line_exists 判斷內表是否有該筆，取代 READ TABLE ... TRANSPORTING NO FIELDS + sy-subrc
  IF NOT line_exists( lt_mara_key[ table_line = ls_marc-matnr ] ).
    APPEND |ZMARC 有孤兒資料：MATNR = { ls_marc-matnr }，WERKS = { ls_marc-werks }| TO lt_bad.
  ENDIF.
ENDLOOP.

IF lt_bad IS INITIAL.
  MESSAGE '參照完整性檢查通過' TYPE 'S'.
ELSE.
  LOOP AT lt_bad INTO DATA(lv_msg).
    WRITE: / lv_msg.
  ENDLOOP.
  WRITE: / |共 { lines( lt_bad ) } 筆異常 —— 表示外部索引鍵沒有設好，或有人繞過維護畫面直接改資料庫|.
ENDIF.

練習與自我檢核

1. 照著 SE11 建出 ZMARA / ZMARC / ZMARD 三張表，並設定 ZMARC → ZMARA（MANDT、MATNR）與 ZMARD → ZMARC（MANDT、MATNR、WERKS）的外部索引鍵。提示：Cardinality 選 1:CN。
2. 建三個維護視圖 ZMV_MARA / ZMV_MARC / ZMV_MARD，全部放在同一個 Package，用 SE54 各產生一次維護對話框。提示：Function Group 用自己的 Z 開頭，不要用 TMP。
3. 建 View Cluster ZMV_MARA_000，用 SM34 執行，做到「選一個物料 → 只看到該物料的工廠 → 只看到該工廠的儲存地點」。提示：Field-Dependence 要勾 S，MANDT 不用勾 S；存檔返回後記得按 Activate。
4. 用 SE93 把 ZMV_MARA_000 包成一支自己的 TCODE。答案要點：參數交易，Transaction = SM34、勾 Skip initial screen、VCLDIR-VCLNAME = ZMV_MARA_000、UPDATE = X。
5. 在 ZMV_MARA 的維護對話框掛上 Event 21，讓 ERSDA／ERNAM 自動帶值；再掛 Event 01，檢核 MTART 必須存在於 T134。提示：路徑是 SE54 → Environment → Modification → Events。
6. 去 NACE、OKKP、OMT3 各點一遍，說出它們各有幾層、每一層對應哪張表。提示：用 SE93 看 TCODE 的參數，再查 VCLDIR / VCLSTRUC。
7. 寫 ZUSERS（WRITE 版），輸出項次／員工帳號／建檔人員／員工編號／姓／名，最後印總筆數與執行者。要求：不用 TABLES、不用 SELECT SINGLE 在迴圈裡、用 lines( ) 取代 DESCRIBE。
8. 把上題改寫成 CL_SALV_TABLE 版本，加上中文欄位抬頭、斑馬紋、最佳欄寬、清單抬頭。提示：get_columns( ) / get_display_settings( ) / get_functions( )。
9. 做 XD99 練習：把 KNA1 + KNB1 + KNVV 三視角合併在同一個 ALV。陷阱：LEFT OUTER JOIN 加 WHERE 會濾掉 NULL 那一側。
10. 做 XK99 練習：把 LFA1 + LFB1 + LFM1 合併在同一個 ALV。順便回答：LFA1-KTOKK 是什麼？搜尋字串是哪個欄位？（答：帳戶群組；SORTL）
11. 用 F1 → 技術資訊查出 VA03 畫面上「銷售訂單號碼」欄位的 Data Element，再用 Where-Used List 找出所有含此資料元素的資料表。答案要點：Data Element = VBELN_VA，會找到 VBAK、VBAP、VBFA 等。
12. 用 ST05 追一次 ME23N 的顯示動作，說出它讀了哪些表；再用 SE16H 對 EKPO 做 Group by LIFNR 的金額小計。
13. 說明在 S/4HANA 中，下列各項的現況：MSEG、KONV、VBUK、MARD、BSIS、COEP。答案要點：分別對應 MATDOC、PRCD_ELEMENTS、併入 VBAK、NSDM 相容視圖、ACDOCA 相容視圖、ACDOCA。
14. 用 SE39 把「自己寫的 ZUSERS」與「老師版 ZUSERS」並排比較，列出三個你改掉的地方與理由。
15. Infotype 為什麼要切這麼細？用「安全」與「歷史」兩個角度各舉一個例子。再說明 PA0001 與 HRP1001 的差別。
16. 依命名規則，替下列需求取名：一支 MM 的 BDC 程式、一個 SD 的搜尋說明、一個 append 到 EKPO 的結構、一個 FI 的 Function Group。參考答案：ZMMB0001、ZSH_xxx、ZZEKPO、ZFI_xxxx。

第 1-4 章 不寫程式的報表開發：SQVI QuickViewer / SQ01 SQ02 SQ03 InfoSet Query / SQ99

這一章的教學重點只有一句話：在不寫一行程式的狀況下，完成二階（多表聯結）報表的查詢。你會學到 SQVI 快速檢視器（三分鐘出報表、但只屬於你自己），以及 SQ03 使用者群組 → SQ02 InfoSet → SQ01 Query 這套「三件套」的正確建立順序、資料來源怎麼選、附加欄位怎麼補、產生出來的 AQ 程式名怎麼解碼、怎麼掛成 TCODE、怎麼傳輸到 QAS/PRD，最後是什麼時候該放棄 Query 直接寫 ABAP，以及 S/4HANA 時代改用 CDS View ＋ Fiori Embedded Analytics 的時機。老師說這門課三小時可以教完，但它能幫你擋掉一半以上的臨時報表需求。

1. 三層工具的定位：SE16H → SQVI → SAP Query → 自己寫程式

使用者丟一個報表需求過來，先問自己「非得寫程式不可嗎？」。SAP 給了一整排不寫程式的工具，成本由低到高排序如下：

2. SQVI QuickViewer：最快的個人報表（但不可傳輸）

SQVI 是 SAP Query 的「單人簡化版」。它不需要使用者群組、不需要 InfoSet，一個畫面內就把「選哪些表、怎麼聯結、要哪些欄位、要哪些選擇條件」全部做完。（依講義步驟整理）

1. 進入 SQVI，輸入 QuickView 名稱（最長 14 碼，建議 ZERP###V），按「建立」。
2. 輸入抬頭說明（Title）、備註，選擇資料來源：
   • 表格（Table）：只查一張表，最單純。
   • 表格聯結（Table join）：多表聯結，二階報表就選這個。
   • 邏輯資料庫（Logical database）：沿用 SAP 標準的取數樹（含權限檢查）。
   • InfoSet：直接沿用 SQ02 已經做好的 InfoSet。
3. 選擇「表格聯結」後進入 Join 畫面，按「插入表格」加入第二張表；SAP 會依外鍵自動連線，務必檢查自動連上的欄位是否正確，多餘的連線用滑鼠右鍵刪除。
4. 回到基本清單（Basis mode）畫面，左邊是欄位群組樹，勾選 清單欄位（List fields） 與 選擇欄位（Selection fields）。
5. 存檔後按 執行（F8），出現選擇畫面 → 再 F8 → ALV 報表。

講義第 11 節的實作是 SQVI 品質檢驗：把 VBAP（銷售訂單行項目）與 QALS（檢驗批記錄）聯結，做出「待出貨訂單對應成品檢驗狀態」的清單。Join 條件通常走物料與工廠（VBAP-MATNR = QALS-MATNR、VBAP-WERKS = QALS-WERK），必要時再加交貨單（QALS 的檢驗批來源可為交貨 LIKP/LIPS）。（依講義步驟整理）

3. SQ03 使用者群組：三件套的第一步

SAP Query 的建立順序是固定的，講義特別提醒：「設計之前，要先將 INFOSET、USER_GROUP 指定正確。」

SQ03 建立步驟（依講義步驟整理）：

1. 進 SQ03，先看畫面上方的查詢區（Query Area）是不是你要的（見下一節），必要時用「環境 → 查詢區」切換。
2. 輸入使用者群組名稱（講義用 ZCERPS、ZVBAP_QALS、ZVBAK_KNA1、Z000），按「建立」，輸入說明文字後存檔。
3. 按 「指定使用者與 InfoSet」：
   • 指定使用者：把要執行報表的 SAP 帳號加進來。有勾「Change authorization」的人才能改 Query。
   • 指定 InfoSet：把 SQ02 做好的 InfoSet 打勾掛進這個群組（InfoSet 還沒建時先跳過，建完再回來掛）。

4. 查詢區 Standard Area 與 Global Area：能不能傳輸的關鍵

SAP Query 的所有物件（使用者群組、InfoSet、Query）都存在某個查詢區裡，這決定了它的可見範圍與傳輸方式。講義第 01-3 節的「AREA 群組範圍」講的就是這件事。

如何切換查詢區：在 SQ01／SQ02／SQ03 任一畫面，選單「環境（Environment） → 查詢區（Query Areas）」，選「標準區」或「全域區」。切錯區最典型的症狀是「明明建好了卻在清單裡找不到」。

SU01 參數 AQW（講義 10-1）：在 SU01（或使用者自己用 SU3）的「參數」頁籤加一筆參數 ID AQW，就能指定該使用者預設進入的查詢區；填 G 代表預設進全域區。講義的說法是「maintain AQW parameter in SU01 for required user ID and SAVE，This will enable that particular User to see all ABAP Queries」——實際效果是讓該使用者一登入 SQ01 就看到全域區的 Query，不必每次手動切換。

5. SQ02 InfoSet：資料來源怎麼選

InfoSet 是三件套裡最重要、也最需要動腦的一層。它回答兩個問題：資料從哪裡來、使用者可以看到哪些欄位。

建立 InfoSet 時，SAP 會要你四選一：

SQ02 建立步驟（依講義步驟整理）：

1. 進 SQ02，確認查詢區，輸入 InfoSet 名稱（講義：ZKNA1_KNB1、ZVBAP_QALS、ZVBAK_KNA1），按「建立」。
2. 輸入說明文字，選「表格聯結」並填第一張表（主表），Enter。
3. 在 Join 畫面按「插入表格」加入第二張表；SAP 依外鍵自動畫連線，手動核對每一條連線；按右鍵可切換 Inner／Left Outer Join。
4. 回上一頁時，SAP 問「欄位群組（Field Groups）」要怎麼建，通常選 「每個表格一個欄位群組，只含清單欄位／關鍵欄位」 或「包含所有表格欄位」。欄位群組決定使用者在 SQ01 看到的欄位分類。
5. 把需要的欄位從右邊的表格樹拖進左邊的欄位群組（沒有拖進去的欄位，SQ01 就選不到）。
6. 存檔 → 產生（Generate，Ctrl+F3）。沒有按產生，Query 端不會看到你的修改。
7. 按「角色／使用者群組指派」，把這個 InfoSet 掛給 SQ03 建好的使用者群組。

講義的三個 InfoSet 實作：

• ZKNA1_KNB1（02-1）：客戶一般資料 KNA1 ＋ 公司代碼資料 KNB1，Join 條件 KNA1-KUNNR = KNB1-KUNNR。用來查「客戶編號與帳號（統馭科目 AKONT）關聯」。
• ZVBAP_QALS（02-2）：銷售訂單行項目 VBAP ＋ 檢驗批 QALS，用來查「待出貨訂單與成品檢驗」。
• ZVBAK_KNA1（02-3）：銷售訂單抬頭 VBAK ＋ 客戶主檔 KNA1，Join 條件 VBAK-KUNNR = KNA1-KUNNR，即「訂單主檔＋客戶名稱」。

6. Join 的陷阱：Inner Join、Left Outer Join 與效能

InfoSet 的 Join 就是 ABAP SQL 的 Join，所有 SQL 的坑它一個都不會少。以下三個是最常踩的。

坑一：該用 Left Outer 卻用了 Inner，資料整批消失。例如 VBAP ＋ QALS，如果某些訂單行項目還沒有檢驗批，Inner Join 會把它們整批濾掉，使用者就會說「我的訂單少了一半」。

" 用 ABAP SQL 表達 InfoSet 裡那條 Join：VBAP + QALS（出貨檢驗）
" Left Outer Join：沒有檢驗批的訂單行項目也要留下來
SELECT a~vbeln,
       a~posnr,
       a~matnr,
       a~werks,
       a~kwmeng,
       a~vrkme,
       b~prueflos,          " 檢驗批號
       b~herkunft,          " 檢驗批來源（01 進料、03 生產、04 交貨…）
       b~stat34,            " 使用決策已作成
       b~lmengezu           " 允收數量
  FROM vbap AS a
  LEFT OUTER JOIN qals AS b
    ON  b~matnr = a~matnr
    AND b~werk  = a~werks
 WHERE a~vbeln IN @s_vbeln
   AND a~matnr IN @s_matnr
  INTO TABLE @DATA(lt_out).

IF lt_out IS INITIAL.
  MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'W'.
  RETURN.
ENDIF.

坑二：Join 太多張表，HANA 上照樣慢。InfoSet 裡拉五、六張表很容易，但每多一張表就是一次 Join。實務建議：主表加 1～2 張參照表就好，文字（MAKT、T001W 之類）盡量用「附加表格」在 RECORD PROCESSING 裡單筆讀，或改用有內建文字的 CDS View。

坑三：沒有給有索引的選擇欄位。Query 的選擇畫面是使用者自己填的，如果沒有把 MANDT 以外的主鍵／索引欄位放進選擇欄位，使用者就會用一個沒有索引的欄位掃全表。做 InfoSet 時，一定要把主表的關鍵欄位（VBELN、MATNR、KUNNR、WERKS、日期）都放進欄位群組。

7. 附加欄位 Additional Field 與 InfoSet 的 ABAP 程式碼區段

InfoSet 比 SQVI 強大的地方，就在於它可以加欄位、寫程式。在 SQ02 的 Join／欄位畫面，選單「附加項（Extras）」可以新增三種東西：

新增附加欄位的步驟（依講義步驟整理）：Extras → 建立 → 選「附加欄位」→ 輸入欄位名稱（建議 Z 開頭）→ 指定長度、輸出長度、資料型態（或直接「Like 參考欄位」指向某個 DDIC 欄位）→ 輸入抬頭文字（Header）→ 存檔 → 切到 Code 頁籤寫程式 → 回主畫面把它拖進欄位群組 → Generate。

InfoSet 的程式碼區段（Code 頁籤上方的下拉選單）依執行時機分成幾段，觀念跟一支 ABAP 報表的事件一樣：

下面是一段實用的 RECORD PROCESSING 範例，示範「算出未交量、把狀態轉成中文、算出交期逾期天數」。InfoSet 的程式碼區段裡，表格欄位是以工作區形式直接引用（例如 VBAP-KWMENG），這是 SAP Query 產生器的規定寫法，不能改成內嵌宣告的變數名。

" ===== 區段：DATA（宣告）=====
TYPES: BEGIN OF ty_makt,
         matnr TYPE makt-matnr,
         maktx TYPE makt-maktx,
       END OF ty_makt.
DATA gt_makt TYPE HASHED TABLE OF ty_makt WITH UNIQUE KEY matnr.

" ===== 區段：START-OF-SELECTION（只跑一次，先把品名一次撈進緩衝）=====
SELECT matnr, maktx
  FROM makt
 WHERE spras = @sy-langu
  INTO TABLE @gt_makt.

" ===== 區段：RECORD PROCESSING（每一筆資料都會跑）=====
" 1. 未交數量 = 訂單量 - 已交量
ZOPEN_QTY = VBAP-KWMENG - VBAP-KLMENG.

" 2. 用緩衝內表取品名，避免在迴圈裡下 SELECT
ZMAKTX = COND #( WHEN line_exists( gt_makt[ matnr = VBAP-MATNR ] )
                 THEN gt_makt[ matnr = VBAP-MATNR ]-maktx
                 ELSE '' ).

" 3. 檢驗狀態中文化（QALS-STAT34 = 'X' 代表已作使用決策）
ZQM_STATUS = SWITCH string( QALS-STAT34
                            WHEN 'X' THEN '檢驗完成'
                            ELSE          '檢驗中／未檢驗' ).

" 4. 交期逾期天數（負數代表尚未到期）
ZDELAY_DAYS = sy-datum - VBAP-EDATU.

" 5. 過濾：只留下有未交量的資料（CHECK 不成立就跳過這一筆）
CHECK ZOPEN_QTY > 0.

8. SQ01 設計報表：從欄位到版面

InfoSet 準備好、使用者群組也掛好之後，才輪到 SQ01。步驟（依講義步驟整理）：

1. 進 SQ01，先按「使用者群組（Shift+F7）」選定群組（例如 ZVBAP_QALS）——沒選群組就建不出 Query。
2. 輸入 Query 名稱（講義：QUE_KNV1、ZVBAP_QALS、QUE_VBAK_KNA1），按「建立」，選 InfoSet。
3. 第 1 頁：抬頭與備註——填 Query 標題、備註，以及輸出格式（SAP List Viewer／ALV Grid 最常用，也可選 ABAP List、Excel、Word 合併列印、下載檔案）。
4. 第 2 頁：選擇欄位群組——勾選這個 Query 要用到哪些欄位群組。
5. 第 3 頁：選擇欄位——勾選要出現在報表上的欄位。
6. 第 4 頁：選擇（Selections）——勾選哪些欄位要出現在選擇畫面上，並可指定是 SELECT-OPTION 還是 PARAMETER、是否必填。
7. 基本清單（Basic List）——排欄位順序（Line/Sequence）、排序（Sort）、小計（Total／Counter）、群組小計。
8. 還可再做 統計清單（Statistics）與排名清單（Ranked List），做出「前 10 大客戶」這種報表。
9. 存檔 → 執行（F8）→ 測試 → 回頭調整。

9. 產生的程式：AQ 開頭的程式名怎麼解碼

存檔 Query 時，SAP 會偷偷幫你產生一支真的 ABAP 程式，名字是 AQ 開頭的 30 碼怪名字。講義列出的三個實例：

名稱結構：第 1～2 碼固定是 AQ；第 3～4 碼是查詢區／工作區識別；第 5～16 碼（12 碼）是使用者群組，不足以 = 補滿；第 17～30 碼（14 碼）是 Query 名稱，不足一樣以 = 補滿。所以看到 AQZZZCERPS======QUE_KNV1======，去掉等號就知道是「使用者群組 ZCERPS 的 Query QUE_KNV1」。

不用自己數格子，SAP 有現成的函數 RSAQ_DECODE_REPORT_NAME：在 SE37 直接測試執行，輸入程式名就會回傳 Query、InfoSet 與使用者群組。這在「PRD 出現 dump 只知道程式名是 AQ 開頭」時特別好用。

REPORT zaq_decode.

PARAMETERS p_prog TYPE progname OBLIGATORY
           DEFAULT 'AQZZZVBAP_QALS==ZVBAP_QALS===='.

START-OF-SELECTION.

  DATA lv_query     TYPE aqadef-quname.
  DATA lv_usergroup TYPE aqadef-bgname.
  DATA lv_infoset   TYPE aqadef-isname.
  DATA lv_workspace TYPE aqadef-wsid.

  " 用標準函數把 AQ 程式名還原成 Query / InfoSet / 使用者群組
  TRY.
      CALL FUNCTION 'RSAQ_DECODE_REPORT_NAME'
        EXPORTING
          program   = p_prog
        IMPORTING
          workspace = lv_workspace
          usergroup = lv_usergroup
          query     = lv_query
          infoset   = lv_infoset.
    CATCH cx_root INTO DATA(lx_err).
      MESSAGE lx_err->get_text( ) TYPE 'E'.
  ENDTRY.

  WRITE: / |查詢區 Workspace : { lv_workspace }|,
         / |使用者群組 Group : { lv_usergroup }|,
         / |InfoSet         : { lv_infoset }|,
         / |Query           : { lv_query }|.

產生的程式長成下面這樣。它是系統自動產生的骨架，只是把工作丟給幾支同樣自動產生的 Function Module（...EXTR 取數、...SHOW 顯示）：

REPORT AQZZZVBAP_QALS==ZVBAP_QALS====.

INCLUDE /1BCDWB/IQG000000000008DAT.          " 資料宣告（自動產生）
DATA %dtab TYPE STANDARD TABLE OF /1BCDWB/IQG000000000008 WITH HEADER LINE.
DATA %subrc TYPE sy-subrc.
INCLUDE /1BCDWB/IQG000000000008SSCR.         " 選擇畫面（自動產生）
INCLUDE /1BCDWB/IQG000000000008SSCRAT.       " 選擇畫面事件（自動產生）

START-OF-SELECTION.
  IF %runmode-extr_on <> space.
    CALL FUNCTION '/1BCDWB/IQG000000000008EXTR'   " 取數
      TABLES     %selopt = %seloptions
                 %dtab   = %dtab
      CHANGING   %rtmode = %runmode
      EXCEPTIONS no_data = 1
                 OTHERS  = 2.
    %subrc = sy-subrc.
    CALL FUNCTION 'RSAQRT_CHECK_EXTR'
      EXPORTING extr_subrc = %subrc
      TABLES    dtab       = %dtab
      CHANGING  rtmode     = %runmode.
  ENDIF.

END-OF-SELECTION.
  IF %runmode-show_on <> space.
    CALL FUNCTION '/1BCDWB/IQG000000000008SHOW'   " 顯示（ALV）
      TABLES   %dtab   = %dtab
      CHANGING %rtmode = %runmode.
  ENDIF.

10. 把 Query 掛成 TCODE：方式一（直接掛程式）與方式二（START_REPORT 參數交易）

方式一：SE93 直接掛 AQ 程式

最直覺的做法：SE93 → 建立交易碼（講義：ZQUE_KNV1、ZVBAP_QALS、ZVBAK_KNA1）→ 選「使用選擇畫面的程式與變式（Report Transaction）」→ 程式名填那 30 碼的 AQ...。

方式二：START_REPORT 參數交易（推薦）

SAP 提供標準程式 START_REPORT，它接受三個參數，執行時動態算出該叫哪支 Query，就不受 AQ 程式名變動影響。先在 SE38 執行 START_REPORT 試跑，確認參數填對，再去 SE93 做成 TCODE。講義的原話是：「確保可以試行成功，再做 SE93。」

SE93 建立參數交易的步驟（依講義步驟整理）：

1. SE93 → 輸入交易碼（講義：ZVBAP_QALS2、ZQUE_VBAK_KNA1，建議命名 ZERP###A）→ 建立。
2. 選 「具有參數的交易（Transaction with parameters / parameter transaction）」。
3. Transaction 填 START_REPORT；勾選 「Skip initial screen（略過起始畫面）」與 「Inherit GUI attributes」。
4. 下方參數表填入三行：D_SREPOVARI-REPORTTYPE = AQ、D_SREPOVARI-REPORT = <使用者群組>+G、D_SREPOVARI-EXTDREPORT = <Query 名>。
5. 存檔、掛傳輸請求、測試。

11. 從 Query 畢業：把它變成自己的 Z 程式

Query 做到一個程度就會撞牆：要加複雜判斷、要串多個資料來源、要效能、要寫測試。這時有三條路。

路一：直接 SUBMIT 那支 AQ 程式，把結果撈回來加工。適合「Query 已經對了，只是要多做一點事」。

REPORT zque_wrapper.

SELECT-OPTIONS s_vbeln FOR vbak-vbeln.

START-OF-SELECTION.

  " 把選擇條件組成 RSPARAMS，動態丟給 Query 產生的程式
  DATA(lt_seltab) = VALUE rsparams_tt(
    FOR ls_r IN s_vbeln (
      selname = 'SP$00001'          " Query 選擇畫面上的欄位名，可在 SE38 顯示程式時查到
      kind    = 'S'
      sign    = ls_r-sign
      option  = ls_r-option
      low     = ls_r-low
      high    = ls_r-high ) ).

  SUBMIT ('AQZZZ000========QUE_VBAK_KNA1=')
    WITH SELECTION-TABLE lt_seltab
    AND RETURN.

路二：用標準函數 RSAQ_QUERY_CALL 取得 Query 的資料。比 SUBMIT 乾淨得多，因為你傳的是「使用者群組 ＋ Query 名 ＋ 查詢區」這種穩定的邏輯名稱，而不是 30 碼的實體程式名。

REPORT zque_call.

START-OF-SELECTION.

  DATA lt_seltab  TYPE TABLE OF rsparams.
  DATA lt_listdsc TYPE TABLE OF rsaqldesc.
  DATA lr_data    TYPE REF TO data.

  TRY.
      CALL FUNCTION 'RSAQ_QUERY_CALL'
        EXPORTING
          workspace       = 'G'                 " 'G' = 全域區；空白 = 標準區
          query           = 'QUE_VBAK_KNA1'     " SQ01 的 Query 名
          usergroup       = 'ZVBAK_KNA1'        " SQ03 的使用者群組
          skip_selscreen  = 'X'                 " 不顯示選擇畫面
          data_to_memory  = 'X'                 " 資料放記憶體，不直接輸出清單
        IMPORTING
          ref_to_ldata    = lr_data             " 指向結果內表的參考
        TABLES
          selection_table = lt_seltab           " 選擇條件
          listdesc        = lt_listdsc.         " 欄位描述

      " 用 Field Symbol 接住動態產生的結果內表
      ASSIGN lr_data->* TO FIELD-SYMBOL(<lt_result>).
      IF <lt_result> IS ASSIGNED.
        cl_salv_table=>factory(
          IMPORTING r_salv_table = DATA(lo_alv)
          CHANGING  t_table      = <lt_result> ).
        lo_alv->get_functions( )->set_all( ).
        lo_alv->display( ).
      ENDIF.

    CATCH cx_root INTO DATA(lx_err).
      MESSAGE lx_err->get_text( ) TYPE 'E'.
  ENDTRY.

路三（正解）：把 InfoSet 的 Join 直接改寫成一支自己的 ABAP 報表。Query 只是幫你想清楚了資料模型，真正要長期維護的東西，還是自己寫比較好。下面把講義的 ZVBAK_KNA1（訂單抬頭＋客戶主檔）寫成現代 ABAP：

REPORT zsd_order_customer.

TABLES: vbak.   " 僅為了讓 SELECT-OPTIONS 取得型別參考

SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,
                s_kunnr FOR vbak-kunnr,
                s_erdat FOR vbak-erdat.
PARAMETERS: p_vkorg TYPE vbak-vkorg.

START-OF-SELECTION.

  " InfoSet ZVBAK_KNA1 的 Join：VBAK-KUNNR = KNA1-KUNNR
  SELECT h~vbeln,
         h~erdat,
         h~auart,          " 訂單類型
         h~vkorg,          " 銷售組織
         h~vtweg,
         h~spart,
         h~kunnr,          " 售達方
         h~netwr,          " 淨值
         h~waerk,          " 幣別
         c~name1 AS cust_name,
         c~ort01 AS city,
         c~land1 AS country
    FROM vbak AS h
    INNER JOIN kna1 AS c ON c~kunnr = h~kunnr
   WHERE h~vbeln IN @s_vbeln
     AND h~kunnr IN @s_kunnr
     AND h~erdat IN @s_erdat
     AND ( @p_vkorg IS INITIAL OR h~vkorg = @p_vkorg )
   ORDER BY h~vbeln
    INTO TABLE @DATA(lt_order).

  IF lt_order IS INITIAL.
    MESSAGE |查無符合條件的訂單| TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory(
        IMPORTING r_salv_table = DATA(lo_alv)
        CHANGING  t_table      = lt_order ).

      lo_alv->get_functions( )->set_all( ).
      lo_alv->get_columns( )->set_optimize( abap_true ).
      lo_alv->get_display_settings( )->set_list_header( |訂單主檔與客戶清單（共 { lines( lt_order ) } 筆）| ).
      lo_alv->display( ).

    CATCH cx_salv_msg INTO DATA(lx_salv).
      MESSAGE lx_salv->get_text( ) TYPE 'E'.
  ENDTRY.

同樣的邏輯套用在講義第一個實作 ZKNA1_KNB1（客戶編號與帳號關聯）：

REPORT zfi_customer_account.

TABLES kna1.

SELECT-OPTIONS: s_kunnr FOR kna1-kunnr.
PARAMETERS      p_bukrs TYPE knb1-bukrs OBLIGATORY.

START-OF-SELECTION.

  " InfoSet ZKNA1_KNB1：KNA1（一般資料）＋ KNB1（公司代碼資料）
  SELECT a~kunnr,
         a~name1,
         a~land1,
         a~ort01,
         b~bukrs,          " 公司代碼
         b~akont,          " 統馭科目（客戶對應的總帳科目）
         b~zterm,          " 付款條件
         b~zwels,          " 付款方式
         b~loevm AS del_flag
    FROM kna1 AS a
    INNER JOIN knb1 AS b ON b~kunnr = a~kunnr
   WHERE a~kunnr IN @s_kunnr
     AND b~bukrs = @p_bukrs
   ORDER BY a~kunnr
    INTO TABLE @DATA(lt_cust).

  cl_salv_table=>factory(
    IMPORTING r_salv_table = DATA(lo_alv)
    CHANGING  t_table      = lt_cust ).
  lo_alv->get_functions( )->set_all( ).
  lo_alv->display( ).

12. SQ00、SQ99 與 Query 家族 TCODE 一覽

Query 跳轉（Drill-down，講義 10-2）：在 SQ01 的「基本清單」設計畫面，可以用選單「Goto → 報表指派（Report assignment）」把某個欄位連結到另一支報表或交易（例如點訂單號跳 VA03、點客戶號跳 XD03）。這樣使用者從清單可以直接鑽進單據，是 Query 最受歡迎的功能之一。（依講義步驟整理）

13. Report Painter / Report Writer：另一條不寫程式的路

SAP 還有另一套「不寫程式」的報表工具，方向完全不同，常被拿來跟 SAP Query 混淆。

14. S/4HANA 補充：什麼時候該改用 CDS View ＋ Fiori

SAP Query 在 S/4HANA 1809 之後仍然可以用，SAP 也沒有宣告停用，但它已經是「classic」工具。S/4 的官方報表路線是 CDS View → OData → Fiori Elements，也就是 Embedded Analytics。

把 InfoSet 的 Join 改寫成 CDS View（用 ADT／Eclipse 建立 Data Definition）：

@AbapCatalog.sqlViewName: 'ZVSDORDCUST'
@AbapCatalog.compiler.compareFilter: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: '銷售訂單 + 客戶（取代 InfoSet ZVBAK_KNA1）'
define view Z_I_SalesOrderCustomer
  as select from vbak as SalesOrder
    inner join   kna1 as Customer
      on SalesOrder.kunnr = Customer.kunnr
{
  key SalesOrder.vbeln          as SalesOrderId,
      SalesOrder.erdat          as CreationDate,
      SalesOrder.auart          as OrderType,
      SalesOrder.vkorg          as SalesOrganization,
      SalesOrder.kunnr          as SoldToParty,
      Customer.name1            as CustomerName,
      Customer.land1            as Country,
      @Semantics.amount.currencyCode: 'Currency'
      SalesOrder.netwr          as NetAmount,
      @Semantics.currencyCode: true
      SalesOrder.waerk          as Currency
}

再加上分析註解，就能直接被 Fiori 的分析清單頁（Analytical List Page）與 Query Browser 使用：

@AbapCatalog.sqlViewName: 'ZVSDORDCUBE'
@Analytics.dataCategory: #CUBE           " 宣告為分析用的 Cube
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: '銷售訂單分析 Cube'
define view Z_C_SalesOrderCube
  as select from Z_I_SalesOrderCustomer
{
      @ObjectModel.foreignKey.association: '_Customer'
  key SalesOrderId,
      @Consumption.filter.selectionType: #INTERVAL
      @Consumption.filter.mandatory: true
      CreationDate,
      SalesOrganization,
      SoldToParty,
      CustomerName,
      Country,
      @DefaultAggregation: #SUM          " 金額預設加總
      @Semantics.amount.currencyCode: 'Currency'
      NetAmount,
      @Semantics.currencyCode: true
      Currency
}

15. 常用 SAP 標準表速查（做 InfoSet 前先背起來）

講義 10-5 節整理了一份標準表清單，這是做 Join 的彈藥庫，完整保留如下。

SD 主資料：客戶主檔

SD 主資料：價格條件

SD 憑證：訂單、交貨、發票

MM 主資料：物料

MM 主資料：供應商

MM 憑證：採購與物料異動

FI / CO 常用透明表

QM 品質管理

PP 生產計劃

狀態（Status）相關表

使用者與固定資產

16. 傳輸、授權與運維檢查表

• 傳輸：全域區物件 → 掛傳輸請求走 STMS；標準區物件 → 用 RSAQR3TR 匯出／匯入。傳輸順序一定是 使用者群組 → InfoSet → Query，順序反了會因為找不到相依物件而失敗。
• 授權：核心權限物件是 S_QUERY（02＝維護、23＝傳輸），加上使用者要被指派到對應的 SQ03 使用者群組；此外報表讀到的資料表仍受 S_TABU_DIS／S_TABU_NAM 與模組權限（如 V_VBAK_VKO）管制。權限出問題先跑 SU53。
• 使用者參數：AQW＝預設查詢區（填 G 進全域區）。
• 升級後：Query 產生的 AQ 程式需要重新產生，否則 TCODE 會 dump LOAD_PROGRAM_NOT_FOUND。
• 命名：使用者群組、InfoSet、Query 一律 Z 開頭，Query 建議 QUE_ 前綴，TCODE 用 Z 開頭。
• 文件化：把「TCODE ↔ Query ↔ InfoSet ↔ 使用者群組 ↔ AQ 程式名」做成一張對照表存起來。這張表在別人接手時價值連城。

最後給一段小工具程式，把系統裡所有 AQ 開頭的程式列出來並解碼，一次盤點所有 Query：

REPORT zaq_inventory.

START-OF-SELECTION.

  " 找出所有由 SAP Query 產生的報表程式
  SELECT name AS progname
    FROM trdir
   WHERE name LIKE 'AQ%'
     AND subc = '1'                 " 1 = 可執行報表
   ORDER BY name
    INTO TABLE @DATA(lt_prog).

  TYPES: BEGIN OF ty_out,
           progname  TYPE progname,
           usergroup TYPE aqadef-bgname,
           query     TYPE aqadef-quname,
           infoset   TYPE aqadef-isname,
         END OF ty_out.
  DATA lt_out TYPE STANDARD TABLE OF ty_out.

  LOOP AT lt_prog ASSIGNING FIELD-SYMBOL(<ls_prog>).
    CLEAR: DATA(lv_grp), DATA(lv_qry), DATA(lv_iset).
    CALL FUNCTION 'RSAQ_DECODE_REPORT_NAME'
      EXPORTING program   = <ls_prog>-progname
      IMPORTING usergroup = lv_grp
                query     = lv_qry
                infoset   = lv_iset
      EXCEPTIONS OTHERS    = 1.
    CHECK sy-subrc = 0.
    APPEND VALUE #( progname  = <ls_prog>-progname
                    usergroup = lv_grp
                    query     = lv_qry
                    infoset   = lv_iset ) TO lt_out.
  ENDLOOP.

  cl_salv_table=>factory(
    IMPORTING r_salv_table = DATA(lo_alv)
    CHANGING  t_table      = lt_out ).
  lo_alv->get_functions( )->set_all( ).
  lo_alv->get_display_settings( )->set_list_header( |系統內 SAP Query 盤點（{ lines( lt_out ) } 支）| ).
  lo_alv->display( ).

練習與自我檢核

1. （講義 11 節）SQVI 品質檢驗：用 SQVI 建 ZERP###V，聯結 VBAP 與 QALS，做出「待出貨訂單＋檢驗批狀態」清單。
   提示：資料來源選「表格聯結」，Join 條件 MATNR＋WERKS；輸出欄位至少要有 VBELN、POSNR、MATNR、KWMENG、PRUEFLOS、HERKUNFT、STAT34。做完想想：為什麼這份 QuickView 沒辦法給主管執行？
2. （講義 02-1）ZKNA1_KNB1：用 SQ03 建使用者群組、SQ02 建 InfoSet 聯結 KNA1＋KNB1、SQ01 做出「客戶編號 → 統馭科目（AKONT）」對照表。
   提示：KNB1 一定要用 BUKRS 當必填選擇條件，否則跨公司代碼的客戶會出現重複列。
3. （講義 02-3 / 03-3）ZVBAK_KNA1 ＋ QUE_VBAK_KNA1：做出訂單抬頭＋客戶名稱報表，並在 SQ01 加上「依銷售組織小計淨值」。
   提示：小計要在「基本清單」畫面對 VKORG 設 Sort，再對 NETWR 勾 Total。
4. 把第 3 題的 Query 用 方式二 START_REPORT 掛成 TCODE ZERP###A。
   答案要點：REPORTTYPE＝AQ；REPORT＝使用者群組補空白到 12 碼＋第 13 碼 G；EXTDREPORT＝Query 名。做之前先在 SE38 執行 START_REPORT 試跑成功。
5. 找出第 3 題 Query 產生的程式名，並說明它的 30 碼各代表什麼。
   答案要點：SQ01 選單「Query → 其他功能 → 顯示報表名稱」，或用 RSAQ_DECODE_REPORT_NAME；AQ＋區域 2 碼＋使用者群組 12 碼（以＝補滿）＋Query 名 14 碼（以＝補滿）。
6. 在 InfoSet 裡加一個附加欄位「未交數量」＝ KWMENG − KLMENG，並讓它只顯示大於 0 的資料。
   答案要點：Extras → 附加欄位 → 型別參考 VBAP-KWMENG；程式寫在 RECORD PROCESSING；過濾用 CHECK。
7. 解釋：為什麼在 RECORD PROCESSING 裡寫 SELECT SINGLE maktx FROM makt ... 是壞習慣？該怎麼改？
   答案要點：每筆資料一次 DB 存取；改成 START-OF-SELECTION 一次撈進 HASHED TABLE，或用「附加表格」。
8. 你的 Query 在 DEV 100 建好了，PRD 的使用者說看不到。列出三個要檢查的地方。
   答案要點：(a) 建在標準區還是全域區？標準區要跑 RSAQR3TR；(b) 使用者有沒有被指派到該 SQ03 使用者群組；(c) S_QUERY 與資料表權限（SU53）。
9. 比較 SAP Query 與 Report Painter 的差異，各舉一個最適合的報表需求。
   答案要點：Query＝明細清單（訂單清單）；Report Painter＝期間矩陣（成本中心實際 vs 預算）。
10. 在 S/4HANA 上，什麼情況你會選擇「不做 Query，直接建 CDS View」？至少說三個理由。
    答案要點：需要被多處重用／要曝露成 OData 給 Fiori 或外部系統／要進 Embedded Analytics 做下鑽與圖表／要版本控管與傳輸／效能需要 code pushdown。
11. 把講義的 ZVBAP_QALS InfoSet 改寫成一支自己的 ABAP 報表（CL_SALV_TABLE），並加上 Left Outer Join 讓沒有檢驗批的訂單也能顯示。
    提示：對照本章第 6 節的程式碼，注意 QALS 的過濾條件要放在 ON 而不是 WHERE。
12. 用本章最後的 ZAQ_INVENTORY 概念，盤點你手上系統有幾支 Query、分屬哪些使用者群組，並整理成「TCODE ↔ Query ↔ InfoSet」對照表。

第 2-1 章 基本語法：資料型別 / 判斷式 / 迴圈 / 日期時間 / 字串處理

這一章是 ABAP 的地基：宣告什麼型別、值怎麼在型別之間搬、判斷與迴圈怎麼寫、日期時間怎麼算、字串怎麼切怎麼拼、金額小數怎麼才不會差一塊錢。老師在講義裡放了 20 支練習程式（ZDATATYPE01～ZDATATYPE20）與 10 個作業，這裡全部整理成可查閱的條目，並把 1992 年代的舊寫法一律改寫成 S/4HANA 1809 以後可直接編譯執行的現代 ABAP。學完之後，你看到任何一段別人寫的老程式，都能立刻判斷它在做什麼、以及該怎麼改。

1. 內建資料型別總表（先把這張表背起來）

ABAP 的「資料型別」本身不佔記憶體，只有「資料物件（變數／常數）」才佔記憶體。型別可以是系統預定義（built-in）、也可以是 SE11 裡的 Data Element / Domain。下表是講義的核心表格，加上 S/4HANA 常用但講義只帶過的幾個型別。

講義強調的五個取值規則，實務上天天踩到：

• 不寫 TYPE 時，預設型別是 C（DATA lv_a(10). 等同 TYPE c）。
• C 型從左取、N 型從右取，超過定義長度就截斷。
• C 可以放數字、文字或混合；但把 C 當數值用時是靠右對齊解讀。
• D 與 T 可以直接做四則運算（D 加減的單位是「天」，T 加減的單位是「秒」）。
• P 一定要用 DECIMALS 宣告小數位，沒寫就等於整數。

REPORT zdatatype01.
" 練習 01：C N D T I P F 的初始值 — 看清楚每個型別「空的時候長什麼樣」
DATA lv_c TYPE c LENGTH 1.
DATA lv_d TYPE d.
DATA lv_f TYPE f.
DATA lv_i TYPE i.
DATA lv_n TYPE n LENGTH 1.
DATA lv_p TYPE p LENGTH 8 DECIMALS 2.
DATA lv_t TYPE t.

cl_demo_output=>write( |LV_C: >{ lv_c }<| ).      " space
cl_demo_output=>write( |LV_D: { lv_d }| ).          " 00000000
cl_demo_output=>write( |LV_F: { lv_f }| ).          " 0.0
cl_demo_output=>write( |LV_I: { lv_i }| ).          " 0
cl_demo_output=>write( |LV_N: { lv_n }| ).          " 0
cl_demo_output=>write( |LV_P: { lv_p }| ).          " 0.00
cl_demo_output=>write( |LV_T: { lv_t }| ).          " 000000
cl_demo_output=>display( ).

2. TYPES / DATA / CONSTANTS / STATICS：宣告的四把刀

TYPES 定義的是「型別」，不能賦值；DATA 才是「變數」；CONSTANTS 是一經定義就不能改的常數；STATICS 是「離開副程式仍然記得上次的值」的區域變數。

REPORT zdatatype02.
" 練習 02：字面值、系統變數、日期可運算
CONSTANTS c_pi TYPE p LENGTH 8 DECIMALS 5 VALUE '3.14159'.

DATA lv_c TYPE c LENGTH 10 VALUE 'ABCDEFGHIJK'.   " 超過 10 碼 → 右邊被截掉
DATA lv_n TYPE n LENGTH 10 VALUE '123456789'.     " N 靠右、左補 0 → 0123456789
DATA lv_p TYPE p LENGTH 8 DECIMALS 2 VALUE '1234567890.88'.
"  P 有小數時，VALUE 一定要用單引號括起來，否則語法錯誤

DATA(lv_today) = sy-datum.                        " 內嵌宣告，型別自動是 D
DATA(lv_now)   = sy-uzeit.                        " 型別自動是 T

DATA(lv_d30)  = CONV d( lv_today + 30 ).          " 日期 +30 天
DATA(lv_t1h)  = CONV t( lv_now + 3600 ).          " 時間 +3600 秒 = 1 小時

cl_demo_output=>write( |C(截斷)  : { lv_c }| ).
cl_demo_output=>write( |N(補零)  : { lv_n }| ).
cl_demo_output=>write( |P        : { lv_p }| ).
cl_demo_output=>write( |今天      : { lv_today DATE = USER }| ).
cl_demo_output=>write( |30 天後   : { lv_d30 DATE = USER }| ).
cl_demo_output=>write( |現在      : { lv_now TIME = USER }| ).
cl_demo_output=>write( |一小時後  : { lv_t1h TIME = USER }| ).
cl_demo_output=>write( |PI        : { c_pi }| ).
cl_demo_output=>display( ).

靜態變數 STATICS（練習 18）：同一支程式裡，STATICS 只初始化一次，之後每次進來都保留上次的值；DATA 則每次進來都重新歸零。這是做「累計計數器」「只執行一次的初始化」最省事的手法。

REPORT zdatatype18.
" 練習 18：STATICS vs DATA — 現代寫法改用區域類別的方法，行為完全相同
CLASS lcl_demo DEFINITION.
  PUBLIC SECTION.
    METHODS with_statics.
    METHODS with_data.
ENDCLASS.

CLASS lcl_demo IMPLEMENTATION.
  METHOD with_statics.
    STATICS lv_val TYPE i.        " 跨呼叫保留
    lv_val = lv_val + 1.
    cl_demo_output=>write( |STATICS: { lv_val }| ).   " 1 2 3
  ENDMETHOD.
  METHOD with_data.
    DATA lv_val TYPE i.           " 每次重新歸零
    lv_val = lv_val + 1.
    cl_demo_output=>write( |DATA   : { lv_val }| ).   " 1 1 1
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA(lo_demo) = NEW lcl_demo( ).
  DO 3 TIMES.
    lo_demo->with_statics( ).
  ENDDO.
  DO 3 TIMES.
    lo_demo->with_data( ).
  ENDDO.
  cl_demo_output=>display( ).

3. 結構、繼承（INCLUDE TYPE）與 CORRESPONDING

結構就是「一列資料」。講義示範三種寫法：TYPES BEGIN OF ... END OF（推薦）、DATA BEGIN OF ... END OF（可用但不建議）、以及參照 SE11 的 Structure。結構要「繼承」欄位時用 INCLUDE。

REPORT zdatatype03.
" 練習 03：型別、結構、繼承（INCLUDE TYPE）
TYPES ty_bu_partner  TYPE c LENGTH 10.
TYPES ty_bu_partner1 TYPE bu_partner.        " 直接參照 DDIC Data Element
TYPES ty_bu_partner2 TYPE ty_bu_partner.     " 型別再參照型別

TYPES: BEGIN OF ty_partner_info,
         nam TYPE c LENGTH 10,
         age TYPE i,
         tel TYPE n LENGTH 12,
       END OF ty_partner_info.

" 繼承：把 ty_partner_info 的欄位整批納入，再加自己的欄位
TYPES: BEGIN OF ty_customer.
         INCLUDE TYPE ty_partner_info.      " 注意：自訂型別用 INCLUDE TYPE
TYPES:   adr TYPE c LENGTH 40,
       END OF ty_customer.

START-OF-SELECTION.
  " VALUE #( ) 一次把整個結構填好，取代逐欄位 = 的舊寫法
  DATA(ls_info) = VALUE ty_partner_info( nam = 'RICKY'
                                         age = 30
                                         tel = '0930463002' ).

  " 欄位完全相同 → 直接用 =；欄位不同 → 用 CORRESPONDING #( )
  DATA(ls_cust) = CORRESPONDING ty_customer( ls_info ).
  ls_cust-nam = '繼承的'.
  ls_cust-adr = '桃園市中大路 300 號'.

  cl_demo_output=>write_data( ls_info ).
  cl_demo_output=>write_data( ls_cust ).
  cl_demo_output=>display( ).

結構賦值的三種情境，老師的總結是：「完全相同用 =，否則用 CORRESPONDING」。MOVE-CORRESPONDING 仍可用（它不是 obsolete），但新程式建議用建構式版本，因為它能寫在運算式裡、還能改欄位對應。

" 三種等價寫法（由舊到新）
MOVE-CORRESPONDING ls_from TO ls_to.               " 舊：只能當敘述句
ls_to = CORRESPONDING #( ls_from ).                " 新：可寫在任何運算式裡

" 欄位名稱不同時，用 MAPPING 對應、用 EXCEPT 排除
ls_to = CORRESPONDING #( ls_from
                         MAPPING kunnr = customer_id
                                 name1 = customer_name
                         EXCEPT  mandt ).

4. 賦值、offset+length、指標（FIELD-SYMBOLS / REF）

ABAP 給值的方式，講義列了三種：=、MOVE、WRITE ... TO ...。其中 MOVE 已是 obsolete，WRITE ... TO ... 是「帶格式的賦值」（不是輸出），只在需要套用輸出格式時才用。

offset + length 寫法是 ABAP 最有特色的語法：lv_field+3(5) 表示「跳過 3 個字元，取 5 個字元」，+3(*) 表示「跳過 3 個之後全取」。它可以出現在等號左邊（部分覆寫），這在處理日期字串時非常好用。

REPORT zdatatype05.
" 練習 05：offset+length、WRITE TO、日期部分覆寫
DATA(lv_date1) = sy-datum.
DATA(lv_date2) = sy-datum.

lv_date2+6(2) = '30'.            " 把 YYYYMMDD 的 DD 換成 30（等號左邊也能用 offset）

DATA(lv_ymd) = CONV char8( '20220126' ).
DATA(lv_yyyy)   = lv_ymd+0(4).   " 2022
DATA(lv_mm)     = lv_ymd+4(2).   " 01
DATA(lv_dd)     = lv_ymd+6(2).   " 26
DATA(lv_yymmdd) = lv_ymd+2(*).   " 220126 ← (*) 表示後面全取

" 現代等價寫法：substring( )，可讀性更好、也能用在字串型別
DATA(lv_yyyy2) = substring( val = lv_ymd off = 0 len = 4 ).
DATA(lv_ymd2)  = substring_from( val = lv_ymd off = 2 ).

" WRITE ... TO ... 是「賦值」不是輸出，可帶格式
DATA lv_target TYPE c LENGTH 20.
WRITE sy-datum TO lv_target DD/MM/YYYY.

cl_demo_output=>write( |{ lv_date1 } / { lv_date2 } / { lv_yyyy }-{ lv_mm }-{ lv_dd } / { lv_yymmdd } / { lv_target }| ).
cl_demo_output=>display( ).

FIELD-SYMBOLS 是指標（分身）：它本身不是變數，存的是別的變數的位址。改 <fs> 就等於改本尊。IS ASSIGNED 用來檢查有沒有指到東西 — 沒指到就用，會 dump。

REPORT zdatatype06.
" 練習 06：FIELD-SYMBOLS 指向結構，改分身＝改本尊
TYPES: BEGIN OF ty_body,
         name   TYPE c LENGTH 30,
         high   TYPE p LENGTH 5 DECIMALS 2,
         weight TYPE p LENGTH 5 DECIMALS 2,
       END OF ty_body.

DATA(ls_body) = VALUE ty_body( name = 'CASPER' high = '1.73' weight = '80' ).

FIELD-SYMBOLS <fs_body> TYPE ty_body.
ASSIGN ls_body TO <fs_body>.

IF <fs_body> IS ASSIGNED.
  <fs_body>-name   = 'RESET'.       " 改分身
  <fs_body>-high   = '0.00'.
  <fs_body>-weight = '0.00'.
ENDIF.

cl_demo_output=>write_data( ls_body ).   " 本尊也跟著變了
" 內表迴圈的現代用法：直接內嵌宣告 field symbol，省一次搬資料
"   LOOP AT lt_x ASSIGNING FIELD-SYMBOL(<ls_x>).
"     <ls_x>-flag = 'X'.               " 直接改內表，不必 MODIFY
"   ENDLOOP.
cl_demo_output=>display( ).

5. 型別轉換的陷阱（老師說一定要小心驗算）

不同型別互相賦值時，ABAP 會「自動轉換」，但規則很多而且不一定符合直覺。講義的三個經典陷阱：

陷阱一：C → N → I 的資訊遺失。C 轉 N 時只保留數字字元，其他丟掉；N 再轉 I 時若超出範圍會 dump。

REPORT zdatatype08a.
" 陷阱一：'ABC1234567' 轉 N 只剩數字，且靠右對齊補 0
DATA lv_c TYPE c LENGTH 10 VALUE 'ABC1234567'.
DATA lv_n TYPE n LENGTH 10.
DATA lv_i TYPE i.

lv_n = lv_c.        " → 0001234567（字母被丟棄，右靠齊左補 0）
lv_i = lv_n.        " → 1234567

cl_demo_output=>write( |C={ lv_c } N={ lv_n } I={ lv_i }| ).
cl_demo_output=>display( ).

陷阱二：整數除法會四捨五入，不是無條件捨去。這是 ABAP 跟 C / Java 最大的差別。

REPORT zdatatype08b.
" 陷阱二：/ 、DIV 、MOD 的差別（結果型別是 N 或 I 時會先四捨五入）
DATA lv_r TYPE n LENGTH 2.

lv_r = 45 / 7.      cl_demo_output=>write( |45 /   7 = { lv_r }| ).  " 6  (6.43 四捨五入)
lv_r = 45 DIV 7.    cl_demo_output=>write( |45 DIV 7 = { lv_r }| ).  " 6  (整數商)
lv_r = 45 MOD 7.    cl_demo_output=>write( |45 MOD 7 = { lv_r }| ).  " 3  (餘數)

" 更容易中招的：5 / 2 = 3 而不是 2
DATA(lv_i) = 5 / 2.
cl_demo_output=>write( |5 / 2 存成 I = { lv_i }| ).                  " 3
" 要得到 2.5 必須讓結果型別有小數
DATA(lv_p) = CONV decfloat34( 5 ) / 2.
cl_demo_output=>write( |改用 DECFLOAT34 = { lv_p }| ).               " 2.5
cl_demo_output=>display( ).

陷阱三：先轉型再運算，還是先運算再轉型？講義的 sqrt( 5 ) + sqrt( 6 ) 例子非常經典：sqrt() 回傳的是 F 型別，直接相加後才轉整數得 5（2.236+2.449=4.685→5）；若各自先 CONV i( ) 變成 2+2 就只有 4。

REPORT zdatatype09.
" 練習 09：CONV 的位置決定答案
DATA(lv_f1) = sqrt( 5 ).                          " 2.2360679...
DATA(lv_f2) = sqrt( 6 ).                          " 2.4494897...

DATA lv_int1 TYPE i.
DATA lv_int2 TYPE i.

lv_int1 = sqrt( 5 ) + sqrt( 6 ).                  " 先加再轉 → 4.685 → 5
lv_int2 = CONV i( sqrt( 5 ) ) + CONV i( sqrt( 6 ) ).  " 先各自轉 → 2 + 2 → 4

cl_demo_output=>write( |F1={ lv_f1 } F2={ lv_f2 }| ).
cl_demo_output=>write( |先加再轉 = { lv_int1 }，先轉再加 = { lv_int2 }| ).

" EXACT #( ) ：不允許失真，一旦要四捨五入就丟例外 → 財務欄位建議用它
TRY.
    DATA(lv_exact) = EXACT i( '2.5' ).
  CATCH cx_sy_conversion_rounding INTO DATA(lx_round).
    cl_demo_output=>write( |EXACT 攔到失真：{ lx_round->get_text( ) }| ).
ENDTRY.
cl_demo_output=>display( ).

數學函數一覽（ABAPDOCU 的 Numeric Calculations 節點共 17 個，最常用的是這些）：

REPORT zmath_demo.
" 四捨五入的五種模式（cl_abap_math 常數），財務報表一定要指定 mode
DATA(lv_val) = CONV decfloat34( '2.345' ).

cl_demo_output=>write( |half_up   : { round( val = lv_val dec = 2 mode = cl_abap_math=>round_half_up ) }| ).
cl_demo_output=>write( |half_down : { round( val = lv_val dec = 2 mode = cl_abap_math=>round_half_down ) }| ).
cl_demo_output=>write( |half_even : { round( val = lv_val dec = 2 mode = cl_abap_math=>round_half_even ) }| ).  " 銀行家捨入
cl_demo_output=>write( |ceiling   : { round( val = lv_val dec = 2 mode = cl_abap_math=>round_ceiling ) }| ).
cl_demo_output=>write( |floor     : { round( val = lv_val dec = 2 mode = cl_abap_math=>round_floor ) }| ).

" 計算順序：函數 > 次方(**) > 乘除(* / DIV MOD) > 加減(+ -)
" 運算子與運算元之間「一定要有空格」，這是 ABAP 的硬規定
DATA(lv_dist) = ( ( 2 - -2 ) ** 2 + ( -1 - 2 ) ** 2 ) ** '0.5'.   " 歐幾里德距離 = 5
cl_demo_output=>write( |歐氏距離 = { lv_dist }| ).
cl_demo_output=>display( ).

6. 判斷式：IF / CASE / COND / SWITCH

比較運算子與邏輯運算子：

REPORT zdatatype14.
" 練習 14：IF 判斷奇偶數、CASE 判斷餘數
DATA(lv_cnt) = 6.

IF lv_cnt MOD 2 = 0.
  cl_demo_output=>write( |{ lv_cnt } 是偶數| ).
ELSEIF lv_cnt < 0.
  cl_demo_output=>write( |{ lv_cnt } 是負數| ).
ELSE.
  cl_demo_output=>write( |{ lv_cnt } 是奇數| ).
ENDIF.

DATA(lv_rec) = 8.
CASE lv_rec MOD 3.
  WHEN 0.       cl_demo_output=>write( |{ lv_rec } mod 3 餘 0| ).
  WHEN 1.       cl_demo_output=>write( |{ lv_rec } mod 3 餘 1| ).
  WHEN OTHERS.  cl_demo_output=>write( |{ lv_rec } mod 3 餘 2| ).
ENDCASE.

" CASE TYPE OF：物件導向常用，依實際類別分支
" CASE TYPE OF lo_obj.
"   WHEN TYPE cl_a INTO DATA(lo_a).  ...
"   WHEN OTHERS.                     ...
" ENDCASE.
cl_demo_output=>display( ).

COND 與 SWITCH（7.40 起）是「運算式版」的 IF / CASE，可以直接寫在等號右邊、參數裡、字串範本裡，讓程式短一半。

REPORT zdatatype07.
" 練習 07：COND #( ) 與 SWITCH #( )
" COND = 條件式 IF；每個 WHEN 是完整條件
DATA(lv_role1) = COND string( WHEN sy-uname = 'CASPER' THEN 'TEACHER'
                              WHEN sy-uname = 'IT03'   THEN 'IT'
                              ELSE 'STUDENT' ).

" SWITCH = 單一運算元的 CASE；WHEN 後面只寫值
DATA(lv_role2) = SWITCH string( sy-uname
                                WHEN 'CASPER' THEN 'TEACHER'
                                WHEN 'IT03'   THEN 'IT'
                                ELSE 'STUDENT' ).

" 直接嵌在字串範本裡，連中間變數都省了
cl_demo_output=>write( |使用者 { sy-uname } 的角色是 { lv_role1 } / { lv_role2 }| ).

" COND 也可以 THROW 例外
" DATA(lv_x) = COND i( WHEN lv_a > 0 THEN lv_a ELSE THROW cx_sy_conversion_error( ) ).
cl_demo_output=>display( ).

7. 迴圈：DO / WHILE / LOOP 與 CHECK / EXIT / CONTINUE

ABAP 共有五大迴圈：DO、WHILE、LOOP AT、SELECT ... ENDSELECT（禁用）、PROVIDE（幾乎沒人用）。控制指令四個：

REPORT zdatatype15.
" 練習 15：DO / 巢狀 DO / 無 TIMES 的 DO / WHILE
DO 2 TIMES.
  cl_demo_output=>write( |This Index is { sy-index }| ).
ENDDO.

" 巢狀迴圈：SY-INDEX 只代表「當前這一層」的圈數，外層要自己存起來
DO 3 TIMES.
  DATA(lv_outer) = sy-index.
  DO 2 TIMES.
    cl_demo_output=>write( |外層 { lv_outer } / 內層 { sy-index }| ).
  ENDDO.
ENDDO.

" 沒有 TIMES 的 DO 是無窮迴圈，一定要自己 EXIT，否則 timeout
DO.
  IF sy-index = 3.
    EXIT.
  ENDIF.
ENDDO.
cl_demo_output=>write( |離開迴圈後 SY-INDEX 歸零 = { sy-index }| ).

" WHILE：1+2+...+10
DATA(lv_i) = 1.
DATA(lv_sum) = 0.
WHILE lv_i <= 10.
  lv_sum = lv_sum + lv_i.
  lv_i   = lv_i + 1.
ENDWHILE.
cl_demo_output=>write( |1+2+...+10 = { lv_sum }| ).

" 現代等價：REDUCE 一行搞定
DATA(lv_sum2) = REDUCE i( INIT s = 0 FOR n = 1 UNTIL n > 10 NEXT s = s + n ).
cl_demo_output=>write( |REDUCE 版 = { lv_sum2 }| ).
cl_demo_output=>display( ).

雙迴圈的改寫：講義的 ZMMB0021 × EKES 雙層 LOOP，是把採購收貨排程（EKES）的最新一筆補回主表。雙層 LOOP AT ... WHERE 在資料量大時是 O(n×m)，S/4HANA 上要改成「先排序＋READ TABLE ... BINARY SEARCH」或「用 SORTED / HASHED 內表」或「LOOP AT ... GROUP BY」。

REPORT zloop_two_level.
" 講義的雙迴圈（PO 收貨排程 EKES 回填）改寫成 SORTED 內表 + 單層迴圈
TYPES: BEGIN OF ty_ekes,
         ebeln TYPE ekes-ebeln,
         ebelp TYPE ekes-ebelp,
         etens TYPE ekes-etens,
         eindt TYPE ekes-eindt,
         menge TYPE ekes-menge,
         dabmg TYPE ekes-dabmg,
       END OF ty_ekes.

DATA lt_ekes TYPE SORTED TABLE OF ty_ekes
             WITH NON-UNIQUE KEY ebeln ebelp etens.

SELECT ebeln, ebelp, etens, eindt, menge, dabmg
  FROM ekes
  INTO TABLE @lt_ekes
 WHERE ebeln IN @s_ebeln.               " SELECT-OPTIONS，主機變數一律加 @

LOOP AT lt_po ASSIGNING FIELD-SYMBOL(<ls_po>).
  " 只掃描 key 相符的區段，SORTED 表用二分搜尋定位，不會全表掃
  LOOP AT lt_ekes ASSIGNING FIELD-SYMBOL(<ls_ekes>)
       WHERE ebeln = <ls_po>-ebeln
         AND ebelp = <ls_po>-ebelp
         AND etens <> <ls_po>-ekes_etens.
    CHECK <ls_ekes>-etens IS NOT INITIAL.   " 條件不成立就跳下一圈
    <ls_po>-ekes_eindt = <ls_ekes>-eindt.
    <ls_po>-ekes_etens = <ls_ekes>-etens.
    <ls_po>-ekes_menge = <ls_ekes>-menge.
    <ls_po>-ekes_dabmg = <ls_ekes>-dabmg.
  ENDLOOP.
ENDLOOP.

" LOOP AT ... GROUP BY：取代「排序後自己比 key 換組」的老寫法
LOOP AT lt_items INTO DATA(ls_item)
     GROUP BY ( matnr = ls_item-matnr werks = ls_item-werks )
     ASCENDING
     ASSIGNING FIELD-SYMBOL(<group>).

  DATA(lv_qty) = REDUCE menge_d(
                   INIT q = 0
                   FOR <m> IN GROUP <group>
                   NEXT q = q + <m>-menge ).

  cl_demo_output=>write( |{ <group>-matnr } / { <group>-werks } 合計 { lv_qty }| ).
ENDLOOP.

8. 日期與時間運算

D 型別可以直接加減，單位是天；T 型別可以直接加減，單位是秒。兩個日期相減得到天數（型別要用 I），兩個時間相減得到秒數。

REPORT zdate_basic.
" 日期／時間的基本運算
DATA(lv_today) = sy-datum.

" 1. 本月月初：把 DD 改成 01
DATA(lv_first) = lv_today.
lv_first+6(2) = '01'.

" 2. 上月月底 = 本月月初 - 1
DATA(lv_prev_last) = CONV d( lv_first - 1 ).

" 3. 本月月底 = 下月月初 - 1（+31 天必定落在下個月的 1~4 日）
DATA(lv_next_first) = CONV d( lv_first + 31 ).
lv_next_first+6(2) = '01'.
DATA(lv_last) = CONV d( lv_next_first - 1 ).

" 4. 兩日期相差幾天：直接相減
DATA(lv_days) = CONV i( lv_last - lv_first ) + 1.   " 本月天數

" 5. 時間相減得秒數
DATA lv_t1 TYPE t VALUE '183000'.
DATA lv_t2 TYPE t VALUE '200000'.
DATA(lv_sec)  = CONV i( lv_t2 - lv_t1 ).            " 5400
DATA(lv_hour) = lv_sec / 3600.                      " 注意：存成 I 會四捨五入成 2
DATA(lv_hour_exact) = CONV decfloat34( lv_sec ) / 3600.   " 1.5

cl_demo_output=>write( |月初 { lv_first } 月底 { lv_last } 上月底 { lv_prev_last } 本月 { lv_days } 天| ).
cl_demo_output=>write( |時差 { lv_sec } 秒 = { lv_hour_exact } 小時| ).
cl_demo_output=>display( ).

系統日期時間欄位的差別（做全球化系統時最容易出錯的地方）：

REPORT ztimestamp_demo.
" 時間戳與時區轉換（S/4HANA 標準做法）
GET TIME STAMP FIELD DATA(lv_ts).                     " UTC 短時間戳 TIMESTAMP
GET TIME STAMP FIELD DATA(lv_tsl).                    " 若宣告為 TIMESTAMPL 則含小數秒

" UTC 時間戳 → 使用者時區的日期時間
CONVERT TIME STAMP lv_ts TIME ZONE sy-zonlo
        INTO DATE DATA(lv_loc_date) TIME DATA(lv_loc_time).

" 日期時間 → UTC 時間戳
CONVERT DATE lv_loc_date TIME lv_loc_time
        INTO TIME STAMP DATA(lv_ts2) TIME ZONE sy-zonlo.

" 兩個時間戳相差幾秒（跨日跨年都正確）
DATA(lv_diff_sec) = cl_abap_tstmp=>subtract( tstmp1 = lv_ts2 tstmp2 = lv_ts ).

" 時間戳加 8 小時
DATA(lv_ts_plus) = cl_abap_tstmp=>add( tstmp = lv_ts secs = 8 * 3600 ).

cl_demo_output=>write( |UTC 時間戳 { lv_ts TIMESTAMP = ISO }| ).
cl_demo_output=>write( |本地時間  { lv_loc_date DATE = USER } { lv_loc_time TIME = USER }（時區 { sy-zonlo }）| ).
cl_demo_output=>write( |相差 { lv_diff_sec } 秒| ).
cl_demo_output=>display( ).

工作天（Factory Calendar）：SAP 的「幾號到幾號中間有幾個工作天」不能自己算，要走工廠日曆（SCAL 維護，表 TFACD / TFACS，假日表 THOC / THOL）。

REPORT zworkday_demo.
PARAMETERS: p_from TYPE d DEFAULT sy-datum,
            p_to   TYPE d,
            p_cal  TYPE wfcid DEFAULT 'TW'.   " 工廠日曆代碼

START-OF-SELECTION.
  " 1) 判斷某天是不是工作天，並取得工廠日曆序號
  DATA lv_factory_from TYPE fabkl_num.
  DATA lv_wd_ind       TYPE c LENGTH 1.

  CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
    EXPORTING
      correct_option               = '+'          " 非工作天時往後找
      date                         = p_from
      factory_calendar_id          = p_cal
    IMPORTING
      factorydate                  = lv_factory_from
      workingday_indicator         = lv_wd_ind    " 空白＝是工作天
    EXCEPTIONS
      calendar_buffer_not_loadable = 1
      correct_option_invalid       = 2
      date_after_range             = 3
      date_before_range            = 4
      date_invalid                 = 5
      factory_calendar_not_found   = 6
      OTHERS                       = 7.
  IF sy-subrc <> 0.
    MESSAGE |工廠日曆 { p_cal } 讀取失敗 subrc={ sy-subrc }| TYPE 'E'.
  ENDIF.

  " 2) 兩日期之間的工作天數 = 兩個工廠日曆序號相減
  DATA lv_factory_to TYPE fabkl_num.
  CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
    EXPORTING correct_option      = '-'
              date                = p_to
              factory_calendar_id = p_cal
    IMPORTING factorydate         = lv_factory_to
    EXCEPTIONS OTHERS             = 1.

  DATA(lv_workdays) = CONV i( lv_factory_to - lv_factory_from ) + 1.
  cl_demo_output=>write( |{ p_from } ~ { p_to } 共 { lv_workdays } 個工作天| ).
  cl_demo_output=>display( ).

9. 常用日期／時間函數（FM）速查表

講義第 06 節列的清單全部保留，這是老師要求「用 SE37 這個超級 TCODE 直接測試」的重點資產。

SE37 超級 TCODE 的用法（講義 6-1 節，以 DATE_GET_WEEK 與 FIMA_DAYS_AND_MONTHS_AND_YEARS 為例）（依講義截圖步驟整理）：

1. 進 SE37，函數模組欄位輸入函數名（不確定名字就用 *DATE*WEEK* 之類的萬用字元按 F4 找）。
2. 按「顯示」看 Import / Export / Changing / Tables / Exceptions 四個頁籤，先搞清楚要餵什麼、會吐什麼。
3. 按 執行（F8）直接測試：畫面會列出所有 Import 參數，填好值再按 F8。
4. 結果畫面會顯示 Export 參數的值、以及 RUNTIME 執行時間（微秒），可以順便比較兩支函數誰快。
5. 測完滿意後，回到 SE38 程式中按 Ctrl+F6（插入 CALL FUNCTION 樣板），輸入函數名，SAP 會自動把完整的 CALL FUNCTION 骨架連同註解貼進來，只要填值即可。

REPORT zdatatype16.
" 練習 16：呼叫日期 FM 取「本月／上月／去年同期」
DATA(lv_today) = sy-datum.

" 上個月同日
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
  EXPORTING date      = lv_today
            days      = 0
            months    = 1
            signum    = '-'          " '+' 未來、'-' 過去
            years     = 0
  IMPORTING calc_date = DATA(lv_prev_month).

" 去年同期
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
  EXPORTING date      = lv_today
            days      = 0
            months    = 0
            signum    = '-'
            years     = 1
  IMPORTING calc_date = DATA(lv_last_year).

" 一次拿到本月月初與月底
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
  EXPORTING iv_date              = lv_today
  IMPORTING ev_month_begin_date  = DATA(lv_bom)
            ev_month_end_date    = DATA(lv_eom).

" 標準日期字串 → 內部格式（處理 EXCEL / CSV 匯入最常用）
DATA lv_int_date TYPE d.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
  EXPORTING date_external            = '2025/09/30'
  IMPORTING date_internal            = lv_int_date
  EXCEPTIONS date_external_is_invalid = 1
             OTHERS                   = 2.
IF sy-subrc <> 0.
  MESSAGE '外部日期格式不合法' TYPE 'E'.
ENDIF.

cl_demo_output=>write( |本月 { lv_today+0(6) }／上月 { lv_prev_month+0(6) }／去年同期 { lv_last_year+0(6) }| ).
cl_demo_output=>write( |月初 { lv_bom } 月底 { lv_eom } 轉入日期 { lv_int_date }| ).
cl_demo_output=>display( ).

10. 字串處理：八大指令與現代寫法

講義整理的「字串處理八大指令」，配上 S/4HANA 建議的現代替代方案：

REPORT zdatatype10.
" 練習 10：SHIFT / REPLACE / TRANSLATE（保留敘述式，再對照函數式）
DATA(lv_str) = |abcdefg|.

SHIFT lv_str BY 3 PLACES LEFT.       " → defg
SHIFT lv_str BY 3 PLACES RIGHT.      " → 前面補 3 個空白
SHIFT lv_str LEFT DELETING LEADING space.   " 刪掉前置空白 = CONDENSE

lv_str = |abcdefg|.
SHIFT lv_str LEFT  DELETING LEADING  'abc'.   " 刪掉左邊的 abc → defg
SHIFT lv_str RIGHT DELETING TRAILING 'efg'.   " 刪掉右邊的 efg
" 實務常見用途：清掉動態 WHERE 條件尾巴的 ' AND '
"（不過老師建議：條件開頭直接寫 1 = 1，就不必砍尾巴了）

DATA lv_rep TYPE c LENGTH 10 VALUE 'ABCDEFGHI'.
REPLACE 'DEF' WITH '123' INTO lv_rep.          " → ABC123GHI

DATA lv_city TYPE c LENGTH 6 VALUE 'taipei'.
TRANSLATE lv_city TO UPPER CASE.               " → TAIPEI
TRANSLATE lv_city TO LOWER CASE.               " → taipei

" === 同樣的事，用函數式一行完成（不改動原變數，可寫在運算式裡） ===
DATA(lv_f1) = shift_left(  val = |  abcdefg| sub = ` ` ).   " 去左空白
DATA(lv_f2) = replace( val = |ABCDEFGHI| sub = 'DEF' with = '123' occ = 1 ).
DATA(lv_f3) = to_upper( |taipei| ).
DATA(lv_f4) = to_mixed( val = 'TAIPEI CITY' sep = ' ' ).    " → Taipei City

cl_demo_output=>write( |{ lv_f1 } / { lv_f2 } / { lv_f3 } / { lv_f4 }| ).
cl_demo_output=>display( ).

SEARCH（舊）vs FIND（新）：講義的練習 11 用 SEARCH ... FOR ...，成功時 SY-SUBRC = 0 且 SY-FDPOS 是起始位置（從 0 開始算），失敗時 SY-SUBRC = 4、SY-FDPOS = 0。搜尋 *、@、. 這類特殊符號時，要在前後各加一個句點（如 '.*.'）。

REPORT zdatatype11.
" 練習 11：SEARCH（舊）改寫成 FIND（新）
DATA(lv_text) = |Welcome to SAP world!|.

" --- 舊寫法（僅供辨識別人的程式） ---
" SEARCH lv_text FOR 'rld'.    "  SY-SUBRC=0、SY-FDPOS=17（位置從 0 起算）
" SEARCH lv_text FOR '.*.'.    "  找特殊字元 * 要前後加句點

" --- 新寫法：FIND，位置與次數都用具名輸出，不必看 SY- ---
FIND FIRST OCCURRENCE OF 'rld' IN lv_text
     MATCH OFFSET DATA(lv_off)
     MATCH LENGTH DATA(lv_len).
IF sy-subrc = 0.
  cl_demo_output=>write( |找到 'rld'，位置 { lv_off }，長度 { lv_len }| ).
ELSE.
  cl_demo_output=>write( |找不到| ).
ENDIF.

" 只想知道「有沒有」→ 用 CS 或 contains( )
IF lv_text CS 'SAP'.
  cl_demo_output=>write( |CS：字串含有 SAP| ).
ENDIF.
IF contains( val = lv_text sub = 'SAP' ).
  cl_demo_output=>write( |contains( )：字串含有 SAP| ).
ENDIF.

" 想知道「有幾個」→ count( )；想拿位置 → find( )
cl_demo_output=>write( |字母 o 出現 { count( val = lv_text sub = 'o' ) } 次| ).
cl_demo_output=>write( |'world' 位置 { find( val = lv_text sub = 'world' ) }| ).

" 找全部出現位置 → FIND ALL OCCURRENCES ... RESULTS
FIND ALL OCCURRENCES OF 'o' IN lv_text RESULTS DATA(lt_matches).
LOOP AT lt_matches INTO DATA(ls_match).
  cl_demo_output=>write( |第 { sy-tabix } 個 o 在 offset { ls_match-offset }| ).
ENDLOOP.
cl_demo_output=>display( ).

正規表示式：FIND / REPLACE 都可以加 REGEX，字串函數也有 matches( ) / match( ) / count( ) 的 regex 版本。

REPORT zregex_demo.
" 正規表示式：抓出字串中所有數字段落、驗證 Email、遮罩身分證
DATA(lv_src) = |PO 4500001234 於 2025/09/30 收貨 120 EA|.

" 1) 全部數字段落
FIND ALL OCCURRENCES OF REGEX '\d+' IN lv_src RESULTS DATA(lt_nums).
LOOP AT lt_nums INTO DATA(ls_num).
  cl_demo_output=>write( |數字段：{ substring( val = lv_src off = ls_num-offset len = ls_num-length ) }| ).
ENDLOOP.

" 2) 驗證格式（matches 回傳 abap_bool）
IF matches( val = |casper@ncu.edu.tw| regex = '^[\w\.\-]+@[\w\-]+(\.[\w\-]+)+$' ) = abap_true.
  cl_demo_output=>write( |Email 格式正確| ).
ENDIF.

" 3) 遮罩：把身分證中間四碼換成 ****
DATA(lv_id) = replace( val   = |A123456789|
                       regex = '^(.{4})(.{4})(.*)$'
                       with  = '$1****$3'
                       occ   = 1 ).
cl_demo_output=>write( |遮罩後 { lv_id }| ).
cl_demo_output=>display( ).

11. 字串相接、切割、壓縮

相接有四種寫法，老師要求新程式一律用後兩種：

REPORT zdatatype12.
" 練習 12：CONCATENATE / & / && / 字串範本 | |
DATA(lv_cash) = CONV p( '123.456' ).   " 實務上宣告 TYPE p LENGTH 8 DECIMALS 3

" 1. 舊寫法（仍合法，處理固定長度 C 欄位時仍好用）
DATA lv_r1 TYPE string.
CONCATENATE 'Hello' 'SAP' INTO lv_r1 SEPARATED BY space.

" 2. & ：只能接「字面值」，編譯期就併好（不能接變數）
DATA(lv_r2) = `string1 ` & ` string2`.

" 3. && ：執行期串接，可接變數，會自動轉字串
DATA(lv_r3) = `string1 ` && lv_cash && ` string2`.

" 4. 字串範本 |...{ }...| ：最推薦，可帶格式化選項
DATA(lv_r4) = |string1 { lv_cash } string2|.
DATA(lv_r5) = |金額右靠齊 [{ lv_cash WIDTH = 12 ALIGN = RIGHT }]|.
DATA(lv_r6) = |置中 [{ lv_cash WIDTH = 12 ALIGN = CENTER PAD = '.' }]|.

" 字串範本中的跳脫字元：\| \{ \} \\
DATA(lv_r7) = |跳脫示範 \| \{ \} \\|.

cl_demo_output=>write( lv_r1 ).
cl_demo_output=>write( lv_r3 ).
cl_demo_output=>write( lv_r4 ).
cl_demo_output=>write( lv_r5 ).
cl_demo_output=>write( lv_r6 ).
cl_demo_output=>write( lv_r7 ).
cl_demo_output=>display( ).

字串範本的格式化選項是把數字／日期漂亮印出來的關鍵，常用如下：

REPORT zdatatype13.
" 練習 13：SPLIT / CONDENSE / CLEAR，並附作業六、七的完整解
DATA(lv_names) = |HELLO,CASPER,SAP|.

" 1) 切成固定幾個變數（剩下的全部塞給最後一個）
SPLIT lv_names AT ',' INTO DATA(lv_1) DATA(lv_2).
cl_demo_output=>write( |lv_1={ lv_1 } lv_2={ lv_2 }| ).

" 2) 切成內表（最常用）
SPLIT |ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINTH,TEN,ELEVEN,TWELVE|
      AT ',' INTO TABLE DATA(lt_words).

" 3) 只想取第 n 段 → segment( )，不必先切成內表
cl_demo_output=>write( |第 3 段 = { segment( val = lv_names sep = ',' index = 3 ) }| ).

" === 作業六＋作業七：輸入 '  pad , book ,phone ,  earphone '，去空白後排序輸出 ===
DATA(lv_input) = |  pad   , book ,phone ,  earphone |.
SPLIT lv_input AT ',' INTO TABLE DATA(lt_items).

LOOP AT lt_items ASSIGNING FIELD-SYMBOL(<lv_item>).
  CONDENSE <lv_item>.                 " 去前後空白並壓縮中間空白
ENDLOOP.
DELETE lt_items WHERE table_line IS INITIAL.
SORT lt_items ASCENDING.               " 作業七：遞增排序

LOOP AT lt_items INTO DATA(lv_item).
  cl_demo_output=>write( lv_item ).     " book / earphone / pad / phone
ENDLOOP.

" 4) CONDENSE 的兩種模式
DATA lv_name TYPE c LENGTH 30.
lv_name+0(10)  = '  Dr.'.
lv_name+10(10) = 'Michael'.
lv_name+20(10) = 'Hofmann'.
CONDENSE lv_name.                       " → 'Dr. Michael Hofmann'（中間留一格）
cl_demo_output=>write( |CONDENSE      : [{ lv_name }]| ).

DATA lv_t TYPE c LENGTH 10 VALUE ' abc abc '.
CONDENSE lv_t NO-GAPS.                  " → 'abcabc'（中間空白也刪光）
cl_demo_output=>write( |CONDENSE NO-GAPS: [{ lv_t }]| ).

CLEAR lv_t.                             " 清成初始值（常數不能 CLEAR）
cl_demo_output=>write( |CLEAR 之後     : [{ lv_t }]| ).
cl_demo_output=>display( ).

字串函數速查（全部可寫在運算式裡，不改動原變數）：

REPORT zstring_reverse.
" 作業三：不准用 STRING_REVERSE，自己把 'I-LOVE-ABAP' 反轉成 'PABA-EVOL-I'
DATA(lv_s) = |I-LOVE-ABAP|.

" 解法 A：講義的 DO + offset 逐字取（最貼近作業要求）
DATA lv_out TYPE string.
DATA(lv_n) = strlen( lv_s ).
DO lv_n TIMES.
  DATA(lv_pos) = lv_n - sy-index.
  lv_out = lv_out && substring( val = lv_s off = lv_pos len = 1 ).
ENDDO.
cl_demo_output=>write( |解法 A：{ lv_out }| ).

" 解法 B：內建函數（知道就好，作業不准用）
cl_demo_output=>write( |解法 B：{ reverse( lv_s ) }| ).

" 解法 C：REDUCE 一行版
cl_demo_output=>write( |解法 C：{ REDUCE string( INIT r = `` FOR i = 1 UNTIL i > strlen( lv_s )
                                                 NEXT r = substring( val = lv_s off = i - 1 len = 1 ) && r ) }| ).
cl_demo_output=>display( ).

12. 金額與數量的小數處理（CURR / QUAN / TCURX）

SAP 的金額欄位（DDIC 型別 CURR）與數量欄位（QUAN）在資料庫裡都是 P 型別，而且一定要搭配一個參考欄位：CURR 參考幣別欄位（CUKY，如 WAERS），QUAN 參考單位欄位（UNIT，如 MEINS）。沒有參考欄位，SE11 不讓你啟用。

REPORT zcurrency_demo.
" 幣別小數位換算：DB 內部值 ↔ 外部顯示值
PARAMETERS: p_waers TYPE waers DEFAULT 'JPY',
            p_amt   TYPE bseg-wrbtr DEFAULT '10.00'.   " DB 內部值

START-OF-SELECTION.
  " 1) 查這個幣別有幾位小數（TCURX；查不到就是 2 位）
  CALL FUNCTION 'BAPI_CURRENCY_GETDECIMALS'
    EXPORTING currency        = p_waers
    IMPORTING decimals        = DATA(lv_dec).

  " 2) 內部值 → 外部值（給人看、給介面）
  DATA lv_ext TYPE bapicurr-bapicurr.
  CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL'
    EXPORTING currency             = p_waers
              amount_internal      = p_amt
    IMPORTING amount_external      = lv_ext.

  " 3) 外部值 → 內部值（要寫回 SAP 表 / 呼叫 BAPI 前）
  DATA lv_int TYPE bseg-wrbtr.
  CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
    EXPORTING currency             = p_waers
              amount_external      = lv_ext
              max_number_of_digits = 23
    IMPORTING amount_internal      = lv_int.

  cl_demo_output=>write( |{ p_waers } 小數位 = { lv_dec }| ).
  cl_demo_output=>write( |DB 內部值 { p_amt } → 外部值 { lv_ext } → 再轉回 { lv_int }| ).

  " 4) 直接輸出時，用字串範本的 CURRENCY 選項讓系統自己處理
  cl_demo_output=>write( |格式化輸出：{ p_amt CURRENCY = p_waers NUMBER = USER }| ).
  cl_demo_output=>display( ).

同一組函數還有 IDoc / BAPI / 顯示三種變體，處理介面時很常用：

13. SY 系統欄位：一定要記住的十個

系統欄位放在結構 SYST（SE11 可查全部）。老師點名的十個：

另外五個高頻但講義未列的：SY-DBCNT（上個 SQL 影響／讀到幾筆）、SY-REPID（目前程式名）、SY-LANGU（登入語言）、SY-DYNNR（目前畫面號碼）、SY-BATCH（是否背景執行，'X'＝是）、SY-LINNO / SY-PAGNO（清單列號／頁碼）、SY-FDPOS（SEARCH 找到的位置）、SY-LISEL（游標所在那一列的內容）。

REPORT zsy_fields.
" SY-SUBRC 的正確用法：立刻檢查、立刻存起來
SELECT SINGLE matnr, maktx
  FROM makt
  INTO @DATA(ls_makt)
 WHERE matnr = @p_matnr
   AND spras = @sy-langu.

DATA(lv_rc) = sy-subrc.        " 馬上存起來，後面的指令會蓋掉它
IF lv_rc <> 0.
  MESSAGE |物料 { p_matnr } 找不到描述| TYPE 'S' DISPLAY LIKE 'W'.
ELSE.
  cl_demo_output=>write( |{ ls_makt-matnr ALPHA = OUT } { ls_makt-maktx }| ).
ENDIF.

" SY-DBCNT：上一個 SQL 讀到／異動幾筆
SELECT matnr, mtart FROM mara INTO TABLE @DATA(lt_mara) UP TO 10 ROWS
  ORDER BY matnr.                       " 沒有 ORDER BY 就沒有順序保證
cl_demo_output=>write( |讀到 { sy-dbcnt } 筆（lines( ) = { lines( lt_mara ) }）| ).

" SY-BATCH：背景執行時不要跳對話框
IF sy-batch = abap_false.
  " 只有前景才彈視窗
ENDIF.
cl_demo_output=>display( ).

14. 資料輸出：WRITE 與現代替代方案

WRITE 是傳統 List 輸出。老師的態度很明確：「會 ALV 的話 WRITE 不必太深入，遇到再查」。但看懂舊程式、做套版列印（對位報表）時還是需要。

語法：WRITE AT [/] [<pos>] [(<len>)] <資料項> <格式參數>。/＝換行、pos＝第幾欄開始、(len)＝顯示長度。

REPORT zdatatype04 LINE-SIZE 120.
" 練習 04：CHECKBOX、SYMBOL、ICON、顏色（TCODE: ICON 可查所有圖示名稱；
"          SE11 → Type Group 輸入 SYM / ICON 也看得到）
INCLUDE <symbol>.
INCLUDE <icon>.

DATA(lv_flag1) = ' '.
DATA(lv_flag2) = 'X'.

WRITE: /12 'CHECK FLAG 1:', lv_flag1 AS CHECKBOX.
WRITE: /12 'CHECK FLAG 2:', lv_flag2 AS CHECKBOX.
WRITE: /12 'Phone Symbol:', sym_phone  AS SYMBOL.
WRITE: /12 'Alarm  Icon :', icon_alarm AS ICON.

" 八種背景色 + 三種字體效果
DO 8 TIMES.
  DATA(lv_col) = sy-index - 1.
  FORMAT COLOR = lv_col.
  WRITE: / lv_col           COLOR OFF,
           'INTENSIFIED ON'  INTENSIFIED ON,
           'INTENSIFIED OFF' INTENSIFIED OFF,
           'INVERSE ON'      INVERSE ON.
ENDDO.
FORMAT COLOR OFF.

基本報表（BASIC LIST REPORT）的骨架：講義第 10 節示範 TOP-OF-PAGE / END-OF-PAGE / AT LINE-SELECTION 與內表控制中斷（AT FIRST / AT NEW / AT END OF / AT LAST），並用 READ LINE ... OF PAGE ... + MODIFY CURRENT LINE 回頭把總頁數 '***' 換成實際頁數。這是套版對位列印的經典技巧。

REPORT zdatatype20 NO STANDARD PAGE HEADING LINE-SIZE 160 LINE-COUNT 40(3).
" 基本報表：ACDOCA 傳票明細（S/4HANA 已用 ACDOCA 取代 BKPF/BSEG 的查詢角色）
TYPES: BEGIN OF ty_out,
         bldat TYPE acdoca-bldat,   " 憑證日期
         usnam TYPE acdoca-usnam,   " 輸入人員
         belnr TYPE acdoca-belnr,   " 傳票號碼
         blart TYPE acdoca-blart,   " 文件類型
         bschl TYPE acdoca-bschl,   " 過帳代碼
         racct TYPE acdoca-racct,   " 會計科目
         rwcur TYPE acdoca-rwcur,   " 交易幣別
         tsl   TYPE acdoca-tsl,     " 交易金額
       END OF ty_out.

DATA gt_out TYPE STANDARD TABLE OF ty_out WITH EMPTY KEY.

SELECT-OPTIONS: s_bldat FOR sy-datum,
                s_usnam FOR sy-uname.
PARAMETERS      p_blart TYPE acdoca-blart DEFAULT 'WA'.

START-OF-SELECTION.
  " 明列欄位、主機變數加 @、用列舉式 SELECT-OPTIONS（區間與列舉的結果可能不同）
  SELECT bldat, usnam, belnr, blart, bschl, racct, rwcur, tsl
    FROM acdoca
    INTO TABLE @gt_out
   WHERE rldnr = '0L'                 " 帳簿：只取主要分類帳
     AND bldat IN @s_bldat
     AND blart = @p_blart
     AND usnam IN @s_usnam
   ORDER BY bldat, usnam, belnr.      " HANA 上沒有 ORDER BY 就沒有順序保證

  IF gt_out IS INITIAL.
    MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  LOOP AT gt_out INTO DATA(ls_out).
    AT NEW usnam.
      WRITE: / |── 輸入人員 { ls_out-usnam } ──|.
    ENDAT.

    WRITE: /010 sy-vline,
            014 sy-tabix,
            030 sy-vline,
            034 ls_out-belnr,
            050 sy-vline,
            054 ls_out-racct,
            070 sy-vline,
            074 ls_out-rwcur,
            090 sy-vline,
            094 ls_out-tsl CURRENCY ls_out-rwcur,   " 金額一定要帶 CURRENCY
            160 sy-vline.

    AT END OF usnam.
      SUM.                                " 自動加總數值欄位
      WRITE: /034 '小計', 094 ls_out-tsl CURRENCY ls_out-rwcur.
    ENDAT.
  ENDLOOP.

TOP-OF-PAGE.
  WRITE: /070 'χχ科技股份有限公司'.
  WRITE: /076 '傳票明細表'.
  WRITE: /135 'Page:', sy-pagno.
  WRITE: /010 sy-uline(151).

END-OF-PAGE.
  WRITE: /060 '--------------------- END OF PAGE ---------------------'.

AT LINE-SELECTION.
  " 雙擊某列時，用視窗顯示該列內容
  WINDOW STARTING AT 21 10 ENDING AT 150 18.
  WRITE: /003 sy-lisel.

REPORT zsalv_quick.
" 講義附錄 ZUSERS_002（VBAK/VBAP 主子檔）的現代版：一次 JOIN，三行 ALV
SELECT-OPTIONS s_vbeln FOR ('VBAK-VBELN').

START-OF-SELECTION.
  SELECT p~vbeln,
         p~posnr,
         p~matnr,
         p~kwmeng,
         p~netwr,
         p~waerk,
         k~erdat,
         k~kunnr
    FROM vbap AS p
    INNER JOIN vbak AS k ON k~vbeln = p~vbeln
    INTO TABLE @DATA(lt_out)
   WHERE p~vbeln IN @s_vbeln
   ORDER BY p~vbeln, p~posnr.

  IF lt_out IS INITIAL.
    MESSAGE '查無訂單資料' TYPE 'S' DISPLAY LIKE 'W'.
    RETURN.
  ENDIF.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                              CHANGING  t_table      = lt_out ).
      lo_alv->get_functions( )->set_all( abap_true ).      " 開啟所有工具列功能
      lo_alv->get_columns( )->set_optimize( abap_true ).   " 自動調欄寬
      lo_alv->get_display_settings( )->set_striped_pattern( abap_true ).
      lo_alv->get_display_settings( )->set_list_header( |ZUSERS 訂單列表（VBAK / VBAP）| ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO DATA(lx_salv).
      MESSAGE lx_salv->get_text( ) TYPE 'E'.
  ENDTRY.

15. 實用小案例（講義第 07 / 09 / 10 節）

案例 1：用帳號前四碼區分權限（第 09-1 節）。

" 舊寫法用 substring( )，新寫法可再簡化成一個 COND 或內表比對
DATA(lv_user4) = substring( val = sy-uname off = 0 len = 4 ).
DATA(lv_switch) = COND abap_bool( WHEN lv_user4 = 'T1MC' OR lv_user4 = 'T1PC'
                                  THEN abap_true ELSE abap_false ).

" 更好：把允許清單抽成常數內表，日後維護不必改程式邏輯
DATA(lt_allow) = VALUE string_table( ( `T1MC` ) ( `T1PC` ) ( `T1SD` ) ).
DATA(lv_ok) = xsdbool( line_exists( lt_allow[ table_line = lv_user4 ] ) ).

案例 2：西元轉民國年（作業四）。

REPORT zroc_date.
" 20250930 → 1140930；重點在 N / I / C 的型別轉換
DATA(lv_today) = sy-datum.

DATA(lv_year_ad)  = CONV i( lv_today+0(4) ).      " C → I
DATA(lv_year_roc) = lv_year_ad - 1911.            " 民國年

" 用字串範本 + WIDTH/PAD 補零，不必宣告一堆中間變數
DATA(lv_roc) = |{ lv_year_roc WIDTH = 3 ALIGN = RIGHT PAD = '0' }{ lv_today+4(4) }|.

cl_demo_output=>write( |西元 { lv_today } → 民國 { lv_roc }| ).

" 反向：民國轉西元
DATA(lv_roc_in) = |1140930|.
DATA(lv_ad) = CONV d( |{ CONV i( lv_roc_in+0(3) ) + 1911 }{ lv_roc_in+3(4) }| ).
cl_demo_output=>write( |民國 { lv_roc_in } → 西元 { lv_ad }| ).
cl_demo_output=>display( ).

案例 3：Z-score 與歐幾里德距離（作業一、二、十）。Z-score＝某數值距離平均值幾個標準差，用途是「不同單位的數值也能互相比較」，在資料探勘用來找異常值。

REPORT zscore_demo.
" 作業一／二／十：平均、母體標準差、Z-score、歐氏距離
TYPES ty_num_tab TYPE STANDARD TABLE OF decfloat34 WITH EMPTY KEY.
DATA(lt_val) = VALUE ty_num_tab( ( 10 ) ( 12 ) ( 23 ) ( 23 ) ( 16 ) ( 23 ) ( 21 ) ( 16 ) ).

DATA(lv_n)   = CONV decfloat34( lines( lt_val ) ).
DATA(lv_sum) = REDUCE decfloat34( INIT s = 0 FOR v IN lt_val NEXT s = s + v ).
DATA(lv_avg) = lv_sum / lv_n.                                   " = AVERAGE( )

" 變異數 = 「標準差還沒開根號的值」（母體 VAR.P）
DATA(lv_var) = REDUCE decfloat34( INIT s = 0 FOR v IN lt_val
                                  NEXT s = s + ( v - lv_avg ) ** 2 ) / lv_n.
DATA(lv_std) = sqrt( lv_var ).                                  " = STDEV.P( )

cl_demo_output=>write( |筆數 { lv_n } 總和 { lv_sum } 平均 { lv_avg DECIMALS = 4 }| ).
cl_demo_output=>write( |變異數 { lv_var DECIMALS = 4 } 標準差 { lv_std DECIMALS = 4 }| ).

LOOP AT lt_val INTO DATA(lv_v).
  DATA(lv_z) = COND decfloat34( WHEN lv_std > 0 THEN ( lv_v - lv_avg ) / lv_std ELSE 0 ).
  cl_demo_output=>write( |值 { lv_v } 的 Z-score = { lv_z DECIMALS = 3 }| &&
                         COND string( WHEN abs( lv_z ) > 2 THEN '  ← 極端值' ELSE `` ) ).
ENDLOOP.

" 作業一：歐幾里德距離（找異常／找相似的勾稽用）
DATA(lv_dist) = sqrt( ( 2 - -2 ) ** 2 + ( -1 - 2 ) ** 2 ).      " = 5
cl_demo_output=>write( |歐幾里德距離 = { lv_dist }| ).
cl_demo_output=>display( ).

案例 4：勞保費級距計算（第 10-3 節 PU 期中專題 ZPU300_01）。表 ZPU300 用 SE11 建、SE54 產生維護畫面、SM30 維護資料。投保級距簡化成五級，費率 11%，雇主 70%／員工 20%／政府 10%。

REPORT zpu300_01.
" 勞保費級距：找出「第一個大於薪資」的級距，算出三方分攤
TYPES: BEGIN OF ty_grade,
         num       TYPE i,
         insurance TYPE p LENGTH 9 DECIMALS 2,
       END OF ty_grade.

CONSTANTS c_rate TYPE p LENGTH 5 DECIMALS 4 VALUE '0.1100'.   " 費率 11%

START-OF-SELECTION.
  " 級距表：SORTED 內表保證由小到大，找到第一個就是答案
  DATA lt_grade TYPE SORTED TABLE OF ty_grade WITH UNIQUE KEY insurance.
  lt_grade = VALUE #( ( num = 1 insurance = '19047' )
                      ( num = 2 insurance = '28800' )
                      ( num = 3 insurance = '30300' )
                      ( num = 4 insurance = '40100' )
                      ( num = 5 insurance = '50600' ) ).

  SELECT num, name, birthday, payroll
    FROM zpu300
    INTO TABLE @DATA(lt_emp).

  LOOP AT lt_emp ASSIGNING FIELD-SYMBOL(<ls_emp>).
    " 找第一個「級距 >= 薪資」的級距；超過最高級就用最高級
    DATA(lv_base) = VALUE #( lt_grade[ 1 ]-insurance OPTIONAL ).
    LOOP AT lt_grade INTO DATA(ls_grade).
      lv_base = ls_grade-insurance.
      IF <ls_emp>-payroll <= ls_grade-insurance.
        EXIT.                      " 找到就跳出內層迴圈
      ENDIF.
    ENDLOOP.

    " 保費四捨五入到整數（財務欄位一定要指定 mode）
    DATA(lv_fee) = round( val  = lv_base * c_rate
                          dec  = 0
                          mode = cl_abap_math=>round_half_up ).

    cl_demo_output=>write(
      |{ <ls_emp>-num } { <ls_emp>-name } 薪資 { <ls_emp>-payroll } | &&
      |投保 { lv_base } 保費 { lv_fee } | &&
      |雇主 { round( val = lv_fee * '0.7' dec = 0 mode = cl_abap_math=>round_half_up ) } | &&
      |員工 { round( val = lv_fee * '0.2' dec = 0 mode = cl_abap_math=>round_half_up ) } | &&
      |政府 { round( val = lv_fee * '0.1' dec = 0 mode = cl_abap_math=>round_half_up ) }| ).
  ENDLOOP.
  cl_demo_output=>display( ).

案例 6：結構的整批運算（第 09-2 節）。MULTIPLY-CORRESPONDING、ADD-CORRESPONDING、SUBTRACT-CORRESPONDING、DIVIDE-CORRESPONDING 這四個指令會把兩個結構中「同名欄位」逐一運算。它們已被列為 obsolete，在 ABAP Objects 內不可使用。

REPORT zstruct_calc.
" 舊：MULTIPLY-CORRESPONDING gs_2 BY gs_1.（obsolete，Class 內不可用）
" 新：欄位少就直接寫，欄位多就用 RTTS 動態跑欄位清單
TYPES: BEGIN OF ty_rate,
         n1 TYPE decfloat34,
         n2 TYPE decfloat34,
       END OF ty_rate.

DATA(ls_rate) = VALUE ty_rate( n1 = '0.8' n2 = '0.9' ).
DATA(ls_qty)  = VALUE ty_rate( n1 = 10    n2 = 20 ).

ls_qty = VALUE #( n1 = ls_qty-n1 * ls_rate-n1
                  n2 = ls_qty-n2 * ls_rate-n2 ).

cl_demo_output=>write( |結果：{ ls_qty-n1 } / { ls_qty-n2 }| ).   " 8 / 18
cl_demo_output=>display( ).

16. 從「寫對」到「寫好」：18 條實務守則

講義第 10-5 節的清單，這是老師整章最想留下來的東西。

1. 命名規則：lv_（區域變數）、gv_（全域變數）、iv_（輸入參數）、ev_（輸出參數）、cv_（可改參數）、rv_（回傳值）、lt_/gt_（內表）、ls_/wa_（工作區）、lo_（物件）、lr_（參考）、<fs_>（field symbol）。
2. 常數與程序名一眼看得懂：CONSTANTS c_max_attempts TYPE i VALUE 3.；程序名用「模組＋物件＋動作」如 ZMM_PO_CREATE_AND_VALIDATE。
3. 模組化：一個方法只做一件事，超過一個畫面高度就該拆。
4. 一定要寫註解：註解寫「為什麼」，不要寫「做什麼」。
5. 內縮與對齊：ABAP Editor 的 Ctrl+Shift+F1（Pretty Printer）養成習慣。
6. 迴圈中少用 SELECT SINGLE：改成一次撈進內表再對應（FOR ALL ENTRIES 或 JOIN）。
7. 少用 SELECT *：只取需要的欄位，HANA 是欄式儲存，多取一欄就多一份成本。
8. 注意索引：WHERE 條件的欄位若不在索引上，效能會斷崖式下降；用 ST05 / SAT 驗證。
9. 內表操作注意排序：READ TABLE ... BINARY SEARCH 之前一定要先 SORT 同樣的 key，否則會讀不到。
10. HASHED 表加速查詢：DATA lt_cust TYPE HASHED TABLE OF ... WITH UNIQUE KEY customer_id.（只能用完整 key 讀，但 O(1)）。
11. 批次取代逐筆：APPEND LINES OF 取代逐行 APPEND；INSERT ... FROM TABLE 取代逐筆 INSERT。
12. 用 LOOP AT ... GROUP BY 取代雙迴圈。
13. 重要片段做例外處理：TRY ... CATCH cx_...。
14. SY-SUBRC 檢查：資料庫操作後必加。
15. 訊息用 SE91 訊息類別：MESSAGE e001(zmm_po) WITH lv_ebeln. 才能多語言，不要硬編中文字串。
16. OO 可以不會寫，但要看得懂：PUBLIC（對外開放）、PROTECTED（子類可用）、PRIVATE（只有自己用）。
17. 禁止 SELECT ... ENDSELECT，尤其放在迴圈裡。
18. 多表操作用內表與透明表交互：先 FOR ALL ENTRIES 撈價格表，再用 READ TABLE 對應，不要在迴圈裡查 DB。

REPORT zbest_practice.
" 守則 6 / 17 / 18 的正確做法 + 守則 13 的例外處理
IF lt_items IS INITIAL.
  RETURN.                       " FOR ALL ENTRIES 空表 = 撈全表，務必先擋
ENDIF.

SELECT item_id, price, waers
  FROM zitem_price
  INTO TABLE @DATA(lt_prices)
  FOR ALL ENTRIES IN @lt_items
 WHERE item_id = @lt_items-item_id.

" 用 SORTED / HASHED 表或 line_exists( ) 做對應，不再回資料庫
DATA lv_total TYPE p LENGTH 15 DECIMALS 2.

LOOP AT lt_items INTO DATA(ls_item).
  IF line_exists( lt_prices[ item_id = ls_item-item_id ] ).
    DATA(ls_price) = lt_prices[ item_id = ls_item-item_id ].
    lv_total = lv_total + ls_item-quantity * ls_price-price.
  ENDIF.
ENDLOOP.

" 例外處理：除以 0
TRY.
    DATA(lv_avg) = lv_total / lines( lt_items ).
    cl_demo_output=>write( |合計 { lv_total } 平均 { lv_avg }| ).
  CATCH cx_sy_zerodivide INTO DATA(lx_zero).
    MESSAGE lx_zero->get_text( ) TYPE 'E'.
  CATCH cx_sy_arithmetic_overflow INTO DATA(lx_ovf).
    MESSAGE lx_ovf->get_text( ) TYPE 'E'.
ENDTRY.
cl_demo_output=>display( ).

練習與自我檢核

講義的 20 支練習程式（ZDATATYPE01～ZDATATYPE20）主題對照：01 型別初始值／02 SY-DATUM 與字面值／03 結構與繼承／04 顏色與 ICON／05 MOVE 與 FIELD-SYMBOLS／06 FIELD-SYMBOLS 結構版／07 COND 與 SWITCH／08 STRLEN 與型別轉換／09 CONV 位置／10 SHIFT REPLACE TRANSLATE／11 SEARCH／12 CONCATENATE 新用法／13 SPLIT CONDENSE／14 IF CASE／15 DO WHILE 雙迴圈／16 CALL FUNCTION 日期／17 LOOP AT 與 KNA1／18 STATICS／19 MULTIPLY-CORRESPONDING／20 WRITE 報表。

1. 作業一（歐幾里德距離）：設 x1,y1,x2,y2 四個變數，把距離存入 dist。提示：** '0.5' 或 sqrt( )；用途是找異常值／相似度勾稽。答案見第 15 節。
2. 作業二（Z-score）：設 x、u（平均）、stdv（標準差），求 z = ( x - u ) / stdv。想想為什麼型別要用 DECFLOAT34 而不是 I。
3. 作業三（字串反轉）：禁用 STRING_REVERSE，把 'I-LOVE-ABAP' 變成 'PABA-EVOL-I'。提示：strlen( ) + DO n TIMES + substring( )；注意 offset 從 0 起算，所以 pos = 11 - sy-index。
4. 作業四（民國年）：把 '20220315' 顯示成 '1110315'。提示：C→I 轉型、減 1911、再補零成 3 碼。踩雷點：直接用 N 型別相減會失去型別長度控制。
5. 作業五（本月／上月／去年同期）：上網找出標準函數並實作。答案：RP_CALC_DATE_IN_INTERVAL（signum '+'／'-'）、HR_JP_MONTH_BEGIN_END_DATE、RP_LAST_DAY_OF_MONTHS。
6. 作業六（字串逐行輸出）：輸入 80 碼、逗號分隔的字串，一列一列輸出。提示：SPLIT ... INTO TABLE + CONDENSE。
7. 作業七（排序輸出）：同作業六，但存入內表並遞增排序。提示：SORT lt ASCENDING.；別忘了先 DELETE lt WHERE table_line IS INITIAL.。
8. 作業八（KNA1 前 5 筆）：建內表 IT_KNA1，把 KNA1 依 KUNNR 排序取前 5 筆的 KUNNR、NAME1。現代解：SELECT kunnr, name1 FROM kna1 INTO TABLE @DATA(lt_kna1) UP TO 5 ROWS ORDER BY kunnr. — 注意 UP TO n ROWS 若沒有 ORDER BY，在 HANA 上每次結果可能不同。
9. 作業九（學會線上搜尋）：練習用 SE37 直接執行函數、用 SE38 輸入 DEMO* 按 F4 找 SAP 示範程式、用 ABAPDOCU 查語法樹。
10. 作業十（標準差複習）：用 Excel 對 10,12,23,23,16,23,21,16 算 =AVERAGE( )、=VAR.P( )、=STDEV.P( )、=SQRT(144/8)，再用 ABAP 寫出同樣結果（見第 15 節）。記住：變異數就是標準差還沒開根號的值。
11. 自我檢核 A：DATA(lv_x) = 5 / 2. 的結果是多少？為什麼？要得到 2.5 該怎麼改？
12. 自我檢核 B：-5 MOD 3 在 ABAP 是多少？跟 C / Java 有何不同？
13. 自我檢核 C：日圓 1000 元在 BSEG-WRBTR 裡存的是什麼數字？要用哪個 BAPI 換算？表 TCURX 的作用是什麼？
14. 自我檢核 D：CHECK 寫在 LOOP 裡跟寫在 FORM 裡，行為有什麼不同？
15. 自我檢核 E：strlen( ) 對 TYPE c LENGTH 20 但只放 13 個字的變數回傳多少？換成 TYPE string 呢？
16. 自我檢核 F：SY-TABIX 在 HASHED 內表的 LOOP 裡是多少？為什麼？
17. 自我檢核 G：為什麼 SELECT SINGLE 沒帶完整主鍵時結果不穩定？跟本專案 ZKEPH「一下抓 H 一下抓 E」的成本不穩定，是不是同一類問題？

第 2-2 章 內表 / 工作區 / ABAP SQL 與 7.40+ 新語法

這是整本教材最核心的一章。ABAP 的世界只有兩件事：把資料從資料庫撈進記憶體（ABAP SQL），以及在記憶體裡把資料整理成報表要的樣子（內表）。這一章把內表的三種型別與 KEY 設計、增刪改查排序去重加總十大技巧、ABAP SQL 完整 SELECT 語法（JOIN／子查詢／聚合／CTE／視窗函數）、FOR ALL ENTRIES 的陷阱、S/4HANA 的 code pushdown 效能觀念，以及 7.40～7.55 的現代語法（VALUE / FOR / REDUCE / CORRESPONDING / COND / SWITCH / 表達式讀取）一次講完。學完之後，你寫出來的 SELECT 與 LOOP 應該可以直接上 S/4HANA 1809 以後的正式系統。

1. 內表是什麼：記憶體中的臨時表

內表（internal table）是程式執行期間在記憶體中建立的一張臨時表。你可以對它做插入、修改、刪除、查詢，程式跑完它就自動被釋放，不必像 T-SQL 的 #table 還要記得 DROP（雖然 T-SQL 現在也有 DECLARE @table 了）。

老師的第一句話：掌握內表是成為 ABAPer 的關鍵一步。除了寫程式之外，小到 SELECT-OPTIONS、大到 Function Module 的 TABLES 參數、ALV 的資料來源，到處都是 internal table 的影子。

內表、表格列（table line）與工作區（work area）

• 內表：多筆資料的集合（相當於 SQL 的 table）。
• table line：內表中的一筆記錄，很容易跟工作區搞混。
• 工作區 work area：內表是「按行存取」的，必須有一塊區域當作與內表互相傳輸的介面。從內表讀資料時，被定址的那一行內容會覆蓋工作區；要寫資料進內表時，必須先把資料填進工作區。

換句話說：工作區＝一列的結構，內表＝很多列。在現代 ABAP 中，工作區往往不需要事先宣告，直接用 INTO DATA(ls_x) 或 ASSIGNING FIELD-SYMBOL(<ls_x>) 在迴圈裡就地產生。

2. 三種內表型別與 KEY 設計（STANDARD / SORTED / HASHED）

內表共三種類型，差別在「怎麼找到那一列」：

SAP 官方對 hashed table 的定義：資料列依 hash 演算法存放、以唯一 hash key 存取；沒有主表索引，但可以另外掛 secondary table index（透過 secondary key）。

主鍵、次鍵與 USING KEY

• Primary key：WITH [UNIQUE|NON-UNIQUE] KEY f1 f2。若用 TYPE TABLE OF struct 而不指定 KEY，預設是「所有非數值欄位（c／n／d／t／string）當 non-unique 標準鍵」——這通常不是你要的，也會拖慢比對。
• WITH EMPTY KEY：7.40 起可宣告空鍵，明確表示「我不靠 key 找資料，只用 index」，比預設標準鍵乾淨。
• Secondary key：一張內表可以同時掛多組次鍵（SORTED 或 HASHED），讓同一份資料有多種查法。存取時用 USING KEY <key_name> 指定要走哪一把鍵。
• DEFAULT KEY：舊式寫法，等同標準鍵，效能差，新程式不建議。

REPORT zdemo_itab_types.

TYPES: BEGIN OF ty_result,
         vbeln  TYPE vbak-vbeln,
         posnr  TYPE vbap-posnr,
         kunnr  TYPE vbak-kunnr,
         matnr  TYPE vbap-matnr,
         kwmeng TYPE vbap-kwmeng,
         netwr  TYPE vbap-netwr,
         waerk  TYPE vbap-waerk,
       END OF ty_result.

" 1) 標準表：明確宣告空鍵，只靠 index 存取（最乾淨）
DATA lt_std TYPE STANDARD TABLE OF ty_result WITH EMPTY KEY.

" 2) 排序表：主鍵唯一，插入時自動維持排序
DATA lt_sorted TYPE SORTED TABLE OF ty_result
                    WITH UNIQUE KEY vbeln posnr.

" 3) 雜湊表：主鍵一定要 UNIQUE，沒有主表索引
DATA lt_hash TYPE HASHED TABLE OF ty_result
                  WITH UNIQUE KEY vbeln posnr.

" 4) 一張標準表掛兩把次鍵：一把查客戶、一把查料號
DATA lt_multi TYPE STANDARD TABLE OF ty_result
                   WITH EMPTY KEY
                   WITH NON-UNIQUE SORTED KEY by_kunnr COMPONENTS kunnr
                   WITH NON-UNIQUE SORTED KEY by_matnr COMPONENTS matnr.

" 用次鍵讀取／迴圈，速度會比全表掃描快非常多
READ TABLE lt_multi WITH KEY by_kunnr COMPONENTS kunnr = '0000100001'
                    INTO DATA(ls_one).

LOOP AT lt_multi USING KEY by_matnr INTO DATA(ls_line)
     WHERE matnr = 'DXTR1000'.
  " ... 處理
ENDLOOP.

3. 內表的宣告：從舊語法到現代寫法

講義列了很多 3.0 時代的宣告方式，這裡整理成「看得懂舊的、寫得出新的」對照。

（講義第 12 個練習：內表的定義，程式 Z202202_12，示範 OCCURS 0 宣告與 BREAK-POINT 進入除錯）這裡把它整支改寫成現代版：

*&---------------------------------------------------------------------*
*& Report ZDEMO_02_12  內表的定義（原講義 Z202202_12 現代化改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_02_12.

" 定義列結構
TYPES: BEGIN OF ty_person,
         name TYPE char10,
         age  TYPE int2,
       END OF ty_person.

" 定義表型別（可重複使用，也可放進 SE11 的 Table Type）
TYPES ty_t_person TYPE STANDARD TABLE OF ty_person WITH EMPTY KEY.

DATA: lt_person1 TYPE ty_t_person,          " 由表型別宣告
      ls_person  TYPE ty_person,            " 工作區
      lt_person2 LIKE lt_person1.           " 參照已宣告好的內表

" 參照 DDIC 透明表 / 結構
DATA lt_sflight  TYPE STANDARD TABLE OF sflight WITH EMPTY KEY.
DATA lt_sorted   TYPE SORTED TABLE  OF sflight WITH UNIQUE KEY carrid connid fldate.
DATA lt_hashed   TYPE HASHED TABLE  OF sflight WITH UNIQUE KEY carrid connid fldate.

" 取筆數：內嵌宣告＋內建函數，取代 DESCRIBE
SELECT carrid, connid, fldate, seatsmax, seatsocc
  FROM sflight
  INTO TABLE @DATA(lt_flight).

DATA(lv_cnt) = lines( lt_flight ).
WRITE: / |sflight 共 { lv_cnt } 筆|.

" BREAK-POINT 會與程式共存、每次執行都停；除外部程式請用 SE38 的 External Breakpoint
BREAK-POINT.

4. WITH HEADER LINE：為什麼不要再用

WITH HEADER LINE 是讓工作區與內表同名的舊機制。itab-field1 = 1. APPEND itab. 看起來很省事，但它是 ABAP 3.0 時代的產物。

講義引用的英文說明重點：header line 就是一個隱含的介面（interface），沒有它就必須自己宣告工作區；但在新版 SAP 上，header line 已經是 obsolete，而且物件導向 ABAP（class / method）根本不支援。

*&---------------------------------------------------------------------*
*& Report ZDEMO_HEADERLINE  header line 的陷阱示範（僅供理解舊程式）
*&---------------------------------------------------------------------*
REPORT zdemo_headerline.

" ==== 反例：舊寫法，自己的程式請勿模仿 ====
" DATA it_marah TYPE TABLE OF mara WITH HEADER LINE.
" it_marah-matnr = 'A'.
" APPEND it_marah.            " 把工作區附加進內表
" CLEAR  it_marah.            " 只清工作區，內表還在！

" ==== 正解：工作區與內表分開，語意清楚 ====
DATA lt_mara TYPE STANDARD TABLE OF mara WITH EMPTY KEY.
DATA ls_mara TYPE mara.

ls_mara-matnr = 'A'.
APPEND ls_mara TO lt_mara.

CLEAR ls_mara.                " 清工作區
CLEAR lt_mara.                " 清內表（無 header line 時 CLEAR 就是清整張表）

" ==== 更好：連工作區都不用宣告 ====
DATA lt_mat TYPE STANDARD TABLE OF mara WITH EMPTY KEY.
APPEND VALUE #( matnr = 'A' mtart = 'FERT' ) TO lt_mat.

LOOP AT lt_mat INTO DATA(ls_line).
  WRITE: / ls_line-matnr, ls_line-mtart.
ENDLOOP.

5. 內表的新增：APPEND / INSERT / COLLECT / VALUE

講義的口訣：內表新增有五個方法 —— INSERT、COLLECT（累加數值）、APPEND、MOVE、＝（賦值），再加上 SELECT ... INTO TABLE。使用時機：

• 只要存資料、要速度 → APPEND（附加到最後，只能用在 STANDARD TABLE）。
• 要數字欄位自動加總、或要保證沒有重複條目 → COLLECT（等同 GROUP BY 的效果）。
• 要插到既有列的前面、或依 key 插入 SORTED／HASHED → INSERT。
• 整張表複製覆蓋 → lt_a = lt_b.（MOVE 已過時，直接用等號）。

COLLECT 的行為要記牢：比對所有非數值欄位，找到相同的那一列就把數值欄位累加上去；找不到就新增一列。非常適合做小計、合計、總計。

*&---------------------------------------------------------------------*
*& Report ZDEMO_02_13  內表的新增（原講義第 13 個練習 Z202202_13 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_02_13.

TYPES: BEGIN OF ty_student,
         name TYPE char10,
         age  TYPE int2,
       END OF ty_student.

DATA: lt_stu TYPE STANDARD TABLE OF ty_student WITH EMPTY KEY,
      lt_tot TYPE STANDARD TABLE OF ty_student WITH EMPTY KEY.

" 1) APPEND：附加到表尾（最快）
DO 2 TIMES.
  APPEND VALUE #( name = 'CASPER' age = sy-index ) TO lt_stu.
ENDDO.

" 2) INSERT ... INDEX：插到指定位置之前
INSERT VALUE #( name = 'NCU' age = 3 ) INTO lt_stu INDEX 1.

" 3) INSERT INITIAL LINE：插一列空白列
"    常用在 SELECT-OPTIONS 要先塞一列空行進 range 表時
INSERT INITIAL LINE INTO lt_stu INDEX 1 ASSIGNING FIELD-SYMBOL(<ls_blank>).
<ls_blank>-name = 'BLANK'.

" 4) COLLECT：非數值欄位相同就累加數值欄位
DATA ls_stu TYPE ty_student.
ls_stu = VALUE #( name = 'NCU' age = 3 ).
COLLECT ls_stu INTO lt_stu.        " NCU 已存在 → age 變成 6

" 5) 多筆附加／插入
APPEND LINES OF lt_stu TO lt_tot.
APPEND LINES OF lt_stu FROM 2 TO 3 TO lt_tot.   " 注意：是第 2~3 列，不是 1~2
INSERT LINES OF lt_stu INTO lt_tot INDEX 1.

" 6) 整表覆蓋（MOVE 已過時，用等號）
DATA(lt_copy) = lt_stu.

" 7) 一次建整張表：VALUE 建構式（7.40+，最現代）
DATA(lt_new) = VALUE ty_t_dummy( ( name = 'A' age = 1 )
                                 ( name = 'B' age = 2 )
                                 ( name = 'C' age = 3 ) ).

LOOP AT lt_stu INTO DATA(ls_out).
  WRITE: / ls_out-name, ls_out-age.
ENDLOOP.

把資料庫資料直接灌進內表，才是最常用的「新增」：

" 一次讀進內表（現代寫法：明列欄位 ＋ 內嵌宣告 ＋ 逸出字元 @）
SELECT bname AS name,
       persnumber AS telnum,
       addrnumber AS addr
  FROM usr21
  INTO TABLE @DATA(lt_emp)
  UP TO 10 ROWS.

" 追加到已存在的內表（不清空原內容）
SELECT bname AS name,
       persnumber AS telnum,
       addrnumber AS addr
  FROM usr21
  APPENDING TABLE @lt_emp
  WHERE bname LIKE 'Z%'.

6. 內表的修改：MODIFY ... TRANSPORTING ... WHERE

語法骨架：

MODIFY itab FROM wa [INDEX idx] [TRANSPORTING f1 f2 ...] [WHERE cond].

• 只給 INDEX：改指定那一列（在 LOOP 裡常搭配 sy-tabix）。
• 加 TRANSPORTING：只更新列出的欄位，其他欄位保持原值。
• 加 WHERE：整批更新（此時一定要有 TRANSPORTING）。

*&---------------------------------------------------------------------*
*& Report ZDEMO_02_14  內表的更改（原講義第 14 個練習 Z202202_14 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_02_14.

TYPES: BEGIN OF ty_student,
         name TYPE char10,
         age  TYPE int2,
       END OF ty_student.

DATA lt_stu TYPE STANDARD TABLE OF ty_student WITH EMPTY KEY.

DO 2 TIMES.
  APPEND VALUE #( name = 'CASPER' age = sy-index ) TO lt_stu.
ENDDO.

DATA(ls_stu) = VALUE ty_student( name = 'NCU' age = 3 ).

" 1) 依 index 整列覆蓋
MODIFY lt_stu FROM ls_stu INDEX 2.

" 2) 依 index 只更新 NAME 欄位
ls_stu = VALUE #( name = 'NCUBA' age = 1 ).
MODIFY lt_stu FROM ls_stu INDEX 1 TRANSPORTING name.

" 3) 整批更新：所有 name = 'NCUBA' 的列，把 age 改成 99
ls_stu-age = 99.
MODIFY lt_stu FROM ls_stu TRANSPORTING age WHERE name = 'NCUBA'.

" 4) 最現代的做法：用 field-symbol 就地改，不需要 MODIFY 回寫
LOOP AT lt_stu ASSIGNING FIELD-SYMBOL(<ls_stu>) WHERE name = 'CASPER'.
  <ls_stu>-age = <ls_stu>-age + 1.
ENDLOOP.

LOOP AT lt_stu INTO DATA(ls_out).
  WRITE: / ls_out-name, ls_out-age.
ENDLOOP.

7. 內表的刪除與去重：DELETE / ADJACENT DUPLICATES

DELETE TABLE itab WITH TABLE KEY k1 = v1 k2 = v2.  " 依主鍵刪除
DELETE TABLE itab FROM wa.                          " 依工作區的鍵值刪除
DELETE itab INDEX idx.                              " 依索引刪除
DELETE itab FROM idx1 TO idx2.                      " 依索引區間刪除
DELETE itab WHERE cond.                             " 依條件刪除（最常用）
DELETE ADJACENT DUPLICATES FROM itab COMPARING f1 f2.
DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS.

*&---------------------------------------------------------------------*
*& Report ZDEMO_02_15  內表的刪除與去重（原講義第 15 個練習 Z202202_15 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_02_15.

TYPES: BEGIN OF ty_emp,
         name TYPE usr21-bname,
       END OF ty_emp.

DATA lt_emp TYPE STANDARD TABLE OF ty_emp WITH EMPTY KEY.

lt_emp = VALUE #( ( name = 'JERY' ) ( name = 'TOM' ) ( name = 'TOM' ) ).

DELETE lt_emp INDEX 1.                 " 刪第一筆

" 去重的正確順序：先排序，再去重
SORT lt_emp BY name DESCENDING.
DELETE ADJACENT DUPLICATES FROM lt_emp COMPARING name.

" 依條件刪除
DELETE lt_emp WHERE name IS INITIAL.

LOOP AT lt_emp INTO DATA(ls_emp).
  WRITE: / ls_emp-name.
ENDLOOP.

實務案例：在 LOOP 中刪除自己 —— USING KEY loop_key

講義收錄了一段工作上遇到的真實案例：把系統資料與 Excel 對照，Excel 裡沒有的就把系統那一列刪掉。在 LOOP 內刪除正在迴圈的那張表是很危險的動作（索引會位移），所以必須加 USING KEY loop_key，讓系統知道刪除要走「目前迴圈用的那把鍵」，避免跳列。

" 原講義寫法（FORM clear_data）的現代化版本
METHOD clear_data.

  CHECK it_ekes_xls IS NOT INITIAL.        " 對照表是空的就不要動作

  LOOP AT it_zmmb0021 ASSIGNING FIELD-SYMBOL(<ls_zmm>).

    " 用 line_exists 取代 READ TABLE + sy-subrc 判斷
    IF NOT line_exists( it_ekes_xls[ ebeln = <ls_zmm>-ebeln
                                     ebelp = <ls_zmm>-ebelp
                                     etens = <ls_zmm>-ekes_etens ] ).
      " 迴圈中刪除自己，一定要指定 loop_key，避免索引錯位
      DELETE it_zmmb0021 USING KEY loop_key.
    ENDIF.

  ENDLOOP.

ENDMETHOD.

8. 內表的讀取：READ TABLE、表達式讀取與 line_exists

READ TABLE itab INTO wa INDEX i.
READ TABLE itab INTO wa WITH KEY f1 = v1 f2 = v2.        " 自訂鍵，只能用 =
READ TABLE itab INTO wa WITH TABLE KEY k1 = v1.          " 走宣告的主鍵
READ TABLE itab INTO wa WITH KEY f1 = v1 BINARY SEARCH.  " 需先 SORT！
READ TABLE itab TRANSPORTING NO FIELDS WITH KEY ...      " 只想知道有沒有

• WITH TABLE KEY：使用內表宣告時定義的鍵；WITH KEY：自訂欄位，但條件只能用等號。
• BINARY SEARCH 可以大幅加速，但使用前必須依相同欄位順序排序，否則會讀不到（sy-subrc = 4）卻不報錯。
• 讀完永遠要判斷 sy-subrc = 0。READ TABLE 就是內表版的 SELECT。

7.40 之後有更漂亮的寫法。講義 04-8 用左右對照的方式列出新舊語法，整理如下：

*&---------------------------------------------------------------------*
*& Report ZDEMO_02_16  內表的讀取（原講義第 16 個練習 Z202202_16 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_02_16.

TYPES: BEGIN OF ty_emp,
         name TYPE usr21-bname,
       END OF ty_emp.

DATA lt_emp TYPE STANDARD TABLE OF ty_emp WITH EMPTY KEY.

lt_emp = VALUE #( ( name = 'CASPER' ) ( name = 'RICKY' )
                  ( name = 'EDDIE'  ) ( name = 'JAMIE' ) ).

" 1) 讀第一筆
READ TABLE lt_emp INTO DATA(ls_emp) INDEX 1.
IF sy-subrc = 0.
  WRITE: / ls_emp-name.
ENDIF.

" 2) 讀符合條件的第一筆（表達式寫法，讀不到會拋例外）
TRY.
    WRITE: / lt_emp[ name = 'EDDIE' ]-name.
  CATCH cx_sy_itab_line_not_found.
    WRITE: / 'EDDIE MISSING'.
ENDTRY.

" 3) 只想判斷存不存在
IF line_exists( lt_emp[ name = 'HAZEL' ] ).
  WRITE: / 'HAZEL FOUND'.
ELSE.
  WRITE: / 'MISSING'.
ENDIF.

" 4) 讀不到就給預設值，完全不必 TRY
DATA(ls_opt) = VALUE ty_emp( lt_emp[ name = 'HAZEL' ] OPTIONAL ).

" 5) 取得列號（相當於 READ ... TRANSPORTING NO FIELDS 後看 sy-tabix）
DATA(lv_idx) = line_index( lt_emp[ name = 'JAMIE' ] ).
WRITE: / |JAMIE 在第 { lv_idx } 列|.

" 6) 大量資料就地存取，不複製資料 → 最快
ASSIGN lt_emp[ name = 'RICKY' ] TO FIELD-SYMBOL(<ls_emp>).
IF sy-subrc = 0.
  <ls_emp>-name = 'RICKY2'.
ENDIF.

9. LOOP 的完整用法：WHERE、FROM/TO、GROUP BY、AT NEW / AT END OF / SUM

LOOP AT itab INTO wa [FROM n1] [TO n2] [WHERE cond] [USING KEY key].
LOOP AT itab ASSIGNING FIELD-SYMBOL(<fs>).      " 就地存取，可直接改
LOOP AT itab REFERENCE INTO DATA(lr).           " 取得參考，適合大量資料
LOOP AT itab INTO wa GROUP BY ( k = wa-key ).   " 7.40 內表分組

控制中斷（control break）四兄弟：AT FIRST / AT NEW f / AT END OF f / AT LAST，中間可用 SUM 做小計。

*&---------------------------------------------------------------------*
*& Report ZDEMO_AT_EVENTS  AT FIRST / AT NEW / SUM / AT END OF / AT LAST
*&---------------------------------------------------------------------*
REPORT zdemo_at_events.

TYPES: BEGIN OF ty_t001,
         land1 TYPE t001-land1,      " 分組欄位放最左邊
         waers TYPE t001-waers,
         bukrs TYPE t001-bukrs,
         cnt   TYPE i,
       END OF ty_t001.

DATA lt_t001 TYPE STANDARD TABLE OF ty_t001 WITH EMPTY KEY.

SELECT land1, waers, bukrs
  FROM t001
  INTO CORRESPONDING FIELDS OF TABLE @lt_t001
  UP TO 9 ROWS.

" 每一列先給 1，方便示範 SUM
LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<ls>).
  <ls>-cnt = 1.
ENDLOOP.

" 關鍵：AT 事件之前一定要排序
SORT lt_t001 BY land1 waers bukrs.

LOOP AT lt_t001 INTO DATA(ls_t001).

  AT FIRST.
    WRITE: / '===== 報表開始 ====='.
  ENDAT.

  AT NEW land1.
    WRITE: / |國家：{ ls_t001-land1 }|.
  ENDAT.

  WRITE: / ls_t001-waers, ls_t001-bukrs.

  AT END OF land1.
    SUM.                                   " 把數值欄位加總填回工作區
    WRITE: / |小計筆數：{ ls_t001-cnt }|.
    ULINE.
  ENDAT.

  AT LAST.
    SUM.
    WRITE: / |總計筆數：{ ls_t001-cnt }|.
  ENDAT.

ENDLOOP.

IF sy-subrc <> 0.
  WRITE: / '沒有資料'.
ENDIF.

7.40 的 LOOP AT ... GROUP BY：取代 AT NEW 的現代寫法

" 依採購單號分組，一組一組處理，且不必事先排序、不受欄位順序影響
LOOP AT lt_ekpo INTO DATA(ls_ekpo)
     GROUP BY ( ebeln = ls_ekpo-ebeln
                size  = GROUP SIZE
                idx   = GROUP INDEX )
     ASCENDING
     INTO DATA(ls_group).

  WRITE: / |採購單 { ls_group-ebeln }，共 { ls_group-size } 項|.

  " 走訪該組的成員
  LOOP AT GROUP ls_group INTO DATA(ls_member).
    WRITE: / '   ', ls_member-ebelp, ls_member-matnr, ls_member-netwr.
  ENDLOOP.

  " 或直接用 REDUCE 把該組加總，一行搞定
  DATA(lv_sum) = REDUCE ekpo-netwr(
                   INIT s = 0
                   FOR ls IN GROUP ls_group
                   NEXT s = s + ls-netwr ).
  WRITE: / |   小計：{ lv_sum CURRENCY = 'TWD' }|.

ENDLOOP.

10. 排序、去重、計數、清空與動態 SORT

SORT itab [BY f1 [ASCENDING|DESCENDING] f2 ...] [AS TEXT] [STABLE].

• 不寫 BY 就依「標準鍵」排序，通常不是你要的，請一律明寫 BY。
• AS TEXT：依語言的字典順序排（處理中文／重音字元時用）。
• STABLE：保持相同鍵值列的原有相對順序（做多層排序時很重要）。
• SORT 只能用在 STANDARD TABLE；SORTED 本來就有序、HASHED 沒有順序。

*&---------------------------------------------------------------------*
*& Report ZDEMO_SORT  動態排序欄位（原講義 ZSORT 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_sort.

DATA lt_makt TYPE STANDARD TABLE OF makt WITH EMPTY KEY.

PARAMETERS p_sort TYPE char20 DEFAULT 'SORT:MAKTX'.

START-OF-SELECTION.

  " VALUE 建構式：MATNR 只寫一次，後面括號的列共用
  lt_makt = VALUE #(
      matnr = 'APPLE' ( spras = 'M' maktx = 'APPLE-M' )
                      ( spras = 'E' maktx = 'APPLE-E' )
      matnr = 'GOOGL' ( spras = 'M' maktx = 'GOOGL-M' )
                      ( spras = 'E' maktx = 'GOOGL-E' ) ).

  " 動態排序：括號裡放「欄位名稱的變數」
  " p_sort+5 表示取 p_sort 從第 6 個字元起的內容（offset 從 0 算）
  DATA(lv_field) = CONV fieldname( p_sort+5 ).
  SORT lt_makt BY (lv_field).

  LOOP AT lt_makt ASSIGNING FIELD-SYMBOL(<ls_makt>).
    WRITE: /1 <ls_makt>-matnr, <ls_makt>-spras, <ls_makt>-maktx.
  ENDLOOP.

清空與計數的四個指令要分清楚：

11. 工作區 vs Field-Symbol vs 參考：Call by value / by reference

LOOP 有三種取值方式，差別在「有沒有複製資料」：

*&---------------------------------------------------------------------*
*& Report ZDEMO_BYREF  call by value vs call by reference
*&---------------------------------------------------------------------*
REPORT zdemo_byref.

SELECT bukrs, butxt, ort01, land1, waers
  FROM t001
  INTO TABLE @DATA(lt_t001)
  UP TO 9 ROWS.

" (A) call by value：改工作區後必須 MODIFY 回內表
LOOP AT lt_t001 INTO DATA(ls_t001).
  ls_t001-bukrs = 'VAL'.
  MODIFY lt_t001 FROM ls_t001 INDEX sy-tabix.
ENDLOOP.

" (B) call by reference：直接改，不必 MODIFY，效能較佳
LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<ls_t001>).
  <ls_t001>-bukrs = 'REF'.
ENDLOOP.

" (C) REFERENCE INTO：拿到資料參考，適合大結構或要傳給方法
LOOP AT lt_t001 REFERENCE INTO DATA(lr_t001).
  lr_t001->bukrs = 'PTR'.
ENDLOOP.

LOOP AT lt_t001 INTO DATA(ls_out).
  WRITE: / ls_out-bukrs, ls_out-butxt.
ENDLOOP.

12. 雙迴圈（巢狀 LOOP）的寫法與優化

講義 04-4 用 ZLOOP 示範巢狀 LOOP：外圈 FROM 2 TO 9、內圈整表跑，並提醒 sy-tabix 在內外圈會互相覆蓋，所以外圈的列號一進迴圈就要先存起來。

*&---------------------------------------------------------------------*
*& Report ZDEMO_NESTED_LOOP  雙迴圈的注意事項與優化
*&---------------------------------------------------------------------*
REPORT zdemo_nested_loop.

SELECT bukrs, butxt, land1
  FROM t001
  INTO TABLE @DATA(lt_t001)
  UP TO 9 ROWS.

" ---- 反例：O(n × m)，資料一多就爆 ----
LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<ls_out>) FROM 2 TO 9.
  DATA(lv_tabix_out) = sy-tabix.            " sy-tabix 會被內圈覆蓋，先存起來

  LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<ls_in>).
    DATA(lv_tabix_in) = sy-tabix.
    WRITE: / lv_tabix_out, lv_tabix_in.
  ENDLOOP.

ENDLOOP.

" ---- 正解 1：把內圈的表改成 SORTED / HASHED，用 key 直接命中 ----
DATA lt_ekpo TYPE SORTED TABLE OF ekpo WITH NON-UNIQUE KEY ebeln.

SELECT ebeln, ebelp, matnr, menge, netwr
  FROM ekpo
  WHERE ebeln IN @s_ebeln
  INTO CORRESPONDING FIELDS OF TABLE @lt_ekpo.

LOOP AT lt_ekko INTO DATA(ls_ekko).
  " 排序表上的 WHERE 會走二分搜尋，不是全表掃描
  LOOP AT lt_ekpo INTO DATA(ls_ekpo) WHERE ebeln = ls_ekko-ebeln.
    " ...
  ENDLOOP.
ENDLOOP.

" ---- 正解 2：能在 DB 做的就在 DB 做（JOIN），根本不要雙迴圈 ----
SELECT k~ebeln, k~lifnr, p~ebelp, p~matnr, p~netwr
  FROM ekko AS k
  INNER JOIN ekpo AS p ON p~ebeln = k~ebeln
  WHERE k~bukrs = @lv_bukrs
  INTO TABLE @DATA(lt_join).

13. ABAP SQL 概論：Native SQL、Open SQL 與 ABAP SQL

主要指令：SELECT / INSERT / UPDATE / MODIFY / DELETE，執行結果一律看系統變數：SY-SUBRC = 0 表示成功，SY-DBCNT 是實際處理的筆數。

三個世代的寫法對照（講義 ZOPENSQL）

*&---------------------------------------------------------------------*
*& Report ZDEMO_OPENSQL_GEN  三個世代的 ABAP SQL 寫法
*&---------------------------------------------------------------------*
REPORT zdemo_opensql_gen.

SELECT-OPTIONS s_matnr FOR (mara-matnr) NO INTERVALS.  " 說明用；實務見第 3-1 章

" (1) 舊 Open SQL：欄位不加逗號、主機變數不加 @  → S/4HANA 已不建議
" SELECT matnr matkl INTO CORRESPONDING FIELDS OF TABLE gt_mara
"   UP TO 100 ROWS FROM mara WHERE matnr IN s_matnr.

" (2) 新 Open SQL（7.40 SP08+）：欄位加逗號、主機變數加 @
SELECT matnr, matkl
  FROM mara
  WHERE matnr IN @s_matnr
  INTO TABLE @DATA(lt_mara)
  UP TO 100 ROWS.

" (3) 未來建議寫法：FROM 先寫、FIELDS 列欄位（語法順序最接近 HANA SQL）
SELECT FROM mara
  FIELDS matnr, matkl, mtart, meins
  WHERE matnr IN @s_matnr
  ORDER BY matnr
  INTO TABLE @DATA(lt_mara2)
  UP TO 100 ROWS.

LOOP AT lt_mara2 INTO DATA(ls_mara).
  WRITE: / ls_mara-matnr, ls_mara-matkl, ls_mara-mtart.
ENDLOOP.

14. 完整的 SELECT 語法骨架

講義抄錄了 ABAP 官方文件的完整語法。這裡整理成可讀的骨架，寫 SQL 時當檢查清單用：

SELECT [SINGLE [FOR UPDATE]] [DISTINCT]
       FROM data_source [AS alias]
            [ [INNER] JOIN | LEFT|RIGHT [OUTER [MANY TO ONE]] JOIN | CROSS JOIN
              data_source [AS alias] ON join_cond ]
            [ USING CLIENT @lv_mandt | CLIENT SPECIFIED | USING ALL CLIENTS ]
       FIELDS col1, col2, sql_expression AS alias, ...
       [ FOR ALL ENTRIES IN @itab ] WHERE sql_cond
       [ GROUP BY col1, col2 | GROUPING SETS ( ... ) ]
       [ HAVING sql_cond ]
       [ UNION [ALL|DISTINCT] SELECT ... ]
       [ ORDER BY PRIMARY KEY | col1 [ASCENDING|DESCENDING], ... ]
       INTO   { @DATA(wa) | TABLE @DATA(itab) | ( @a, @b, @c )
              | CORRESPONDING FIELDS OF TABLE @itab
              | TABLE @itab PACKAGE SIZE n }
       [ APPENDING TABLE @itab ]
       [ UP TO n ROWS ] [ OFFSET o ]
       [ BYPASSING BUFFER ]
       [ CONNECTION con ].

常用子句速查：

15. JOIN 與子查詢

多表查詢有兩條路：在 SE11 建 View（可重複使用），或在程式裡 JOIN（一次性）。老師的思考題：「你的程式到底要用 SQL 關聯多表？還是建成一個 View 方便日後重複使用？」判斷標準：

• 邏輯會被多支程式重複使用、或要給 Fiori／OData 消費 → 建 CDS View（S/4HANA 首選，取代自建 DB View）。
• 只有這支程式用、關聯條件會隨選擇畫面變動 → 程式裡 JOIN。

JOIN 三要素：連接哪些表、連接條件（ON）、連接哪些欄位。型態：

• INNER JOIN：兩表都有對應的資料才出現。
• LEFT OUTER JOIN：保證左邊的主資料表全部秀出，右表沒對到就是 NULL（在 ABAP 會轉成型別初始值）。
• RIGHT OUTER JOIN / CROSS JOIN：較少用；CROSS JOIN 是笛卡兒積，非常危險。

*&---------------------------------------------------------------------*
*& Report ZDEMO_JOIN  INNER JOIN / LEFT OUTER JOIN（講義 08-06、08-07 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_join.

SELECT-OPTIONS s_gstrp FOR (afko-gstrp).

" INNER JOIN：製令主檔 AFKO ＋ 製令項目 AFPO
SELECT a~aufnr,        " 製令編號
       a~gstrp,        " 開始日期
       a~gltrp,        " 完工日期
       a~ftrms,        " 發放日期
       a~gamng,        " 工單數量
       a~gmein,        " 單位
       a~plnbez,       " 成品件號
       b~plnum,        " 計畫工單
       b~pwerk,        " 計畫工廠
       b~dauat,        " 製令類別
       b~berid         " MRP Area
  FROM afko AS a
  INNER JOIN afpo AS b ON b~aufnr = a~aufnr
  WHERE a~gstrp IN @s_gstrp
  ORDER BY a~aufnr
  INTO TABLE @DATA(lt_inner).

" LEFT OUTER JOIN：以 AFPO 為主表，保證項目全出，AFKO 沒對到就填初始值
SELECT b~aufnr, b~plnum, b~pwerk, b~dauat, b~berid,
       a~gstrp, a~gltrp, a~gamng, a~plnbez
  FROM afpo AS b
  LEFT OUTER JOIN afko AS a ON a~aufnr = b~aufnr
  WHERE b~pwerk = @lv_werks
  INTO TABLE @DATA(lt_left).

LOOP AT lt_inner INTO DATA(ls).
  WRITE: / ls-aufnr, ls-plnbez, ls-gamng, ls-gmein, ls-pwerk, ls-berid.
ENDLOOP.

子查詢（subquery）：IN、EXISTS、以及純量子查詢。講義 08-13、08-14 的範例現代化如下：

*&---------------------------------------------------------------------*
*& Report ZDEMO_SUBQUERY  IN / EXISTS / 純量子查詢
*&---------------------------------------------------------------------*
REPORT zdemo_subquery.

" (1) IN 子查詢：料號存在於 MARC 中的才取
SELECT matnr, werks, lgort, labst
  FROM mard
  WHERE matnr IN ( SELECT matnr FROM marc WHERE beskz = 'F' )
  ORDER BY matnr, werks, lgort
  INTO TABLE @DATA(lt_in)
  UP TO 100 ROWS.

" (2) EXISTS 相關子查詢：外層每一列去問「內層有沒有對應」
"     通常比 IN 快，因為找到一筆就停
SELECT a~matnr, a~werks, a~lgort, a~labst
  FROM mard AS a
  WHERE EXISTS ( SELECT mandt FROM marc AS b
                  WHERE b~matnr = a~matnr
                    AND b~werks = a~werks
                    AND b~dispo <> @space )
  ORDER BY a~matnr
  INTO TABLE @DATA(lt_exists)
  UP TO 100 ROWS.

" (3) 純量子查詢：把單一值當成欄位用
SELECT matnr, werks,
       ( SELECT SUM( labst ) FROM mard AS d
          WHERE d~matnr = c~matnr AND d~werks = c~werks ) AS total_stock
  FROM marc AS c
  WHERE werks = @lv_werks
  INTO TABLE @DATA(lt_scalar)
  UP TO 100 ROWS.

16. 聚合、GROUP BY、HAVING、ORDER BY 與 SQL 運算式

ABAP SQL 標準聚合函數：COUNT( * ) / COUNT( DISTINCT f ) / SUM( ) / AVG( ) / MAX( ) / MIN( )。

講義提到還有 MEDIAN、PRODUCT、STDDEV、VAR、CORR、CORR_SPEARMAN、GROUPING( )、STRING_AGG、ALLOW_PRECISION_LOSS。（依講義註記整理）其中：

• STRING_AGG( col, ',' )：把多列串成一個字串，非常好用（作業 5 就是考它）。在 ABAP SQL 中可用於 HANA；跨平台程式請確認版本支援。
• ALLOW_PRECISION_LOSS：允許十進位運算做精度捨棄以換取效能。
• MEDIAN / STDDEV / VAR / CORR 等統計函數屬 HANA 專屬，在純 ABAP SQL 中通常要靠 CDS View（含 table function）或 AMDP 才能用；ABAP 端則可呼叫 RMMATH1_* 系列函數（例如 RMMATH1_VARIANCE_DEVIATION 回傳變異數、標準差、平均值）。

*&---------------------------------------------------------------------*
*& Report ZDEMO_AGG  GROUP BY / HAVING / ORDER BY 綜合（講義 03-05 改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_agg.

" (1) 本期採購單，依建檔人員統計張數，張數多的排前面
SELECT ernam,
       COUNT( * ) AS cnt
  FROM ekko
  WHERE aedat >= @lv_from_date
  GROUP BY ernam
  ORDER BY cnt DESCENDING
  INTO TABLE @DATA(lt_cnt).

" (2) 再加 HAVING：只留張數大於 7 的人
SELECT ernam,
       COUNT( * )      AS cnt,
       MIN( aedat )    AS first_date,
       MAX( aedat )    AS last_date
  FROM ekko
  WHERE aedat >= @lv_from_date
  GROUP BY ernam
  HAVING COUNT( * ) > 7
  ORDER BY cnt DESCENDING
  INTO TABLE @DATA(lt_having).

LOOP AT lt_having INTO DATA(ls).
  WRITE: / |用戶：{ ls-ernam } 採購單數：{ ls-cnt } 期間：{ ls-first_date DATE = USER } ~ { ls-last_date DATE = USER }|.
ENDLOOP.

" (3) ACDOCA 依科目 + 成本中心加總（講義 Z202202_66 改寫）
SELECT racct,                      " 會計科目
       rcntr,                      " 成本中心
       SUM( tsl ) AS tsl           " 交易幣別金額
  FROM acdoca
  WHERE rldnr = '0L'               " 分類帳，一定要帶
    AND rbukrs = @lv_bukrs         " 公司代碼，一定要帶
    AND gjahr  = @lv_gjahr         " 年度，一定要帶
  GROUP BY racct, rcntr
  ORDER BY racct, rcntr
  INTO TABLE @DATA(lt_acdoca).

WRITE: / '會計科目', 20 '成本中心', 40 '科目餘額'.
LOOP AT lt_acdoca INTO DATA(ls_acdoca).
  WRITE: / ls_acdoca-racct, 20 ls_acdoca-rcntr, 40 ls_acdoca-tsl.
ENDLOOP.

SQL 運算式：CASE、字串函數、數值函數、CAST

SELECT p~ebeln,
       p~ebelp,
       p~matnr,

       " CASE 運算式（簡單型與搜尋型）
       CASE p~werks
         WHEN '1000' THEN '台北廠'
         WHEN '2000' THEN '台中廠'
         ELSE '其他'
       END AS plant_text,

       CASE WHEN p~netwr >= 1000000 THEN 'A'
            WHEN p~netwr >=  100000 THEN 'B'
            ELSE 'C'
       END AS abc_class,

       " 數值函數
       DIV( p~menge, 12 )              AS per_month,
       DIVISION( p~netwr, p~menge, 2 ) AS unit_price,
       ABS( p~netwr )                  AS abs_amt,
       ROUND( p~netwr, 0 )             AS round_amt,
       CEIL( p~menge )                 AS ceil_qty,
       FLOOR( p~menge )                AS floor_qty,
       MOD( p~ebelp, 10 )              AS mod_item,

       " 字串函數
       CONCAT( p~ebeln, p~ebelp )      AS po_key,
       CONCAT_WITH_SPACE( p~ebeln, p~matnr, 1 ) AS po_mat,
       SUBSTRING( p~matnr, 1, 4 )      AS mat_prefix,
       LENGTH( p~matnr )               AS mat_len,
       LTRIM( p~matnr, '0' )           AS mat_notrail,
       REPLACE( p~matnr, 'X', 'Y' )    AS mat_repl,
       UPPER( p~txz01 )                AS txt_upper,
       LOWER( p~txz01 )                AS txt_lower,

       " 型別轉換與空值處理
       CAST( p~menge AS DEC( 15, 3 ) ) AS menge_dec,
       COALESCE( k~lifnr, '__NONE__' ) AS lifnr_or_none,

       " 貨幣／單位換算（S/4 常用）
       CURRENCY_CONVERSION( amount             = p~netwr,
                            source_currency    = k~waers,
                            target_currency    = 'TWD',
                            exchange_rate_date = k~bedat ) AS netwr_twd

  FROM ekpo AS p
  LEFT OUTER JOIN ekko AS k ON k~ebeln = p~ebeln
  WHERE p~ebeln IN @s_ebeln
  INTO TABLE @DATA(lt_expr).

UNION 與 CTE（WITH）

" UNION：把兩段結果疊起來（欄位數量與型別要相容）
SELECT FROM ekko FIELDS ebeln, lifnr, 'PO' AS doc_type
  WHERE bukrs = @lv_bukrs
UNION DISTINCT
SELECT FROM ekko FIELDS ebeln, lifnr, 'SA' AS doc_type
  WHERE bstyp = 'L'
  INTO TABLE @DATA(lt_union).

" CTE（Common Table Expression，7.51+）：把中間結果命名，讓 SQL 好讀
WITH
  +po_head AS (
    SELECT FROM ekko
      FIELDS ebeln, lifnr, bedat, waers
      WHERE bukrs = @lv_bukrs
        AND bedat BETWEEN @lv_from AND @lv_to ),

  +po_sum AS (
    SELECT FROM ekpo
      FIELDS ebeln, SUM( netwr ) AS total_netwr, COUNT( * ) AS item_cnt
      GROUP BY ebeln )

  SELECT FROM +po_head AS h
    INNER JOIN +po_sum AS s ON s~ebeln = h~ebeln
    LEFT OUTER JOIN lfa1 AS v ON v~lifnr = h~lifnr
    FIELDS h~ebeln, h~lifnr, v~name1, h~bedat,
           s~item_cnt, s~total_netwr
    ORDER BY s~total_netwr DESCENDING
    INTO TABLE @DATA(lt_cte)
    UP TO 50 ROWS.

視窗函數 OVER( )（7.51+）

" 每個廠商的採購金額，以及該廠商累計、排名 —— 一次 SELECT 搞定
SELECT p~ebeln,
       p~ebelp,
       k~lifnr,
       p~netwr,
       SUM( p~netwr ) OVER( PARTITION BY k~lifnr )            AS lifnr_total,
       AVG( p~netwr ) OVER( PARTITION BY k~lifnr )            AS lifnr_avg,
       MAX( p~netwr ) OVER( PARTITION BY k~lifnr )            AS lifnr_max,
       COUNT( * )     OVER( PARTITION BY k~lifnr )            AS lifnr_cnt,
       RANK( )        OVER( PARTITION BY k~lifnr
                            ORDER BY p~netwr DESCENDING )     AS rank_in_lifnr,
       DENSE_RANK( )  OVER( PARTITION BY k~lifnr
                            ORDER BY p~netwr DESCENDING )     AS drank,
       ROW_NUMBER( )  OVER( PARTITION BY k~lifnr
                            ORDER BY p~netwr DESCENDING )     AS rn
  FROM ekpo AS p
  INNER JOIN ekko AS k ON k~ebeln = p~ebeln
  WHERE k~bukrs = @lv_bukrs
    AND k~bedat BETWEEN @lv_from AND @lv_to
  INTO TABLE @DATA(lt_window).

" 取「每個廠商金額最高的那一筆」：把上面結果再過濾 rn = 1
DELETE lt_window WHERE rn <> 1.

17. FOR ALL ENTRIES：四大陷阱與替代方案

FOR ALL ENTRIES（FAE）的用途：先建一張驅動內表，再用它限制第二段 SELECT。經典例子是先從 EKKO 撈出採購單號，再用它去 EKPO 撈明細。

*&---------------------------------------------------------------------*
*& Report ZDEMO_FAE  FOR ALL ENTRIES 正確用法與陷阱
*&---------------------------------------------------------------------*
REPORT zdemo_fae.

" 驅動表：只取需要的鍵欄位
SELECT ebeln, bukrs, lifnr, bedat
  FROM ekko
  WHERE bukrs = @lv_bukrs
  INTO TABLE @DATA(lt_ekko)
  UP TO 10 ROWS.

" ★ 陷阱一：驅動內表若為空，FAE 會回傳「整張表」，而且 WHERE 的其他條件也被忽略
"    所以一定要先判斷 IS NOT INITIAL
IF lt_ekko IS NOT INITIAL.

  " ★ 陷阱二：驅動表要先去重，否則同一個 key 會被送好幾次，白白浪費 DB 往返
  DATA(lt_key) = lt_ekko.
  SORT lt_key BY ebeln.
  DELETE ADJACENT DUPLICATES FROM lt_key COMPARING ebeln.

  SELECT ebeln, ebelp, matnr, werks, menge, netwr
    FROM ekpo
    FOR ALL ENTRIES IN @lt_key
    WHERE ebeln = @lt_key-ebeln
      AND loekz = @space
    INTO TABLE @DATA(lt_ekpo).

ENDIF.

S/4HANA 的替代方案（優先順序由上而下）：

1. JOIN：兩張表本來就有關聯，直接 JOIN，一次往返。
2. 子查詢 IN / EXISTS：邏輯是「存在性判斷」時最乾淨。
3. CTE（WITH）：中間結果多、邏輯分層時可讀性最好。
4. SELECT ... FROM @itab（7.52+）：把已在記憶體的內表當成資料來源，直接下 SQL。
5. CDS View / AMDP：邏輯複雜、會被重複使用時的正解。

*&---------------------------------------------------------------------*
*& Report ZDEMO_ITAB_AS_SOURCE  用內表當 SELECT 資料來源（講義第 65 個練習改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_itab_as_source.

" 第一段：撈出公司代碼 1710 的採購單
SELECT ebeln, bukrs, lifnr, ernam, bedat, waers
  FROM ekko
  WHERE bukrs = '1710'
  INTO TABLE @DATA(lt_ekko).

" 第二段：直接把內表當 FROM 的來源再篩一次（7.52+）
"          可完全取代「再跑一次 SELECT」或「LOOP + DELETE」
SELECT ebeln, bukrs, lifnr, ernam
  FROM @lt_ekko AS k2
  WHERE ernam = 'S4H_MM'
  ORDER BY ebeln
  INTO TABLE @DATA(lt_result).

LOOP AT lt_result INTO DATA(ls).
  WRITE: / |{ ls-ebeln } { ls-bukrs } { ls-lifnr } { ls-ernam }|.
ENDLOOP.

18. SELECT SINGLE vs UP TO 1 ROWS（HANA 沒有排序保證）

講義 08-00 特別開一節講這個差異，重點是主鍵：

*&---------------------------------------------------------------------*
*& Report ZDEMO_SINGLE_VS_TOP1
*&---------------------------------------------------------------------*
REPORT zdemo_single_vs_top1.

PARAMETERS: p_matnr TYPE mara-matnr OBLIGATORY,
            p_werks TYPE marc-werks OBLIGATORY.

" (1) 主鍵給齊 → SELECT SINGLE 是正確且最快的
SELECT SINGLE matnr, werks, dispo, beskz, ekgrp
  FROM marc
  WHERE matnr = @p_matnr
    AND werks = @p_werks
  INTO @DATA(ls_marc).

IF sy-subrc = 0.
  WRITE: / ls_marc-matnr, ls_marc-werks, ls_marc-dispo.
ENDIF.

" (2) 主鍵沒給齊、又要「最新的一筆」→ 必須 UP TO 1 ROWS + ORDER BY
SELECT ebeln, ebelp, matnr, werks, menge, netwr
  FROM ekpo
  WHERE matnr = @p_matnr
    AND werks = @p_werks
  ORDER BY ebeln DESCENDING, ebelp DESCENDING   " 排序寫清楚，結果才穩定
  INTO @DATA(ls_last)
  UP TO 1 ROWS.
ENDSELECT.

" (3) 更好的做法：用 MAX( ) 讓 DB 直接算，不必排序整張表
SELECT MAX( ebeln ) AS max_ebeln
  FROM ekpo
  WHERE matnr = @p_matnr
    AND werks = @p_werks
  INTO @DATA(lv_max_ebeln).

" (4) 反例：SELECT ... ENDSELECT 單筆迴圈（效能差，除非搭配 PACKAGE SIZE）
"     除示範外，實務請改成 INTO TABLE 一次取回
" SELECT * FROM marc INTO CORRESPONDING FIELDS OF @ls_marc
"   WHERE matnr = @p_matnr.
"   WRITE ls_marc-matnr.
" ENDSELECT.

19. 資料異動：UPDATE / INSERT / MODIFY / DELETE 與 COMMIT WORK

" ---- UPDATE ----
UPDATE dbtab SET f1 = @v1, f2 = @v2 WHERE cond.
UPDATE dbtab FROM @wa.                    " 依主鍵整列更新
UPDATE dbtab FROM TABLE @itab.            " 批次更新

" ---- INSERT ----
INSERT dbtab FROM @wa.
INSERT dbtab FROM TABLE @itab [ACCEPTING DUPLICATE KEYS].
INSERT INTO dbtab VALUES @wa.             " 舊式，仍可用

" ---- MODIFY（有就改、沒有就新增，等同 T-SQL 的 MERGE / UPSERT）----
MODIFY dbtab FROM @wa.
MODIFY dbtab FROM TABLE @itab.

" ---- DELETE ----
DELETE FROM dbtab WHERE cond.
DELETE dbtab FROM @wa.                    " 依主鍵刪一列
DELETE dbtab FROM TABLE @itab.            " 依內表的鍵值批次刪

*&---------------------------------------------------------------------*
*& Report ZDEMO_DML  資料異動與 LUW（講義 08-15 ~ 08-19 整併改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_dml.

DATA lt_scarr TYPE STANDARD TABLE OF scarr WITH EMPTY KEY.

lt_scarr = VALUE #( ( carrid   = '000'
                      carrname = 'CASPER'
                      currcode = 'TWD'
                      url      = 'www.cerps.com.tw' ) ).

" 1) 批次新增；重複鍵不要 dump 就加 ACCEPTING DUPLICATE KEYS
INSERT scarr FROM TABLE @lt_scarr ACCEPTING DUPLICATE KEYS.
DATA(lv_ins) = sy-dbcnt.

" 2) 局部更新（一定要寫 WHERE，否則整張表被改掉）
UPDATE scarr SET url = 'www.cerps.com.tw'
             WHERE carrid = '000'.

" 3) MODIFY = INSERT + UPDATE（T-SQL 的 MERGE）。效率較低，資料量大時分開寫
MODIFY scarr FROM TABLE @lt_scarr.

" 4) 刪除
DELETE FROM scarr WHERE carrid = '000'.

" 5) 一律確認結果再決定 COMMIT 或 ROLLBACK
IF sy-subrc = 0.
  COMMIT WORK AND WAIT.        " AND WAIT：等更新任務完成才往下（報表要立刻讀回時必用）
  MESSAGE '異動成功' TYPE 'S'.
ELSE.
  ROLLBACK WORK.
  MESSAGE '異動失敗，已回復' TYPE 'E'.
ENDIF.

20. 動態 SQL：動態表名、動態欄位、動態 WHERE

ABAP SQL 支援把「表名／欄位清單／WHERE 條件」放進括號，用變數或內表帶入。講義 08-02、08-03、08-05、08-08、08-09、02-10 都在講這件事。

*&---------------------------------------------------------------------*
*& Report ZDEMO_DYNSQL  動態表名 / 動態欄位 / 動態條件
*&---------------------------------------------------------------------*
REPORT zdemo_dynsql.

PARAMETERS: p_tname TYPE tabname DEFAULT 'MARC'.

FIELD-SYMBOLS: <lt_any> TYPE STANDARD TABLE,
               <ls_any> TYPE any.

" (1) 動態表名：資料物件也要動態建立
CREATE DATA DATA(lr_tab) TYPE STANDARD TABLE OF (p_tname).
ASSIGN lr_tab->* TO <lt_any>.

SELECT * FROM (p_tname)
  INTO TABLE @<lt_any>
  UP TO 100 ROWS.

" (2) 動態欄位清單：單一字串
DATA(lv_cols) = `MATNR, WERKS`.
SELECT DISTINCT (lv_cols)
  FROM marc
  INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_marc1)
  UP TO 100 ROWS.

" (3) 動態欄位清單：用內表帶（欄位多時比較好維護）
DATA lt_cols TYPE TABLE OF string.
APPEND `MATNR, WERKS` TO lt_cols.
APPEND `, EISBE, PSTAT` TO lt_cols.

SELECT DISTINCT (lt_cols)
  FROM marc
  INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_marc2)
  UP TO 100 ROWS.

" (4) 動態 WHERE：用字串範本組條件，避免 CONCATENATE
DATA(lv_matnr) = CONV mara-matnr( 'DXTR1000' ).
DATA(lv_werks) = CONV marc-werks( 'MI00' ).

DATA lt_where TYPE TABLE OF string.
APPEND |MATNR = '{ lv_matnr }'| TO lt_where.
APPEND |AND WERKS = '{ lv_werks }'| TO lt_where.

SELECT SINGLE lgort
  FROM mard
  WHERE (lt_where)
  INTO @DATA(lv_lgort).

" (5) 動態 JOIN：整段 FROM 用字串組出來
DATA(lv_from) =
  `spfli AS p ` &&
  `INNER JOIN sflight AS f ON p~carrid = f~carrid AND p~connid = f~connid ` &&
  `INNER JOIN sbook   AS b ON b~carrid = f~carrid AND b~connid = f~connid ` &&
  `                       AND b~fldate = f~fldate`.

SELECT p~carrid, p~connid, f~fldate, b~bookid
  FROM (lv_from)
  WHERE p~cityfrom = 'FRANKFURT'
    AND p~cityto   = 'NEW YORK'
    AND f~seatsmax > f~seatsocc
  ORDER BY p~carrid, p~connid, f~fldate, b~bookid
  INTO TABLE @DATA(lt_dyn).

21. Native SQL、ADBC、AMDP 與 CDS 的定位

當 ABAP SQL 做不到（要用 HANA 專屬函數、要呼叫預儲程序、要跑游標）時，才往下走。

EXEC SQL（已過時，只為讀懂舊程式）

講義 02-09 用 EXEC SQL ... ENDEXEC 示範查詢、建立 Oracle 函數與游標。三個語法規則要記得：語句結尾不加句點、區塊內不可有註解（星號與雙引號都不行）、參數用冒號 :var 而不是問號；欄位與條件都用逗號分開。

*&---------------------------------------------------------------------*
*& Report ZDEMO_ADBC  ADBC 取代 EXEC SQL（講義 08-20 CL_SQL_STATEMENT 現代化）
*&---------------------------------------------------------------------*
REPORT zdemo_adbc.

PARAMETERS p_carr TYPE spfli-carrid DEFAULT 'LH'.

TYPES: BEGIN OF ty_row,
         connid   TYPE spfli-connid,
         cityfrom TYPE spfli-cityfrom,
         cityto   TYPE spfli-cityto,
       END OF ty_row.

DATA lt_row TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY.

TRY.
    " 取得標準連線（要連別的 DB 就傳 DBCON 的連線名稱）
    DATA(lo_con) = cl_sql_connection=>get_connection( ).
    DATA(lo_stmt) = lo_con->create_statement( ).

    " 用參數綁定，不要把變數串進 SQL 字串（防 injection）
    DATA(lo_params) = NEW cl_sql_statement( ).
    DATA(lv_sql) = |SELECT connid, cityfrom, cityto FROM spfli WHERE carrid = ?|.

    DATA(lo_result) = lo_stmt->execute_query(
                        statement = lv_sql
                        parameters = VALUE #( ( REF #( p_carr ) ) ) ).

    " 把結果集直接倒進內表
    DATA(lr_tab) = REF #( lt_row ).
    lo_result->set_param_table( lr_tab ).
    DATA(lv_cnt) = lo_result->next_package( ).
    lo_result->close( ).
    lo_con->close( ).

  CATCH cx_sql_exception INTO DATA(lx_sql).
    MESSAGE lx_sql->get_text( ) TYPE 'E'.
ENDTRY.

LOOP AT lt_row INTO DATA(ls_row).
  WRITE: / ls_row-connid, ls_row-cityfrom, ls_row-cityto.
ENDLOOP.

" 若只要執行 DDL / DML（相當於講義 ZOPENSQL20 的 EXECUTE_UPDATE）
" DATA(lv_rows) = lo_stmt->execute_update( |UPDATE ztab SET flag = 'X'| ).

AMDP 與 CDS：真正的 code pushdown

• CDS View（ABAP Core Data Services）：在 ADT／Eclipse 用 DDL 定義的視圖，取代 SE11 的 DB View。支援 association、annotation、參數、聚合、CASE、視窗函數，可直接被 ABAP SQL、OData、Fiori、Analytics 消費。S/4HANA 的第一選擇。
• AMDP（ABAP Managed Database Procedure）：把 SQLScript 寫在 ABAP class 的 method 裡，由 ABAP Server 管理生命週期，適合「CDS 表達不出來的程序式邏輯」——迴圈、暫存表、複雜統計函數（MEDIAN、STDDEV、CORR）。
• 選擇順序：ABAP SQL → CDS View → AMDP → Native SQL/ADBC。越往後越強、也越難維護與升級。

" AMDP 骨架（放在 ADT / Eclipse 建立的 class 中）
CLASS zcl_amdp_demo DEFINITION PUBLIC.
  PUBLIC SECTION.
    INTERFACES if_amdp_marker_hdb.        " 標記為 AMDP class
    CLASS-METHODS get_stddev
      IMPORTING VALUE(iv_bukrs) TYPE bukrs
                VALUE(iv_gjahr) TYPE gjahr
                VALUE(iv_racct) TYPE racct
      EXPORTING VALUE(et_out)   TYPE ztt_acct_stat.
ENDCLASS.

CLASS zcl_amdp_demo IMPLEMENTATION.
  METHOD get_stddev BY DATABASE PROCEDURE FOR HDB
                    LANGUAGE SQLSCRIPT
                    OPTIONS READ-ONLY
                    USING acdoca.
    " SQLScript：可用 ABAP SQL 沒有的 STDDEV / MEDIAN / VAR
    et_out = SELECT racct,
                    COUNT(*)      AS cnt,
                    AVG( hsl )    AS avg_amt,
                    STDDEV( hsl ) AS std_amt,
                    MEDIAN( hsl ) AS med_amt
               FROM acdoca
              WHERE rbukrs = :iv_bukrs
                AND gjahr  = :iv_gjahr
                AND racct  = :iv_racct
                AND rldnr  = '0L'
              GROUP BY racct;
  ENDMETHOD.
ENDCLASS.

22. 效能觀念：Code Pushdown 與 S/4HANA 的巨表

講義 02-11 整理的 Open SQL 注意事項，是 ABAP 效能的基本功。這裡逐條保留並補上 S/4HANA 的現況：

S/4HANA 的兩張巨表：ACDOCA 與 MATDOC

• ACDOCA（Universal Journal）：S/4 把 BKPF/BSEG、FAGLFLEXA、COEP、ANEP、MLIT 等總帳／管理會計／獲利分析明細通通合併到這一張表，欄位數超過 300、資料量以億計。查詢時 RLDNR（分類帳）、RBUKRS（公司代碼）、GJAHR（年度）幾乎是必帶條件，再加期間 POPER 或傳票號 BELNR。BSEG／BKPF 在 S/4 仍存在，但報表請改讀 ACDOCA 或其 CDS View（I_JournalEntryItem 等）。
• MATDOC：S/4 把 MKPF＋MSEG 合併成 MATDOC，所有物料文件內容都存在這張表。MKPF／MSEG 變成相容性 CDS View（讀得到、但效能不好）。庫存數量表 MARD-LABST、MBEW 等在 S/4 也已改成由 MATDOC 聚合而來的相容視圖，不要對它們做大量迴圈式查詢，改用 NSDM 系列 CDS View 或標準 FM。
• 物料主檔仍是 MARA（一般）／MAKT（描述）／MARC（工廠）／MARD（儲位）；MARA-MATNR 在 S/4 長度為 40（原 18），寫程式不要再寫死 18 碼。

效能檢查工具

23. 7.40 ～ 7.55 新語法總覽

講義 06-2 逐條列出了新語法。這裡整理成一張速查表與一支可以直接跑的示範程式。

*&---------------------------------------------------------------------*
*& Report ZDEMO_740_SYNTAX  7.40 ~ 7.55 新語法總覽（可直接執行）
*&---------------------------------------------------------------------*
REPORT zdemo_740_syntax.

TYPES: BEGIN OF ty_item,
         ebeln TYPE ekpo-ebeln,
         ebelp TYPE ekpo-ebelp,
         matnr TYPE ekpo-matnr,
         menge TYPE ekpo-menge,
         netwr TYPE ekpo-netwr,
       END OF ty_item,
       ty_t_item TYPE STANDARD TABLE OF ty_item WITH EMPTY KEY.

" ---- 1) VALUE：一次建好整張內表 ----
DATA(lt_item) = VALUE ty_t_item(
  ( ebeln = '4500000001' ebelp = '00010' matnr = 'M001' menge = 10 netwr = 1000 )
  ( ebeln = '4500000001' ebelp = '00020' matnr = 'M002' menge =  5 netwr =  800 )
  ( ebeln = '4500000002' ebelp = '00010' matnr = 'M001' menge = 20 netwr = 2100 ) ).

" ---- 2) FOR：用迴圈產生內表（含 LET 定義區域變數）----
DATA(lt_double) = VALUE ty_t_item(
  FOR ls IN lt_item
  LET lv_rate = CONV f( 1.05 ) IN
  ( ebeln = ls-ebeln
    ebelp = ls-ebelp
    matnr = ls-matnr
    menge = ls-menge
    netwr = ls-netwr * lv_rate ) ).

" ---- 3) FOR ... WHERE：只挑符合條件的 ----
DATA(lt_m001) = VALUE ty_t_item(
  FOR ls2 IN lt_item WHERE ( matnr = 'M001' ) ( ls2 ) ).

" ---- 4) FILTER：更簡潔的過濾（來源表需有對應 key）----
DATA lt_src TYPE SORTED TABLE OF ty_item WITH NON-UNIQUE KEY matnr.
lt_src = lt_item.
DATA(lt_filtered) = FILTER #( lt_src WHERE matnr = 'M001' ).

" ---- 5) REDUCE：把內表歸納成單一值 ----
DATA(lv_total) = REDUCE ekpo-netwr(
                   INIT s = CONV ekpo-netwr( 0 )
                   FOR ls3 IN lt_item
                   NEXT s = s + ls3-netwr ).

DATA(lv_cnt_m001) = REDUCE i(
                      INIT c = 0
                      FOR ls4 IN lt_item WHERE ( matnr = 'M001' )
                      NEXT c = c + 1 ).

" ---- 6) BASE：保留原內容再疊加 ----
DATA(lt_more) = VALUE ty_t_item(
  BASE lt_item
  ( ebeln = '4500000003' ebelp = '00010' matnr = 'M003' menge = 1 netwr = 99 ) ).

" ---- 7) CORRESPONDING：欄位對應搬移，可改名、可排除 ----
TYPES: BEGIN OF ty_out,
         po_no  TYPE ekpo-ebeln,
         item   TYPE ekpo-ebelp,
         matnr  TYPE ekpo-matnr,
         amount TYPE ekpo-netwr,
       END OF ty_out.
DATA lt_out TYPE STANDARD TABLE OF ty_out WITH EMPTY KEY.

lt_out = CORRESPONDING #( lt_item
                          MAPPING po_no  = ebeln
                                  item   = ebelp
                                  amount = netwr ).

" 深層結構（含內表欄位）搬移
" MOVE-CORRESPONDING ls_deep_src TO ls_deep_dst EXPANDING NESTED TABLES.
" MOVE-CORRESPONDING ls_deep_src TO ls_deep_dst KEEPING TARGET LINES.

" ---- 8) COND / SWITCH：條件運算式 ----
DATA(lv_period) = COND char10( WHEN sy-timlo < '120000' THEN 'AM'
                               WHEN sy-timlo < '180000' THEN 'PM'
                               ELSE 'NIGHT' ).

DATA(lv_grade) = SWITCH char1( lv_total
                               WHEN 0 THEN 'Z'
                               ELSE COND #( WHEN lv_total > 3000 THEN 'A' ELSE 'B' ) ).

" ---- 9) NEW / REF / CONV / CAST ----
DATA(lr_item) = NEW ty_item( ebeln = '4500000009' menge = 1 ).
DATA(lr_ref)  = REF #( lt_item ).
DATA(lv_f)    = CONV f( '3.14159' ).
DATA(lo_salv) = CAST cl_salv_table( lo_any_object ).

" ---- 10) 字串範本：取代 CONCATENATE，並帶格式選項 ----
DATA(lv_msg) = |採購單 { lt_item[ 1 ]-ebeln ALPHA = OUT } 共 { lines( lt_item ) } 項，| &&
               |總金額 { lv_total CURRENCY = 'TWD' }，| &&
               |日期 { sy-datum DATE = USER }，時間 { sy-uzeit TIME = USER }|.

" 補零 / 去零：ALPHA = IN 補零、ALPHA = OUT 去零
DATA(lv_matnr_in)  = |{ 'M001' ALPHA = IN }|.
DATA(lv_matnr_out) = |{ '000000000000M001' ALPHA = OUT }|.

" ---- 11) 表達式讀取 ----
IF line_exists( lt_item[ matnr = 'M002' ] ).
  WRITE: / lt_item[ matnr = 'M002' ]-netwr.
ENDIF.

WRITE: / lv_msg,
       / |合計 { lv_total }，M001 共 { lv_cnt_m001 } 筆，時段 { lv_period }|.

24. 綜合練習一：歐幾里德距離（Euclidean distance）與 Z-score

這是講義的期中題 Z00_MIDTERM：從自建表 ZEUCLIDEAN（欄位 ID、HEIGHT、HOBBY、AGE）讀出所有人，先把三個欄位標準化成 Z-score，再算每個人與「使用者輸入的那個 ID」之間的歐幾里德距離，最後標出最適伙伴（自己標 O、最近的人標 X）。

公式：z = ( x − 平均 ) / 標準差；距離 = √( Σ ( z_i − z_target,i )² )。標準差可以呼叫標準函數 RMMATH1_VARIANCE_DEVIATION（回傳 E_VARIANCE、E_DEVIATION、E_AVERAGE），或自己算。

*&---------------------------------------------------------------------*
*& Report ZDEMO_EUCLIDEAN  歐幾里德距離＋Z-score（原 Z00_MIDTERM 現代化改寫）
*&---------------------------------------------------------------------*
REPORT zdemo_euclidean.

TYPES: BEGIN OF ty_zeuc,
         id            TYPE zeuclidean-id,
         height        TYPE zeuclidean-height,
         hobby         TYPE zeuclidean-hobby,
         age           TYPE zeuclidean-age,
         z_height      TYPE p LENGTH 8 DECIMALS 4,
         z_hobby       TYPE p LENGTH 8 DECIMALS 4,
         z_age         TYPE p LENGTH 8 DECIMALS 4,
         distance      TYPE p LENGTH 8 DECIMALS 4,
         best_fit      TYPE char1,
       END OF ty_zeuc.

PARAMETERS p_id TYPE zeuclidean-id OBLIGATORY.

" 1) 一次讀進內表
SELECT id, height, hobby, age
  FROM zeuclidean
  ORDER BY id                                  " 一定要排序，結果才穩定
  INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_zeuc).

IF lt_zeuc IS INITIAL.
  MESSAGE '沒有資料' TYPE 'E'.
ENDIF.

DATA(lv_n) = lines( lt_zeuc ).

" 2) 用 REDUCE 算平均，不必寫迴圈
DATA(lv_avg_h) = REDUCE f( INIT s = 0 FOR ls IN lt_zeuc NEXT s = s + ls-height ) / lv_n.
DATA(lv_avg_o) = REDUCE f( INIT s = 0 FOR ls IN lt_zeuc NEXT s = s + ls-hobby  ) / lv_n.
DATA(lv_avg_a) = REDUCE f( INIT s = 0 FOR ls IN lt_zeuc NEXT s = s + ls-age    ) / lv_n.

" 3) 母體標準差 = sqrt( Σ(x-平均)² / n )
DATA(lv_std_h) = sqrt( REDUCE f( INIT s = 0 FOR ls IN lt_zeuc
                                 NEXT s = s + ( ls-height - lv_avg_h ) ** 2 ) / lv_n ).
DATA(lv_std_o) = sqrt( REDUCE f( INIT s = 0 FOR ls IN lt_zeuc
                                 NEXT s = s + ( ls-hobby  - lv_avg_o ) ** 2 ) / lv_n ).
DATA(lv_std_a) = sqrt( REDUCE f( INIT s = 0 FOR ls IN lt_zeuc
                                 NEXT s = s + ( ls-age    - lv_avg_a ) ** 2 ) / lv_n ).

" 4) 算 Z-score：用 field-symbol 就地寫回，不必 MODIFY
LOOP AT lt_zeuc ASSIGNING FIELD-SYMBOL(<ls>).
  <ls>-z_height = COND #( WHEN lv_std_h > 0 THEN ( <ls>-height - lv_avg_h ) / lv_std_h ELSE 0 ).
  <ls>-z_hobby  = COND #( WHEN lv_std_o > 0 THEN ( <ls>-hobby  - lv_avg_o ) / lv_std_o ELSE 0 ).
  <ls>-z_age    = COND #( WHEN lv_std_a > 0 THEN ( <ls>-age    - lv_avg_a ) / lv_std_a ELSE 0 ).
ENDLOOP.

" 5) 定位使用者輸入的那一筆
IF NOT line_exists( lt_zeuc[ id = p_id ] ).
  MESSAGE |查無 ID { p_id }| TYPE 'E'.
ENDIF.
DATA(ls_target) = lt_zeuc[ id = p_id ].

" 6) 算每一筆與 target 的歐幾里德距離
LOOP AT lt_zeuc ASSIGNING FIELD-SYMBOL(<ls2>).
  <ls2>-distance = sqrt( ( <ls2>-z_height - ls_target-z_height ) ** 2
                       + ( <ls2>-z_hobby  - ls_target-z_hobby  ) ** 2
                       + ( <ls2>-z_age    - ls_target-z_age    ) ** 2 ).
ENDLOOP.

" 7) 找最小距離（排除自己：distance = 0）
DATA(lv_min) = REDUCE f( INIT m = CONV f( '9999' )
                         FOR ls IN lt_zeuc WHERE ( distance > 0 )
                         NEXT m = COND #( WHEN ls-distance < m THEN ls-distance ELSE m ) ).

" 8) 標記：自己 O、最適伙伴 X
LOOP AT lt_zeuc ASSIGNING FIELD-SYMBOL(<ls3>).
  <ls3>-best_fit = COND #( WHEN <ls3>-id = ls_target-id  THEN 'O'
                           WHEN <ls3>-distance = lv_min  THEN 'X'
                           ELSE space ).
ENDLOOP.

" 9) 用 CL_SALV_TABLE 輸出，取代一堆 WRITE
TRY.
    cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_salv)
                            CHANGING  t_table      = lt_zeuc ).
    lo_salv->get_functions( )->set_all( abap_true ).
    lo_salv->get_columns( )->set_optimize( abap_true ).
    lo_salv->display( ).
  CATCH cx_salv_msg INTO DATA(lx_salv).
    MESSAGE lx_salv->get_text( ) TYPE 'E'.
ENDTRY.

25. 綜合練習二：標準差與 Z-score 找異常值

講義 10-3 的 ZSTDDEV_DEMO 用一組固定數值示範 sum / count / mean / stddev，接著加上 Z-score 的六行程式。進階挑戰是：把這個概念套到 ACDOCA 的會計科目 740300，找出借方金額的異常值。

*&---------------------------------------------------------------------*
*& Report ZDEMO_STDDEV  標準差 / Z-score 找異常值（原 ZSTDDEV_DEMO 進階版）
*&---------------------------------------------------------------------*
REPORT zdemo_stddev.

PARAMETERS: p_bukrs TYPE acdoca-rbukrs OBLIGATORY,
            p_gjahr TYPE acdoca-gjahr  OBLIGATORY,
            p_racct TYPE acdoca-racct  DEFAULT '0000740300',
            p_z     TYPE p LENGTH 3 DECIMALS 1 DEFAULT '2.0'.  " |z| 超過就算異常

TYPES: BEGIN OF ty_line,
         belnr  TYPE acdoca-belnr,
         docln  TYPE acdoca-docln,
         budat  TYPE acdoca-budat,
         hsl    TYPE acdoca-hsl,
         zscore TYPE p LENGTH 8 DECIMALS 4,
         flag   TYPE char1,
       END OF ty_line.

" 1) 讓 DB 先做過濾與加總（code pushdown）
SELECT belnr, docln, budat, hsl
  FROM acdoca
  WHERE rldnr  = '0L'
    AND rbukrs = @p_bukrs
    AND gjahr  = @p_gjahr
    AND racct  = @p_racct
    AND drcrk  = 'S'                  " 借方
  ORDER BY belnr, docln
  INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_data).

IF lt_data IS INITIAL.
  MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'E'.
  RETURN.
ENDIF.

" 2) 平均與母體標準差
DATA(lv_n)    = lines( lt_data ).
DATA(lv_sum)  = REDUCE f( INIT s = 0 FOR ls IN lt_data NEXT s = s + ls-hsl ).
DATA(lv_mean) = lv_sum / lv_n.
DATA(lv_std)  = sqrt( REDUCE f( INIT s = 0 FOR ls IN lt_data
                                NEXT s = s + ( ls-hsl - lv_mean ) ** 2 ) / lv_n ).

" 3) 算 Z-score 並標記異常
LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls>).
  <ls>-zscore = COND #( WHEN lv_std > 0 THEN ( <ls>-hsl - lv_mean ) / lv_std ELSE 0 ).
  <ls>-flag   = COND #( WHEN abs( <ls>-zscore ) >= p_z THEN 'X' ELSE space ).
ENDLOOP.

WRITE: / |筆數 { lv_n }，加總 { lv_sum }，平均 { lv_mean }，標準差 { lv_std }|.
ULINE.
WRITE: / '傳票號', 25 '行號', 35 '過帳日', 50 '金額', 70 'Z-score', 85 '異常'.
LOOP AT lt_data INTO DATA(ls_out).
  WRITE: /  ls_out-belnr,
         25 ls_out-docln,
         35 ls_out-budat,
         50 ls_out-hsl,
         70 ls_out-zscore,
         85 ls_out-flag.
ENDLOOP.

26. 長文本（Long Text）與內表

SAP 的長文本（訂單抬頭備註、料件長描述等）不存在一般欄位，而是存在 STXH（表頭）／STXL（內容，壓縮），並且用四個鍵定位：TDOBJECT（物件）、TDID（文字 ID）、TDSPRAS（語言）、TDNAME（物件鍵）。內容以 TLINE 結構的內表傳遞，所以它其實是內表章的延伸應用。

*&---------------------------------------------------------------------*
*& Report ZDEMO_LONGTEXT  READ_TEXT / SAVE_TEXT
*&---------------------------------------------------------------------*
REPORT zdemo_longtext.

DATA: lt_line TYPE STANDARD TABLE OF tline WITH EMPTY KEY,
      ls_head TYPE thead.

" ---- 讀長文 ----
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    id                      = '0002'          " 文字 ID
    language                = sy-langu
    name                    = '1110599005'    " 物件鍵（例如銷售訂單號）
    object                  = 'VBBK'          " 物件（VBBK = 銷售文件抬頭）
  TABLES
    lines                   = lt_line
  EXCEPTIONS
    id                      = 1
    language                = 2
    name                    = 3
    not_found               = 4
    object                  = 5
    reference_check         = 6
    wrong_access_to_archive = 7
    OTHERS                  = 8.

IF sy-subrc = 0.
  LOOP AT lt_line INTO DATA(ls_line).
    WRITE: / ls_line-tdline.
  ENDLOOP.
ENDIF.

" ---- 寫長文 ----
CLEAR lt_line.
APPEND VALUE #( tdformat = '*' tdline = 'TEST WRITE A TEXT' ) TO lt_line.

ls_head = VALUE #( tdobject = 'VBBK'
                   tdid     = '0002'
                   tdspras  = sy-langu
                   tdname   = '1110599005' ).

CALL FUNCTION 'SAVE_TEXT'
  EXPORTING
    header          = ls_head
    savemode_direct = abap_true
  TABLES
    lines           = lt_line
  EXCEPTIONS
    id              = 1
    language        = 2
    name            = 3
    object          = 4
    OTHERS          = 5.

IF sy-subrc = 0.
  COMMIT WORK AND WAIT.        " SAVE_TEXT 之後一定要 COMMIT
  MESSAGE '長文已儲存' TYPE 'S'.
ENDIF.

27. 內表操作總表（隨時複習用）

講義 01-09「內表操作的總結」列了 28 條，這裡整理成表並補上現代寫法：

SAP vs MSSQL 對照（講義 03-04）

28. 講義練習索引

方便回頭對照原始講義：

SQL 終極大考驗：採購全鏈欄位（講義 09-1）

老師列了 26 個欄位當作綜合考題，要用一段 SQL 把採購從抬頭到收貨串起來：

*&---------------------------------------------------------------------*
*& Report ZDEMO_PO_ALL  SQL 終極大考驗：採購全鏈 26 欄
*&---------------------------------------------------------------------*
REPORT zdemo_po_all.

SELECT-OPTIONS: s_ebeln FOR (ekko-ebeln),
                s_aedat FOR (ekko-aedat).

SELECT k~ebeln, k~bukrs, k~bstyp, k~bsart, k~lifnr,
       v~name1,
       k~aedat, k~ernam, k~ekorg, k~ekgrp, k~waers,
       p~ebelp, p~matnr,
       m~mtart,
       t~maktx,
       p~infnr,
       a~erdat,
       p~werks, p~lgort, p~matkl, p~menge, p~netpr, p~netwr,
       h~gjahr, h~belnr, h~bwart
  FROM ekko AS k
  INNER JOIN ekpo AS p ON p~ebeln = k~ebeln
  LEFT OUTER JOIN lfa1 AS v ON v~lifnr = k~lifnr
  LEFT OUTER JOIN mara AS m ON m~matnr = p~matnr
  LEFT OUTER JOIN makt AS t ON t~matnr = p~matnr
                           AND t~spras = @sy-langu
  LEFT OUTER JOIN eina AS a ON a~infnr = p~infnr
  LEFT OUTER JOIN ekbe AS h ON h~ebeln = p~ebeln
                           AND h~ebelp = p~ebelp
                           AND h~vgabe = '1'          " 1 = 收貨
  WHERE k~ebeln IN @s_ebeln
    AND k~aedat IN @s_aedat
    AND p~loekz = @space
  ORDER BY k~ebeln, p~ebelp, h~gjahr, h~belnr
  INTO TABLE @DATA(lt_po)
  UP TO 5000 ROWS.

TRY.
    cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_salv)
                            CHANGING  t_table      = lt_po ).
    lo_salv->get_functions( )->set_all( abap_true ).
    lo_salv->get_columns( )->set_optimize( abap_true ).
    lo_salv->display( ).
  CATCH cx_salv_msg INTO DATA(lx).
    MESSAGE lx->get_text( ) TYPE 'E'.
ENDTRY.

傳票雙檔常用欄位（講義 09-2）

講義的範例是 BSEG（檔身）INNER JOIN BKPF（檔頭），常用欄位：BUKRS、BELNR、GJAHR、VBELN、VORGN、BUDAT、VALUT、KOSTL、HKONT、WERKS、PAOBJNR、LIFNR、MATNR、MENGE、ERFME、PSWSL、DMBTR、EBELN、EBELP、PRCTR。

練習與自我檢核

1. （作業 1・內表）針對 20190101～20191231 的接單資料做 Group by 分析：輸出「客戶編號、下單金額」。提示：用 COLLECT 練一次，再用 SQL GROUP BY kunnr 寫一次，比較兩者效能與程式長度。
2. （作業 2・內表）同期間做 RFM 分析：輸出「客戶編號、累計下單金額、累計下單筆數、最近下單日、首次下單日」。提示：一句 SQL 即可 —— SELECT kunnr, SUM( netwr ), COUNT( * ), MAX( audat ), MIN( audat ) ... GROUP BY kunnr。
3. （作業 3・內表）建立 Euclidean distance 的計算結果：輸出「客戶編號、累計下單金額、累計下單筆數、金額距離、筆數距離」。提示：LOOP ＋ MODIFY，或用 field-symbol 就地寫回；先做 Z-score 標準化，否則金額會壓過筆數。
4. （作業 4・內表）請證明「READ TABLE 只讀符合條件的第一筆」。提示：造一張有三筆相同 key 的內表，READ 後印出 sy-tabix；再用 LOOP ... WHERE 對照筆數。當做要教別人，把程式改得讓人一看就信。
5. （作業 5・ABAP SQL）用 GROUP BY、ORDER BY 及 STRING_AGG，把 VBAP 的 MATNR 依訂單彙整並列出前十筆。提示：SELECT vbeln, STRING_AGG( matnr, ',' ) AS mat_list, COUNT( * ) AS cnt FROM vbap GROUP BY vbeln ORDER BY cnt DESCENDING INTO TABLE @DATA(lt) UP TO 10 ROWS.
6. 三種內表型別各自的 Big O 是多少？為什麼 HASHED TABLE 不能用 READ TABLE ... INDEX？答：O(n)／O(log n)／O(1)；HASHED 沒有主表索引。
7. DELETE ADJACENT DUPLICATES FROM itab COMPARING f1 f2. 執行前一定要先做什麼？不做會怎樣？答：先 SORT BY f1 f2；不做只會刪掉「剛好相鄰」的重複列，資料看起來少了一些又沒去乾淨。
8. FOR ALL ENTRIES 的驅動內表如果是空的，會發生什麼事？正確的防呆寫法是什麼？答：整段 WHERE（含其他條件）被忽略，把整張表撈回來；一律先 IF lt_x IS NOT INITIAL.
9. SELECT SINGLE 與 SELECT ... UP TO 1 ROWS 差在哪？要「取最新一筆」該用哪一個、為什麼？答：SINGLE 要主鍵給齊、不能 ORDER BY；取最新一筆必須用 UP TO 1 ROWS ＋ ORDER BY，因為 HANA 沒有排序保證。
10. AT NEW / AT END OF 有哪三個前提或副作用？答：必須先排序；比對該欄位「及其左邊所有欄位」，所以結構欄位順序有影響；區塊內右側欄位會被填成 * 或 0。
11. 把下面這段舊程式改成 7.40+ 寫法：READ TABLE it WITH KEY field1 = 'X' INTO wa. IF sy-subrc = 0. WRITE wa-fielda. ENDIF.答：IF line_exists( it[ field1 = 'X' ] ). WRITE it[ field1 = 'X' ]-fielda. ENDIF.
12. 什麼情況該建 CDS View、什麼情況直接在程式裡 JOIN？答：邏輯會被多支程式重複使用、要給 Fiori／OData 用 → CDS；一次性、條件隨選擇畫面變動 → 程式內 JOIN。
13. S/4HANA 上查 ACDOCA 必帶哪些條件？為什麼不該再用 BSEG＋BKPF 做大報表？答：RLDNR、RBUKRS、GJAHR（再加期間或傳票號）；ACDOCA 是 Universal Journal，一張表就有全部明細，不必 JOIN。
14. EXEC SQL 為什麼不該再用？替代方案是什麼？答：已 obsolete，且不做 client 處理、不走表緩衝、不檢查授權；改用 ADBC（CL_SQL_STATEMENT）、AMDP 或 CDS。
15. 把「LOOP 內對每一列下 SELECT」的程式改寫成三種更快的版本，並說明各自適用時機。答：JOIN（關聯明確）／子查詢 EXISTS（存在性判斷）／先撈進內表再用 SORTED KEY 對照（資料要重複使用）。
16. ZKEPH 成本抓錯的根因是什麼？從中該學到的通則是什麼？答：成本評價後有 item category H 與 cost component E 兩種角度、欄位數量不同，程式沒排序就 READ，忽 H 忽 E 導致結果不穩定；通則是「只取一筆」之前必須先確定排序或明確過濾條件。

第 2-3 章 ALV 報表：欄位目錄 / 事件 / 紅綠燈 / 小計 / 下載 / 新式 ALV

ABAP 顧問一輩子寫最多的東西就是報表，而 SAP 的報表標準就叫 ALV（SAP List Viewer）。這一章從 1996 年的 REUSE_ALV_GRID_DISPLAY 一路走到 2004 年的 CL_SALV_TABLE，再走到 S/4HANA 的 CDS + Fiori List Report：告訴你欄位目錄（Field Catalog）怎麼建、17 個事件怎麼掛、紅綠燈與顏色怎麼點亮、小計與變式怎麼做、雙擊怎麼跳到 ME23N、以及怎麼把畫面丟成 Excel／PDF。學完之後，你能在 30 秒內生一支能看的報表，也能在半天內生一支能編輯、能存檔、能鑽取、能匯出的正式報表。

1. ALV 家族演進：先知道自己站在哪一代

老師在講義裡把 ABAP 的工作排序講得很直白：報表開發＝ALV、單據列印＝SmartForms／Form、財務樞紐＝Report Painter。而 ALV 本身歷經三代，第四代則已經跳到 Fiori。

R/3 4.6C 之前 ALV 全稱是 ABAP List Viewer，之後正式更名為 SAP List Viewer。ALV 從最早的 List Viewer 發展到 Grid Control：LIST 型 ALV 跟傳統 WRITE 輸出樣式相近，只是多了一排功能按鈕；GRID 型 ALV 則長得像 Excel。

下面是講義最原始的兩支範例（ZREUSE_ALV01 / ZREUSE_ALV02）改寫成現代寫法後的等價版本，用來體會「三行就有一張報表」的感覺：

REPORT zreuse_alv01.
" 講義原文用 REUSE_ALV_LIST_DISPLAY / REUSE_ALV_GRID_DISPLAY 直接吃 MATDOC
" S/4HANA 建議寫法：明列欄位 + CL_SALV_TABLE
SELECT mblnr, mjahr, zeile, bwart, matnr, werks, lgort, menge, meins
  FROM matdoc
  UP TO 5 ROWS
  INTO TABLE @DATA(lt_matdoc).

TRY.
    cl_salv_table=>factory(
      IMPORTING r_salv_table = DATA(lo_alv)
      CHANGING  t_table      = lt_matdoc ).
    lo_alv->display( ).
  CATCH cx_salv_msg INTO DATA(lx_msg).
    MESSAGE lx_msg->get_text( ) TYPE 'E'.
ENDTRY.

2. 最短的 ALV：CL_SALV_TABLE 三步驟

講義第 04 節標題就叫「NEW ALV(SALV) 2004 發佈，最短的 ALV」，原始程式是 ZSALV。SALV 的三步驟永遠一樣：

1. 備資料：SELECT 進內表。
2. factory：cl_salv_table=>factory( ) 把內表交給 ALV，拿回一個 lo_alv 參考。
3. display：lo_alv->display( )。

REPORT zsalv.
" 講義原始 ZSALV：SELECT * FROM sflight ... + cl_salv_table=>factory + display
" 現代寫法：明列欄位、內嵌宣告、TRY/CATCH

SELECT carrid, connid, fldate, price, currency, seatsmax, seatsocc
  FROM sflight
  UP TO 25 ROWS
  INTO TABLE @DATA(lt_flight).

TRY.
    " list_display = IF_SALV_C_BOOL_SAP=>false → GRID 樣式（Excel 風格）
    " list_display = IF_SALV_C_BOOL_SAP=>true  → LIST 樣式（傳統清單）
    cl_salv_table=>factory(
      EXPORTING list_display = if_salv_c_bool_sap=>false
      IMPORTING r_salv_table = DATA(lo_alv)
      CHANGING  t_table      = lt_flight ).

    lo_alv->display( ).

  CATCH cx_salv_msg INTO DATA(lx_msg).
    MESSAGE lx_msg->get_text( ) TYPE 'E'.
ENDTRY.

3. CL_SALV_TABLE 完整用法（一支可直接跑的範例）

SALV 的設計是「一個 ALV 分成好幾個管理員物件，各管一件事」。把下表背起來，SALV 就等於學會了：

以下是把講義精神（VBAK ⋈ VBAP、紅綠燈、排序小計、雙擊跳 VA03、自訂按鈕）全部用 SALV 重寫的完整可執行範例。這支可以當你日後所有 SALV 報表的骨架：

*&--------------------------------------------------------------------*
*& Report ZSALV_DEMO_FULL   ── CL_SALV_TABLE 完整範本（S/4HANA 1809+）
*& 對應講義 Z202202_24 / _25 / _26 的所有功能，但改用 SALV 實作
*&--------------------------------------------------------------------*
REPORT zsalv_demo_full.

TYPES: BEGIN OF ty_out,
         light TYPE char4,       " 紅綠燈欄位（exception column，值 1/2/3）
         vbeln TYPE vbak-vbeln,  " 訂單編號
         erdat TYPE vbak-erdat,  " 訂單日期
         ernam TYPE vbak-ernam,  " 輸入人員
         kunnr TYPE vbak-kunnr,  " 客戶編號
         posnr TYPE vbap-posnr,  " 訂單項次
         matnr TYPE vbap-matnr,  " 物料編號
         matkl TYPE vbap-matkl,  " 物料組
         zmeng TYPE vbap-zmeng,  " 銷售數量
         zieme TYPE vbap-zieme,  " 銷售單位
         werks TYPE vbap-werks,  " 工廠
         lgort TYPE vbap-lgort,  " 儲存位置
       END OF ty_out.

DATA gt_out TYPE STANDARD TABLE OF ty_out WITH EMPTY KEY.
DATA go_alv TYPE REF TO cl_salv_table.

*--------------------------------------------------------------------*
* 事件處理類別：SALV 的事件一定要有一個 handler 類別
*--------------------------------------------------------------------*
CLASS lcl_handler DEFINITION.
  PUBLIC SECTION.
    METHODS on_user_command FOR EVENT added_function OF cl_salv_events
      IMPORTING e_salv_function.
    METHODS on_double_click FOR EVENT double_click  OF cl_salv_events_table
      IMPORTING row column.
    METHODS on_link_click   FOR EVENT link_click    OF cl_salv_events_table
      IMPORTING row column.
ENDCLASS.

CLASS lcl_handler IMPLEMENTATION.

  " 自訂按鈕（GUI Status 上的功能碼）
  METHOD on_user_command.
    CASE e_salv_function.
      WHEN 'ZCAS'.
        MESSAGE '你按下了 CASPER 按鈕' TYPE 'I'.
      WHEN 'ZADD'.
        MESSAGE '你按下了 新增2 按鈕' TYPE 'I'.
      WHEN 'ZEXP'.
        PERFORM download_xlsx.       " 見第 14 節
      WHEN 'EXIT'.
        LEAVE PROGRAM.
    ENDCASE.
  ENDMETHOD.

  " 雙擊：Drilldown 到 VA03
  METHOD on_double_click.
    READ TABLE gt_out INTO DATA(ls_row) INDEX row.
    CHECK sy-subrc = 0.
    CASE column.
      WHEN 'VBELN'.
        SET PARAMETER ID 'AUN' FIELD ls_row-vbeln.
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
      WHEN 'MATNR'.
        SET PARAMETER ID 'MAT' FIELD ls_row-matnr.
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    ENDCASE.
  ENDMETHOD.

  " 熱點單擊（滑鼠變成手指、按一下就觸發）
  METHOD on_link_click.
    READ TABLE gt_out INTO DATA(ls_row) INDEX row.
    CHECK sy-subrc = 0.
    MESSAGE |熱點：{ column } = { ls_row-vbeln }| TYPE 'S'.
  ENDMETHOD.

ENDCLASS.

*--------------------------------------------------------------------*
START-OF-SELECTION.

  " ── 1. 取資料：明列欄位、用 @ 逸出主機變數 ──────────────────
  SELECT FROM vbak AS a
         INNER JOIN vbap AS b ON a~vbeln = b~vbeln
         FIELDS a~vbeln, a~erdat, a~ernam, a~kunnr,
                b~posnr, b~matnr, b~matkl, b~zmeng, b~zieme,
                b~werks, b~lgort
         ORDER BY a~vbeln, b~posnr
         INTO CORRESPONDING FIELDS OF TABLE @gt_out
         UP TO 200 ROWS.

  IF gt_out IS INITIAL.
    MESSAGE '查無資料' TYPE 'S' DISPLAY LIKE 'E'.
    RETURN.
  ENDIF.

  " ── 2. 算紅綠燈：1=紅 2=黃 3=綠 ─────────────────────────────
  LOOP AT gt_out ASSIGNING FIELD-SYMBOL(<ls_out>).
    <ls_out>-light = COND #( WHEN <ls_out>-zmeng >= 100 THEN '1'
                             WHEN <ls_out>-zmeng >=  10 THEN '2'
                             ELSE                            '3' ).
  ENDLOOP.

  PERFORM show_alv.

*&--------------------------------------------------------------------*
FORM show_alv.

  TRY.
      cl_salv_table=>factory(
        IMPORTING r_salv_table = go_alv
        CHANGING  t_table      = gt_out ).

      " ── 3. 工具列：把標準功能全開 ──────────────────────────
      DATA(lo_func) = go_alv->get_functions( ).
      lo_func->set_all( abap_true ).        " 排序/篩選/合計/匯出/變式全開

      " ── 4. 自訂 GUI Status（SE41 複製 SAPLSALV 的 STANDARD）──
      go_alv->set_screen_status(
        report        = sy-repid
        pfstatus      = 'ZSALV_STATUS'
        set_functions = go_alv->c_functions_all ).

      " ── 5. 事件註冊 ────────────────────────────────────────
      DATA(lo_events) = go_alv->get_event( ).
      DATA(lo_handler) = NEW lcl_handler( ).
      SET HANDLER lo_handler->on_user_command FOR lo_events.
      SET HANDLER lo_handler->on_double_click FOR lo_events.
      SET HANDLER lo_handler->on_link_click   FOR lo_events.

      " ── 6. 欄位設定 ────────────────────────────────────────
      DATA(lo_cols) = go_alv->get_columns( ).
      lo_cols->set_optimize( abap_true ).           " 自動最佳欄寬
      lo_cols->set_exception_column( 'LIGHT' ).     " 指定紅綠燈欄位
      lo_cols->set_key_fixation( abap_true ).       " Key 欄位凍結不捲動

      " 單一欄位：抬頭文字、隱藏、熱點、加總
      DATA(lo_col) = CAST cl_salv_column_table( lo_cols->get_column( 'VBELN' ) ).
      lo_col->set_short_text( '訂單' ).
      lo_col->set_medium_text( '訂單編號' ).
      lo_col->set_long_text( '客戶訂單編號' ).
      lo_col->set_key( abap_true ).                                  " 藍色鍵值欄
      lo_col->set_cell_type( if_salv_c_cell_type=>hotspot ).         " 熱點

      CAST cl_salv_column_table( lo_cols->get_column( 'LGORT' )
        )->set_visible( abap_false ).                                " 隱藏欄位

      CAST cl_salv_column_table( lo_cols->get_column( 'ZMENG' )
        )->set_quantity_column( 'ZIEME' ).   " 數量欄要綁單位欄才會正確顯示

      " ── 7. 排序 + 小計 ─────────────────────────────────────
      DATA(lo_sorts) = go_alv->get_sorts( ).
      lo_sorts->add_sort( columnname = 'KUNNR'
                          sequence   = if_salv_c_sort=>sort_up
                          subtotal   = abap_true ).   " 依客戶小計
      lo_sorts->add_sort( columnname = 'ERDAT'
                          sequence   = if_salv_c_sort=>sort_down ).

      " ── 8. 合計 ────────────────────────────────────────────
      DATA(lo_aggr) = go_alv->get_aggregations( ).
      lo_aggr->add_aggregation( columnname  = 'ZMENG'
                                aggregation = if_salv_c_aggregation=>total ).

      " ── 9. 顯示設定 ────────────────────────────────────────
      DATA(lo_disp) = go_alv->get_display_settings( ).
      lo_disp->set_striped_pattern( abap_true ).       " 斑馬紋（= zebra）
      lo_disp->set_list_header( |VA01 客戶訂單　共 { lines( gt_out ) } 筆| ).

      " ── 10. Layout 變式（等同 disvariant / I_SAVE = 'A'）────
      DATA(lo_layout) = go_alv->get_layout( ).
      lo_layout->set_key( VALUE #( report = sy-repid handle = '0001' ) ).
      lo_layout->set_save_restriction( cl_salv_layout=>restrict_none ).
      lo_layout->set_default( abap_true ).

      " ── 11. 選取模式：讓使用者可以勾選整列 ──────────────────
      go_alv->get_selections( )->set_selection_mode(
        if_salv_c_selection_mode=>row_column ).

      " ── 12. 報表抬頭（取代舊的 TOP_OF_PAGE 事件）────────────
      DATA(lo_grid) = NEW cl_salv_form_layout_grid( ).
      lo_grid->create_label( row = 1 column = 1 text = 'VA01 客戶訂單' ).
      lo_grid->create_label( row = 2 column = 1 text = '僅顯示部份欄位' ).
      lo_grid->create_label( row = 2 column = 2
                             text = |執行者：{ sy-uname } { sy-datum DATE = USER }| ).
      go_alv->set_top_of_list( lo_grid ).

      go_alv->display( ).

    CATCH cx_salv_error INTO DATA(lx).
      MESSAGE lx->get_text( ) TYPE 'E'.
  ENDTRY.

ENDFORM.

4. Field Catalog（欄位目錄）：ALV 的靈魂

欄位目錄用來控制 ALV 每一欄的屬性：順序、對齊、可編輯、顏色、加總、要不要顯示⋯⋯。傳統 ALV 有三種建法，各有適用場合：

講義 Z202202_24 是全手動版本，逐欄 CLEAR / col_pos + 1 / APPEND，寫了一百多行。現代 ABAP 可以用 VALUE #( ) 一次寫完，可讀性天差地遠：

" ── 手動建 Field Catalog（LVC 版，給 CL_GUI_ALV_GRID 用）──────────
" 講義 Z202202_24 逐欄 APPEND 的一百多行，用 VALUE #( ) 濃縮成一段
DATA(lt_fcat) = VALUE lvc_t_fcat(
  " col_pos 若照順序寫可以省略，ALV 會依 table 順序排
  ( fieldname = 'VBELN' col_pos = 1  key = abap_true
    outputlen = 10 scrtext_m = '訂單編號' hotspot = abap_true )
  ( fieldname = 'ERDAT' col_pos = 2  outputlen = 10 scrtext_m = '訂單日期' )
  ( fieldname = 'ERNAM' col_pos = 3  outputlen = 12 scrtext_m = '輸入人員' )
  ( fieldname = 'KUNNR' col_pos = 4  outputlen = 10 scrtext_m = '客戶編號' )
  ( fieldname = 'POSNR' col_pos = 5  outputlen = 6  scrtext_m = '項次' )
  ( fieldname = 'MATNR' col_pos = 6  outputlen = 40 scrtext_m = '物料編號'
    ref_table = 'VBAP' ref_field = 'MATNR' )   " 給 F1/F4 說明用
  ( fieldname = 'MATKL' col_pos = 7  outputlen = 9  scrtext_m = '物料組' )
  ( fieldname = 'ZMENG' col_pos = 8  outputlen = 15 scrtext_m = '銷售數量'
    do_sum = abap_true            " 自動加總
    edit   = abap_true            " 可編輯
    decimals_o = 3                " 可編輯且有小數，一定要指定小數位
    qfieldname = 'ZIEME' )        " 綁單位欄位
  ( fieldname = 'ZIEME' col_pos = 9  outputlen = 3  scrtext_m = '銷售單位' )
  ( fieldname = 'WERKS' col_pos = 10 outputlen = 4  scrtext_m = '工廠' )
  ( fieldname = 'LGORT' col_pos = 11 outputlen = 4  scrtext_m = '儲存位置' ) ).

如果內表結構直接來自 DDIC，最省事的是讓系統自己生，再微調：

" ── 半自動：先讓系統依 DDIC 結構生成，再覆寫個別欄位 ──────────────
" 舊法：REUSE_ALV_FIELDCATALOG_MERGE（講義 BALVSD11 / BALVHD01 用它）
" 新法（推薦）：CL_SALV_DATA_DESCR 或直接用 SALV，不必自己生 fieldcat
DATA lt_fcat TYPE lvc_t_fcat.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
    i_structure_name       = 'SFLIGHT'
    i_client_never_display = abap_true   " 自動隱藏 MANDT
  CHANGING
    ct_fieldcat            = lt_fcat
  EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2
    OTHERS                 = 3.
IF sy-subrc <> 0.
  MESSAGE '欄位目錄建立失敗' TYPE 'E'.
ENDIF.

" 覆寫個別欄位：用 LOOP ... ASSIGNING 修改，不要重建整張表
LOOP AT lt_fcat ASSIGNING FIELD-SYMBOL(<ls_fcat>).
  CASE <ls_fcat>-fieldname.
    WHEN 'CARRID'.   <ls_fcat>-key       = abap_true.
                     <ls_fcat>-outputlen = 7.
    WHEN 'PRICE'.    <ls_fcat>-do_sum    = abap_true.
    WHEN 'SEATSMAX'. <ls_fcat>-no_out    = abap_true.   " 隱藏但可從 layout 拉出來
    WHEN 'SEATSOCC'. <ls_fcat>-no_sum    = abap_true.   " 禁止加總
  ENDCASE.
ENDLOOP.

4-1. SLIS_FIELDCAT_ALV 常用屬性總表

這張表要自己找得到（SE11 查 SLIS_FIELDCAT_ALV；查不到的 SLIS 結構改用 SE80 開 type-pool SLIS）。以下屬性對 REUSE_ALV_LIST_DISPLAY 與 REUSE_ALV_GRID_DISPLAY 皆生效；LVC 版（LVC_S_FCAT）欄位名略有不同（例如 SELTEXT_M → SCRTEXT_M、REF_TABNAME → REF_TABLE）。