메뉴 건너뛰기

SAP 한국 커뮤니티



lock 예

철죽1 2012.09.02 13:24 조회 수 : 13216

*& Report  ZR_LOCK
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zr_lock.

DATA wa_sflight TYPE sflight.

PARAMETERS: pa_car LIKE wa_sflight-carrid,
            pa_con TYPE sflight-connid.

START-OF-SELECTION.
  CALL FUNCTION 'ENQUEUE_ESFLIGHT'
    EXPORTING
      mode_sflight   = 'X'
      mandt          = sy-mandt
      carrid         = pa_car
      connid         = pa_con
*     FLDATE         =
*     X_CARRID       = ' '
*     X_CONNID       = ' '
*     X_FLDATE       = ' '
*     _SCOPE         = '2'
      _wait          = 'X'
     _COLLECT       = 'X'
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
      OTHERS         = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CALL FUNCTION 'ENQUEUE_ESFLIGHT'
    EXPORTING
      mode_sflight   = 'X'
      mandt          = sy-mandt
      carrid         = 'AC'
      connid         = '0820'
*     FLDATE         =
*     X_CARRID       = ' '
*     X_CONNID       = ' '
*     X_FLDATE       = ' '
*     _SCOPE         = '2'
      _wait          = 'X'
     _COLLECT       = 'X'
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
      OTHERS         = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

CALL FUNCTION 'FLUSH_ENQUEUE'
 EXCEPTIONS
   FOREIGN_LOCK         = 1
   SYSTEM_FAILURE       = 2
   OTHERS               = 3
          .
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

CALL FUNCTION 'DEQUEUE_ALL'
* EXPORTING
*   _SYNCHRON       = ' '
          .


  WRITE 'Lock Test'.

*  CALL FUNCTION 'DEQUEUE_ESFLIGHT'
*    EXPORTING
*      mode_sflight = 'E'
*      mandt        = sy-mandt
*      carrid       = pa_car
*      connid       = pa_con
*     FLDATE       =
*     X_CARRID     = ' '
*     X_CONNID     = ' '
*     X_FLDATE     = ' '
*     _SCOPE       = '3'
*     _SYNCHRON    = ' '
*     _COLLECT     = ' '
    .
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
104 report painter 설명 자료 [20] file 조재경 2012.06.09 15539
103 CO CCA Process Overview 자료 입니다. [20] file yaho 2012.06.28 6662
102 abap 교재 요약 워드 파일입니다... [45] file 준맘 2012.08.07 17194
101 class-based exceptions 예제. 철죽1 2012.09.02 12263
100 shared objects 예제 file 철죽1 2012.09.02 5419
99 create object 예. [1] 철죽1 2012.09.02 12900
98 casting 예 [1] 철죽1 2012.09.02 11472
97 constructor multiple instantiation 예 철죽1 2012.09.02 11687
96 instance vs static 예 [1] 철죽1 2012.09.02 12617
95 method create 예 철죽1 2012.09.02 11643
94 selection screen program [1] 철죽1 2012.09.02 5571
93 tabstrip [5] 철죽1 2012.09.02 12134
» lock 예 [5] 철죽1 2012.09.02 13216
91 POC 예 [9] 철죽1 2012.09.02 11105
90 sap 튜닝 자료입니다. [44] file iop890mm 2012.10.09 12663
89 gdb형식의 abap 강좌입니다. [6] tobypapa 2012.10.19 10981
88 파일 첨부 - 한개씩 말고 다중으로 가능? [1] 연오랑 2012.10.23 12697
87 ABAP Troubleshooting [4] file paran 2012.11.13 14591
86 ABAP Tunning Guide [2] 민상애비 2012.11.14 15682
85 Technical Guide-ABAP Tuning 기초 [5] file 민상애비 2012.11.14 13078
쓰기 태그