ABAP--编写下载（AS－>PC）并在客户端打开的程序示例

2006年08月30日 13:11:00

report Z_TEST.

data: begin of mtab occurs 1,
text(72),
end of mtab.

data: winsys(2).

read report 'Z_TEST' into mtab.

*Read PC platform
call function 'WS_QUERY'
exporting
query = 'WS'
importing
return = winsys.
case winsys.
when 'MF'. "// Unix-Motif
call function 'WS_DOWNLOAD'
exporting
filename = 'mess.dat'
filetype = 'ASC'
tables
data_tab = mtab.

call function 'WS_EXECUTE'
exporting
inform = 'X'
program = '/usr/local/bin/xmessage'
commandline = '-file mess.dat'.
when 'PM'. "// OS/2-PM
call function 'WS_DOWNLOAD'
exporting
filename = 'C:/MESS.DAT'
filetype = 'ASC'
tables
data_tab = mtab.

call function 'WS_EXECUTE'
exporting
inform = 'X'
program = 'E'
commandline = 'C:/MESS.DAT'.
when 'WN'. "// Windows
call function 'WS_DOWNLOAD'
exporting
filename = 'C:/MESS.DAT'
filetype = 'ASC'
tables
data_tab = mtab.

call function 'WS_EXECUTE'
exporting
inform = 'X'
program = 'NOTEPAD'
commandline = 'C:/MESS.DAT'.
when 'MC'. "// Mac
data: path like rlgrap-filename, cd like rlgrap-filename.
call function 'WS_QUERY'
exporting
query = 'CD'
importing
return = cd.

path = cd.
data len type i.
len = strlen( path ).
write 'MESS.DAT' to path+len.

call function 'WS_DOWNLOAD'
exporting
filename = path
filetype = 'ASC'
tables
data_tab = mtab.

path ='open file "'.
len = strlen( path ).
write cd to path+len.
len = strlen( path ).
write 'MESS.DAT"' to path+len.

call function 'WS_EXECUTE'
exporting
program = 'ttxt'
commandline = path
osmac_creator = 'X'
osmac_script = 'X'.

when others.
write: / text-001. "// illegal frontend
endcase.

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1143732