*& 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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
105 | report painter 설명 자료 [20] | 조재경 | 2012.06.09 | 15550 |
104 | CO CCA Process Overview 자료 입니다. [20] | yaho | 2012.06.28 | 6673 |
103 | abap 교재 요약 워드 파일입니다... [45] | 준맘 | 2012.08.07 | 17204 |
102 | class-based exceptions 예제. | 철죽1 | 2012.09.02 | 12264 |
101 | shared objects 예제 | 철죽1 | 2012.09.02 | 5422 |
100 | create object 예. [1] | 철죽1 | 2012.09.02 | 12919 |
99 | casting 예 [1] | 철죽1 | 2012.09.02 | 11476 |
98 | constructor multiple instantiation 예 | 철죽1 | 2012.09.02 | 11688 |
97 | instance vs static 예 [1] | 철죽1 | 2012.09.02 | 12619 |
96 | method create 예 | 철죽1 | 2012.09.02 | 11647 |
95 | selection screen program [1] | 철죽1 | 2012.09.02 | 5574 |
94 | tabstrip [5] | 철죽1 | 2012.09.02 | 12145 |
» | lock 예 [5] | 철죽1 | 2012.09.02 | 13220 |
92 | POC 예 [9] | 철죽1 | 2012.09.02 | 11106 |
91 | sap 튜닝 자료입니다. [44] | iop890mm | 2012.10.09 | 12673 |
90 | gdb형식의 abap 강좌입니다. [6] | tobypapa | 2012.10.19 | 10982 |
89 | 파일 첨부 - 한개씩 말고 다중으로 가능? [1] | 연오랑 | 2012.10.23 | 12727 |
88 | ABAP Troubleshooting [4] | paran | 2012.11.13 | 14592 |
87 | ABAP Tunning Guide [2] | 민상애비 | 2012.11.14 | 15684 |
86 | Technical Guide-ABAP Tuning 기초 [5] | 민상애비 | 2012.11.14 | 13080 |
감사합니다.^^