Message not returning in BAPI

[Former Member]

Hi,

Can i use BAPIRETURN for return parameter (export) in BAPI function module?.

I am not receiving either Success or Error message.

Please see the code below.

 DATA: L_WERKS TYPE WERKS_D.
    SELECT SINGLE WERKS FROM T001W INTO L_WERKS WHERE WERKS EQ BAPI_IMPORT_MC-PLANT.
    IF SY-SUBRC <> 0.
      CLEAR MESSAGE.
      MESSAGE-MSGTY = 'E'.
      MESSAGE-MSGID = 'ZMS'.
      MESSAGE-MSGNO = '001'.
      MESSAGE-MSGV1 = BAPI_IMPORT_MC-PLANT.

      PERFORM RETURN_BAPI_MESSAGE USING MESSAGE CHANGING RETURN.
      IF 1 = 2.
        MESSAGE E001(ZMS).
      ENDIF.
      CHECK RETURN IS INITIAL.
* remaining code.
ENDIF.

FORM RETURN_BAPI_MESSAGE  USING    VALUE(P_MESSAGE) LIKE MESSAGE
                          CHANGING P_RETURN LIKE BAPIRETURN.

 CHECK NOT MESSAGE IS INITIAL.

  CALL FUNCTION 'BALW_BAPIRETURN_GET'
    EXPORTING
      TYPE       = P_MESSAGE-MSGTY
      CL         = P_MESSAGE-MSGID
      NUMBER     = P_MESSAGE-MSGNO
      PAR1       = P_MESSAGE-MSGV1
      PAR2       = P_MESSAGE-MSGV2
      PAR3       = P_MESSAGE-MSGV3
      PAR4       = P_MESSAGE-MSGV4
    IMPORTING
      BAPIRETURN = P_RETURN
    EXCEPTIONS
      OTHERS     = 1.


ENDFORM.                    " RETURN_BAPI_MESSAGE

Thanks,

Sri

[Former Member]

> FORM RETURN_BAPI_MESSAGE USING VALUE(P_MESSAGE) LIKE MESSAGE

> CHANGING P_RETURN LIKE BAPIRETURN.

>

> CHECK NOT MESSAGE IS INITIAL.

Check not p_message is initial or CHECK NOT MESSAGE IS INITIAL ?

--

Reddy

[Former Member]

It is

CHECK NOT P_MESSAGE IS INITIAL.

Any idea?.

[Former Member]

debug the prog whether the FM: BALW_BAPIRETURN_GET is exicuted or not?

--

Reddy

[Former Member]

Yes,It is executing.but not returning.

[Former Member]

Earlier Message class created with three characters,now i had created it again with only two characters.Now it is solved.