SAP Reports / Programs | Logistics - General | Logistics Basic Data | Material Master(LO-MD-MM) SAP LO

RMMMGL00 SAP ABAP INCLUDE - General FORM Routines for MATERIAL_READ







RMMMGL00 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RMMMGL00 into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT RMMMGL00. "Basic submit
SUBMIT RMMMGL00 AND RETURN. "Return to original report after report execution complete
SUBMIT RMMMGL00 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: General FORM Routines for MATERIAL_READ


INCLUDES used within this REPORT RMMMGL00

INCLUDE LMATLF0D . " SPERREN_MARA_S
INCLUDE LMATLF0C . " SPERREN_MARA_S_ORIG
INCLUDE LMATLF0B . " ENTSPERREN_MARA_S
INCLUDE LMATLF0A . " ENTSPERREN_MARA_S_ORIG


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

DB_SET_ISOLATION_LEVEL CALL FUNCTION 'DB_SET_ISOLATION_LEVEL' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

EBEW_SINGLE_READ CALL FUNCTION 'EBEW_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR BWKEY = MTCOM-BWKEY BWTAR = MTCOM-BWTAR SOBKZ = MTCOM-SOBKZ VBELN = HVBELN POSNR = HPOSNR IMPORTING WEBEW = EBEW EXCEPTIONS WRONG_CALL = 1 NOT_FOUND = 2 OTHERS = 3.

EBEW_EXTEND CALL FUNCTION 'EBEW_EXTEND' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ XVPER = MTCOM-XVPER XVJAH = MTCOM-XVJAH IMPORTING REBEWH = MTPER-RMBEWH TABLES EBEW_TAB = WAEBEW EBEW_EXT_TAB = WAEBEW_EXT.

DB_RESET_ISOLATION_TO_DEFAULT CALL FUNCTION 'DB_RESET_ISOLATION_TO_DEFAULT' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

DB_SET_ISOLATION_LEVEL CALL FUNCTION 'DB_SET_ISOLATION_LEVEL' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

QBEW_SINGLE_READ CALL FUNCTION 'QBEW_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR BWKEY = MTCOM-BWKEY BWTAR = MTCOM-BWTAR SOBKZ = MTCOM-SOBKZ PSPNR = HPSPNR IMPORTING WQBEW = QBEW EXCEPTIONS WRONG_CALL = 1 NOT_FOUND = 2 OTHERS = 3.

QBEW_EXTEND CALL FUNCTION 'QBEW_EXTEND' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ XVPER = MTCOM-XVPER XVJAH = MTCOM-XVJAH IMPORTING RQBEWH = MTPER-RMBEWH TABLES QBEW_TAB = WAQBEW QBEW_EXT_TAB = WAQBEW_EXT.

DB_RESET_ISOLATION_TO_DEFAULT CALL FUNCTION 'DB_RESET_ISOLATION_TO_DEFAULT' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

DB_SET_ISOLATION_LEVEL CALL FUNCTION 'DB_SET_ISOLATION_LEVEL' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

OBEW_SINGLE_READ CALL FUNCTION 'OBEW_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR BWKEY = MTCOM-BWKEY BWTAR = MTCOM-BWTAR SOBKZ = MTCOM-SOBKZ LIFNR = MTCOM-LIFNR IMPORTING WOBEW = OBEW EXCEPTIONS WRONG_CALL = 1 NOT_FOUND = 2 OTHERS = 3.

OBEW_EXTEND CALL FUNCTION 'OBEW_EXTEND' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ XVPER = MTCOM-XVPER XVJAH = MTCOM-XVJAH IMPORTING ROBEWH = MTPER-RMBEWH TABLES OBEW_TAB = WAOBEW OBEW_EXT_TAB = WAOBEW_EXT.

DB_RESET_ISOLATION_TO_DEFAULT CALL FUNCTION 'DB_RESET_ISOLATION_TO_DEFAULT' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

MAKT_SINGLE_READ CALL FUNCTION 'MAKT_SINGLE_READ' EXPORTING * KZRFB = MTCOM-KZRFB "ch/4.0

MARA_SINGLE_READ CALL FUNCTION 'MARA_SINGLE_READ' EXPORTING * KZRFB = MTCOM-KZRFB "ch/4.0

MATERIAL_TABLE_PSTAT_GET CALL FUNCTION 'MATERIAL_TABLE_PSTAT_GET' EXPORTING IRMMG1 = RMMG1 TBNAM = T_MARA IMPORTING * PSTAT = MARA-PSTAT "ch zu 4.0

MARA_SINGLE_READ CALL FUNCTION 'MARA_SINGLE_READ' EXPORTING MATNR = OMATN IMPORTING WMARA = TMARA EXCEPTIONS LOCK_ON_MATERIAL = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MARC_SINGLE_READ CALL FUNCTION 'MARC_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS * SPERRMODUS = ' ' * STD_SPERRMODUS = ' ' IMPORTING WMARC = MARC EXCEPTIONS LOCK_ON_MARC = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MARC_SINGLE_READ CALL FUNCTION 'MARC_SINGLE_READ' " EXPORTING " KZRFB = MTCOM-KZRFB " MAXTZ = MTCOM-MAXTZ " MATNR = MTCOM-MATNR " WERKS = MTCOM-WERKS " IMPORTING " WMARC = MARC " EXCEPTIONS " LOCK_ON_MARC = 1 " LOCK_SYSTEM_ERROR = 2 " WRONG_CALL = 3 " NOT_FOUND = 4 " OTHERS = 5. "

MATERIAL_TABLE_PSTAT_GET





