Passing Dynamic Variables to SO10 TEXT
REPORT ZTEST_POPUP.
PARAMETERS:A TYPE i,
B TYPE i.
DATA: C TYPE i,
lv_text TYPE string,
C = A + B.
data:it_final TYPE TABLE OF tline.
DATA:CHANGED TYPE STRING.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = 'ST'
language = SY-LANGU
NAME = 'ZTEXT'
OBJECT = 'TEXT'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* USE_OLD_PERSISTENCE = ABAP_FALSE
* IMPORTING
* HEADER =
* OLD_LINE_COUNTER =
TABLES
lines = IT_final
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
CALL FUNCTION 'REPLACE_TEXTSYMBOL'
EXPORTING
endline = 10
FORMATWIDTH = 72
LANGUAGE = SY-LANGU
LINEWIDTH = 132
OPTION_DIALOG = ' ' " = 'X' For Pop up
REPLACE_PROGRAM = 'X'
REPLACE_STANDARD = 'X'
REPLACE_SYSTEM = 'X'
REPLACE_TEXT = 'X'
startline = 1
* REPLACE_NBSP = ''
IMPORTING
CHANGED = CHANGED
TABLES
lines = IT_FINAL.
loop at it_final INTO data(is_final).
IF LV_TEXT IS INITIAL.
LV_TEXT = IS_FINAL-TDLINE.
ELSE.
CONCATENATE LV_TEXT IS_FINAL-TDLINE INTO LV_TEXT.
ENDIF.
ENDLOOP.
WRITE:LV_TEXT.
Comments
Post a Comment