CALL Transaction 'MIRO' return error messages in MESSTAB

Question

Dear All,
We have created a test function module to call transaction 'MIRO', the function works fine on one server but the same give error messages on other server.
The messages returned by call transaction is as follows
======================================================
Messages retunrned by 'CALL Transaction MIRO' as on server I (success)
======================================================
1 MIRO SAPLMR1M 6000 I E F5 096 1,002,010.00 INR Advance to Vendors CTU
2 MIRO SAPLMR1M 6000 S E F5A 034 BusA CTU
3 MIRO SAPLMR1M 6000 S E M8 060 5200000423 CTU
======================================================
Messages retunrned by 'CALL Transaction MIRO' as on server II (error)
======================================================
1 MIRO SAPLMR1M 6000 S E F5 480 RE Doc. Header Text CTU
2 MIRO SAPLMR1M 6000 I E M8 584 CTU
3 MIRO SAPLMR1M 6000 S E F5 480 RE Doc. Header Text CTU
4 MIRO SAPLMR1M 6000 S E 7Q 333 1008473 CTU
5 MIRO SAPLMR1M 6000 E E F5 480 RE Doc. Header Text CTU
In fact, when the MIRO screen is displayed to user and user enter the data in MIRO and simulate, there is no error.
But when we post the transaction the screen is exited without displaying the invoice document number.
Where as if we call MIRO directly, it works fine without any error.
Kindly help.
Regards
Ruhi Hira

Answer 1

The sample code is
FUNCTION Z_TEST_MIRO.
""Local Interface:
*"  EXPORTING
*"     REFERENCE(ERRCODE) TYPE  N
*"     REFERENCE(INVOICENUMBER) TYPE  C
*"     REFERENCE(OLDINVOICENUMBER) TYPE  C
    DATA: BEGIN OF tran_opts,
        dismode   TYPE ctu_params-dismode VALUE 'A',
        updmode   TYPE ctu_params-updmode VALUE 'S',
        cattmode  TYPE ctu_params-cattmode,
        defsize   TYPE ctu_params-defsize ,
        racommit  TYPE ctu_params-racommit,
        nobinpt   TYPE ctu_params-nobinpt VALUE 'X',
        nobiend   TYPE ctu_params-nobiend,
    END OF tran_opts.
    DATA: BEGIN OF MESSTAB OCCURS 10.
        INCLUDE STRUCTURE BDCMSGCOLL.
    DATA: END OF MESSTAB.
    ERRCODE = 0.
    GET PARAMETER ID 'RBN' FIELD OldInvoiceNumber.
    DATA BEGIN OF BDCDATA OCCURS 1.
        INCLUDE STRUCTURE BDCDATA.
    DATA END OF BDCDATA.
    CALL TRANSACTION 'MIRO' USING BDCDATA OPTIONS FROM tran_opts MESSAGES INTO MESSTAB.
    LOOP AT MESSTAB.
        WRITE: / MESSTAB-TCODE,
        MESSTAB-DYNAME,
        MESSTAB-DYNUMB,
        MESSTAB-MSGTYP,
        MESSTAB-MSGSPRA,
        MESSTAB-MSGID,
        MESSTAB-MSGNR,
        MESSTAB-msgv1,
        MESSTAB-msgv2,
        MESSTAB-msgv3,
        MESSTAB-msgv4.
        IF MESSTAB-MSGTYP = 'S' AND MESSTAB-msgid = 'M8' AND MESSTAB-msgnr = '060'.
            invoicenumber = messtab-msgv1.
        ENDIF.
    ENDLOOP.
    IF OldInvoiceNumber = InvoiceNumber OR InvoiceNumber IS INITIAL.
        ERRCODE = 1.
    ELSE.
        ERRCODE = 0.
    ENDIF.
    REFRESH BDCDATA.
ENDFUNCTION.