Langtext zu Fehlermeldung auslesen

Code: Alles auswählen.

FUNCTION ISH_MESSAGE_LONGTEXT_DISPLAY.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(MSGID) LIKE  SY-MSGID
*"             VALUE(MSGNO) LIKE  SY-MSGNO
*"             VALUE(MSGV1) LIKE  SY-MSGV1 DEFAULT SPACE
*"             VALUE(MSGV2) LIKE  SY-MSGV2 DEFAULT SPACE
*"             VALUE(MSGV3) LIKE  SY-MSGV3 DEFAULT SPACE
*"             VALUE(MSGV4) LIKE  SY-MSGV4 DEFAULT SPACE
*"----------------------------------------------------------------------

  DATA: LT_LINE LIKE TLINE OCCURS 0.
  DATA: TMP_DOCNAME LIKE DOKHL-OBJECT.

  CONCATENATE MSGID MSGNO INTO TMP_DOCNAME.

  CALL FUNCTION 'HELP_OBJECT_SHOW'
       EXPORTING
            DOKCLASS                      = 'NA'  "message class
*           DOKLANGU                      = SY-LANGU
            DOKNAME                       = TMP_DOCNAME
            MSG_VAR_1                     = MSGV1
            MSG_VAR_2                     = MSGV2
            MSG_VAR_3                     = MSGV3
            MSG_VAR_4                     = MSGV4
       TABLES
            LINKS                         = LT_LINE
       EXCEPTIONS
            OBJECT_NOT_FOUND              = 1
            SAPSCRIPT_ERROR               = 2
            OTHERS                        = 3.
ENDFUNCTION.