I need to get the info Message generated by the Called Program

Question

Hi All,
I am calling an standard SAP program from my own program as follows:
    SUBMIT RFBIBL00 WITH DS_NAME = V_FILE
                    WITH CALLMODE = 'C'
                    with max_comm = '1000'
                    with xinf = 'X'
                    AND RETURN.
As soon as the called program parks invoice and finish execution, it generates an info message at the status bar but I can't capture this message which contains the newly created invoice No.
I have tried to call the above program with xlog = 'X' option which prints the info messages as a log report after the programs finishes, but I am still not able to capture that log as well, although I have tried with the EXPORTING LIST TO MEMORY option while submitting the program but it just prints the log as report without sending it to memory.
Please let me know if there is some way to do it.
Regards,

Answer 1

Hi Athar,
1. MESSAGES cannot be CAPTURED
   using submit
2. For that CALL Transaction
            MESSAGES Into Itab
   is required.
3. For your requirement,
   make a new TCODE for this program
   eg. ZR0   (ZR zero)
4. Fill the bdc table
5. use this code (just copy paste)
   make modifiction as per ur requirement.
6.
REPORT abc.
DATA
DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA: l_mstring(480).
TABLES : t100.
FILL DATA
PERFORM bdcfill USING :
'X' 'RFBIBL00' '1000'
, '' 'CALLMODE' 'C'
, '' 'XLOG' 'X'
, '' 'BDC_OKCODE' '=ONLI'
TRANSACTION
CALL TRANSACTION 'ZR0'
USING bdcdata
MODE 'N'
MESSAGES INTO messtab.
PERFORM showmsg.
BDC FORM
FORM showmsg.
MESSAGES
  LOOP AT messtab.
    SELECT SINGLE * FROM t100 WHERE sprsl = messtab-msgspra
                              AND   arbgb = messtab-msgid
                              AND   msgnr = messtab-msgnr.
    IF sy-subrc = 0.
      l_mstring = t100-text.
      IF l_mstring CS '&1'.
        REPLACE '&1' WITH messtab-msgv1 INTO l_mstring.
        REPLACE '&2' WITH messtab-msgv2 INTO l_mstring.
        REPLACE '&3' WITH messtab-msgv3 INTO l_mstring.
        REPLACE '&4' WITH messtab-msgv4 INTO l_mstring.
      ELSE.
        REPLACE '&' WITH messtab-msgv1 INTO l_mstring.
        REPLACE '&' WITH messtab-msgv2 INTO l_mstring.
        REPLACE '&' WITH messtab-msgv3 INTO l_mstring.
        REPLACE '&' WITH messtab-msgv4 INTO l_mstring.
      ENDIF.
      CONDENSE l_mstring.
      WRITE: / messtab-msgtyp, l_mstring.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "SHOWMSG
BDC FORM
FORM bdcfill USING a b c.
  CLEAR bdcdata.
  IF a = 'X'.
    bdcdata-program = b.
    bdcdata-dynpro = c.
    bdcdata-dynbegin  = 'X'.
  ELSE.
    bdcdata-fnam = b.
    bdcdata-fval = c.
  ENDIF.
  APPEND bdcdata.
ENDFORM.                    "bdcfill
I hope it helps.
regards,
amit m.