topic Read data from ZIDOC in Application Development and Automation Discussions

Read data from ZIDOC

Former Member — Tue, 09 Oct 2007 07:19:40 GMT

Hi Experts,

I have to read the data from Z IDOC in the report. So please suggest me solution for this as i am very new to this technology.

Thanks You

Re: Read data from ZIDOC

Former Member — Tue, 09 Oct 2007 08:19:38 GMT

Hi Sameer,

i am sending some sample program code .

&----

*& Report ZZ_Program_To_Create_Idoc

&----

report zz_program_to_create_idoc .

tables: ekko,ekpo.

selection-screen skip 3.

selection-screen begin of block b1 with frame title titl.

selection-screen skip.

select-options s_ebeln for ekko-ebeln.

selection-screen skip.

selection-screen end of block b1.

data: header_segment_name like edidd-segnam value 'Z1EKKO',

item_segment_name like edidd-segnam value 'Z1EKPO',

idoc_name like edidc-idoctp value 'Z19838IDOC1'.

data: header_segment_data like z1ekko,

item_segment_data like z1ekpo.

data: control_record like edidc.

data: messagetyp like edmsg-msgtyp value 'ZZ9838MESG1'.

data: i_communication like edidc occurs 0 with header line,

i_data like edidd occurs 0 with header line.

data: begin of i_ekko occurs 0,

ebeln like ekko-ebeln,

aedat like ekko-aedat,

bukrs like ekko-bukrs,

bsart like ekko-bsart,

lifnr like ekko-lifnr,

end of i_ekko.

data: begin of i_ekpo occurs 0,

ebelp like ekpo-ebelp,

matnr like ekpo-matnr,

menge like ekpo-menge,

meins like ekpo-meins,

netpr like ekpo-netpr,

end of i_ekpo.

start-of-selection.

select ebeln aedat bukrs bsart lifnr from ekko

into table i_ekko where ebeln in s_ebeln.

select ebelp

matnr

menge

meins

netpr

from ekpo

into table i_ekpo

where ebeln in s_ebeln.

control_record-mestyp = messagetyp.

control_record-rcvprt = 'LS'.

control_record-idoctp = idoc_name.

control_record-rcvprn = '0MART800'.

loop at i_ekko.

header_segment_data-ebeln = i_ekko-ebeln.

header_segment_data-aedat = i_ekko-aedat.

header_segment_data-bukrs = i_ekko-bukrs.

header_segment_data-bsart = i_ekko-bsart.

header_segment_data-lifnr = i_ekko-lifnr.

i_data-segnam = header_segment_name.

i_data-sdata = header_segment_data.

append i_data.

select ebelp

matnr

menge

meins

netpr

from ekpo

into table i_ekpo

where ebeln = i_ekko-ebeln.

loop at i_ekpo.

item_segment_data-ebelp = i_ekpo-ebelp.

item_segment_data-matnr = i_ekpo-matnr.

item_segment_data-menge = i_ekpo-menge.

item_segment_data-meins = i_ekpo-meins.

item_segment_data-netpr = i_ekpo-netpr.

i_data-segnam = item_segment_name.

i_data-sdata = item_segment_data.

append i_data.

endloop.

clear i_ekpo.

refresh i_ekpo.

endloop.

call function 'MASTER_IDOC_DISTRIBUTE'

exporting

master_idoc_control = control_record

OBJ_TYPE = ''
CHNUM = ''

tables

communication_idoc_control = i_communication

master_idoc_data = i_data

exceptions

error_in_idoc_control = 1

error_writing_idoc_status = 2

error_in_idoc_data = 3

sending_logical_system_unknown = 4

others = 5

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

else.

loop at i_communication.

write: 'IDOC GENERATED', i_communication-docnum.

endloop.

commit work.

endif.

initialization.

titl = 'ENTER THE PURCHASE ORDER NUMBER'

i think it will help full for u .

also check yhis link.

http://www.google.com/custom?domains=www.sap-img.com&q=idoc&sa=Search&sitesearch=www.sap-img.com&client=pub-

reward is usefull....

Re: Read data from ZIDOC

Former Member — Tue, 09 Oct 2007 08:35:22 GMT

Hi Sameer,

As you have to read data from Z idoc in the report , you can use the below sample code to do so. This is a dummy Functional module which does the same.

The points important are:-

1. Read the EDIDC structure into workarea.

2. Check for your message-type.

3. Move the data to workarea.

4. Update the status.

Refer to the dummy code given below

FUNCTION zdummy_inbound_idoc.

*"----

""Local Interface:

*" IMPORTING

*" REFERENCE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD

*" REFERENCE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC

*" EXPORTING

*" REFERENCE(WORKFLOW_RESULT) LIKE BDWFAP_PAR-RESULT

*" REFERENCE(APPLICATION_VARIABLE) LIKE BDWFAP_PAR-APPL_VAR

*" REFERENCE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK

*" REFERENCE(CALL_TRANSACTION_DONE) LIKE BDWFAP_PAR-CALLTRANS

*" TABLES

*" IDOC_CONTRL STRUCTURE EDIDC

*" IDOC_DATA STRUCTURE EDIDD

*" IDOC_STATUS STRUCTURE BDIDOCSTAT

*" RETURN_VARIABLES STRUCTURE BDWFRETVAR

*" SERIALIZATION_INFO STRUCTURE BDI_SER

*"----

DATA: control_rec TYPE edidc,

data_rec TYPE edidd,

segnam TYPE zsegment,

status TYPE bdidocstat.

LOOP AT idoc_contrl INTO control_rec.

IF control_rec-mestyp EQ 'ZMESSAGE'.

LOOP AT idoc_data INTO data_rec WHERE docnum EQ control_rec-docnum.

MOVE data_rec-sdata TO segnam.

IF segnam-vbeln IS NOT INITIAL.

status-docnum = control_rec-docnum.

status-msgv1 = control_rec-idoctp.

status-status = '53'.

ELSE.

status-status = '50'.

status-msgty = 'ZMESSAGE'.

call_transaction_done = 'X'.

ENDIF.

APPEND status TO idoc_status.

ENDLOOP.

ENDIF.

ENDLOOP.

ENDFUNCTION.

Reward if useful.

Regards,

Arati.