메뉴 건너뛰기

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     = ' '
    .
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
1284 IDOC 관련 [5] file 민상애비 2012.11.14 14196
1283 SAP Query [10] file 민상애비 2012.11.14 7684
1282 LSMW,CATT [8] file 민상애비 2012.11.14 12811
1281 05. IT_ABAP v4.6x Software Development Standards & Controls_EN Ver0.8_k file 민상애비 2012.11.14 14081
1280 Technical Guide-ABAP Tuning 기초 [5] file 민상애비 2012.11.14 13078
1279 ABAP Tunning Guide [2] 민상애비 2012.11.14 15682
1278 ABAP Troubleshooting [4] file paran 2012.11.13 14590
1277 파일 첨부 - 한개씩 말고 다중으로 가능? [1] 연오랑 2012.10.23 12694
1276 gdb형식의 abap 강좌입니다. [6] tobypapa 2012.10.19 10981
1275 sap 튜닝 자료입니다. [44] file iop890mm 2012.10.09 12662
1274 POC 예 [9] 철죽1 2012.09.02 11105
» lock 예 [5] 철죽1 2012.09.02 13216
1272 tabstrip [5] 철죽1 2012.09.02 12132
1271 selection screen program [1] 철죽1 2012.09.02 5571
1270 method create 예 철죽1 2012.09.02 11643
1269 instance vs static 예 [1] 철죽1 2012.09.02 12617
1268 constructor multiple instantiation 예 철죽1 2012.09.02 11687
1267 casting 예 [1] 철죽1 2012.09.02 11472
1266 create object 예. [1] 철죽1 2012.09.02 12899
1265 shared objects 예제 file 철죽1 2012.09.02 5419
쓰기 태그