SAP ENQUEUE_EHRFPM_PCS Function Module for Request lock for object EHRFPM_PCS









ENQUEUE_EHRFPM_PCS is a standard enqueue ehrfpm pcs SAP function module available within SAP R/3 or S/4 Hana systems, depending on your version and release level. It is used for Request lock for object EHRFPM_PCS 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 enqueue ehrfpm pcs FM, simply by entering the name ENQUEUE_EHRFPM_PCS into the relevant SAP transaction such as SE37 or SE38.

Function Group: /1BCDWBEN/PEN0003
Program Name: /1BCDWBEN/SAPLPEN0003
Main Program:
Appliation area:
Release date: N/A
Mode(Normal, Remote etc): Normal Function Module
Update:



Function ENQUEUE_EHRFPM_PCS 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 'ENQUEUE_EHRFPM_PCS'"Request lock for object EHRFPM_PCS
  EXPORTING
*  MODE_HRFPM_DIFFERENCE = 'E' "Lock mode for table HRFPM_DIFFERENCE
*  RUNID =  "09th enqueue argument
*  X_PLVAR = ' ' "Fill argument 02 with initial value?
*  X_OTYPE = ' ' "Fill argument 03 with initial value?
*  X_OBJID = ' ' "Fill argument 04 with initial value?
*  X_ENC_TYPE = ' ' "Fill argument 05 with initial value?
*  X_DATBI = ' ' "Fill argument 06 with initial value?
*  X_ENDDA_KEY = ' ' "Fill argument 07 with initial value?
*  X_FPM_POSNR = ' ' "Fill argument 08 with initial value?
*  X_RUNID = ' ' "Fill argument 09 with initial value?
*  _SCOPE = '2' "
*  MANDT = SY-MANDT "01th enqueue argument
*  _WAIT = ' ' "
*  _COLLECT = ' ' "Initially only collect lock
*  PLVAR =  "02th enqueue argument
*  OTYPE =  "03th enqueue argument
*  OBJID =  "04th enqueue argument
*  ENC_TYPE =  "05th enqueue argument
*  DATBI =  "06th enqueue argument
*  ENDDA_KEY =  "07th enqueue argument
*  FPM_POSNR =  "08th enqueue argument

EXCEPTIONS
   FOREIGN_LOCK = 1    SYSTEM_FAILURE = 2
.



IMPORTING Parameters details for ENQUEUE_EHRFPM_PCS

MODE_HRFPM_DIFFERENCE - Lock mode for table HRFPM_DIFFERENCE

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

RUNID - 09th enqueue argument

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

X_PLVAR - Fill argument 02 with initial value?

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

X_OTYPE - Fill argument 03 with initial value?

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

X_OBJID - Fill argument 04 with initial value?

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

X_ENC_TYPE - Fill argument 05 with initial value?

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

X_DATBI - Fill argument 06 with initial value?

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

X_ENDDA_KEY - Fill argument 07 with initial value?

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

X_FPM_POSNR - Fill argument 08 with initial value?

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

X_RUNID - Fill argument 09 with initial value?

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)

MANDT - 01th enqueue argument

Data type: HRFPM_DIFFERENCE-MANDT
Default: SY-MANDT
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 - Initially only collect lock

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

PLVAR - 02th enqueue argument

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

OTYPE - 03th enqueue argument

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

OBJID - 04th enqueue argument

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

ENC_TYPE - 05th enqueue argument

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

DATBI - 06th enqueue argument

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

ENDDA_KEY - 07th enqueue argument

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

FPM_POSNR - 08th enqueue argument

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

EXCEPTIONS details

FOREIGN_LOCK - Object already locked

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

SYSTEM_FAILURE - Internal error from enqueue server

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

