*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztest.
TABLES:mara.
PARAMETERS:p_matnr LIKE mara-matnr.
START-OF-SELECTION.
CALL FUNCTION 'ENQUEUE_EMMARAE'
EXPORTING
mode_mara = 'E'
mandt = sy-mandt
matnr = p_matnr
* X_MATNR = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
MESSAGE '物料被锁定.' TYPE 'I'.
ELSE.
"物料可用,解锁
CALL FUNCTION 'DEQUEUE_EMMARAE'
EXPORTING
mode_mara = 'E'
mandt = sy-mandt
matnr = p_matnr
x_matnr = ' '
_scope = '3'
_synchron = ' '
_collect = ' '.
ENDIF.
销售订单ENQUEUE_EVVBAKE 和 DEQUEUE_EVVBAKE