ENQUEUE·DEQUEUE 상세 - _SCOPE, 낙관적 잠금, 그리고 웹에서 잠금이 안 걸리는 이유#

1" 실패하면 즉시 리턴 (기본)
2CALL FUNCTION 'ENQUEUE_EZ_SORDER'
3  EXPORTING
4    mode_zsorder = 'E'
5    vbeln        = lv_vbeln
6  EXCEPTIONS
7    foreign_lock = 1  OTHERS = 2.
8
9" 잠깐 기다렸다가 재시도
10CALL FUNCTION 'ENQUEUE_EZ_SORDER'
11  EXPORTING
12    mode_zsorder = 'E'
13    vbeln        = lv_vbeln
14    _wait        = abap_true
15  EXCEPTIONS
16    foreign_lock = 1  OTHERS = 2.

1" 1. 화면을 열 때 - 낙관적 잠금
2CALL FUNCTION 'ENQUEUE_EZ_SORDER'
3  EXPORTING
4    mode_zsorder = 'O'
5    vbeln        = lv_vbeln
6  EXCEPTIONS
7    foreign_lock   = 1
8    system_failure = 2
9    OTHERS         = 3.
10
11" 2. 저장할 때 - 배타 잠금으로 승격
12CALL FUNCTION 'ENQUEUE_EZ_SORDER'
13  EXPORTING
14    mode_zsorder = 'R'
15    vbeln        = lv_vbeln
16  EXCEPTIONS
17    foreign_lock   = 1
18    system_failure = 2
19    OTHERS         = 3.
20
21IF sy-subrc <> 0.
22  " 승격 실패 = 그 사이 누군가 먼저 가져갔다
23  MESSAGE e002(zorder) WITH lv_vbeln.
24ENDIF.
25
26" 3. 해제
27CALL FUNCTION 'DEQUEUE_EZ_SORDER'
28  EXPORTING
29    mode_zsorder = 'E'
30    vbeln        = lv_vbeln.

1METHOD save_order.
2  CALL FUNCTION 'ENQUEUE_EZ_SORDER'
3    EXPORTING mode_zsorder = 'E'
4              vbeln        = iv_vbeln
5    EXCEPTIONS foreign_lock = 1 OTHERS = 2.
6  IF sy-subrc <> 0.
7    RAISE EXCEPTION TYPE zcx_order_locked.
8  ENDIF.
9
10  TRY.
11      " 잠근 뒤 다시 읽어, 화면이 값을 가져간 뒤 바뀌었는지 확인
12      SELECT SINGLE changed_at FROM zsorder
13        WHERE vbeln = @iv_vbeln INTO @DATA(lv_db_changed_at).
14
15      IF lv_db_changed_at <> iv_changed_at.
16        " 다른 사람이 먼저 저장했다
17        RAISE EXCEPTION TYPE zcx_order_outdated.
18      ENDIF.
19
20      UPDATE zsorder SET ... WHERE vbeln = @iv_vbeln.
21      COMMIT WORK.              " 여기서 잠금도 함께 풀린다
22
23    CATCH zcx_order_outdated.
24      " 커밋에 도달하지 못한 경로 - 직접 풀어 준다
25      CALL FUNCTION 'DEQUEUE_EZ_SORDER'
26        EXPORTING mode_zsorder = 'E'
27                  vbeln        = iv_vbeln.
28      RAISE EXCEPTION TYPE zcx_order_outdated.
29  ENDTRY.
30ENDMETHOD.

1" 걸기 전에 현재 잠금 상태를 확인한다
2DATA lt_enq TYPE STANDARD TABLE OF seqg3.
3
4CALL FUNCTION 'ENQUEUE_READ'
5  EXPORTING
6    gclient = sy-mandt
7    gname   = 'ZSORDER'
8    garg    = lv_garg        " 잠금 인수 (SM12에 보이는 값과 같은 형식)
9  TABLES
10    enq     = lt_enq.
11
12IF lt_enq IS NOT INITIAL.
13  READ TABLE lt_enq INTO DATA(ls_enq) INDEX 1.
14  " ls_enq-guname 으로 누가 잡고 있는지 확인할 수 있다
15  " 내 세션이 이미 잡은 것인지, 남이 잡은 것인지 구분해 분기
16ENDIF.
17
18" 중복 진입을 막아야 한다면 X 모드
19CALL FUNCTION 'ENQUEUE_EZ_SORDER'
20  EXPORTING
21    mode_zsorder = 'X'
22    vbeln        = lv_vbeln
23  EXCEPTIONS
24    foreign_lock   = 1
25    system_failure = 2
26    OTHERS         = 3.
27
28IF sy-subrc <> 0.
29  MESSAGE e003(zorder) WITH lv_vbeln.   " 이미 편집 중입니다
30ENDIF.