在使用的时候，只需要输入表名或结构名即可，其他不用输入。 REPORT: z_test1.
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 wa_itab LIKE LINE OF itab.
DATA: yyname(150).
DATA: tt(500) OCCURS 0 WITH HEADER LINE.
DATA: rn(72).
DATA: f_dir TYPE string.
DATA:fields(40),
lin TYPE i,
val(30),
rep(40).
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS:dow AS CHECKBOX. "是否下载 PARAMETERS:p_dir TYPE localfile DEFAULT 'D:\SAP开发程序'. "下载路径
PARAMETERS:stype(6) DEFAULT 'TXT'.
PARAMETERS:r1 土豆削皮机RADIOBUTTON GROUP r ,
r2 RADIOBUTTON GROUP r DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME.
SELECT-OPTIONS:author FOR tadir-author. "开发人
SELECT-OPTIONS:devclass FOR tadir-devclass. "开发类
SELECT-OPTIONS:obj FOR tadir-obj_name . "下载程序名称
SELECT-OPTIONS:tabname FOR dd02l-tabname . "下载表名称
SELECTION-SCREEN END OF BLOCK blk2.
INITIALIZATION .
START-OF-SELECTION .
IF r1 = 'X'.
PERFORM get_data.
ENDIF.
IF r2 = 'X'.
IF tabname IS INITIAL.
MESSAGE i000(znyj13) WITH '请输入要下载的表名!'.
ELSE.
PERFORM get_table_data.
ENDIF.
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.
* SET PARAMETER ID 'RID' FIELD REP.
* CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
END-OF-SELECTION.
*---------------------------------------------------------------------*
* FORM GET_DATA *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM get_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE ytadir
FROM tadir
INNER JOIN trdirt ON tadir~obj_name = trdirt~name
WHERE object = 'PROG'
AND obj_name IN obj
AND devclass IN devclass
AND author IN author.
SORT ytadir BY obj_name.
WRITE数控卧式滚齿机:/ '开发类','开发人','程序名称'飞机加油车,'程序标题'.
LOOP AT ytadir.
IF dow = 'X'.
REFRESH tt.
rn = ytadir-obj_name.
READ REPORT rn INTO tt.
CONCATENATE p_dir ytadir-author '_' ytadir-obj_name
'_' ytadir-text '.' stype
INTO yyname.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
filename = yyname
filetype = 'ASC'
TABLES
data_tab = tt.
IF sy-subrc = 0.
WRITE:/1(10) ytadir-devclass,
(8) ytadir-author,
(15) ytadir-obj_name,
(40) ytadir-text.
FORMAT COLOR 5.
WRITE: '已下载'.
FORMAT COLOR OFF.
ELSE.
WRITE:/ ytadir-devclass,ytadir-author,ytadir-obj_name,ytadir-text.
FORMAT COLOR 4.
WRITE: '无法下载'.
FORMAT COLOR OFF.
ENDIF.
ELSE.
WRITE:wo318/ ytadir-devclass,ytadir-author,ytadir-obj_name,ytadir-text.
ENDIF.
ENDLOOP.
ENDFORM. "GET_DATA
*---------------------------------------------------------------------*
* 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 '1'.
SELECT * INTO CORRESPONDING FIELDS OF TABLE tab FROM dd03l AS a
WHERE a~tabname IN tabname.
SORT tab BY tabname position.
* uline.
* write:/ sy-vline, at 2(10) '字段名',
* sy-vline,at 14(10)'关键字',
* sy-vline,at 26(10) '数据元素',
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议