Skip to Content
0
Former Member
Dec 11, 2006 at 12:35 PM

Problems with ENQUEUE_E_TABLE/DEQUEUE_E_TABLE

1169 Views

Hi all,

i use the above FMs in this case.

REPORT ZGRO_TEST1 MESSAGE-ID ZZ.

*

PARAMETERS: P_LOCK RADIOBUTTON GROUP PRI1 DEFAULT 'X',

P_UNLOCK RADIOBUTTON GROUP PRI1.

*

DATA: TABLE LIKE RSTABLE-TABNAME VALUE 'MSEG'.

START-OF-SELECTION.

*

CASE P_LOCK.

*

WHEN 'X'.

CALL FUNCTION 'ENQUEUE_E_TABLE'

EXPORTING

TABNAME = TABLE

EXCEPTIONS

FOREIGN_LOCK = 1

SYSTEM_FAILURE = 2

OTHERS = 3.

*

IF SY-SUBRC <> 0.

WRITE: / 'P_LOCK', SY-SUBRC.

EXIT.

ENDIF.

*

WHEN OTHERS.

*

CALL FUNCTION 'DEQUEUE_E_TABLE'

EXPORTING

TABNAME = TABLE

EXCEPTIONS

FOREIGN_LOCK = 1

SYSTEM_FAILURE = 2

OTHERS = 3.

*

IF SY-SUBRC <> 0.

WRITE: / 'P_UNLOCK', SY-SUBRC.

EXIT.

ENDIF.

*

ENDCASE.

*

END-OF-SELECTION.

When i run with P_LOCK = 'X' and look in SM12 nothing is locked.

What mistake is in my report?

Regards, Dieter