---

FUNCTION BALW_BAPIRETURN_GET1.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(TYPE) LIKE  BAPIRETURN-TYPE
*"     VALUE(CL) LIKE  SY-MSGID
*"     VALUE(NUMBER) LIKE  SY-MSGNO
*"     VALUE(PAR1) LIKE  SY-MSGV1 DEFAULT SPACE
*"     VALUE(PAR2) LIKE  SY-MSGV2 DEFAULT SPACE
*"     VALUE(PAR3) LIKE  SY-MSGV3 DEFAULT SPACE
*"     VALUE(PAR4) LIKE  SY-MSGV4 DEFAULT SPACE
*"     VALUE(LOG_NO) LIKE  BAPIRETURN-LOG_NO DEFAULT SPACE
*"     VALUE(LOG_MSG_NO) LIKE  BAPIRETURN-LOG_MSG_NO DEFAULT SPACE
*"  EXPORTING
*"     VALUE(BAPIRETURN) LIKE  BAPIRET1 STRUCTURE  BAPIRET1
*"----------------------------------------------------------------------


  CLEAR BAPIRETURN.

* process field return-type.
  BAPIRETURN-TYPE = TYPE.

* process field id, number
  BAPIRETURN-ID = CL.
  BAPIRETURN-NUMBER = NUMBER.

* process message variables
  BAPIRETURN-MESSAGE_V1 = PAR1.
  BAPIRETURN-MESSAGE_V2 = PAR2.
  BAPIRETURN-MESSAGE_V3 = PAR3.
  BAPIRETURN-MESSAGE_V4 = PAR4.

*============================================================
* the ABAP command message ... into support only the standard
* message types (A,E,I,W,S,X) but there are other typs,
* therefore we are using type 'I'
  MESSAGE ID     CL
          TYPE   'I'
          NUMBER Number
          WITH   par1
                 par2
                 par3
                 par4
          INTO   BAPIRETURN-Message.
*=============================================================


* process field return log_no
  BAPIRETURN-LOG_NO = LOG_NO.

* process field return LOG_MSG_NO
  BAPIRETURN-LOG_MSG_NO = LOG_MSG_NO.

ENDFUNCTION.