MP53LF40 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 MP53LF40 into the relevant SAP transactions such as SE38 or SE80
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.
Title: Routines for Locking/Unlocking
No INCLUDES are used within this REPORT code!
No SAP DATABASE tables are accessed within this REPORT code!
ENQUEUE_EPWUPD CALL FUNCTION 'ENQUEUE_EPWUPD' EXPORTING RELID = RELID SRTFD = I_SRTFD EXCEPTIONS FOREIGN_LOCK = 4 SYSTEM_FAILURE = 8.
ENQUEUE_EPPRELE CALL FUNCTION 'ENQUEUE_EPPRELE' EXPORTING PERNR = PERNR EXCEPTIONS FOREIGN_LOCK = 2 SYSTEM_FAILURE = 3.
ENQUEUE_EPWUPD CALL FUNCTION 'ENQUEUE_EPWUPD' EXPORTING RELID = I_LOCKTAB-RELID SRTFD = I_LOCKTAB-SRTFD EXCEPTIONS FOREIGN_LOCK = 4 SYSTEM_FAILURE = 8.
DEQUEUE_EPWUPD CALL FUNCTION 'DEQUEUE_EPWUPD' EXPORTING RELID = I_LOCKTAB-RELID SRTFD = I_LOCKTAB-SRTFD.
ENQUEUE_EPLSHR * CALL FUNCTION 'ENQUEUE_EPLSHR' "die gesamte Tab. sperr. "ALRK033227
ENQUEUE_E_TABLE CALL FUNCTION 'ENQUEUE_E_TABLE' "ALRK033227 EXPORTING "ALRK033227 TABNAME = 'LSHR' "ALRK033227 VARKEY = VARKEY "ALRK033227 EXCEPTIONS "ALRK033227 FOREIGN_LOCK = 4 "ALRK033227 SYSTEM_FAILURE = 8. "ALRK033227
ENQUEUE_EPLSHR * CALL FUNCTION 'ENQUEUE_EPLSHR' "ALRK033227 * EXPORTING "ALRK033227 ** rueck = temp-rueck "ALRK022936"ALRK033227 ** rmzhl = temp-rmzhl "P30K026736"ALRK033227 * pdsnr = temp-pdsnr "ALRK022936"ALRK033227 * EXCEPTIONS "ALRK033227 * foreign_lock = 4 "ALRK033227 * system_failure = 8. "ALRK033227
ENQUEUE_E_TABLE CALL FUNCTION 'ENQUEUE_E_TABLE' "ALRK033227 EXPORTING "ALRK033227 TABNAME = 'LSHR' "ALRK033227 VARKEY = VARKEY "ALRK033227 EXCEPTIONS "ALRK033227 FOREIGN_LOCK = 4 "ALRK033227 SYSTEM_FAILURE = 8. "ALRK033227
DEQUEUE_EPLSHR * CALL FUNCTION 'DEQUEUE_EPLSHR' "ALRK033227 * EXPORTING "ALRK033227 ** rueck = temp-rueck. "ALRK022936"ALRK033227
DEQUEUE_E_TABLE CALL FUNCTION 'DEQUEUE_E_TABLE' "ALRK033227 EXPORTING "ALRK033227 TABNAME = 'LSHR' "ALRK033227 VARKEY = VARKEY. "ALRK033227
DEQUEUE_ALL * call function 'DEQUEUE_ALL'. "P30K095268
DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL' "P30K095268 EXPORTING _SYNCHRON = 'X'. "P30K095268
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.