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-ENQMODEDefault: '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-COLLECTDefault: ' '
Optional: Yes
Call by Reference: No ( called with pass by value option)
MANDT - Client
Data type: MBM_CLASS_DATA-MANDTDefault: SY-MANDT
Optional: Yes
Call by Reference: No ( called with pass by value option)
MATNR - Material Number
Data type: MBM_CLASS_DATA-MATNROptional: Yes
Call by Reference: No ( called with pass by value option)
WERKS - Plant
Data type: MBM_CLASS_DATA-WERKSOptional: Yes
Call by Reference: No ( called with pass by value option)
STLAN - BOM Usage
Data type: MBM_CLASS_DATA-STLANOptional: 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-MSGV1Optional: 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