
*Declare data
TYPES:
BEGIN OF TY_LINE,
INSTID_B TYPE SOFOLENTI1-DOC_ID,
END OF TY_LINE.
DATA:
L_DATA TYPE SOFOLENTI1,
L_TEXT TYPE SO_TEXT255,
L_TBL_LINE TYPE TABLE OF TY_LINE,
L_DOCID TYPE SOFOLENTI1-DOC_ID,
LT_CONTENT TYPE TABLE OF SOLISTI1.
FIELD-SYMBOLS:
<L_WA_TEXT> TYPE TY_LINE,
<LS_CONTENT> TYPE SOLISTI1.
*fetch data from SRGBTBREL
SELECT INSTID_B FROM SRGBTBREL
WHERE TYPEID_A = 'BKPF'
AND RELTYPE = 'NOTE'
AND INSTID_A = 'C00101000000102021'
AND CATID_A = 'BO'
INTO TABLE @L_TBL_LINE
UP TO 1 ROWS.
LOOP AT L_TBL_LINE ASSIGNING <L_WA_TEXT>.
L_DOCID = <L_WA_TEXT>-INSTID_B.
ENDLOOP.
*call function to get text
CALL FUNCTION 'SO_DOCUMENT_READ_API1'
EXPORTING
DOCUMENT_ID = L_DOCID " ID of folder entry to be viewed
IMPORTING
DOCUMENT_DATA = L_DATA
TABLES
OBJECT_CONTENT = LT_CONTENT " Document Content
EXCEPTIONS
DOCUMENT_ID_NOT_EXIST = 1 " Specified folder entry does not exist
OPERATION_NO_AUTHORIZATION = 2 " No authorization to view folder entry
X_ERROR = 3 " Internal error or database inconsistency
OTHERS = 4.
IF SY-SUBRC = 0.
WRITE:'TITLE IS: ', L_DATA-obj_descr,/.
WRITE:'CONTENT IS: '.
LOOP AT LT_CONTENT ASSIGNING <LS_CONTENT>.
L_TEXT = <LS_CONTENT>-LINE.
WRITE:L_TEXT,/.
ENDLOOP.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
3 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 |