VIEW_ENQUEUE

• Table maintain 的 Lock 或 Unlock 都是用此 Function。

EXPORTING

• ACTION ＝＞ E(Lock), D(Unlock)。

IMPORTING

TABLES

EXCEPTIONS

Attributes

Methods

Code

FORM lock_ztco1003 CHANGING fo_subrc.
  DATA: l_name LIKE ocus-table.

*-Lock Table Maintain
  l_name = 'ZTCO1003_V'.

  CALL FUNCTION 'VIEW_ENQUEUE'
    EXPORTING
      action               = 'E'
      view_name            = l_name
    EXCEPTIONS
      client_reference     = 1
      foreign_lock         = 2
      invalid_action       = 3
      invalid_enqueue_mode = 4
      system_failure       = 5
      table_not_found      = 6
      OTHERS               = 7.

  IF sy-subrc <> 0.
    fo_subrc = sy-subrc.
    EXIT.
  ENDIF.

*-Return data
  fo_subrc = 0.

ENDFORM.                    " LOCK_ZTCO1003