CBO Table Archiving 방법

CBO 테이블 아카이빙 방법을 설명합니다.




0. Archive Development KIT Package : SARC




1. 주요 Step


 – 대상테이블 분석(TAANA/DB15) –> Archiving Object 생성(AOBJ) –> 아카이빙 프로그램 개발 –> 아카이빙 수행(SARA)


 – SAP Archiving Introduction 문서 : Download


 – DB15 관련 게시물 : http://itpe.me/414


 – TAANA 관련 게시물 : http://itpe.me/415




2. Archiving Object 생성(Transaction : AOBJ)























































3. 아카이빙 프로그램 샘플


 – Read (Standard Program : RSAADMLE)


[#M_소소코드 보기|접기|

************************************************************************

* Program      :  ZZELTUP01A_RED                                       *
* Author : leejhy *
* Date : 2007.02.05 *
* Functional description : ARCHIVE – READ Program *
* OBJECT : Z_ZPA01A *
************************************************************************

REPORT zzeltup01a_red.

*———————————————————————-*
* data declaration
*———————————————————————-*
TABLES: zeltup01a.

DATA: lt_zeltup01a TYPE TABLE OF zeltup01a,
lt_zeltup01a_tmp TYPE TABLE OF zeltup01a.
DATA: handle LIKE sy-tabix.

FIELD-SYMBOLS: <ls_zeltup01a> TYPE zeltup01a.

*———————————————————————-*
* SELECT-OPTIONS / PARAMETER *
*———————————————————————-*
SELECTION-SCREEN BEGIN OF BLOCK arch_booking WITH FRAME TITLE text-101.
PARAMETERS: p_ERKRS TYPE ERKRS.
SELECT-OPTIONS: o_perio FOR zeltup01a-perio OBLIGATORY NO INTERVALS
NO-EXTENSION,
o_zck01 FOR zeltup01a-zck01,
o_zck02 FOR zeltup01a-zck02.
SELECTION-SCREEN END OF BLOCK arch_booking.

*———————————————————————-*
* START-OF-SELECTION *
*———————————————————————-*
* open existing archive files
CALL FUNCTION ‘ARCHIVE_OPEN_FOR_READ’
EXPORTING
object = ‘Z_ZPA01A’
IMPORTING
archive_handle = handle
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE ‘I’ NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.

* loop to get the next data object from the archive file(s)
DO.
CALL FUNCTION ‘ARCHIVE_GET_NEXT_OBJECT’
EXPORTING
archive_handle = handle
EXCEPTIONS
end_of_file = 1. “nur die Ausnahmen, auf die man
IF sy-subrc <> 0. “wirklich reagieren will
EXIT.
ENDIF.

* get data records from the data container ZELTUP01a
CALL FUNCTION ‘ARCHIVE_GET_TABLE’
EXPORTING
archive_handle = handle
record_structure = ‘ZELTUP01A’
all_records_of_object = ‘X’
TABLES
table = lt_zeltup01a_tmp
EXCEPTIONS
end_of_object = 0. “not entries of this type

* check lt_ZELTUP01a_tmp entries against selections.
* Delete not requested entries
LOOP AT lt_zeltup01a_tmp ASSIGNING <ls_zeltup01a>
WHERE perio IN o_perio AND
zck01 IN o_zck01 AND
zck02 IN o_zck02.
APPEND <ls_zeltup01a> TO lt_zeltup01a.
ENDLOOP.
REFRESH lt_zeltup01a_tmp.

ENDDO.

* Call ABAP List Viewer (ALV)
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
i_structure_name = ‘ZELTUP01A’
TABLES
t_outtab = lt_zeltup01a.

* close the archiving session
CALL FUNCTION ‘ARCHIVE_CLOSE_FILE’
EXPORTING
archive_handle = handle.

*&———————————————————————*
*& Form get_db
*&———————————————————————*
FORM get_db .
SELECT * FROM zeltup01a
APPENDING CORRESPONDING FIELDS OF TABLE lt_zeltup01a
WHERE erkrs = P_ERKRS AND
perio IN o_perio AND
zck01 IN o_zck01 AND
zck02 IN o_zck02.

ENDFORM. ” get_db

_M#]





 – Write (Stanard Program : RSAADMAR)


[#M_소스코드 보기|접기|
************************************************************************
* Program : ZZELTUP01A_REL *
* Author : leejhy *
* Date : 2007.02.05 *
* Functional description : ARCHIVE – WRITE Program *
* OBJECT : Z_ZPA01A *
************************************************************************
report ZZELTUP01A_WRI.

*———————————————————————-*
* data declaration
*———————————————————————-*
tables: ZELTUP01a.

data: button(1) type c,
create(1) type c value ‘X’,
no_delete(1) type c value ‘X’,
handle like sy-tabix,
ZELTUP01a_itab type table of ZELTUP01a with header line,
data_object_id like arch_idx_s-obj_id.

*———————————————————————-*
* SELECT-OPTIONS / PARAMETER *
*———————————————————————-*
selection-screen begin of block arch_booking with frame title text-101.
PARAMETERS: P_ERKRS TYPE ERKRS.
select-options: o_perio for ZELTUP01a-perio obligatory no intervals
no-extension,
o_zck01 for ZELTUP01a-zck01,
o_zck02 for ZELTUP01a-zck02.
selection-screen end of block arch_booking.
selection-screen begin of block arch_control with frame title text-102.
parameters: no_file like button radiobutton group radi,
del_test like button radiobutton group radi default ‘X’.
selection-screen end of block arch_control.
parameters comments type admi_text lower case.
*default ‘Test data for archiving with Z_ZELTUP01A'(105).

*———————————————————————-*
* START-OF-SELECTION *
*———————————————————————-*

DATA: g_CURSOR TYPE CURSOR,
g_package TYPE i VALUE 5000.

* build ADK parameters from chosen button
if no_file = ‘X’. create = ‘ ‘. no_delete = ‘ ‘. endif.
if del_test = ‘X’. create = ‘X’. no_delete = ‘X’. endif.

* open a new archive session to archive data
call function ‘ARCHIVE_OPEN_FOR_WRITE’
exporting
call_delete_job_in_test_mode = no_delete
comments = comments
create_archive_file = create
object = ‘Z_ZPA01A’
importing
archive_handle = handle.

* select data from the database – 20070212 new ->
OPEN CURSOR WITH HOLD g_CURSOR FOR
select * from ZELTUP01A
where erkrs = P_ERKRS and
perio in o_perio and
zck01 in o_zck01 and
zck02 in o_zck02.
DO.
*” Package size ŭ о internal table ZELTUP01A_itab ִ´.
FETCH NEXT CURSOR g_CURSOR
INTO CORRESPONDING FIELDS OF TABLE ZELTUP01A_itab
PACKAGE SIZE G_PACKAGE.

IF SY-SUBRC = 4. EXIT. ENDIF.
* select data from the database – 20070212 new <-

loop at ZELTUP01A_itab.
concatenate sy-mandt ZELTUP01A_itab-perio ZELTUP01A_itab-zck01
ZELTUP01A_itab-zck02 into data_object_id.

* initialize a new data object
call function ‘ARCHIVE_NEW_OBJECT’
exporting
archive_handle = handle
object_id = data_object_id. ” optional: ADK index

* put data records into ADK’s data container
call function ‘ARCHIVE_PUT_RECORD’
exporting
archive_handle = handle
record_structure = ‘ZELTUP01A’
record = ZELTUP01A_itab.

* write data object into the archive file
call function ‘ARCHIVE_SAVE_OBJECT’
exporting
archive_handle = handle.

endloop.

clear: ZELTUP01A_itab[].

ENDDO. ” 20070212 new

CLOSE CURSOR g_CURSOR. ” 20070212 new

* create the default spool list
call function ‘ARCHIVE_WRITE_STATISTICS’
exporting
archive_handle = handle.
* close the archive session
call function ‘ARCHIVE_CLOSE_FILE’
exporting 


archive_handle = handle.

_M#]





 – Delete (Standard Program : RSAADMLO)


[#M_소스코드 보기|접기|

************************************************************************


* Program      :  ZZELTUP01A_DEL                                       *


* Author       :  leejhy                                               *


* Date         :  2007.02.05                                           *


* Functional description  :   ARCHIVE  –  DELETE Program               *


* OBJECT     :   Z_ZPA01A                                            *


************************************************************************




REPORT  ZZELTUP01A_DEL.




CONSTANTS: OBJECT LIKE ARCH_OBJ-OBJECT VALUE ‘Z_ZPA01A’.




DATA:   HANDLE LIKE SY-TABIX,


        BUFFER TYPE ARC_BUFFER,


        SEL_FILES_ITAB TYPE TABLE OF ARCH_FILES,


        ZELTUP01A_WA LIKE ZELTUP01A,


        ZELTUP01A_TTAB TYPE TABLE OF ZELTUP01A,


        ZELTUP01A_ITAB TYPE TABLE OF ZELTUP01A,


        COMMIT_CNT LIKE ARCH_USR-ARCH_COMIT,


        OBJECT_CNT TYPE I,


        ARKEY LIKE ARCH_IDX_S-ARCHIVEKEY,


        OBJECT_ID LIKE ARCH_IDX_S-OBJ_ID,


        OFFSET LIKE ARCH_IDX_S-OBJ_OFFSET,


        INDEX_TAB TYPE TABLE OF ARCH_IDX_S WITH HEADER LINE,


        INDEX_FLAG LIKE ARCH_USR-ARCH_INDEX,


        SUM_OBJECTS TYPE I VALUE 0,


        STAT_ITAB TYPE TABLE OF ARCH_STAT,


        TABFIELD LIKE ARCH_STAT.




DATA:   ITABNAME(20)  TYPE  C.


FIELD-SYMBOLS: <TS> TYPE  TABLE.






*———————————————————————-*


* SELECT-OPTIONS / PARAMETER                                           *


*———————————————————————-*


PARAMETERS: TESTRUN DEFAULT ‘X’ AS CHECKBOX. ” do not delete


” from database






* open a new archive session to delete data


CALL FUNCTION ‘ARCHIVE_OPEN_FOR_DELETE’


  EXPORTING


    OBJECT         = OBJECT


    TEST_MODE      = TESTRUN


  IMPORTING


    ARCHIVE_HANDLE = HANDLE


  EXCEPTIONS


    OTHERSQ        = 01.


IF SY-SUBRC <> 0.


  WRITE / ‘No file can be accessed'(001).


  EXIT.


ENDIF.




* get customizing data from the archive object


CALL FUNCTION ‘ARCHIVE_GET_CUSTOMIZING_DATA’


  EXPORTING


    OBJECT                      = OBJECT


  IMPORTING


    COMMIT_COUNT_FOR_DELETE_PRG = COMMIT_CNT


    MAINTAIN_INDEX              = INDEX_FLAG.




* loop to get the next data object from the archive file(s)


CLEAR: OBJECT_CNT, COMMIT_CNT.




DO.


  ADD 1 TO OBJECT_CNT.


  ADD 1 TO COMMIT_CNT.




  CALL FUNCTION ‘ARCHIVE_GET_NEXT_OBJECT’


    EXPORTING


      ARCHIVE_HANDLE = HANDLE


    IMPORTING


      OBJECT_ID      = OBJECT_ID


      OBJECT_OFFSET  = OFFSET


      ARCHIVE_NAME   = ARKEY


    EXCEPTIONS


      END_OF_FILE    = 01.


  IF SY-SUBRC = 1.


    EXIT.


  ENDIF.




* build an index to allow for random access to data objects


*** This index is optional. Try to use the Archive Information


*** System SAP AS instead.


  IF INDEX_FLAG IS INITIAL.


* no index is to be built according to customizing


  ELSEIF TESTRUN IS INITIAL.


    MOVE: OBJECT_ID TO INDEX_TAB-OBJ_ID,


          ARKEY TO INDEX_TAB-ARCHIVEKEY,


          OFFSET TO INDEX_TAB-OBJ_OFFSET.


    APPEND INDEX_TAB.


    PERFORM SAVE_INDEX_TAB ON COMMIT.


  ENDIF.




* loop to get data records from ADK’s data container




  CALL FUNCTION ‘ARCHIVE_GET_NEXT_RECORD’


    EXPORTING


      ARCHIVE_HANDLE   = HANDLE


    IMPORTING


      RECORD           = BUFFER-SEGMENT


      RECORD_STRUCTURE = BUFFER-RNAME


    EXCEPTIONS


      END_OF_OBJECT    = 01.


  IF SY-SUBRC = 1.


    EXIT.


  ENDIF.




* keep data records in mind; take their structure into account


  CASE BUFFER-RNAME.


    WHEN ‘ZELTUP01A’.




      CALL FUNCTION ‘ARCHIVE_GET_TABLE’


        EXPORTING


          ARCHIVE_HANDLE        = HANDLE


          RECORD_STRUCTURE      = ‘ZELTUP01A’


          ALL_RECORDS_OF_OBJECT = ‘X’


        TABLES


          TABLE                 = ZELTUP01A_TTAB[].




      IF NOT ZELTUP01A_TTAB[] IS INITIAL.


        LOOP AT ZELTUP01A_TTAB INTO ZELTUP01A_WA.


          APPEND ZELTUP01A_WA TO ZELTUP01A_ITAB.


        ENDLOOP.


      ENDIF.




  ENDCASE.


  CLEAR BUFFER-SEGMENT.






  IF TESTRUN IS INITIAL AND OBJECT_CNT = COMMIT_CNT.


    PERFORM DELETE_FROM_TABLE. ” actual delete from database


    CLEAR OBJECT_CNT. ” restart counting up to


  ENDIF. ” value of commit counter




ENDDO.




IF TESTRUN IS INITIAL AND OBJECT_CNT >= 1.


  PERFORM DELETE_FROM_TABLE. ” deleting last package


ENDIF.




* provide statistics


TABFIELD-TABNAME = ‘ ‘.


TABFIELD-COUNT = SUM_OBJECTS.


APPEND TABFIELD TO STAT_ITAB.


TABFIELD-TABNAME = ‘ZELTUP01A’.


APPEND TABFIELD TO STAT_ITAB.




CALL FUNCTION ‘ARCHIVE_GIVE_STATISTICS’


  EXPORTING


    ARCHIVE_HANDLE = HANDLE


  TABLES


    TABLE          = STAT_ITAB.




* write statistics


CALL FUNCTION ‘ARCHIVE_WRITE_STATISTICS’


  EXPORTING


    ARCHIVE_HANDLE           = HANDLE


    STATISTICS_ONLY_PER_FILE = ‘X’.




* get all processed files for update of index status


CALL FUNCTION ‘ARCHIVE_GET_ARCHIVE_FILES’


  EXPORTING


    ARCHIVE_HANDLE = HANDLE


  TABLES


    ARCHIVE_FILES  = SEL_FILES_ITAB.




* close the archive session


CALL FUNCTION ‘ARCHIVE_CLOSE_FILE’


  EXPORTING


    ARCHIVE_HANDLE = HANDLE.


* set status “index created? in SARA administration




IF INDEX_FLAG IS INITIAL.


* no index has been built according to customizing


ELSEIF TESTRUN IS INITIAL.




  CALL FUNCTION ‘ARCHIVE_ADMIN_SET_STATUS’


    EXPORTING


      FILES_ARE_CONVERTED = ‘ ‘


      INDEX_CREATED       = ‘X’


    TABLES


      ARCHIVE_FILES       = SEL_FILES_ITAB.




ENDIF.


* ———————————————- *


* FORM DELETE_FROM_TABLE *


* ———————————————- *


FORM DELETE_FROM_TABLE.


  DATA: TABCOUNT TYPE I VALUE 0.




  DELETE ZELTUP01A FROM TABLE ZELTUP01A_ITAB. ” delete job restartable


  COMMIT WORK.




  DESCRIBE TABLE ZELTUP01A_ITAB LINES TABCOUNT.


  SUM_OBJECTS = SUM_OBJECTS + TABCOUNT.


  REFRESH ZELTUP01A_ITAB.




ENDFORM. ” DELETE_FROM_TABLE


* ———————————————- *


* Form SAVE_INDEX_TAB *


* ———————————————- *


* global: index_tab


* ———————————————- *


FORM SAVE_INDEX_TAB.


  DELETE ARCH_IDX_S FROM TABLE INDEX_TAB.


  INSERT ARCH_IDX_S FROM TABLE INDEX_TAB.


  REFRESH INDEX_TAB.


ENDFORM. ” SAVE_INDEX_TAB



_M#]





 – Reload (Standard Program : RSAADMRL)


[#M_소스코드 보기|접기|
************************************************************************
* Program : ZZELTUP01A_REL *
* Author : leejhy *
* Date : 2007.02.05 *
* Functional description : ARCHIVE – RELOAD Program *
* OBJECT : Z_ZPA01A *
************************************************************************
REPORT zzeltup01a_rel.

*———————————————————————-*
* data declaration
*———————————————————————-*

CONSTANTS: object LIKE arch_obj-object VALUE ‘Z_ZPA01A’.
DATA: read_handle LIKE sy-tabix,
sel_files_itab TYPE TABLE OF arch_files,
record_type LIKE arc_buffer-rname,
buffer_ref TYPE REF TO data, ” Unicode
commit_cnt LIKE arch_usr-arch_comit,
object_cnt TYPE i,
read_cnt TYPE i,
arkey LIKE arch_idx_s-archivekey,
object_id LIKE arch_idx_s-obj_id,
offset LIKE arch_idx_s-obj_offset,
index_tab TYPE TABLE OF arch_idx_s WITH HEADER LINE,
stat_itab TYPE TABLE OF arch_stat,
tabfield LIKE arch_stat.

DATA : BEGIN OF zeltup01a_itab OCCURS 0.
INCLUDE STRUCTURE zeltup01a.
DATA : END OF zeltup01a_itab.

FIELD-SYMBOLS: <zeltup01a_ptr> TYPE zeltup01a. ” Unicode

*———————————————————————-*
* SELECT-OPTIONS / PARAMETER *
*———————————————————————-*
PARAMETERS testmode DEFAULT ‘X’ AS CHECKBOX.

* open a new archiving session to reload data
CALL FUNCTION ‘ARCHIVE_OPEN_FOR_MOVE’
EXPORTING
object = object
test_mode = testmode
IMPORTING
archive_read_handle = read_handle
EXCEPTIONS
OTHERS = 01.
IF sy-subrc <> 0.
WRITE / ‘No file can be accessed'(001).
EXIT.
ENDIF.

* get Customizing data from the archiving object
CALL FUNCTION ‘ARCHIVE_GET_CUSTOMIZING_DATA’
EXPORTING
object = object
IMPORTING
commit_count_for_delete_prg = commit_cnt.

* loop to get the next data object from the archive file(s)
CLEAR object_cnt.

DO.
CALL FUNCTION ‘ARCHIVE_GET_NEXT_OBJECT’
EXPORTING
archive_handle = read_handle
IMPORTING
object_id = object_id
object_offset = offset
archive_name = arkey
EXCEPTIONS
end_of_file = 01.
IF sy-subrc = 1.
EXIT.
ENDIF.

ADD 1 TO object_cnt.

MOVE: object_id TO index_tab-obj_id,
arkey TO index_tab-archivekey,
offset TO index_tab-obj_offset.
APPEND index_tab.
PERFORM delete_index_tab ON COMMIT.

* loop to get data records from ADK’s data container
DO.
CALL FUNCTION ‘ARCHIVE_GET_NEXT_RECORD’
EXPORTING
archive_handle = read_handle
IMPORTING
record_structure = record_type
record_ref = buffer_ref ” Unicode
EXCEPTIONS
end_of_object = 01.
IF sy-subrc = 1.
EXIT.
ENDIF.

* keep data records in mind; take their structure into account
CASE record_type.
WHEN ‘ZELTUP01A’.
ASSIGN buffer_ref->* TO <zeltup01a_ptr>. ” Unicode
APPEND <zeltup01a_ptr> TO zeltup01a_itab. ” will be reloaded to db
ENDCASE.
ENDDO.

IF testmode IS INITIAL AND object_cnt EQ commit_cnt.
PERFORM insert_from_table. ” reload to database
CLEAR object_cnt. ” restart counting up to
ENDIF. ” value of commit counter
ENDDO.

IF testmode IS INITIAL AND object_cnt GE 1.
PERFORM insert_from_table. ” reloading records of last file
ENDIF.

* get all processed files for update of index status
CALL FUNCTION ‘ARCHIVE_GET_ARCHIVE_FILES’
EXPORTING
archive_handle = read_handle
TABLES
archive_files = sel_files_itab.

* create statistics list when production mode
IF testmode IS INITIAL.
CALL FUNCTION ‘ARCHIVE_WRITE_STATISTICS’
EXPORTING
archive_handle = read_handle.
ENDIF.

* close the archiving session
CALL FUNCTION ‘ARCHIVE_CLOSE_FILE’
EXPORTING
archive_handle = read_handle.

* set status “index deleted” in SARA administration
IF testmode IS INITIAL.
CALL FUNCTION ‘ARCHIVE_ADMIN_SET_STATUS’
EXPORTING
files_are_converted = ‘ ‘
index_deleted = ‘X’
TABLES
archive_files = sel_files_itab.
ENDIF.

*———————————————————————*
* FORM INSERT_FROM_TABLE *
*———————————————————————*
*global: ZELTUP01a_itab *
*———————————————————————*
FORM insert_from_table.
REFRESH stat_itab.
INSERT zeltup01a FROM TABLE zeltup01a_itab ACCEPTING DUPLICATE KEYS.
tabfield-tabname = ‘ ‘.
tabfield-count = object_cnt.
APPEND tabfield TO stat_itab.
tabfield-tabname = ‘ZELTUP01A’.
tabfield-count = sy-dbcnt.
APPEND tabfield TO stat_itab.

CALL FUNCTION ‘ARCHIVE_GIVE_STATISTICS’
EXPORTING
archive_handle = read_handle
TABLES
table = stat_itab.
COMMIT WORK.
REFRESH zeltup01a_itab.
ENDFORM. “insert_from_table

*———————————————————————*
* Form DELETE_INDEX_TAB *
*———————————————————————*
* global: index_tab *
*———————————————————————*
FORM delete_index_tab.
IF testmode IS INITIAL.
DELETE arch_idx_s FROM TABLE index_tab.
ENDIF.
REFRESH index_tab. 


ENDFORM. ” DELETE_INDEX_TAB

_M#]

 


–> 아카이빙 오브젝트에 Assign한 프로그램 ID로 생성합니다.






4. 아카이빙 수행(Transaction : SARA)











참고 블로그 : http://blog.naver.com/PostView.nhn?blogId=wonnycom&logNo=40118390205&redirect=Dlog&widgetTypeCall=true











Subscribe
Notify of
guest
0 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments