Displaying the message in output of BDC program.

Question

Hi,
I have developed the BDC program for running the MMPV and MMRV transaction code in that in output want to display the message that for which company code posting is done or some error is occurring. Below shown message is populate in when standard transaction code MP is execute.
AL O G
Mode: Check and close period
Client: 140
Period entered (month/year): 11 2007
Incorrect period in control recd. of CoCd 1306; no conversion The current period (month/year) of the control record is 11 2007
Period closing complete; log issued.
E N D
I want like this message to be display in output of the program, currently I am using the function module FORMAT_MESSAGE. It is displaying the message which is appearing on status bar only. I am not able to capture the message which is shown above.
In this problem can any body can guide me

Answer 1

I am using the Call transaction method.I use the internal table of 'bdcmsgcoll' in the program but  I am not able to get the message in internal table  other than the message which is appearing on the on the status bar, the message  which I  shown in mail it's an log message which is coming after running the standard MMPV transaction code.
below shown is the code which I written.
DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
      messages of call transaction
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
         chetan
       W_MESSTAB LIKE BDCMSGCOLL .
      error session opened (' ' or 'X')
DATA:   E_GROUP_OPENED.
      message texts
DATA:   session LIKE apqi-groupid VALUE 'X',  " VALUE 'GAN'.
        GROUP TYPE APQI-GROUPID,
        USER TYPE APQI-USERID value 'SY-UNAME',
        KEEP TYPE APQI-QERASE,
        HOLDDATE TYPE APQI-STARTDATE,
        SMALLLOG(1) TYPE C VALUE ' ',
        CTUMODE LIKE CTU_PARAMS-DISMODE VALUE 'N',
        CUPDATE LIKE CTU_PARAMS-UPDMODE VALUE 'L', "'L'
        E_GROUP(12) TYPE C,
        E_USER TYPE SY-UNAME,
        E_KEEP(12) TYPE C,
        E_HDATE TYPE SY-DATUM.
FORM BDC_TRANSACTION USING TCODE.
  DATA: L_MSTRING(480).
  DATA: L_SUBRC LIKE SY-SUBRC.
  DATA: L_Message(255) TYPE C .
  REFRESH MESSTAB.
  CALL TRANSACTION TCODE USING BDCDATA
                   MODE   CTUMODE
                   UPDATE CUPDATE
                   MESSAGES INTO MESSTAB.
  L_SUBRC = SY-SUBRC.
  IF SMALLLOG <> 'X'.
    LOOP AT MESSTAB.
      CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
          ID        = MESSTAB-MSGID
          LANG      = sy-langu
          NO        = MESSTAB-MSGNR
          V1        = MESSTAB-MSGV1
          V2        = MESSTAB-MSGV2
          V3        = MESSTAB-MSGV3
          V4        = MESSTAB-MSGV4
        IMPORTING
          MSG       = L_MESSAGE
        EXCEPTIONS
          NOT_FOUND = 1
          OTHERS    = 2.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  "'-D'
      ENDIF.
      wa_tab-v_message = l_message.
    ENDLOOP.
  ENDIF.
  REFRESH BDCDATA.
ENDFORM.                    "BDC_TRANSACTION
FORM   mmpv_tcode .
  SELECT bukrs lfgja lfmon
  INTO table t_tab
  FROM marv
  WHERE bukrs IN s_bukrs AND
        lfgja IN s_lfgja AND
        lfmon IN s_lfmon.
  IF SY-SUBRC <> 0.
    MESSAGE 'NO TABLE  ENTRY FOUND FOR MMPV' TYPE 'I'.
    Leave list-processing.
    v_check = '1'.
  ENDIF.
MMPV Program execution of all the company codes using loop.
  LOOP AT t_tab INTO wa_tab.
    perform bdc_dynpro      using 'RMMMPERI' '1000'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'I_LFGJA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ONLI'.
    perform bdc_field       using 'I_VBUKR'
                                  wa_tab-bukrs.
    perform bdc_field       using 'I_LFMON'
                                  wa_tab-lfmon.
    perform bdc_field       using 'I_LFGJA'
                                  wa_tab-lfgja.
    IF R_XCOMP = 'X'.
      perform bdc_field       using 'I_XCOMP'
                                    'X'.
    ENDIF.
    IF R_XINCO ='X'.
      perform bdc_field       using 'I_XINCO'
                                  'X'.
    ENDIF.
    IF R_XMOVE = 'X'.
      perform bdc_field       using 'I_XMOVE'
                                    'X'.
    ENDIF.
    IF R_XNEGQ = 'X'.
      perform bdc_field       using 'I_XNEGQ'
                                  'X'.
    ENDIF.
    IF R_XNEGV = 'X'.
      perform bdc_field       using 'I_XNEGV'
                                  'X'.
    ENDIF.
    perform bdc_dynpro      using 'SAPMSSY0' '0120'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=BABA'.
    perform bdc_dynpro      using 'RMMMPERI' '1000'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/EE'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'I_VBUKR'.
    perform bdc_transaction using 'MMPV'.
    wa_tab2-v_code = wa_tab-bukrs.
    wa_tab2-v_fyear = wa_tab-lfgja.
    wa_tab2-v_period = wa_tab-lfmon + 1.
    wa_tab2-v_message1 = wa_tab-v_message.
    APPEND wa_tab2 to t_tab2.
    clear wa_tab2.
  ENDLOOP.
ENDFORM.                    " mmpv_tcode
I want that log message is to be displayed in the output.
Currently I am getting the output like this.
Report for posting MM period
         Company Code        Financial year                Period open for posting       Message
I want the message should e display under 'message' coloum.
         1306                2007                          12