How to get a message from call transaction in RFC call

Question

Hello :
I would like to ask one favor i make a 2 call transaction in a RFC funtion when i make the first CALL TRANSACTION using te next statement.
    CALL TRANSACTION 'F-43'
      USING bdcdata MESSAGES INTO messtab2 OPTIONS FROM l_fromopt.
I recive the number of the document in the field  sy-msgv1 from the message table messtab2 , then i make the second  CALL TRANSACTION  and i am waiting to get the other number of the document from the table messtab3  using the next statatement.
     CALL TRANSACTION 'FIBLFFP'
        USING bdcdata MESSAGES INTO messtab3 OPTIONS FROM l_fromopt. but now the table messtab3 don't send the number of document , and i need to get the number of this document for making a REFERENCE.
thanks a lot for you help

Answer 1

FORM bdc_transaction USING tcode TYPE tcode.
  DATA: l_mstring(480).
  DATA: l_subrc  TYPE sy-subrc,
        lwa_t100 TYPE t100.
  DATA : gv_ctumode TYPE ctu_params-dismode VALUE 'A'.
call transaction using
BREAK-POINT.
  REFRESH gt_messtab.
  CLEAR gwa_messtab.
  gv_ctumode = gc_ctumode.
  CALL TRANSACTION tcode USING gi_bdcdata                "#EC CI_CALLTA
                   MODE   gv_ctumode
                   UPDATE gc_cupdate
                   MESSAGES INTO gt_messtab.
  l_subrc = sy-subrc.
  IF sy-subrc <> 0.
    WRITE: / 'CALL_TRANSACTION',
             tcode,
             'returncode:',
             l_subrc,
             'RECORD:',
             sy-index.
    LOOP AT gt_messtab INTO gwa_messtab.
      CLEAR lwa_t100.
      SELECT SINGLE * FROM t100 INTO lwa_t100  WHERE sprsl = gwa_messtab-msgspra
                                AND            arbgb = gwa_messtab-msgid
                                AND            msgnr = gwa_messtab-msgnr.
      IF sy-subrc = 0.
        l_mstring = lwa_t100-text.
        IF l_mstring CS '&1'.
          REPLACE '&1' WITH gwa_messtab-msgv1 INTO l_mstring.
          REPLACE '&2' WITH gwa_messtab-msgv2 INTO l_mstring.
          REPLACE '&3' WITH gwa_messtab-msgv3 INTO l_mstring.
          REPLACE '&4' WITH gwa_messtab-msgv4 INTO l_mstring.
        ELSE.
          REPLACE '&' WITH gwa_messtab-msgv1 INTO l_mstring.
          REPLACE '&' WITH gwa_messtab-msgv2 INTO l_mstring.
          REPLACE '&' WITH gwa_messtab-msgv3 INTO l_mstring.
          REPLACE '&' WITH gwa_messtab-msgv4 INTO l_mstring.
        ENDIF.
        CALL FUNCTION 'FORMAT_MESSAGE'
          EXPORTING
            id        = gwa_messtab-msgid
            lang      = sy-langu
            no        = gwa_messtab-msgnr
            v1        = gwa_messtab-msgv1
            v2        = gwa_messtab-msgv2
            v3        = gwa_messtab-msgv3
            v4        = gwa_messtab-msgv4
          IMPORTING
            msg       = l_mstring
          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.
        ENDIF.
        CONDENSE l_mstring.
        IF NOT l_mstring IS INITIAL.
          WRITE: / gwa_messtab-msgtyp, l_mstring(250).
          MESSAGE l_mstring TYPE 'I'.
        ENDIF.
      ELSE.
        WRITE: / gwa_messtab.
      ENDIF.
    ENDLOOP.
    SKIP.
  ENDIF.