- This report uses the service BAPI BapiService.MessageGetDetail , to display the messages from message class ( SE91 ).
- Go to SE91.
Steps
- Go to Transaction code SE38.
- Enter the Program name start's with Z or Y<program name>.
- Enter the source code.
DATA : ID LIKE BAPIRET2-ID,
NUMBER LIKE BAPIRET2-NUMBER,
TEXTFORMAT LIKE BAPITGA-TEXTFORMAT,
MESSAGE_V1 LIKE BAPIRET2-MESSAGE_V1,
MESSAGE LIKE BAPIRET2-MESSAGE,
RETURN LIKE BAPIRET2 .
DATA: BEGIN OF MY_TEXT OCCURS 1.
INCLUDE STRUCTURE BAPITGB.
DATA: END OF MY_TEXT.
MOVE 'FI' TO ID. "MESSAGE CLASS
MOVE '024' TO NUMBER. "MESSAGE ID
MOVE 'ASC' TO TEXTFORMAT.
MOVE '0001' TO MESSAGE_V1.
CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
EXPORTING
ID = ID
NUMBER = NUMBER
LANGUAGE = SY-LANGU
TEXTFORMAT = TEXTFORMAT
* LINKPATTERN =
MESSAGE_V1 = MESSAGE_V1
* MESSAGE_V2 =
* MESSAGE_V3 =
* MESSAGE_V4 =
IMPORTING
MESSAGE = MESSAGE
RETURN = RETURN
TABLES
TEXT = MY_TEXT
.
IF RETURN IS INITIAL.
WRITE : / 'VARIABLE MESSAGE :' , MESSAGE_V1.
SKIP 2.
WRITE : / 'OUTPUT' COLOR 4.
WRITE : / MESSAGE.
SKIP 4.
LOOP AT MY_TEXT.
WRITE : / MY_TEXT. "SUCCESSFULL MESSAGE
ENDLOOP.
ELSE.
WRITE : / RETURN-MESSAGE. "UNSUCCESSFULL MESSAGE
ENDIF.
No comments:
Post a Comment