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

来源：互联网发布：幼儿编程游戏编辑：程序博客网时间：2024/06/06 18:12

使用该モジュール从数据库中选取原价要素，但是使用时，由于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 　　　