*&---------------------------------------------------------------------*
*& 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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
62 | 반올림 | 꿀단지 | 2011.10.11 | 4932 |
61 | 문자열의 길이에 맞게 앞의 공백을 0으로 채워주는 함수 | 꿀단지 | 2011.10.11 | 5642 |
60 | Noraml Sales Order를 변경하거나 지웁니다. | 꿀단지 | 2011.10.11 | 4070 |
59 | Conversion routine | 꿀단지 | 2011.10.11 | 7059 |
58 | 여러가지 Order를 만들어줍니다. | 꿀단지 | 2011.10.11 | 4441 |
57 | 파일의 경로를 입력하면, 그 파일명과 디렉토리를 딱 나누어줍니다 [3] | 꿀단지 | 2011.10.11 | 5008 |
56 | 사원의 계획근무시간을 알려주는 펑션입니다. | 꿀단지 | 2011.10.11 | 3950 |
55 | 앞에 위치하는 0(ZERO)없애는 평션 [12] | ks | 2011.03.16 | 6534 |
54 | OSS NOTE 찾는 Function [2] | magicsy69 | 2010.11.24 | 5939 |
53 | [Function] 메세지 박스를 뛰워보자 [10] | 양키 | 2010.09.29 | 7931 |
52 | [Function]오늘은 몇요일일까요? [4] | 양키 | 2010.09.29 | 8449 |
51 | [부가세] Multi key 변환 펑션 [6] | 미소 | 2010.07.26 | 7857 |
50 | 이메일로 파일 보내는 함수 [3] | 열공아밥 | 2009.12.20 | 9280 |
49 | call transaction 함수로 새로운 세션생성하기 [9] | 아밥 잭 | 2009.10.28 | 7287 |
48 | 프로그램실행시간 구하기 [16] | 쥬앙 | 2009.04.06 | 9326 |
47 | 문자열에서 특정문자값을 기준으로 첫문자를 대문자로 변경 [8] | SAYA | 2009.03.09 | 6277 |
46 | Online프로그램에서 조회조건 다중선택 관련 [6] | COMAN | 2008.11.20 | 6363 |
45 | 암호화Function [9] | Delight | 2008.07.07 | 7056 |
44 | RFC [18] | 아밥퍼 | 2008.06.07 | 5984 |
43 | 암호화 function [14] | magicsy69 | 2008.06.03 | 7362 |