i need a sample coding fun. module ' MRM_INVHEAD_MANY_READ'

[Former Member]

i am able to get the output from the function module, but i need to have RG_RBSTAT, which is an input paramenter for EXPORTING paramater T_RBSTAT.

Status range RG_RBSTAT needs to contain the following status '2'.

I promise to award points.

Regards,

anitha

[Former Member]

Hi,

REPORT ZSRITEST.

TYPE-POOLS: MRM.

DATA: lt_ivtyp TYPE MRM_TAB_IVTYP,
      lt_rbstat TYPE MRM_TAB_SORBSTAT,
      lt_rbkpv TYPE MRM_TAB_RBKPV,
      lwa_ivtyp LIKE LINE OF lt_ivtyp,
      lwa_rbstat LIKE LINE OF lt_rbstat,
      lwa_rbkpv LIKE LINE OF lt_rbkpv.

****Option if you want to fill some thing in T_IVTYP just uncomment the ****following code normally it is SPACE so no need to fill
*lwa_ivtyp = ''. "<your value here>.
*APPEND lwa_ivtyp TO lt_ivtyp.

lwa_rbstat-sign = 'I'.
lwa_rbstat-option = 'EQ'.
lwa_rbstat-low = '2'.
APPEND lwa_rbstat TO lt_rbstat.

CALL FUNCTION 'MRM_INVHEAD_MANY_READ'
  EXPORTING
    t_ivtyp               = lt_ivtyp
  tables
*   T_BLART               =
*   T_XBLNR               =
*   T_BKTXT               =
*   T_USNAM               =
*   T_ERFNAM              =
*   T_GJAHR               =
*   T_LIFNR               =
*   T_BUKRS               =
*   T_BELNR               =
*   T_BLDAT               =
*   T_BUDAT               =
*   T_REPART              =
    T_RBSTAT              = lt_rbstat
    t_rbkpv               = lt_rbkpv
 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.
ELSE.
  LOOP AT lt_rbkpv INTO lwa_rbkpv.
****Do your processing here if that is your requirement
  
  ENDLOOP.
ENDIF.

Hope this helps..

Sri

[RichHeilman]

Here is some sample code.

report zrich_0003 .

type-pools: mrm.

data: it_ivtyp type mrm_tab_ivtyp.

data: it_rbstat type  mrm_tab_sorbstat.
data: xt_rbstat like line of it_rbstat.
data: it_rbkpv type mrm_tab_rbkpv.
data: xt_rbkpv like line of it_rbkpv .


xt_rbstat-sign = 'I'.
xt_rbstat-option = 'EQ'.
xt_rbstat-low = '2'.
append xt_rbstat to it_rbstat.


call function 'MRM_INVHEAD_MANY_READ'
  exporting
    t_ivtyp               = it_ivtyp
  tables
*   T_BLART               =
*   T_XBLNR               =
*   T_BKTXT               =
*   T_USNAM               =
*   T_ERFNAM              =
*   T_GJAHR               =
*   T_LIFNR               =
*   T_BUKRS               =
*   T_BELNR               =
*   T_BLDAT               =
*   T_BUDAT               =
*   T_REPART              =
    t_rbstat              = it_rbstat
    t_rbkpv               = it_rbkpv
 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.

Regards,

Rich Heilman