汎用モジュールBAPI_COSTELEM_GETLIST出错时的处理

 使用该モジュール从数据库中选取原价要素，但是使用时，由于SY-SUBRC总是为0，所以判断时，应该用RETURN表。

*&---------------------------------------------------------------------*
*&      Form FRM_GET_GENKA
*&---------------------------------------------------------------------*
*       原価要素の取得
*----------------------------------------------------------------------*
FORM FRM_GET_GENKA .
* ローカル変数
DATA:
LW_LOW(15)   TYPE C,
LTD_RETURN   TYPE TABLE OF BAPIRET2,
LTH_RETURN   TYPE BAPIRET2.
LW_LOW = W_LOW.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
COAREA           = P_KOKRS                 "管理領域
COSTELEMENTGROUP = LW_LOW                  "原価要素
TABLES
COSTELEMENTLIST = TD_GENKA                "原価要素一覧
RETURN           = LTD_RETURN.             "RETURN
* 結果判断
CHECK LTD_RETURN IS NOT INITIAL.
* エラーを発生場合、エラーメッセージを出力する
LOOP AT LTD_RETURN INTO LTH_RETURN
WHERE TYPE = 'E'             "メッセージType:E
OR TYPE = 'W'             "メッセージType:W
OR TYPE = 'A'.            "メッセージType:A
PERFORM FRM_INS_LOG_ITEM
USING LTH_RETURN-ID           "メッセージクラス
LTH_RETURN-TYPE         "メッセージタイプ
LTH_RETURN-NUMBER       "メッセージ番号
LTH_RETURN-MESSAGE_V1   "変数1
LTH_RETURN-MESSAGE_V2   "変数2
LTH_RETURN-MESSAGE_V3   "変数3
LTH_RETURN-MESSAGE_V4   "変数4
SPACE                   "変数5
SPACE.                  "変数6
CLEAR:
LTH_RETURN.
*- エラーフラグ設定
FLG_ERR = CNS_FLG_ON.
ENDLOOP.
ENDFORM.                    " FRM_GET_GENKA