SAP 读取本地文件

 

DATA: BEGIN OF ITAB_TXT OCCURS 0,
        LINE(256),
      END OF ITAB_TXT.
  DATA:PCSVF LIKE RLGRAP-FILENAME.

  DATA:P_VFNR(60) TYPE C .

  P_VFNR = 'C:\DATA\ZXL200506280001'.

  PCSVF = P_VFNR.


    CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
               FILENAME  = PCSVF
               FILETYPE  = 'ASC'
      TABLES
               DATA_TAB  = ITAB_TXT
      EXCEPTIONS
        CONVERSION_ERROR = 1
        FILE_OPEN_ERROR = 2
        FILE_READ_ERROR = 3
        INVALID_TYPE = 4
        NO_BATCH = 5
        UNKNOWN_ERROR = 6
        INVALID_TABLE_WIDTH = 7
        GUI_REFUSE_FILETRANSFER = 8
        CUSTOMER_ERROR = 9.

    IF SY-SUBRC NE 0.
      MESSAGE E001 WITH CNS_V P_VFNR.
      STOP.
    ENDIF.
    LOOP AT ITAB_TXT.

       .......

    ENDLOOP.