메뉴 건너뛰기

SAP 한국 커뮤니티



lock 예

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

*& 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     = ' '
    .
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
205 tabstrip [5] 철죽1 2012.09.02 12143
204 Dynamic Selection(LDB) 관련 자료입니다. [9] file 우헤헤 2012.11.20 12237
203 abap 자료 [13] file 철죽1 2012.11.20 12254
202 class-based exceptions 예제. 철죽1 2012.09.02 12264
201 SAP에서의 QR Code 프린팅절차 [19] file 양키 2012.11.16 12375
200 abap tip [5] file 민상애비 2012.11.14 12393
199 instance vs static 예 [1] 철죽1 2012.09.02 12619
198 sap 튜닝 자료입니다. [44] file iop890mm 2012.10.09 12670
197 파일 첨부 - 한개씩 말고 다중으로 가능? [1] 연오랑 2012.10.23 12724
196 LSMW,CATT [8] file 민상애비 2012.11.14 12812
195 dynamic SQL in SAP [13] file 엠엠공유 2011.08.10 12872
194 sap tree 에 관한 자료 - [pdf . 영어] [14] file Jenny 2011.08.04 12877
193 create object 예. [1] 철죽1 2012.09.02 12914
192 ABAP [Dictionary] Search Help Coding [13] 문바이 2012.04.02 12973
191 SAP ICON 정리 [14] file paran 2012.11.15 13015
190 Technical Guide-ABAP Tuning 기초 [5] file 민상애비 2012.11.14 13079
189 ABAP TRIAL 설치 영문문서 [8] file 열공아밥 2010.07.14 13084
» lock 예 [5] 철죽1 2012.09.02 13218
187 bdc프로그램개발 [33] file 절감 2014.01.06 13384
186 ABAP으로구현한 네트웍오목 [8] file 메탈광 2007.02.09 13394
쓰기 태그