CALL FUNCTION 'MATERIAL_TABLE_PSTAT_GET' EXPORTING IRMMG1 = RMMG1 TBNAM = T_MARC IMPORTING * PSTAT = MARC-PSTAT "ch zu 4.0

MARD_SINGLE_READ CALL FUNCTION 'MARD_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS LGORT = MTCOM-LGORT IMPORTING WMARD = MARD EXCEPTIONS WRONG_CALL = 1 NOT_FOUND = 2 OTHERS = 3.

MARD_EXTEND CALL FUNCTION 'MARD_EXTEND' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ XVPER = MTCOM-XVPER IMPORTING RMARDH = MTPER-RMARDH TABLES MARD_TAB = WAMARD MARD_EXT_TAB = WAMARD_EXT.

MARD_EXTEND_STFLAG CALL FUNCTION 'MARD_EXTEND_STFLAG' "ch/4.6c

MATERIAL_TABLE_PSTAT_GET CALL FUNCTION 'MATERIAL_TABLE_PSTAT_GET' EXPORTING IRMMG1 = RMMG1 TBNAM = T_MARD IMPORTING * PSTAT = MARD-PSTAT "ch zu 4.0

DB_SET_ISOLATION_LEVEL CALL FUNCTION 'DB_SET_ISOLATION_LEVEL' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

MBEW_SINGLE_READ CALL FUNCTION 'MBEW_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR BWKEY = MTCOM-BWKEY BWTAR = HBWTAR * SPERRMODUS = ' ' * STD_SPERRMODUS = ' ' IMPORTING WMBEW = MBEW EXCEPTIONS LOCK_ON_MBEW = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MBEW_SINGLE_READ CALL FUNCTION 'MBEW_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR BWKEY = MTCOM-BWKEY BWTAR = MTCOM-BWTAR * SPERRMODUS = ' ' * STD_SPERRMODUS = ' ' IMPORTING WMBEW = MBEW EXCEPTIONS LOCK_ON_MBEW = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MBEW_EXTEND CALL FUNCTION 'MBEW_EXTEND' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ XVPER = MTCOM-XVPER XVVPR = MTCOM-XVVPR XVJAH = MTCOM-XVJAH XVVJA = MTCOM-XVVJA IMPORTING RMBEWH = MTPER-RMBEWH TABLES MBEW_TAB = WAMBEW MBEW_EXT_TAB = WAMBEW_EXT.

MATERIAL_TABLE_PSTAT_GET CALL FUNCTION 'MATERIAL_TABLE_PSTAT_GET' EXPORTING IRMMG1 = RMMG1 TBNAM = T_MBEW IMPORTING * PSTAT = MBEW-PSTAT "ch zu 4.0

DB_RESET_ISOLATION_TO_DEFAULT CALL FUNCTION 'DB_RESET_ISOLATION_TO_DEFAULT' "Sperrkonzept bei EXCEPTIONS "Warenbewegungen OTHERS = 1.

MVKE_SINGLE_READ CALL FUNCTION 'MVKE_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR VKORG = MTCOM-VKORG VTWEG = MTCOM-VTWEG IMPORTING WMVKE = MVKE EXCEPTIONS LOCK_ON_MVKE = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

FIND_REF_PLANT CALL FUNCTION 'FIND_REF_PLANT' EXPORTING P_WERKS = MTCOM-WERKS * P_VKORG = * P_VTWEG = * KZ_READ_T001W = ' ' IMPORTING P_VLGW1 = VLGW1 P_VLGW2 = VLGW2 P_KZREFPLANT = P_KZREFPLANT "ch/4.5b

DEQUEUE_EMMARCS CALL FUNCTION 'DEQUEUE_EMMARCS' EXPORTING MATNR = MTCOM-MATNR WERKS = SPERR_WERK.

ENQUEUE_EMMARCS CALL FUNCTION 'ENQUEUE_EMMARCS' EXPORTING MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS EXCEPTIONS FOREIGN_LOCK = 2 SYSTEM_FAILURE = 3.

DEQUEUE_EMMARCE CALL FUNCTION 'DEQUEUE_EMMARCE' EXPORTING MATNR = MTCOM-MATNR WERKS = SPERR_WERK.

ENQUEUE_EMMARCE CALL FUNCTION 'ENQUEUE_EMMARCE' EXPORTING MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS EXCEPTIONS FOREIGN_LOCK = 2 SYSTEM_FAILURE = 3.

MARC_SINGLE_READ CALL FUNCTION 'MARC_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS * SPERRMODUS = ' ' * STD_SPERRMODUS = ' ' IMPORTING WMARC = MARC EXCEPTIONS LOCK_ON_MARC = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MARC_SINGLE_READ CALL FUNCTION 'MARC_SINGLE_READ' EXPORTING KZRFB = MTCOM-KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR WERKS = MTCOM-WERKS * SPERRMODUS = ' ' * STD_SPERRMODUS = ' ' IMPORTING WMARC = MARC EXCEPTIONS LOCK_ON_MARC = 1 LOCK_SYSTEM_ERROR = 2 WRONG_CALL = 3 NOT_FOUND = 4 OTHERS = 5.

MARA_SINGLE_READ CALL FUNCTION 'MARA_SINGLE_READ' EXPORTING * KZRFB = MTCOM-KZRFB KZRFB = MARA_KZRFB MAXTZ = MTCOM-MAXTZ MATNR = MTCOM-MATNR IMPORTING WMARA = MARA EXCEPTIONS OTHERS = 5.






Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name RMMMGL00 or its description.