ABAP实例：编写下载并在客户端打开的程序示例-技术开发专区

ABAP实例：编写下载并在客户端打开的程序示例

作者：SAP网编辑：李倩 2009-07-22 09:35 来源：IT168�

【IT168 技术文章】

    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.

关注我们