*& 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 | BSP Application관련 자료입니다. [4] | 혀나미 | 2007.12.04 | 3294 |
203 | Web Dynpro 기초 자료입니다. [2] | kms | 2007.07.20 | 3294 |
202 | ABAP System Fields [5] | hooa | 2009.08.07 | 3293 |
201 | wd 관련4 [4] | 우째 .. | 2007.05.08 | 3293 |
200 | BAPI overview [3] | BEST!! | 2008.01.29 | 3291 |
199 | Function에 관한 내용 입니다. [11] | Giant | 2008.10.28 | 3290 |
198 | 초간단 Icon 필드에 Icon 넣기.. 딱 4줄... [2] | 지의 | 2007.09.27 | 3289 |
197 | 허접한 문자,숫자구분법 | 도련님 | 2008.10.31 | 3287 |
196 | Overview of ABAP 6.10_BSP_CLASS [7] | activeman | 2008.01.18 | 3287 |
195 | coding standards [2] | sapjoy | 2007.04.24 | 3286 |
194 | ALV 사용하기 [50] | 웰컴 | 2008.12.05 | 3285 |
193 | BDC 플그램 [9] | 체리P. | 2007.08.21 | 3285 |
192 | ABAP Sample P/G eBook [2] | 썬바바 | 2007.09.13 | 3282 |
191 | Data를 Word File 형식으로 출력시키는 법 [3] | 블랙아이즈 | 2009.01.21 | 3281 |
190 | Variant 동적일자 세팅 방법 [2] | SSong | 2007.08.22 | 3280 |
189 | System Architecture [3] | 노냐 | 2009.02.27 | 3275 |
188 | ABAP T-CODE e-book 자료 [5] | magicsy69 | 2008.06.03 | 3275 |
187 | [ABAP] File Controll 관련 자료 [15] | GG | 2009.07.27 | 3271 |
186 | ABAP_Questions [3] | onefineday | 2008.12.28 | 3271 |
185 | Authorization_개요 [4] | xcomedy | 2008.07.19 | 3270 |
감사합니다.^^