메뉴 건너뛰기

SAP 한국 커뮤니티



lock 예

철죽1 2012.09.02 22:24 조회 수 : 13227

*& 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     = ' '
    .
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
1284 IDOC 관련 [5] file 민상애비 2012.11.15 14212
1283 SAP Query [10] file 민상애비 2012.11.15 7689
1282 LSMW,CATT [8] file 민상애비 2012.11.14 12818
1281 05. IT_ABAP v4.6x Software Development Standards & Controls_EN Ver0.8_k file 민상애비 2012.11.14 14085
1280 Technical Guide-ABAP Tuning 기초 [5] file 민상애비 2012.11.14 13086
1279 ABAP Tunning Guide [2] 민상애비 2012.11.14 15737
1278 ABAP Troubleshooting [4] file paran 2012.11.14 14606
1277 파일 첨부 - 한개씩 말고 다중으로 가능? [1] 연오랑 2012.10.24 12797
1276 gdb형식의 abap 강좌입니다. [6] tobypapa 2012.10.19 10990
1275 sap 튜닝 자료입니다. [44] file iop890mm 2012.10.10 12701
1274 POC 예 [9] 철죽1 2012.09.02 11117
» lock 예 [5] 철죽1 2012.09.02 13227
1272 tabstrip [5] 철죽1 2012.09.02 12159
1271 selection screen program [1] 철죽1 2012.09.02 5585
1270 method create 예 철죽1 2012.09.02 11647
1269 instance vs static 예 [1] 철죽1 2012.09.02 12622
1268 constructor multiple instantiation 예 철죽1 2012.09.02 11693
1267 casting 예 [1] 철죽1 2012.09.02 11482
1266 create object 예. [1] 철죽1 2012.09.02 12935
1265 shared objects 예제 file 철죽1 2012.09.02 5424
쓰기 태그