SAP CS_CL_MBM_LOCK Function Module for NOTRANSL: Setzen von Sperren auf Material/Werk/Verwendung (Anlegen)









CS_CL_MBM_LOCK is a standard cs cl mbm lock SAP function module available within SAP R/3 or S/4 Hana systems, depending on your version and release level. It is used for NOTRANSL: Setzen von Sperren auf Material/Werk/Verwendung (Anlegen) processing and below is the pattern details for this FM, showing its interface including any import and export parameters, exceptions etc. there is also a full "cut and paste" ABAP pattern code example, along with implementation ABAP coding, documentation and contribution comments specific to this or related objects.


See here to view full function module documentation and code listing for cs cl mbm lock FM, simply by entering the name CS_CL_MBM_LOCK into the relevant SAP transaction such as SE37 or SE38.

Function Group: CSCL_BOM
Program Name: SAPLCSCL_BOM
Main Program: SAPLCSCL_BOM
Appliation area: C
Release date: N/A
Mode(Normal, Remote etc): Normal Function Module
Update:



Function CS_CL_MBM_LOCK pattern details

In-order to call this FM within your sap programs, simply using the below ABAP pattern details to trigger the function call...or see the full ABAP code listing at the end of this article. You can simply cut and paste this code into your ABAP progrom as it is, including variable declarations.
CALL FUNCTION 'CS_CL_MBM_LOCK'"NOTRANSL: Setzen von Sperren auf Material/Werk/Verwendung (Anlegen)
EXPORTING
* MODE_MBM_CLASS_LOCK = 'E' "Lock mode
* _WAIT = ' ' "
* _COLLECT = ' ' "Only collect locks initially?
* MANDT = SY-MANDT "Client
* MATNR = "Material Number
* WERKS = "Plant
* STLAN = "BOM Usage
* X_MATNR = ' ' "
* X_WERKS = 'X' "
* X_STLAN = ' ' "
* _SCOPE = '2' "

IMPORTING
E_NAME = "ABAP System Field: Message Variable

EXCEPTIONS
FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2
.



IMPORTING Parameters details for CS_CL_MBM_LOCK

MODE_MBM_CLASS_LOCK - Lock mode

Data type: DD26E-ENQMODE
Default: 'E'
Optional: Yes
Call by Reference: No ( called with pass by value option)

_WAIT -

Data type:
Default: SPACE
Optional: Yes
Call by Reference: No ( called with pass by value option)

_COLLECT - Only collect locks initially?

Data type: DDENQ_LIKE-COLLECT
Default: ' '
Optional: Yes
Call by Reference: No ( called with pass by value option)

MANDT - Client

Data type: MBM_CLASS_DATA-MANDT
Default: SY-MANDT
Optional: Yes
Call by Reference: No ( called with pass by value option)

MATNR - Material Number

Data type: MBM_CLASS_DATA-MATNR
Optional: Yes
Call by Reference: No ( called with pass by value option)

WERKS - Plant

Data type: MBM_CLASS_DATA-WERKS
Optional: Yes
Call by Reference: No ( called with pass by value option)

STLAN - BOM Usage

Data type: MBM_CLASS_DATA-STLAN
Optional: Yes
Call by Reference: No ( called with pass by value option)

X_MATNR -

Data type:
Default: SPACE
Optional: Yes
Call by Reference: No ( called with pass by value option)

X_WERKS -

Data type:
Default: 'X'
Optional: Yes
Call by Reference: No ( called with pass by value option)

X_STLAN -

Data type:
Default: SPACE
Optional: Yes
Call by Reference: No ( called with pass by value option)

_SCOPE -

Data type:
Default: '2'
Optional: Yes
Call by Reference: No ( called with pass by value option)

EXPORTING Parameters details for CS_CL_MBM_LOCK

E_NAME - ABAP System Field: Message Variable

Data type: SY-MSGV1
Optional: No
Call by Reference: Yes

EXCEPTIONS details

FOREIGN_LOCK -

