数据库簇的操作

来源：互联网发布：奇艺qsv转换工具 mac 编辑：程序博客网时间：2024/04/28 18:17

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'.