从FTP server读取数据（2）

loop at data.

    if data-line cs lftpfile.

      write:/ data-line.

 

      search data-line for 'EDI'.

      if sy-subrc = 0.

        move data+sy-fdpos(50) to data.

      endif.

 

       clear:commands.

      refresh:commands.

“ 使用GET命令来获取文本文件的内容

      concatenate 'get' data-line '/usr/sap/trans/edi846/edi846#1.txt'

          into commands-cmd separated by space.

 

      append commands.

      call function 'FTP_COMMAND'

           exporting

                handle        = hdl

                command       = commands-cmd

           tables

                data          = result

           exceptions

                command_error = 1

                tcpip_error   = 2.

 

 

 data: begin of stuo,

        strdata(255) value '',

        end of stuo.

  data: stu like stuo occurs 0 with header line.

  data: dsn like rlgrap-filename.

  dsn = '/usr/sap/trans/edi846/edi846#1.txt'.

“使用OPEN语句以文本模式打开 DSN FILE

  open dataset dsn in text mode for input.

  do.

“使用Read 语句来读取文件内容到内表中

    read dataset dsn into stu-strdata.

    if sy-subrc <> 0. exit. endif.

    append stu.

  enddo.

  close dataset dsn.

 

 

    concatenate 'bak/' data-line into lbakfile.  “备份文件到bak文件夹下

        concatenate 'rename' data-line lbakfile

            into commands-cmd separated by space.

        call function 'FTP_COMMAND'

             exporting

                  handle        = hdl

                  command       = commands-cmd

             tables

                  data          = result

             exceptions

                  command_error = 1

                  tcpip_error   = 2.

 

  endif.

 endloop.

 

 call function 'FTP_DISCONNECT'

    exporting

      handle = hdl.

 

      loop at stu.

        write:/ stu-strdata.

      endloop.

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15117617/viewspace-548790/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15117617/viewspace-548790/