REPORT z_cluster_test NO STANDARD PAGE HEADING.
DATA: wa_indx TYPE indx,
it_lfa1 LIKE TABLE OF lfa1 WITH HEADER LINE ,
dirtab TYPE TABLE OF cdir WITH HEADER LINE .
START-OF-SELECTION.
SELECT *
INTO TABLE it_lfa1
FROM lfa1
UP TO 100 ROWS.
wa_indx-aedat = sy-datum.
wa_indx-usera = sy-uname.
wa_indx-pgmid = sy-repid.
EXPORT it_lfa1 TO DATABASE indx(hk) ID 'Table' FROM wa_indx.
REFRESH:it_lfa1.
WRITE: '区域',
AT 20 '标识',
AT 35 '计数器',
AT 50 '日期',
AT 65 '用户' ,
AT 80 'ABAP程序名' .
ULINE.
SELECT *
FROM indx
INTO wa_indx
WHERE relid = 'HK' AND
srtfd = 'Table'.
WRITE: / wa_indx-relid UNDER '区域' ,
wa_indx-srtfd UNDER '标识' ,
wa_indx-srtf2 UNDER '计数器' LEFT-JUSTIFIED ,
wa_indx-aedat UNDER '日期',
wa_indx-usera UNDER '用户',
wa_indx-pgmid UNDER 'ABAP程序名'.
ENDSELECT.
IMPORT DIRECTORY INTO dirtab FROM DATABASE indx(hk) ID 'Table'.
SKIP 2.
WRITE: / '对象名',
20 '对象类型',
35 '字段类型',
50 '表格行数',
65 '字段长度' .
ULINE.
LOOP AT dirtab.
WRITE : / dirtab-name UNDER '对象名',
dirtab-otype UNDER '对象类型' LEFT-JUSTIFIED ,
dirtab-ftype UNDER '字段类型' LEFT-JUSTIFIED ,
dirtab-tfill UNDER '表格行数' LEFT-JUSTIFIED ,
dirtab-fleng UNDER '字段长度' LEFT-JUSTIFIED .
ENDLOOP.
IMPORT it_lfa1 FROM DATABASE indx(hk) ID 'Table'.
BREAK-POINT.
ULINE.
LOOP AT it_lfa1.
WRITE:/ it_lfa1-lifnr,it_lfa1-name1,it_lfa1-land1.
ENDLOOP.
DELETE FROM DATABASE indx(hk) ID 'Table'.
数据库簇的操作
最新推荐文章于 2024-07-20 20:04:43 发布