SE15 下载表结构

之前下载表结构都是写代码，最后会附上代码

后来才只是se15可以下载表结构，当然更多功能自己去研究就行。

































自建下载程序代码：（忘了从哪儿copy后修改的了，好久了）

REPORT ZLM_DOWN_TAB.

***************************************************************
***REPNAME: 批量下载程序和表结构 ***

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

TABLES:TADIR,TRDIRT,TSTC,DD03L,DD02L,DD04L,DD02T,DD03T,DD04T.
DATA: BEGIN OF YTADIR OCCURS 0.
     
  INCLUDE STRUCTURE TADIR.
     
  INCLUDE STRUCTURE TRDIRT.
DATA: END OF YTADIR.
DATA:PROG(72) TYPE C OCCURS 0 WITH HEADER LINE.
*表结构
DATA:BEGIN OF TAB OCCURS 0.
     
  INCLUDE STRUCTURE DD03L.
DATA:TEXT(40).
DATA:END OF TAB.
DATA:BEGIN OF T1 OCCURS 0,
     
 TABNAME LIKE DD02L-TABNAME,
     
 DDTEXT  LIKE DD02T-DDTEXT,
     END OF
T1.
DATA:BEGIN OF ITAB OCCURS 0,
     
 FIELD(15), "字段
     
 KEY(6), "关键字
     
 ELMENT(15), "字段类型
     
 TYPE(10), "数据类型
     
 LENG(8) , "长度
     
 DECIMALS(8) , "小数
     
 CHK(10), "表检查
     
 CAN(10), "参考表
     
 CFI(10), "参考字段
     
 TEXT(40), "字段描述
     END OF
ITAB.
DATA: YYNAME TYPE RLGRAP-FILENAME.
DATA: TT(500) OCCURS 0 WITH HEADER LINE.
DATA: RN(72).
DATA:FIELDS(40),
     LIN
     
 TYPE I,
   
 VAL(30),
   
 REP(40).
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
PARAMETERS:P_DIR(50) DEFAULT 'C:\'. "下载路径
PARAMETERS:STYPE(6) DEFAULT 'xls'.
SELECT-OPTIONS:TABNAME FOR DD02L-TABNAME. "下载表名称
SELECTION-SCREEN END OF BLOCK BLK1.

INITIALIZATION .

START-OF-SELECTION .

  IF TABNAME IS INITIAL.
    MESSAGE
  'INPUT DB TAB NAME!' TYPE 'E'.
  ELSE.
    PERFORM
GET_TABLE_DATA.
  ENDIF.

AT LINE-SELECTION.
  CLEAR: FIELDS, LIN.
  GET CURSOR FIELD FIELDS LINE LIN VALUE
VAL.
  LIN = LIN - 1.
  IF LIN >= 1.
    READ TABLE YTADIR INDEX
LIN.
    IF SY-SUBRC = 0.
      CLEAR
REP.
      CLEAR
PROG.
      REP =
YTADIR-OBJ_NAME.
      READ
REPORT REP INTO PROG.
     
EDITOR-CALL FOR PROG.
    ENDIF.
  ENDIF.

END-OF-SELECTION.

*---------------------------------------------------------------------*
* FORM GET_TABLE_DATA *

*---------------------------------------------------------------------*
* ........ *

*---------------------------------------------------------------------*
FORM GET_TABLE_DATA.
  SELECT DISTINCT * INTO CORRESPONDING FIELDS
OF TABLE T1
    FROM DD02T WHERE TABNAME
IN TABNAME
     AND
DDLANGUAGE EQ SY-LANGU.

 IF SY-SUBRC <>
0.
  MESSAGE 'INPUT ERRO' TYPE 'E'.
 ENDIF.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE
TAB FROM DD03L AS A
  WHERE A~TABNAME IN TABNAME.
     IF
SY-SUBRC <> 0.
  MESSAGE 'INPUT ERRO' TYPE 'E'.
 ENDIF.

  SORT TAB BY TABNAME POSITION.
 
WRITE:/'字段名','关键字','数据元素','数据类型','长度','小数',
  '表检查','参考表','参考字段','字段描述'.
  ULINE.
  LOOP AT T1.
    REFRESH ITAB.
    CLEAR YYNAME.
    ITAB-FIELD =
'FIELD'.
    ITAB-KEY = 'KEY'.
    ITAB-ELMENT =
'ELEMENT'.
    ITAB-TYPE =
'TYPE'.
    ITAB-TYPE =
'TYPE'.
    ITAB-DECIMALS =
'DECIMALS'.
    ITAB-TEXT =
'TEXT'.
    ITAB-CHK =
'CHECKTABLE'.
    ITAB-CAN =
'REFTABLE'.
    ITAB-CFI =
'REFFIELD'.

    APPEND ITAB.
    CLEAR ITAB.
    CONCATENATE T1-TABNAME
'_' T1-DDTEXT '的表结构如下:'
    INTO YYNAME.
    FORMAT COLOR 3.
    WRITE:/ YYNAME.
    FORMAT COLOR OFF.

    LOOP AT TAB WHERE
TABNAME = T1-TABNAME.
     
ITAB-FIELD = TAB-FIELDNAME.
     
ITAB-KEY = TAB-KEYFLAG.
     
ITAB-ELMENT = TAB-ROLLNAME.
     
ITAB-TYPE = TAB-DATATYPE.
     
ITAB-LENG = TAB-LENG.
     
ITAB-CHK = TAB-CHECKTABLE.
     
ITAB-CAN = TAB-REFTABLE.
     
ITAB-CFI = TAB-REFFIELD.
     
ITAB-DECIMALS = TAB-DECIMALS.
      IF
TAB-ROLLNAME NE SPACE.
     
  SELECT SINGLE * FROM DD04T WHERE ROLLNAME =
TAB-ROLLNAME
     
  AND DDLANGUAGE = SY-LANGU.
     
  IF SY-SUBRC = 0.
     
    ITAB-TEXT =
DD04T-DDTEXT.
     
  ELSE.
     
    CLEAR ITAB-TEXT.
     
  ENDIF.
     
ELSE.
     
  SELECT SINGLE * FROM DD03T WHERE TABNAME =
TAB-TABNAME
     
  AND DDLANGUAGE = SY-LANGU
     
  AND FIELDNAME = TAB-FIELDNAME.
     
  IF SY-SUBRC = 0.
     
    ITAB-TEXT =
DD03T-DDTEXT.
     
  ELSE.
     
    CLEAR ITAB-TEXT.
     
  ENDIF.
     
ENDIF.
     
APPEND ITAB.
     
WRITE:/ ITAB-FIELD,ITAB-KEY,ITAB-ELMENT,ITAB-TYPE,ITAB-LENG,
     
ITAB-DECIMALS,ITAB-CHK,ITAB-CAN,ITAB-CFI,ITAB-TEXT.
      CLEAR
ITAB.
    ENDLOOP.

    CONCATENATE P_DIR
T1-TABNAME '_' T1-DDTEXT '.' STYPE
    INTO YYNAME.
    CALL FUNCTION
'WS_DOWNLOAD'
     
EXPORTING
     
  FILENAME = YYNAME
     
  FILETYPE = 'DAT'
     
TABLES
     
  DATA_TAB = ITAB.
    ULINE.
  ENDLOOP.
ENDFORM.