Sunday, March 18, 2018

ABAP - SAP standard text - SO10


CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = 'ST'                " TextId
      language                = sy-langu            " Language
      name                    = lv_textname         " Name of the Text
      object                  = 'TEXT'              " Object
    IMPORTING
      header                  = lt_head
    TABLES
      lines                   = lt_itab
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.

IF SY-SUBRC EQ 0.
    LOOP AT lt_itab INTO ls_itab.
      clear lv_string.
      lv_string = ls_itab-tdline.
* p_lv_string return text
      CONCATENATE p_lv_string lv_string INTO p_lv_string SEPARATED BY space.
    ENDLOOP.
  ELSE.
    p_lv_string = 'Error - No text found in Standard text'.
  ENDIF.

No comments:

Post a Comment