一个不错的下载ABAP程序和表格的程序
2007-02-03 10:31
316 查看
今天在群里回答了一个群友贴的一段代码问题,解决问题的同时发现这段程序挺有用的。可以用来进行开发统计,或者个人代码备份之用,不敢独享,贴到小博里供大家参考。选屏界面的字段描述需要自行添加,可以参看我后面的附图。------注(本文源于网络)
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*& Report ZZHENGXB_TEST_DOWNLOAD
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*& 批量下载程序和表结构
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REPORT ZZHENGXB_TEST_UPLOAD NO STANDARD PAGE HEADING LINE-SIZE 200 MESSAGE-ID WA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES:TADIR,TRDIRT,TSTC,DD03L,DD02L,DD04L,DD02T,DD03T,DD04T.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: BEGIN OF YTADIR OCCURS 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE TADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE TRDIRT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: END OF YTADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:PROG(72) TYPE C OCCURS 0 WITH HEADER LINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*表结构
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF TAB OCCURS 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE DD03L.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:TEXT(40).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:END OF TAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF T1 OCCURS 0,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABNAME LIKE DD02L-TABNAME,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DDTEXT LIKE DD02T-DDTEXT,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END OF T1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF ITAB OCCURS 0,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FIELD(15), "字段
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
KEY(6), "关键字
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELMENT(15), "字段类型
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TYPE(10), "数据类型
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LENG(8) , "长度
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DECIMALS(8) , "小数
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CHK(10), "表检查
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CAN(10), "参考表
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CFI(10), "参考字段
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TEXT(40), "字段描述
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END OF ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: YYNAME(128) TYPE C.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: TT TYPE STRING OCCURS 0 WITH HEADER LINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: RN(72).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:FIELDS(40),
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LIN TYPE I,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
VAL(30),
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REP(40).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:DOW AS CHECKBOX. "是否下载
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:P_DIR(50) DEFAULT 'D:'. "下载路径
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:STYPE(6) DEFAULT 'TXT'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:R1 RADIOBUTTON GROUP R DEFAULT 'X',
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
R2 RADIOBUTTON GROUP R.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN END OF BLOCK BLK1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:AUTHOR FOR TADIR-AUTHOR DEFAULT 'zhengxb'. "开发人
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:DEVCLASS FOR TADIR-DEVCLASS. "开发类
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:OBJ FOR TADIR-OBJ_NAME. "下载程序名称
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:TABNAME FOR DD02L-TABNAME. "下载表名称
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN END OF BLOCK BLK2.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INITIALIZATION .
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
START-OF-SELECTION .
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF R1 = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PERFORM GET_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF R2 = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF TABNAME IS INITIAL.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
MESSAGE I009 WITH '请输入要下载的表名!'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PERFORM GET_TABLE_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AT LINE-SELECTION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR: FIELDS, LIN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
GET CURSOR FIELD FIELDS LINE LIN VALUE VAL.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LIN = LIN - 1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF LIN >= 1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ TABLE YTADIR INDEX LIN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR REP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REP = YTADIR-OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ REPORT REP INTO PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EDITOR-CALL FOR PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* SET PARAMETER ID 'RID' FIELD REP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END-OF-SELECTION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* FORM GET_DATA *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* ........ *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORM GET_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT * INTO CORRESPONDING FIELDS OF TABLE YTADIR
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FROM TADIR
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INNER JOIN TRDIRT
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ON TADIR~OBJ_NAME = TRDIRT~NAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WHERE OBJECT = 'PROG'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND OBJ_NAME IN OBJ
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DEVCLASS IN DEVCLASS
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND AUTHOR IN AUTHOR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SORT YTADIR BY OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ '开发类','开发人','程序名称','程序标题'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT YTADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REFRESH TT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
RN = YTADIR-OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ REPORT RN INTO TT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE P_DIR YTADIR-AUTHOR '_' YTADIR-OBJ_NAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
'_' YTADIR-TEXT '.' STYPE
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CALL FUNCTION 'WS_DOWNLOAD'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXPORTING
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILENAME = YYNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILETYPE = 'ASC'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA_TAB = TT
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXCEPTIONS
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILE_OPEN_ERROR = 1
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILE_WRITE_ERROR = 2
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_FILESIZE = 3
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_TABLE_WIDTH = 4
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_TYPE = 5
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
NO_BATCH = 6
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
UNKNOWN_ERROR = 7.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/1(10) YTADIR-DEVCLASS,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(8) YTADIR-AUTHOR,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(15) YTADIR-OBJ_NAME,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(40) YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 5.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE: '已下载'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YTADIR-DEVCLASS,YTADIR-AUTHOR,YTADIR-OBJ_NAME,YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 4.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE: '无法下载'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YTADIR-DEVCLASS,YTADIR-AUTHOR,YTADIR-OBJ_NAME,YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDFORM. "GET_DATA
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* FORM GET_TABLE_DATA *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* ........ *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORM GET_TABLE_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT DISTINCT * INTO CORRESPONDING FIELDS OF TABLE T1
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FROM DD02T WHERE TABNAME IN TABNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE EQ '1'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT * INTO CORRESPONDING FIELDS OF TABLE TAB FROM DD03L AS A
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WHERE A~TABNAME IN TABNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SORT TAB BY TABNAME POSITION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/'字段名','关键字','数据元素','数据类型','长度','小数',
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
'表检查','参考表','参考字段','字段描述'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ULINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT T1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REFRESH ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-FIELD = '字段名'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-KEY = '关键字'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-ELMENT = '数据元素'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TYPE = '数据类型'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-LENG = '长度'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS = '小数'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = '字段描述'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CHK = '表检查'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CAN = '参考表'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CFI = '参考字段'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
APPEND ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE T1-TABNAME '_' T1-DDTEXT '的表结构如下:'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 3.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT TAB WHERE TABNAME = T1-TABNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-FIELD = TAB-FIELDNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-KEY = TAB-KEYFLAG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-ELMENT = TAB-ROLLNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TYPE = TAB-DATATYPE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-LENG = TAB-LENG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CHK = TAB-CHECKTABLE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CAN = TAB-REFTABLE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CFI = TAB-REFFIELD.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS = TAB-DECIMALS.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF TAB-ROLLNAME NE SPACE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT SINGLE * FROM DD04T WHERE ROLLNAME = TAB-ROLLNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE = '1'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = DD04T-DDTEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT SINGLE * FROM DD03T WHERE TABNAME = TAB-TABNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE = '1'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND FIELDNAME = TAB-FIELDNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = DD03T-DDTEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
APPEND ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ ITAB-FIELD,ITAB-KEY,ITAB-ELMENT,ITAB-TYPE,ITAB-LENG,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS,ITAB-CHK,ITAB-CAN,ITAB-CFI,ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE P_DIR T1-TABNAME '_' T1-DDTEXT '.' STYPE
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CALL FUNCTION 'WS_DOWNLOAD'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXPORTING
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILENAME = YYNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILETYPE = 'ASC'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA_TAB = ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ULINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDFORM. "GET_TABLE_DATA
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*& Report ZZHENGXB_TEST_DOWNLOAD
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*& 批量下载程序和表结构
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*&---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REPORT ZZHENGXB_TEST_UPLOAD NO STANDARD PAGE HEADING LINE-SIZE 200 MESSAGE-ID WA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES:TADIR,TRDIRT,TSTC,DD03L,DD02L,DD04L,DD02T,DD03T,DD04T.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: BEGIN OF YTADIR OCCURS 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE TADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE TRDIRT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: END OF YTADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:PROG(72) TYPE C OCCURS 0 WITH HEADER LINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*表结构
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF TAB OCCURS 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INCLUDE STRUCTURE DD03L.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:TEXT(40).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:END OF TAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF T1 OCCURS 0,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABNAME LIKE DD02L-TABNAME,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DDTEXT LIKE DD02T-DDTEXT,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END OF T1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:BEGIN OF ITAB OCCURS 0,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FIELD(15), "字段
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
KEY(6), "关键字
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELMENT(15), "字段类型
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TYPE(10), "数据类型
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LENG(8) , "长度
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DECIMALS(8) , "小数
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CHK(10), "表检查
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CAN(10), "参考表
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CFI(10), "参考字段
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TEXT(40), "字段描述
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END OF ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: YYNAME(128) TYPE C.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: TT TYPE STRING OCCURS 0 WITH HEADER LINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA: RN(72).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA:FIELDS(40),
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LIN TYPE I,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
VAL(30),
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REP(40).
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:DOW AS CHECKBOX. "是否下载
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:P_DIR(50) DEFAULT 'D:'. "下载路径
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:STYPE(6) DEFAULT 'TXT'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PARAMETERS:R1 RADIOBUTTON GROUP R DEFAULT 'X',
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
R2 RADIOBUTTON GROUP R.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN END OF BLOCK BLK1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:AUTHOR FOR TADIR-AUTHOR DEFAULT 'zhengxb'. "开发人
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:DEVCLASS FOR TADIR-DEVCLASS. "开发类
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:OBJ FOR TADIR-OBJ_NAME. "下载程序名称
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT-OPTIONS:TABNAME FOR DD02L-TABNAME. "下载表名称
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECTION-SCREEN END OF BLOCK BLK2.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INITIALIZATION .
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
START-OF-SELECTION .
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF R1 = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PERFORM GET_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF R2 = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF TABNAME IS INITIAL.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
MESSAGE I009 WITH '请输入要下载的表名!'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
PERFORM GET_TABLE_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AT LINE-SELECTION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR: FIELDS, LIN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
GET CURSOR FIELD FIELDS LINE LIN VALUE VAL.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LIN = LIN - 1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF LIN >= 1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ TABLE YTADIR INDEX LIN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR REP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REP = YTADIR-OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ REPORT REP INTO PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EDITOR-CALL FOR PROG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* SET PARAMETER ID 'RID' FIELD REP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
END-OF-SELECTION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* FORM GET_DATA *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* ........ *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORM GET_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT * INTO CORRESPONDING FIELDS OF TABLE YTADIR
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FROM TADIR
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INNER JOIN TRDIRT
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ON TADIR~OBJ_NAME = TRDIRT~NAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WHERE OBJECT = 'PROG'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND OBJ_NAME IN OBJ
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DEVCLASS IN DEVCLASS
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND AUTHOR IN AUTHOR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SORT YTADIR BY OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ '开发类','开发人','程序名称','程序标题'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT YTADIR.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REFRESH TT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
RN = YTADIR-OBJ_NAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
READ REPORT RN INTO TT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE P_DIR YTADIR-AUTHOR '_' YTADIR-OBJ_NAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
'_' YTADIR-TEXT '.' STYPE
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CALL FUNCTION 'WS_DOWNLOAD'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXPORTING
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILENAME = YYNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILETYPE = 'ASC'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA_TAB = TT
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXCEPTIONS
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILE_OPEN_ERROR = 1
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILE_WRITE_ERROR = 2
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_FILESIZE = 3
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_TABLE_WIDTH = 4
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INVALID_TYPE = 5
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
NO_BATCH = 6
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
UNKNOWN_ERROR = 7.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/1(10) YTADIR-DEVCLASS,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(8) YTADIR-AUTHOR,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(15) YTADIR-OBJ_NAME,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
(40) YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 5.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE: '已下载'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YTADIR-DEVCLASS,YTADIR-AUTHOR,YTADIR-OBJ_NAME,YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 4.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE: '无法下载'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YTADIR-DEVCLASS,YTADIR-AUTHOR,YTADIR-OBJ_NAME,YTADIR-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDFORM. "GET_DATA
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* FORM GET_TABLE_DATA *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
* ........ *
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
*---------------------------------------------------------------------*
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORM GET_TABLE_DATA.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT DISTINCT * INTO CORRESPONDING FIELDS OF TABLE T1
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FROM DD02T WHERE TABNAME IN TABNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE EQ '1'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT * INTO CORRESPONDING FIELDS OF TABLE TAB FROM DD03L AS A
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WHERE A~TABNAME IN TABNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SORT TAB BY TABNAME POSITION.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/'字段名','关键字','数据元素','数据类型','长度','小数',
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
'表检查','参考表','参考字段','字段描述'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ULINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT T1.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
REFRESH ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-FIELD = '字段名'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-KEY = '关键字'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-ELMENT = '数据元素'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TYPE = '数据类型'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-LENG = '长度'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS = '小数'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = '字段描述'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CHK = '表检查'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CAN = '参考表'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CFI = '参考字段'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
APPEND ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE T1-TABNAME '_' T1-DDTEXT '的表结构如下:'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR 3.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FORMAT COLOR OFF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
LOOP AT TAB WHERE TABNAME = T1-TABNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-FIELD = TAB-FIELDNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-KEY = TAB-KEYFLAG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-ELMENT = TAB-ROLLNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TYPE = TAB-DATATYPE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-LENG = TAB-LENG.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CHK = TAB-CHECKTABLE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CAN = TAB-REFTABLE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-CFI = TAB-REFFIELD.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS = TAB-DECIMALS.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF TAB-ROLLNAME NE SPACE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT SINGLE * FROM DD04T WHERE ROLLNAME = TAB-ROLLNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE = '1'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = DD04T-DDTEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
SELECT SINGLE * FROM DD03T WHERE TABNAME = TAB-TABNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND DDLANGUAGE = '1'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
AND FIELDNAME = TAB-FIELDNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF SY-SUBRC = 0.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-TEXT = DD03T-DDTEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
APPEND ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
WRITE:/ ITAB-FIELD,ITAB-KEY,ITAB-ELMENT,ITAB-TYPE,ITAB-LENG,
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ITAB-DECIMALS,ITAB-CHK,ITAB-CAN,ITAB-CFI,ITAB-TEXT.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CLEAR ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
IF DOW = 'X'.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CONCATENATE P_DIR T1-TABNAME '_' T1-DDTEXT '.' STYPE
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
INTO YYNAME.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
CALL FUNCTION 'WS_DOWNLOAD'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
EXPORTING
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILENAME = YYNAME
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
FILETYPE = 'ASC'
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
TABLES
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
DATA_TAB = ITAB.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ELSE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ULINE.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDIF.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDLOOP.
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
ENDFORM. "GET_TABLE_DATA
相关文章推荐
- 一个不错的下载ABAP程序和表格的程序
- [程序收藏]一个不错的下载ABAP程序和表格的程序
- ABAP--一个不错的函数模块的文档生成程序
- ABAP--一个不错的函数模块的文档生成程序
- ABAP--一个不错的函数模块的文档生成程序
- ABAP--一个不错的函数模块的文档生成程序
- ABAP--一个不错的函数模块的文档生成程序
- ABAP--一个不错的函数模块的文档生成程序
- 下载ABAP程序和表格的程序
- 一个不错的表格样式,收藏下
- ABAP--一个极好的调用外部java程序的Search Help Exit的实例(RFC好例子)
- 推荐一个相当不错的安装程序制作软件
- 下载了一个IBM Rational RequisitePro Trial,感觉IBM的用户体验不错
- 介绍一个不错的图书下载网站-顺便推荐几本书
- 官网下载qt-opensource-windows-x86-mingw482_opengl-5.3.1.exe。封装好了Qt libraries、Qt Creator。只需要这一个可执行程序就好了。
- 下载学习资料一个不错的去处
- 一个不错的小软件和一个不错的作者的主页:以管理员权限特定时间运行程序
- HDFS设计思路,HDFS使用,查看集群状态,HDFS,HDFS上传文件,HDFS下载文件,yarn web管理界面信息查看,运行一个mapreduce程序,mapreduce的demo
- 一个不错的可以免费下载的科技论文网站
- 一个针对大学的程序设置表格