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

最新推荐文章于 2025-01-06 15:35:10 发布

iteye_9825

最新推荐文章于 2025-01-06 15:35:10 发布

阅读量251

点赞数

文章标签： C C++ C# OS Unix

本文介绍了一种在不同平台上实现文件下载并显示的方法。针对不同的操作系统（如Unix-Motif、OS/2-PM、Windows和Mac），通过调用特定的系统功能，将数据从ABAP系统下载到客户端，并使用相应的程序打开文件。此过程涉及多个步骤，包括查询平台类型、下载文件以及执行显示文件的应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.