读取QM决策长文本的ABAP测试程序

最新推荐文章于 2025-12-06 11:03:53 发布

原创最新推荐文章于 2025-12-06 11:03:53 发布 · 999 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#测试 #object #reference #archive #access

ABAP 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个ABAP程序示例，该程序通过调用READ_TEXT函数模块来读取指定ID、语言键、名称及对象的文本数据，并展示了如何处理可能发生的异常情况。此程序对于理解ABAP中如何操作文本数据具有参考价值。

部署运行你感兴趣的模型镜像

REPORT  ZQM0111                                 .
TYPES : BEGIN OF TY_TEXT,
TDOBJECT TYPE STXH-TDOBJECT, "TEXTS: APPLICATION OBJECT
TDNAME TYPE STXH-TDNAME, "NAME
TDID TYPE STXH-TDID, "TEXT ID
TDSPRAS TYPE STXH-TDSPRAS, "LANGUAGE KEY
END OF TY_TEXT.

DATA : IT_TLINE TYPE TABLE OF TLINE,
WA_TLINE TYPE TLINE,
IT_TEXT TYPE TABLE OF TY_TEXT,
WA_TEXT TYPE TY_TEXT.

DATA : ID LIKE  THEAD-TDID.
*"       LIKE  THEAD-TDSPRAS
*"     VALUE(NAME) LIKE  THEAD-TDNAME
*"     VALUE(OBJECT) LIKE  THEAD-TDOBJECT

CALL FUNCTION 'READ_TEXT'
EXPORTING

ID =  'QAVE'
LANGUAGE = '1'
NAME =  '010000000106'
OBJECT = 'QPRUEFLOS'
TABLES
LINES = IT_TLINE
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8.

* DELETE IT_TLINE WHERE TDLINE IS INITIAL.
LOOP AT IT_TLINE INTO WA_TLINE.
write:/ WA_TLINE-TDLINE.
ENDLOOP.