Data type:
Optional: No
Call by Reference: No ( called with pass by value option)

SYSTEM_FAILURE -

Data type:
Optional: No
Call by Reference: No ( called with pass by value option)

Copy and paste ABAP code example for CS_CL_MBM_LOCK Function Module

The ABAP code below is a full code listing to execute function module POPUP_TO_CONFIRM including all data declarations. The code uses the original data declarations rather than the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the newer method of declaring data variables on the fly. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8), which i why i have stuck to the origianl for this example.

DATA:
lv_e_name  TYPE SY-MSGV1, "   
lv_foreign_lock  TYPE SY, "   
lv_mode_mbm_class_lock  TYPE DD26E-ENQMODE, "   'E'
lv__wait  TYPE DD26E, "   SPACE
lv__collect  TYPE DDENQ_LIKE-COLLECT, "   ' '
lv_mandt  TYPE MBM_CLASS_DATA-MANDT, "   SY-MANDT
lv_system_failure  TYPE MBM_CLASS_DATA, "   
lv_matnr  TYPE MBM_CLASS_DATA-MATNR, "   
lv_werks  TYPE MBM_CLASS_DATA-WERKS, "   
lv_stlan  TYPE MBM_CLASS_DATA-STLAN, "   
lv_x_matnr  TYPE MBM_CLASS_DATA, "   SPACE
lv_x_werks  TYPE MBM_CLASS_DATA, "   'X'
lv_x_stlan  TYPE MBM_CLASS_DATA, "   SPACE
lv__scope  TYPE MBM_CLASS_DATA. "   '2'

  CALL FUNCTION 'CS_CL_MBM_LOCK'  "NOTRANSL: Setzen von Sperren auf Material/Werk/Verwendung (Anlegen)
    EXPORTING
         MODE_MBM_CLASS_LOCK = lv_mode_mbm_class_lock
         _WAIT = lv__wait
         _COLLECT = lv__collect
         MANDT = lv_mandt
         MATNR = lv_matnr
         WERKS = lv_werks
         STLAN = lv_stlan
         X_MATNR = lv_x_matnr
         X_WERKS = lv_x_werks
         X_STLAN = lv_x_stlan
         _SCOPE = lv__scope
    IMPORTING
         E_NAME = lv_e_name
    EXCEPTIONS
        FOREIGN_LOCK = 1
        SYSTEM_FAILURE = 2
. " CS_CL_MBM_LOCK




ABAP code using 7.40 inline data declarations to call FM CS_CL_MBM_LOCK

The below ABAP code uses the newer in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. Please note some of the newer syntax below, such as the @DATA is not available until 4.70 EHP 8.

"SELECT single MSGV1 FROM SY INTO @DATA(ld_e_name).
 
 
"SELECT single ENQMODE FROM DD26E INTO @DATA(ld_mode_mbm_class_lock).
DATA(ld_mode_mbm_class_lock) = 'E'.
 
DATA(ld__wait) = ' '.
 
"SELECT single COLLECT FROM DDENQ_LIKE INTO @DATA(ld__collect).
DATA(ld__collect) = ' '.
 
"SELECT single MANDT FROM MBM_CLASS_DATA INTO @DATA(ld_mandt).
DATA(ld_mandt) = SY-MANDT.
 
 
"SELECT single MATNR FROM MBM_CLASS_DATA INTO @DATA(ld_matnr).
 
"SELECT single WERKS FROM MBM_CLASS_DATA INTO @DATA(ld_werks).
 
"SELECT single STLAN FROM MBM_CLASS_DATA INTO @DATA(ld_stlan).
 
DATA(ld_x_matnr) = ' '.
 
DATA(ld_x_werks) = 'X'.
 
DATA(ld_x_stlan) = ' '.
 
DATA(ld__scope) = '2'.
 


Search for further information about these or an SAP related objects



Comments on this SAP object

What made you want to lookup this SAP object? Please tell us what you were looking for and anything you would like to be included on this page!