topic Re: Batch ibput in Application Development and Automation Discussions

Batch ibput

Former Member — Tue, 27 Jun 2006 08:52:24 GMT

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.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 08:59:56 GMT

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

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:01:03 GMT

how i can export with Bi

what is the syntax PLS

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:02:03 GMT

Hey,

Use GUI_UPLOAD and GUI_DOWNLOAD FMs.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:25:44 GMT

what?

how could i do it?

i'm in my prog zxxx.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:45:46 GMT

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.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:51:12 GMT

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.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 09:54:35 GMT

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.

Re: Batch ibput

Former Member — Tue, 27 Jun 2006 10:32:49 GMT

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