palyboysap abap查询透明表、表结构 显示方式为ALV(主要用于快速复制表、结构的字段用)

2021年1月21日发(作者：老鸨子)
注意：本程序只能用于方便查看和导出透明表、表结构的结构。

在使用的时候，只需要输入表名或结构名即可，其他不用输入。



REPORT
:
z_test1
.


TABL ES
:
tadir
,
trdirt
,
tstc
,< br>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
-
dev class
,
ytadir
-
author
,
ytadir
-
obj_name
,
ytadir
-
text
.


FORMAT COLOR
4
.


WRITE
:
'
无法下载
'
.


FORMAT COLOR
OFF
.



ENDIF
.


ELSE
.


WRITE
:
/ ytadir
-
devclass
,ytadir
-
author
,
ytadir
-
obj _name
,
ytadir
-
te
xt
.


ENDIF
.



ENDLOOP
.


ENDFORM
.



*------------------------------- -------------------------------------
-*

* FORM GET_TABLE_DATA *

*------------- -------------------------------------------------- -----