Please like, comment, and subscribe before downloading the code.
*TYPES: TT_TEXT2 TYPE TABLE OF TLINE.
DATA: WA_STXH TYPE STXH.
CLEAR:WA_STXH.
SELECT SINGLE * FROM STXH
INTO CORRESPONDING FIELDS OF @WA_STXH
WHERE TDID EQ '0001'
AND TDOBJECT EQ 'VBBP'
AND TDNAME EQ '0000000022000010'.
IF WA_STXH IS NOT INITIAL.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = WA_STXH-TDID
language = WA_STXH-TDSPRAS
NAME = WA_STXH-TDNAME
OBJECT = WA_STXH-TDOBJECT
TABLES
lines = IT_TEXT1.
ENDIF.
CLEAR:WA_STXH.
SELECT SINGLE * FROM STXH
INTO CORRESPONDING FIELDS OF @WA_STXH
WHERE TDID EQ 'TX02'
AND TDOBJECT EQ 'VBBP'
AND TDNAME EQ '0000000022000010'.
IF WA_STXH IS NOT INITIAL.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = WA_STXH-TDID
language = WA_STXH-TDSPRAS
NAME = WA_STXH-TDNAME
OBJECT = WA_STXH-TDOBJECT
TABLES
lines = IT_TEXT2.
ENDIF.