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.
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.