REPORT  z08_02.

CALL FUNCTION 'DEQUEUE_EZ_ZEMP'

  EXPORTING

    mode_zemp = 'E'

    mandt     = sy-mandt

    emp_no    = '0001'

    x_emp_no  = ' '

    _scope    = '3'

    _synchron = ' '

    _collect  = ' '.

CALL FUNCTION 'ENQUEUE_EZ_ZEMP'

  EXPORTING

    mode_zemp = 'E'

    mandt     = sy-mandt

    emp_no    = '0001'

    x_emp_no  = ' '

    _scope    = '2'

    _wait     = ' '

    _collect  = ' '.

IF sy-subrc NE 0.

  WRITE 'Data is Locked'.