通過 ST 轉換處理 JSON 反序列化中的 Null 值？

Question

JSON 到 ABAP 有問題。 這是一個高度簡化的示例，但試圖抓住要點。 每個 JSON 元素（除少數例外）都可能以實際值存在，以 null 值存在，或者根本不存在。

在此示例中，有 3 個訂單項目。 訂單項可能有也可能沒有 order_reason。 對於第 01 行，它是 ABC，對於第 02 行，它是 null，對於第 03 行，它根本不存在。

如果您查看 XML，您會發現創建的元素因內容而異，我不知道如何在我的 ST 中處理它。 我猜這是某種條件或組或開關，但我似乎找不到正確的語法來檢查元素有時是“空”還是有時是“字符串”。 因此，它不是對元素內容的檢查，而是對實際元素本身的檢查。

超簡單 JSON

    {
        "order_id": "564320",
        "items": [
            {
                "line": "01",
                "order_reason": "ABC"
            },
            {
                "line": "02",
                "order_reason": null
            },
            {
                "line": "03"
            }
        ]
    }

然后將其隱式轉換為 XML 以在 ST 中進行處理。 Order Reason 元素是第一項的 <str...>，然后是第二項的 <null....>，最后一行中缺少。

    <object>
     <str name="order_id">564320</str>
     <array name="items">
      <object>
       <str name="line">01</str>
       <str name="order_reason">ABC</str>
      </object>
      <object>
       <str name="line">01</str>
       <null name="order_reason" />
      </object>
      <object>
       <str name="line">03</str>
      </object>
     </array>
    </object>

這是我的示例 ST。

    <?sap.transform simple?>
    <tt:transform xmlns:tt="http://www.sap.com/transformation-templates" >
      <tt:root name="ROOT" />
      <tt:template>
        <object>
          <str name="order_id">
            <tt:value ref="ROOT.order_id"/>
          </str>
          <array>
            <tt:loop ref="ROOT.items">
              <object>
                <str name="line">
                  <tt:value ref="$ref.posnr"/>
                </str>
                <str name="order_reason">
                  <tt:value ref="$ref.reason"/>
                </str>
              </object>
            </tt:loop>
          </array>
        </object>
      </tt:template>
    </tt:transform>

這是一個可執行的 ABAP 來測試上述內容。 有兩個版本的 JSON 來測試。 第一個有效，因為每個項目都有一個原因代碼。 檢查這個只是為了確保一切都在快樂的情況下工作。 通過切換到代碼中的第二個示例，您可以看到需要處理 <null....> 元素而不是 <str....> 元素。 所以不是元素的內容，而是預期的元素本身。 我試圖對元素 <str...> 進行存在性檢查，但這似乎不起作用（或者實際上我不知道引用當前元素的類型/名稱的語法）。

*&---------------------------------------------------------------------*
*& Report Z_JSON_ABAP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_json_abap2.

CLASS demo DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS main.
ENDCLASS.

CLASS demo IMPLEMENTATION.
  METHOD main.

    TYPES: BEGIN OF ty_s_line,
             posnr  TYPE posnr,
             reason TYPE char3,
           END OF ty_s_line.

    TYPES: BEGIN OF ty_s_header,
             order_id TYPE vbeln,
             items    TYPE TABLE OF ty_s_line WITH DEFAULT KEY,
           END OF ty_s_header.

    DATA: lt_order TYPE ty_s_header.

* Example 1 - Works - Easy!
    DATA(lv_json) = cl_abap_codepage=>convert_to(
   `{` &&
  ` "order_id": "51324", ` &&
  ` "items": [ ` &&
  ` { ` &&
  `   "line": "01", ` &&
  `   "order_reason": "ABC" ` &&
  `   }, ` &&
  `   { ` &&
  `   "line": "02", ` &&
  `   "order_reason": "DEF" ` &&
  `   }, ` &&
  `   { ` &&
  `   "line": "03", ` &&
  `   "order_reason": "123" ` &&
  `   } ` &&
  `  ] ` &&
  `  } `  ).


* Example 2 - Does not work! - Swap sections to test

*    DATA(lv_json) = cl_abap_codepage=>convert_to(
*   `{` &&
*  ` "order_id": "51324", ` &&
*  ` "items": [ ` &&
*  ` { ` &&
*  `   "line": "01", ` &&
*  `   "order_reason": "ABC" ` &&
*  `   }, ` &&
*  `   { ` &&
*  `   "line": "02", ` &&
*  `   "order_reason": null ` &&
*  `   }, ` &&
*  `   { ` &&
*  `   "line": "03" ` &&
*  `   } ` &&
*  `  ] ` &&
*  `  } `  ).

    CALL TRANSFORMATION zst_order_test SOURCE XML lv_json RESULT root = lt_order.

  ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.
  demo=>main( ).

Answer 1

原來這太簡單了。 我可能盯着它看太久了，並且用組和開關等來想象一些過於復雜的解決方案。也許這甚至是可能的，但這是可行的。 剛剛添加了兩個條件元素。

<?sap.transform simple?>
    <tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
      <tt:root name="ROOT"/>
      <tt:template>
        <object>
          <str name="order_id">
            <tt:value ref="ROOT.order_id"/>
          </str>
          <array>
            <tt:loop ref="ROOT.items">
              <object>
                <str name="line">
                  <tt:value ref="$ref.posnr"/>
                </str>
                <tt:cond>
                  <str name="order_reason">
                    <tt:value ref="$ref.reason"/>
                  </str>
                </tt:cond>
                <tt:cond>
                  <null name="order_reason">
                    <tt:value ref="$ref.reason"/>
                  </null>
                </tt:cond>
              </object>
            </tt:loop>
          </array>
        </object>
      </tt:template>
    </tt:transform>