ABAP 函数模块的异常抛出

1314lay_1007

于 2024-03-08 15:18:22 发布

阅读量284

点赞数 4

分类专栏： ABAP SAP 文章标签： ABAP SAP

本文链接：https://blog.csdn.net/weixin_44686958/article/details/136563126

版权

ABAP 同时被 2 个专栏收录

90 篇文章 3 订阅

订阅专栏

SAP

89 篇文章 0 订阅

订阅专栏

本文详细描述了在SAP系统中如何处理函数模块的异常，包括使用EXCEPTIONS结构处理可能的错误，以及使用TRY/CATCH块捕获特定异常如cx_no_flight_found，并展示了相应的错误文本输出。

摘要由CSDN通过智能技术生成

函数模块的异常抛出

在这里插入图片描述

*&---------------------------------------------------------------------*
*& Report Z_TEST_EXCEPTIONS_LHY
*&---------------------------------------------------------------------*
*& TYPE：Report
*& Description：函数模块的异常抛出
*& Creator：LiuHongyu
*& Created On：2024年2月24日
*&---------------------------------------------------------------------*
*                           Change History
* ----------        -------------       -------------      -------------
*   Version          Date                Change By           Description
* ----------        -------------       -------------      -------------
*   N                2024.2.24           LiuHongyu          创建
*&---------------------------------------------------------------------*
REPORT z_test_exceptions_lhy.


*&----------------------------Variables--------------------------------*
DATA itab TYPE spfli_tab.
DATA str TYPE string.
*&----------------------------Logic------------------------------------*

*&---------以下是从SAP系统的文档拷贝过来的程序示例，在他基础上修改的------------------*
CALL FUNCTION 'READ_SPFLI_INTO_TABLE'
  EXPORTING
    "id        = 'LH'
    id   = 'DD' "原来是LH
  IMPORTING
    itab      = itab
  "EXCEPTIONS
"    not_found = 4
"如果没有使用EXCEPTIONS，并且没有设置返回值的话，那么就会执行READ_SPFLI_INTO_TABLE函数模块的MESSAGE语句。
"如果使用EXCEPTIONS，那么就是触发异常，并且会有返回值，体现在sy-subrc里面，可以通过判断sy-subrc的值来确定是哪一种异常被触发了。比如使用case ... when ... 语句
.
IF sy-subrc <> 0.
*  cl_demo_output=>display( '抛出not_found异常').
*  MESSAGE e007(sabapdemos).
ELSE.
  cl_demo_output=>display( itab ).
ENDIF.
START-OF-SELECTION.
TRY.
    CALL FUNCTION 'READ_SPFLI_INTO_TABLE_NEW'
      EXPORTING
        id   = 'DD' "原来是LH
        "id   = 'LH'
      IMPORTING
        itab = itab.
  CATCH cx_no_flight_found INTO DATA(exc).
    IF NOT exc IS INITIAL.
      CALL METHOD exc->get_text
        RECEIVING result = str. "类的方法时是returning，现在就用receiving来接收
      "cl_demo_output=>display( '抛出cx_no_flight_found异常，文本：' && str ).
    ENDIF.
    ...
ENDTRY.