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