[ABAP][FC]Function UPLOAD and WS_UPLOAD

 FUNCTION: UPLOAD.
*"----------------------------------------------------------------------
*"*"Globale Schnittstelle:
*"  IMPORTING
*"     VALUE(CODEPAGE) DEFAULT SPACE
*"     VALUE(FILENAME) LIKE  RLGRAP-FILENAME DEFAULT SPACE
*"     VALUE(FILETYPE) LIKE  RLGRAP-FILETYPE DEFAULT SPACE
*"     VALUE(ITEM) DEFAULT SPACE
*"     VALUE(FILEMASK_MASK) DEFAULT SPACE
*"     VALUE(FILEMASK_TEXT) DEFAULT SPACE
*"     VALUE(FILETYPE_NO_CHANGE) DEFAULT SPACE
*"     VALUE(FILEMASK_ALL) DEFAULT SPACE
*"     VALUE(FILETYPE_NO_SHOW) DEFAULT SPACE
*"     VALUE(LINE_EXIT) DEFAULT SPACE
*"     VALUE(USER_FORM) DEFAULT SPACE
*"     VALUE(USER_PROG) DEFAULT SPACE
*"     VALUE(SILENT) DEFAULT 'S'
*"  EXPORTING
*"     VALUE(FILESIZE)
*"     VALUE(CANCEL)
*"     VALUE(ACT_FILENAME) LIKE  RLGRAP-FILENAME
*"     VALUE(ACT_FILETYPE) LIKE  RLGRAP-FILETYPE
*"  TABLES
*"      DATA_TAB
*"  EXCEPTIONS
*"      CONVERSION_ERROR
*"      INVALID_TABLE_WIDTH
*"      INVALID_TYPE
*"      NO_BATCH
*"      UNKNOWN_ERROR
*"      GUI_REFUSE_FILETRANSFER
*"----------------------------------------------------------------------

<!----> FUNCTION: WS_UPLOAD.
*"----------------------------------------------------------------------
*"*"Globale Schnittstelle:
*"  IMPORTING
*"     VALUE(CODEPAGE) DEFAULT SPACE
*"     VALUE(FILENAME) LIKE  RLGRAP-FILENAME DEFAULT SPACE
*"     VALUE(FILETYPE) LIKE  RLGRAP-FILETYPE DEFAULT 'ASC'
*"     VALUE(HEADLEN) DEFAULT SPACE
*"     VALUE(LINE_EXIT) DEFAULT SPACE
*"     VALUE(TRUNCLEN) DEFAULT SPACE
*"     VALUE(USER_FORM) DEFAULT SPACE
*"     VALUE(USER_PROG) DEFAULT SPACE
*"     VALUE(DAT_D_FORMAT) TYPE  DATEFORMAT DEFAULT SPACE
*"  EXPORTING
*"     VALUE(FILELENGTH)
*"  TABLES
*"      DATA_TAB
*"  EXCEPTIONS
*"      CONVERSION_ERROR
*"      FILE_OPEN_ERROR
*"      FILE_READ_ERROR
*"      INVALID_TYPE
*"      NO_BATCH
*"      UNKNOWN_ERROR
*"      INVALID_TABLE_WIDTH
*"      GUI_REFUSE_FILETRANSFER
*"      CUSTOMER_ERROR
*"      NO_AUTHORITY

猜你喜欢

转载自klg.iteye.com/blog/285896
今日推荐