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