topic Re: idoc in Application Development and Automation Discussions

idoc

Former Member — Tue, 20 Feb 2007 06:03:34 GMT

Is it posible to transfer data using IDOCs into SAP from:

1. an excel or text file on my presentation server and;

2. a file on my application server.

If posible may you please show how best i can do it

Re: idoc

Former Member — Tue, 20 Feb 2007 11:36:39 GMT

yes u can .....

if u r question is to generate idocs form a flat file form application or presentation server...i can send u the code...

Re: idoc

Former Member — Tue, 20 Feb 2007 11:43:59 GMT

here is the sample code

REPORT Z_NV_ORDERS_251.

TABLES: e1edk01,

e1edk14,

e1edk03,

e1edka1,

e1edk02,

e1edp01,

e1edp19.

PARAMETERS: p_load(01) DEFAULT 'A' OBLIGATORY,

*this isto upload data from the application server

p0_filex LIKE filename-fileextern LOWER CASE

DEFAULT '/PDIS/NAVMAN/INBOX/',

*this is to upload data from presentation layer

p1_filex LIKE RLGRAP-FILENAME,

*logical system

p0_logsy LIKE tbdls-logsys.

PARAMETERS: pi_auart LIKE vbak-auart MEMORY ID aat

DEFAULT 'ZNTA'(aat).

DATA: BEGIN OF sun OCCURS 0,

dummy(600) TYPE c,

END OF sun.

DATA: wa1 like LINE OF sun.

DATA:file type string.

DATA: BEGIN OF protocol OCCURS 0.

INCLUDE STRUCTURE btcxpm.

DATA: END OF protocol.

DATA: name LIKE sxpgcolist-name,

path LIKE sxpgcolist-parameters.

DATA: itab LIKE sun OCCURS 0.

data: begin of stab occurs 0,

f1(10),

f2(35),

f3(10),

f4(18),

f5(10),

f6(10),

f7(10),

f8(10),

f9(10),

f10(10),

end of stab.

data: stab_wa like stab.

DATA: zf_docnum LIKE sy-tfill.

DATA: BEGIN OF it_edidc OCCURS 0,

xx LIKE edi_dc,

END OF it_edidc.

DATA: BEGIN OF it_edidd OCCURS 0,

xx LIKE edi_dd,

END OF it_edidd.

INITIALIZATION.

CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'

IMPORTING

own_logical_system = p0_logsy

EXCEPTIONS

OTHERS = 9.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno

DISPLAY LIKE sy-msgty

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

START-OF-SELECTION.

IF NOT p0_filex IS INITIAL OR

NOT p1_filex IS INITIAL .

IF p_load = 'A'.

PERFORM get_files.

LOOP AT protocol.

CHECK protocol-message CS '.CSV' AND

protocol-message CS 'FTP.TPL'.

IF p0_logsy(3) = 'GP7'.

CONCATENATE path protocol-message+60 INTO p0_filex.

ELSE.

CONCATENATE path protocol-message+58 INTO p0_filex.

ENDIF.

OPEN DATASET p0_filex

FOR INPUT

IN TEXT MODE ENCODING DEFAULT.

if sy-subrc = 0.

do.

READ DATASET p0_filex INTO wa1.

IF sy-subrc <> 0.

EXIT.

ENDIF.

append wa1 to itab.

enddo.

endif.

break garvl55.

close dataset p0_filex.

DELETE DATASET p0_filex.

endloop.

elseif p_load = 'W'.

file = p1_filex.

CALL FUNCTION 'UPLOAD'

EXPORTING

FILENAME = p1_filex

FILETYPE = 'ASC'

TABLES

DATA_TAB = iTAB

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 6

OTHERS = 7.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file
filetype = 'CSV'
TABLES
data_tab = itab
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.

endif.

loop at itab into wa1.

split wa1 at '|' into stab-f1 stab-f2 stab-f3

stab-f4 stab-f5 stab-f6

stab-f7 stab-f8 stab-f9

stab-f10.

append stab.

endloop.

data: wa like stab.

if stab is not initial.

loop at stab into stab_wa.

if stab_wa-f1 cs 'Pack Num'.

else.

wa = stab_wa.

CLEAR it_edidd.

it_edidd-xx-docnum = zf_docnum.

it_edidd-xx-segnum = '000001'.

at new f1.

PERFORM idoc_control.

CLEAR it_edidd.

it_edidd-xx-docnum = zf_docnum.

it_edidd-xx-segnum = '000001'.

creating segement 'E1EDK01'

it_edidd-xx-segnam = 'E1EDK01'.

CLEAR e1edk01.

e1edk01-BSART = 'EDI'.

e1edk01-belnr = stab_wa-f1.

it_edidd-xx-sdata = e1edk01.

APPEND it_edidd.

end of segement 'E1EDK01'

*creating segement 'E1EDK014'