*&---------------------------------------------------------------------*
*& Report BALVBUFDEL *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT BCALV_BUFFFER_DEL_SHARED.
TABLES: EUINFO.
types: stat_s_data type RSEXPOBUF,
stat_t_data type stat_s_data occurs 0.
data: gt_stat_data type stat_t_data,
ls_stat_data type stat_s_data,
l_obj_key type RSOBJKEY.
CALL FUNCTION 'SBUF_OBJ_SHOW_OBJECT'
EXPORTING
BUFF_ID = 0
SHOW_FREE = ' '
SHOW_OBJECT = 'X'
TABLES
STAT_DATA = gt_stat_data
* EXCEPTIONS
* C_FUNC_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC = 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
loop at gt_stat_data into ls_stat_data.
if ls_stat_data-obj_key(2) cs '%F'.
l_obj_key = ls_stat_data-obj_key+2.
delete from shared buffer euinfo(%F) id l_obj_key.
endif.
endloop.
MESSAGE S000(0K) WITH TEXT-004.
ENDIF.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
*& Report BALVBUFDEL *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT BCALV_BUFFFER_DEL_SHARED.
TABLES: EUINFO.
types: stat_s_data type RSEXPOBUF,
stat_t_data type stat_s_data occurs 0.
data: gt_stat_data type stat_t_data,
ls_stat_data type stat_s_data,
l_obj_key type RSOBJKEY.
CALL FUNCTION 'SBUF_OBJ_SHOW_OBJECT'
EXPORTING
BUFF_ID = 0
SHOW_FREE = ' '
SHOW_OBJECT = 'X'
TABLES
STAT_DATA = gt_stat_data
* EXCEPTIONS
* C_FUNC_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC = 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
loop at gt_stat_data into ls_stat_data.
if ls_stat_data-obj_key(2) cs '%F'.
l_obj_key = ls_stat_data-obj_key+2.
delete from shared buffer euinfo(%F) id l_obj_key.
endif.
endloop.
MESSAGE S000(0K) WITH TEXT-004.
ENDIF.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
댓글 3
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
22 | SELECT 구문을 사용하지 않고 데이터 가져오는 방법 [13] | sapjoy | 2006.12.04 | 7612 |
21 | ABAP 문법 사용법 정리 [60] | Delight | 2008.04.30 | 7686 |
20 | [부가세] Multi key 변환 펑션 [6] | 미소 | 2010.07.26 | 7857 |
19 | [Function] 메세지 박스를 뛰워보자 [10] | 양키 | 2010.09.29 | 7931 |
» | ALV BUFFER CLEAR [3] | ecbase | 2006.12.02 | 8013 |
17 | tcode 권한체크 t-code authority check | sapjoy | 2013.05.21 | 8222 |
16 | [Function]오늘은 몇요일일까요? [4] | 양키 | 2010.09.29 | 8449 |
15 | LDM 파일을 다운로드 하는 Function [1] | 양키 | 2012.08.08 | 8462 |
14 | POPUP 함수(팝업) [11] | sapjoy | 2007.05.17 | 8776 |
13 | 이메일로 파일 보내는 함수 [3] | 열공아밥 | 2009.12.20 | 9280 |
12 | 프로그램실행시간 구하기 [16] | 쥬앙 | 2009.04.06 | 9326 |
11 | Amount의 필드 값의 0을 삭제후 Char로 내보내기 [3] | 민버미꺼! | 2007.12.25 | 9617 |
10 | 소수점 이하 체크 [5] | ecbase | 2006.12.02 | 9718 |
9 | 유용한 Function 올려봅니다. [30] | 김지성 | 2007.04.17 | 9884 |
8 | 현재 떠있는 화면에서 특정 필드의 값을 읽어오는 함수 및 방법 [8] | Delight | 2008.04.28 | 9952 |
7 | 문자인지 숫자인지 구분 [8] | ecbase | 2006.12.01 | 10673 |
6 | 공휴일 체크 및 다음 휴일 구하기 [5] | ecbase | 2006.12.01 | 11106 |
5 | 반올림, 올림, 버림 Function [16] | SSong | 2007.11.20 | 11959 |
4 | 환율관련 함수 [2] | 아밥뽀 | 2014.08.23 | 14209 |
3 | 숫자 왼쪽의 0 없애기 [8] | ecbase | 2006.12.02 | 14910 |