Show TOC

Calling BAPIs from ABAPLocate this document in the navigation structure

Use

This report uses the service BAPI BapiService.MessageGetDetail() , to display the short text and the long text of error messages.

*------------------------------------------------------------------------*
*        read a message short and longtext using the BAPI                *
*        BAPI_MESSAGE_GETDETAIL of the object BapiService.               *
*------------------------------------------------------------------------*

* Datendeklaration 

DATA : MY_ID         LIKE BAPIRET2-ID,
       MY_NUMBER     LIKE BAPIRET2-NUMBER,
       MY_TEXTFORMAT LIKE BAPITGA-TEXTFORMAT,
       MY_MESSAGE_V1 LIKE BAPIRET2-MESSAGE_V1,
       MY_MESSAGE    LIKE BAPIRET2-MESSAGE,
       MY_RETURN     TYPE BAPIRET2.
DATA BEGIN OF MY_TEXT OCCURS 1.
     INCLUDE STRUCTURE BAPITGB.
DATA END OF MY_TEXT.


* Objekt mit Werten füllen

MOVE 'FI'   TO MY_ID.               "message id of message to read
MOVE '024'  TO MY_NUMBER.           "message number of message to read
MOVE 'ASC'  TO MY_TEXTFORMAT.       "text format, here ASCII
MOVE '0001' TO MY_MESSAGE_V1.       "text to fill into message


* Aufruf des BAPIs

CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
     EXPORTING
          ID         = MY_ID
          NUMBER     = MY_NUMBER
*         LANGUAGE   = SY-LANGU
          TEXTFORMAT = MY_TEXTFORMAT
          MESSAGE_V1 = MY_MESSAGE_V1
*         MESSAGE_V2 =
*         MESSAGE_V3 =
*         MESSAGE_V4 =
     IMPORTING
          MESSAGE    = MY_MESSAGE
          RETURN     = MY_RETURN
     TABLES
          TEXT       = MY_TEXT
         .


* Ausdrucken der Ergebnisse
 
WRITE : / 'Input' COLOR 5.
WRITE : / 'my_id...........:', MY_ID.
WRITE : / 'my_number.......:', MY_NUMBER.
WRITE : / 'my_textformat...:', MY_TEXTFORMAT.
WRITE : / 'my_message_v1...:', MY_MESSAGE_V1.
WRITE : / 'Output' COLOR 5.
WRITE : / 'my_message........:', MY_MESSAGE.
WRITE : / 'my_return.........:', MY_RETURN.
WRITE : / 'Text output' COLOR 5.
LOOP AT MY_TEXT.
  WRITE : / MY_TEXT.
ENDLOOP.