Passing Dynamic Variables to SO10 TEXT

REPORT ZTEST_POPUP.
PARAMETERS:TYPE i,
 B TYPE i.

DATA:  C TYPE i,
      lv_text TYPE string,

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

Popular posts from this blog

Implicit Enhancement with Example

TMG Events