‎2006 Jun 27 9:52 AM
i use bi and i want to read the data
this FM is gooD?
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = abaplist
EXCEPTIONS
OTHERS = 1.
CALL FUNCTION 'LIST_TO_ASCI'
TABLES
listasci = itab
listobject = abaplist
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
‎2006 Jun 27 9:59 AM
Hi,
these function modules will be use for the data ehich we get from the memory .....
if you exported a list to the memory. you can get the data by using these function modules
Thanks
Sudheer
‎2006 Jun 27 10:01 AM
‎2006 Jun 27 10:02 AM
‎2006 Jun 27 10:25 AM
‎2006 Jun 27 10:51 AM
data: V_FIL_NAM TYPE STRING,
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = V_FIL_NAM
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
IMPORTING
FILELENGTH =
HEADER =
TABLES
DATA_TAB = I_FINAL[]
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
‎2006 Jun 27 10:54 AM
first u create the text file:
matnr werks
1 aa
2 bb
3 cc
Then u try this program:
REPORT ZBASKAR.
************************************************************************
T Y P E S *
************************************************************************
Structure for Final Internal Table
TYPES: BEGIN OF TY_FINAL,
MATNR LIKE RC29N-MATNR, "Material BOM
WERKS LIKE RC29N-WERKS, "Plant
END OF TY_FINAL.
************************************************************************
I N T E R N A L T A B L E S *
************************************************************************
Final Internal Table
DATA: I_FINAL TYPE STANDARD TABLE OF TY_FINAL WITH HEADER LINE.
To fill the data from text file
DATA: BEGIN OF I_FILL OCCURS 0,
TEXT(100),
END OF I_FILL.
************************************************************************
D A T A *
************************************************************************
DATA: V_PRG_NAM LIKE SY-REPID, "Current Program name
V_SCR_NUM LIKE SY-DYNNR, "Current screen number
V_FIL_NAM TYPE STRING, "File name
V_I_DAT TYPE D, "Date
V_DAT(10) TYPE C. "Date
************************************************************************
S E L E C T - O P T I O N S / P A R A M E T E R S *
************************************************************************
PARAMETERS: P_FLNAM LIKE RLGRAP-FILENAME.
************************************************************************
I N I T I A L I Z A T I O N *
************************************************************************
INITIALIZATION.
V_PRG_NAM = SY-REPID. "Current Program name
V_SCR_NUM = SY-DYNNR. "Current screen number
************************************************************************
A T S E L E C T I O N - S C R E E N *
************************************************************************
Get F4 help for File name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FLNAM.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = V_PRG_NAM
DYNPRO_NUMBER = V_SCR_NUM
FIELD_NAME = ' '
STATIC = ' '
MASK = ' '
CHANGING
FILE_NAME = P_FLNAM
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
************************************************************************
S T A R T - O F - S E L E C T I O N *
************************************************************************
START-OF-SELECTION.
PERFORM F_FILL_FINAL.
************************************************************************
E N D - O F - S E L E C T I O N *
************************************************************************
END-OF-SELECTION.
PERFORM F_DISPLAY_FINAL.
************************************************************************
F O R M S *
************************************************************************
&----
*& Form f_fill_final
&----
Fills final internal table from text file
----
FORM F_FILL_FINAL .
Assign the file name to variable for FM
V_FIL_NAM = P_FLNAM.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = V_FIL_NAM
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
IMPORTING
FILELENGTH =
HEADER =
TABLES
DATA_TAB = I_FILL[]
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
.
IF SY-SUBRC = 0.
LOOP AT I_FILL.
SPLIT I_FILL AT ',' INTO I_FINAL-MATNR I_FINAL-WERKS.
APPEND I_FINAL.
ENDLOOP.
ENDIF.
ENDFORM. " F_FILL_FINAL
&----
*& Form F_DISPLAY_FINAL
&----
Display the records
----
FORM F_DISPLAY_FINAL .
LOOP AT I_FINAL.
WRITE: /1(18) I_FINAL-MATNR, "Material BOM
19(4) I_FINAL-WERKS. "Plant
ENDLOOP.
it will display the output properly.
‎2006 Jun 27 10:45 AM
Hi
If you want to upload a text file into an internal table from your presentation server then use the foll
If it is tab separated then parameter has_field_separator should be = X
DATA: lcl_filename TYPE string.
lcl_filename = filename.
IF filename IS NOT INITIAL.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = lcl_filename
filetype = 'ASC'
has_field_separator = 'X'
TABLES
data_tab = upload_table
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
‎2006 Jun 27 11:32 AM
i am not sure you understand me?
i have zprog , in the zprog i craete BI for mb5b
and i have list on the screen , how i can upload the data from the screen