DEQUEUE_ENQ_TSP02F SAP Function module - Release lock on object ENQ_TSP02F

DEQUEUE_ENQ_TSP02F is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name DEQUEUE_ENQ_TSP02F into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: DWBEN/SAPLSEN0002
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM DEQUEUE_ENQ_TSP02F - DEQUEUE ENQ TSP02F

CALL FUNCTION 'DEQUEUE_ENQ_TSP02F' "Release lock on object ENQ_TSP02F
* EXPORTING
*   mode_tsp02f = 'E'           " enqmode       Lock mode for table TSP02F
*   pjident =                   " tsp02f-pjident  01th enqueue argument
*   pjnumber =                  " tsp02f-pjnumber  02th enqueue argument
*   owner =                     " tsp02f-owner  03th enqueue argument
*   client = SY-MANDT           " tsp02f-client  04th enqueue argument
*   terminal =                  " tsp02f-terminal  05th enqueue argument
*   x_pjident = SPACE           "               Fill argument 01 with initial value?
*   x_pjnumber = SPACE          "               Fill argument 02 with initial value?
*   x_owner = SPACE             "               Fill argument 03 with initial value?
*   x_terminal = SPACE          "               Fill argument 05 with initial value?
*   _scope = '3'                "
*   _synchron = SPACE           "               Synchonous unlock
*   _collect = ' '              " ddenqcoll     Initially only collect lock
    .  "  DEQUEUE_ENQ_TSP02F

ABAP code example for Function Module DEQUEUE_ENQ_TSP02F

The ABAP code below is a full code listing to execute function module DEQUEUE_ENQ_TSP02F including all data declarations. The code uses 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 original method of declaring data variables up front. 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).

DATA(ld_mode_tsp02f) = 'Check type of data required'.
 

SELECT single PJIDENT 
  FROM TSP02F 
  INTO @DATA(ld_pjident).

 

SELECT single PJNUMBER 
  FROM TSP02F 
  INTO @DATA(ld_pjnumber).

 

SELECT single OWNER 
  FROM TSP02F 
  INTO @DATA(ld_owner).

 

SELECT single CLIENT 
  FROM TSP02F 
  INTO @DATA(ld_client).

 

SELECT single TERMINAL 
  FROM TSP02F 
  INTO @DATA(ld_terminal).


DATA(ld_x_pjident) = 'some text here'.

DATA(ld_x_pjnumber) = 'some text here'.

DATA(ld_x_owner) = 'some text here'.

DATA(ld_x_terminal) = 'some text here'.

DATA(ld__scope) = 'some text here'.

DATA(ld__synchron) = 'some text here'.

DATA(ld__collect) = 'Check type of data required'.
.

CALL FUNCTION 'DEQUEUE_ENQ_TSP02F'
* EXPORTING
*   mode_tsp02f =                ld_mode_tsp02f
*   pjident =                    ld_pjident
*   pjnumber =                   ld_pjnumber
*   owner =                      ld_owner
*   client =                     ld_client
*   terminal =                   ld_terminal
*   x_pjident =                  ld_x_pjident
*   x_pjnumber =                 ld_x_pjnumber
*   x_owner =                    ld_x_owner
*   x_terminal =                 ld_x_terminal
*   _scope =                     ld__scope
*   _synchron =                  ld__synchron
*   _collect =                   ld__collect
    .  "  DEQUEUE_ENQ_TSP02F

IF SY-SUBRC EQ 0.
  "All OK
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_mode_tsp02f
 
 TYPE ENQMODE ,
ld_pjident
 
 TYPE TSP02F-PJIDENT ,
ld_pjnumber
 
 TYPE TSP02F-PJNUMBER ,
ld_owner
 
 TYPE TSP02F-OWNER ,
ld_client
 
 TYPE TSP02F-CLIENT ,
ld_terminal
 
 TYPE TSP02F-TERMINAL ,
ld_x_pjident
 
 TYPE STRING ,
ld_x_pjnumber
 
 TYPE STRING ,
ld_x_owner
 
 TYPE STRING ,
ld_x_terminal
 
 TYPE STRING ,
ld__scope
 
 TYPE STRING ,
ld__synchron
 
 TYPE STRING ,
ld__collect
 
 TYPE DDENQCOLL .


ld_mode_tsp02f = 'Check type of data required'.

SELECT single PJIDENT 
  FROM TSP02F 
  INTO ld_pjident.


SELECT single PJNUMBER 
  FROM TSP02F 
  INTO ld_pjnumber.


SELECT single OWNER 
  FROM TSP02F 
  INTO ld_owner.


SELECT single CLIENT 
  FROM TSP02F 
  INTO ld_client.


SELECT single TERMINAL 
  FROM TSP02F 
  INTO ld_terminal.

ld_x_pjident = 'some text here'.
ld_x_pjnumber = 'some text here'.
ld_x_owner = 'some text here'.
ld_x_terminal = 'some text here'.
ld__scope = 'some text here'.
ld__synchron = 'some text here'.
ld__collect = 'Check type of data required'.