AI生成（ABAPソースコード）

*----------------------------------------------------------------------*
*  Sample ABAP Report (for parsing / analysis exercises)               *
*  Encoding: UTF-8                                                     *
*----------------------------------------------------------------------*
REPORT zsample_parser_demo.

"--- Selection screen -------------------------------------------------
PARAMETERS: p_bukrs TYPE bukrs DEFAULT '1000'.
SELECT-OPTIONS: s_matnr FOR mara-matnr.

"--- Type definitions -------------------------------------------------
TYPES: BEGIN OF ty_result,
         bukrs      TYPE bukrs,
         matnr      TYPE matnr,
         mtart      TYPE mtart,
         matkl      TYPE matkl,
         maktx      TYPE maktx,
         created_on TYPE erdat,
       END OF ty_result.

TYPES: ty_t_result TYPE STANDARD TABLE OF ty_result WITH EMPTY KEY.

"--- Data declarations ------------------------------------------------
DATA: gt_result TYPE ty_t_result,
      gs_result TYPE ty_result,
      gv_count  TYPE i,
      gv_msg    TYPE string.

CONSTANTS: c_true  TYPE abap_bool VALUE abap_true,
           c_false TYPE abap_bool VALUE abap_false.

"--- Main flow --------------------------------------------------------
START-OF-SELECTION.
  PERFORM initialize.
  PERFORM fetch_data USING p_bukrs CHANGING gt_result.
  PERFORM validate_data USING gt_result CHANGING gv_msg.
  IF gv_msg IS NOT INITIAL.
    MESSAGE gv_msg TYPE 'E'.
  ENDIF.
  PERFORM display_data USING gt_result.
  PERFORM finalize.

"--- Forms ------------------------------------------------------------
FORM initialize.
  gv_count = 0.
  gv_msg   = ``.
ENDFORM.

FORM fetch_data USING    iv_bukrs TYPE bukrs
                CHANGING ct_result TYPE ty_t_result.
  DATA: lt_mara TYPE STANDARD TABLE OF mara WITH EMPTY KEY,
        ls_mara TYPE mara,
        lv_lines TYPE i.

  " Select master data
  SELECT matnr mtart matkl erdat
    FROM mara
    INTO TABLE @lt_mara
    WHERE matnr IN @s_matnr.

  DESCRIBE TABLE lt_mara LINES lv_lines.
  IF lv_lines = 0.
    gv_msg = |No MARA rows found for selection.|.
    RETURN.
  ENDIF.

  LOOP AT lt_mara INTO ls_mara.
    CLEAR gs_result.
    gs_result-bukrs      = iv_bukrs.
    gs_result-matnr      = ls_mara-matnr.
    gs_result-mtart      = ls_mara-mtart.
    gs_result-matkl      = ls_mara-matkl.
    gs_result-created_on = ls_mara-erdat.

    " Fetch text (example of SELECT SINGLE)
    SELECT SINGLE maktx
      FROM makt
      INTO @gs_result-maktx
      WHERE matnr = @ls_mara-matnr
        AND spras = @sy-langu.

    APPEND gs_result TO ct_result.
    gv_count = gv_count + 1.
  ENDLOOP.
ENDFORM.

FORM validate_data USING    it_result TYPE ty_t_result
                   CHANGING cv_msg TYPE string.
  DATA lv_ok TYPE abap_bool VALUE abap_true.

  IF lines( it_result ) > 1000.
    lv_ok = abap_false.
    cv_msg = |Too many rows: { lines( it_result ) }.|.
  ENDIF.

  " Example: check for empty MATNR
  READ TABLE it_result INDEX 1 INTO gs_result.
  IF sy-subrc = 0 AND gs_result-matnr IS INITIAL.
    lv_ok = abap_false.
    cv_msg = |First row MATNR is initial.|.

ソース本体 トップレベル

フォーム番号 1：initialize【初期化】

フォーム番号 2：fetch_data【マスタデータ取得処理】