Copy and paste ABAP code example for ENQUEUE_EHRFPM_PCS 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_foreign_lock  TYPE STRING, "   
lv_mode_hrfpm_difference  TYPE ENQMODE, "   'E'
lv_runid  TYPE HRFPM_DIFFERENCE-RUNID, "   
lv_x_plvar  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_otype  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_objid  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_enc_type  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_datbi  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_endda_key  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_fpm_posnr  TYPE HRFPM_DIFFERENCE, "   SPACE
lv_x_runid  TYPE HRFPM_DIFFERENCE, "   SPACE
lv__scope  TYPE HRFPM_DIFFERENCE, "   '2'
lv_mandt  TYPE HRFPM_DIFFERENCE-MANDT, "   SY-MANDT
lv_system_failure  TYPE HRFPM_DIFFERENCE, "   
lv__wait  TYPE HRFPM_DIFFERENCE, "   SPACE
lv__collect  TYPE DDENQCOLL, "   ' '
lv_plvar  TYPE HRFPM_DIFFERENCE-PLVAR, "   
lv_otype  TYPE HRFPM_DIFFERENCE-OTYPE, "   
lv_objid  TYPE HRFPM_DIFFERENCE-OBJID, "   
lv_enc_type  TYPE HRFPM_DIFFERENCE-ENC_TYPE, "   
lv_datbi  TYPE HRFPM_DIFFERENCE-DATBI, "   
lv_endda_key  TYPE HRFPM_DIFFERENCE-ENDDA_KEY, "   
lv_fpm_posnr  TYPE HRFPM_DIFFERENCE-FPM_POSNR. "   

  CALL FUNCTION 'ENQUEUE_EHRFPM_PCS'  "Request lock for object EHRFPM_PCS
    EXPORTING
         MODE_HRFPM_DIFFERENCE = lv_mode_hrfpm_difference
         RUNID = lv_runid
         X_PLVAR = lv_x_plvar
         X_OTYPE = lv_x_otype
         X_OBJID = lv_x_objid
         X_ENC_TYPE = lv_x_enc_type
         X_DATBI = lv_x_datbi
         X_ENDDA_KEY = lv_x_endda_key
         X_FPM_POSNR = lv_x_fpm_posnr
         X_RUNID = lv_x_runid
         _SCOPE = lv__scope
         MANDT = lv_mandt
         _WAIT = lv__wait
         _COLLECT = lv__collect
         PLVAR = lv_plvar
         OTYPE = lv_otype
         OBJID = lv_objid
         ENC_TYPE = lv_enc_type
         DATBI = lv_datbi
         ENDDA_KEY = lv_endda_key
         FPM_POSNR = lv_fpm_posnr
    EXCEPTIONS
        FOREIGN_LOCK = 1
        SYSTEM_FAILURE = 2
. " ENQUEUE_EHRFPM_PCS




ABAP code using 7.40 inline data declarations to call FM ENQUEUE_EHRFPM_PCS

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.

 
DATA(ld_mode_hrfpm_difference) = 'E'.
 
"SELECT single RUNID FROM HRFPM_DIFFERENCE INTO @DATA(ld_runid).
 
DATA(ld_x_plvar) = ' '.
 
DATA(ld_x_otype) = ' '.
 
DATA(ld_x_objid) = ' '.
 
DATA(ld_x_enc_type) = ' '.
 
DATA(ld_x_datbi) = ' '.
 
DATA(ld_x_endda_key) = ' '.
 
DATA(ld_x_fpm_posnr) = ' '.
 
DATA(ld_x_runid) = ' '.
 
DATA(ld__scope) = '2'.
 
"SELECT single MANDT FROM HRFPM_DIFFERENCE INTO @DATA(ld_mandt).
DATA(ld_mandt) = SY-MANDT.
 
 
DATA(ld__wait) = ' '.
 
DATA(ld__collect) = ' '.
 
"SELECT single PLVAR FROM HRFPM_DIFFERENCE INTO @DATA(ld_plvar).
 
"SELECT single OTYPE FROM HRFPM_DIFFERENCE INTO @DATA(ld_otype).
 
"SELECT single OBJID FROM HRFPM_DIFFERENCE INTO @DATA(ld_objid).
 
"SELECT single ENC_TYPE FROM HRFPM_DIFFERENCE INTO @DATA(ld_enc_type).
 
"SELECT single DATBI FROM HRFPM_DIFFERENCE INTO @DATA(ld_datbi).
 
"SELECT single ENDDA_KEY FROM HRFPM_DIFFERENCE INTO @DATA(ld_endda_key).
 
"SELECT single FPM_POSNR FROM HRFPM_DIFFERENCE INTO @DATA(ld_fpm_posnr).
 


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!