Skip to Content
0
Former Member
Jan 13, 2006 at 06:18 AM

how to write this fun. module 'MRM_IVHEAD_MANY_READ' in a subroutine

14 Views

i want to write this function within a subroutine. i don't know how to pass the parameter for I_TAB_IVTYP etc. Can u show me the coding that has uses the subroutine that has something like this.

perform ........

LOOP AT I_TAB_RBKPV_A INTO WA_TAB_RBKPV_A.

WRITE: / WA_TAB_RBKPV_A-BELNR .

ENDLOOP.

form .........

CALL FUNCTION 'MRM_INVHEAD_MANY_READ'

EXPORTING

T_IVTYP = I_TAB_IVTYP

TABLES

T_BLART = S_BLART

T_XBLNR = S_XBLNR

T_BKTXT = S_BKTXT

T_USNAM = S_USNAM

  • T_ERFNAM =

T_GJAHR = S_GJAHR

T_LIFNR = S_LIFNR

T_BUKRS = S_BUKRS

T_BELNR = S_BELNR

T_BLDAT = S_BLDAT

T_BUDAT = S_BUDAT

  • T_REPART =

  • T_RBSTAT = L_RG_RBSTAT

T_RBKPV = I_TAB_RBKPV_A

  • EXCEPTIONS

  • ENTRY_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.

endform.

promise to reward points.

Regards,

anitha