topic Re: Access objects in a flat structure in Application Development and Automation Discussions

Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 19:53:56 GMT

Ok, how do I read objects from a flat structure? I want to modify an IDocs control record with the following code but I get an error "The type of W_DATA_VBAK cannot be converted o the type of W_VBAK":

----

INCLUDE ZXTRKU01 *

----

DATA:

v_commid(15) TYPE C,

w_data_vbak LIKE data-tab_vbak,

w_vbak LIKE vbak.

w_data_vbak = data-tab_vbak.

MOVE w_data_vbak TO w_vbak.

Look up EDI communication ID from custom table

CALL FUNCTION 'Z_EK_GET_ORG_COMMID'

EXPORTING

i_company = w_vbak-vkorg

i_dist = w_vbak-vtweg

i_division = w_vbak-spart

IMPORTING

E_COMMID = v_commid.

CONTROL_RECORD_OUT-sndprn = v_commid(10).

Re: Access objects in a flat structure

RichHeilman — Mon, 30 Jan 2006 19:56:53 GMT

How is data-tab_vbak defined? I'm assuming a table type, yes? What are you trying to access here. Is there only one record in this table?

Regards,

Rich Heilman

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 19:58:16 GMT

Hi Greg,

How the structure data-tab_vbak defined.

Lanka

Re: Access objects in a flat structure

RichHeilman — Mon, 30 Jan 2006 20:01:45 GMT

If my assumptions are correct, then you can do something like this.



report zrich_0002.


data: data-tab_vbak type table of vbak.
data: w_vbak type vbak.

read table data-tab_vbak into w_vbak index 1.

Regards,

Rich Heilman

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:04:49 GMT

DATA-TAB_VBAK is a function import parameter for the user exit and is of type TR_IDOC_SHPMNT_INDATA. This is defined as:

TYPES: BEGIN OF tr_idoc_shpmnt_indata,

vttk LIKE vttk,

ttds LIKE ttds,

tab_vttp LIKE vttp OCCURS 0,

tab_vtts LIKE vtts OCCURS 0,

tab_vtsp LIKE vtsp OCCURS 0,

tab_vbpa LIKE vbpa OCCURS 0,

tab_vtpa LIKE vbpa OCCURS 0,

tab_vekp LIKE vekp OCCURS 0,

tab_vepo LIKE vepo OCCURS 0,

tab_likp LIKE likp OCCURS 0,

tab_lips LIKE lips OCCURS 0,

tab_vbak LIKE vbak OCCURS 0,

tab_vbap LIKE vbap OCCURS 0,

tab_vblb LIKE vblb OCCURS 0,

tab_eikp LIKE eikp OCCURS 0,

tab_eipo LIKE eipo OCCURS 0,

<<< START OF INSERTION HP_0332970 >>>

tab_vbkd LIKE vbkd OCCURS 0,

<<< END OF INSERTION HP_0332970 >>>

tab_rdgprint LIKE rdgprint OCCURS 0,

END OF tr_idoc_shpmnt_indata.

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:05:26 GMT

Well I should of said "DATA" is the import parameter.

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:11:17 GMT

Hi Greg,

Try this :

Data : W_VBAK LIKE VBAK.

Data : DATA1 type tr_idoc_shpmnt_indata.

DATA1 = data.

MOVE-CORRESPONDING DATA1-TAB_VBAK TO W_VBAK.

This will help you.

Lanka

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:16:55 GMT

In your import parameter DATA-TAB_VBAK or for that matter, all other fields are defined as internal tables except one or two. In newer versions moves like you did are not allowed. Here is the modified code, try it and let us know if it works.


DATA:
v_commid(15) TYPE C,
w_data_vbak LIKE LINE OF data-tab_vbak, <-- here is the change
w_vbak LIKE vbak.

w_data_vbak = data-tab_vbak.
MOVE w_data_vbak TO w_vbak.

*
*** Look up EDI communication ID from custom table
CALL FUNCTION 'Z_EK_GET_ORG_COMMID'
EXPORTING
i_company = w_vbak-vkorg
i_dist = w_vbak-vtweg
i_division = w_vbak-spart
IMPORTING
E_COMMID = v_commid.

CONTROL_RECORD_OUT-sndprn = v_commid(10).

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:33:32 GMT

Using:

Data : DATA1 type tr_idoc_shpmnt_indata.

DATA1 = data.

MOVE-CORRESPONDING DATA1-TAB_VBAK TO W_VBAK.

results in:

"TAB_VBAK" is not a structure or internal table with header line.

at this line:

MOVE-CORRESPONDING DATA1-TAB_VBAK TO W_VBAK.

I got similar messages with different variations I've tried already.

Thx,

Greg

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:37:01 GMT

Changing:

w_data_vbak LIKE data-tab_vbak,

To:

w_data_vbak LIKE LINE OF data-tab_vbak,

Resulted in:

The type of "DATA-TAB_VBAK cannot be converted to the type of "W_DATA_VBAK".

Thx,

Greg

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:39:01 GMT

Hi Greg,

I got it.

Data : WA_VBAK LIKE TABLE OF VBAK.

Data : DATA1 type tr_idoc_shpmnt_indata.

WA_VBAK[] = DATA1-VBAK[].

This will work for you.

I am using similar structures for my PO.

Lanka

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:39:29 GMT

btw - In the debugger I can drill into DATA-TAB_VBAK and TAB_VBAK looks just like a row of VBAK and the fields are populated.

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:43:24 GMT

hi Greg,

Please check the types definition for TAB_VBAK defined as internal table then you have to define your structure similar to that.(tab_vbak LIKE vbak OCCURS 0).

When you defined

Data : WA_VBAK LIKE TABLE OF VBAK.

<u>This will give you a table with out header line.</u>

Please try the above code that I have pasted that will work for you.

Lanka

Message was edited by: Lanka Murthy

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:46:41 GMT

True, but for DATA, TAB_VBAK is a field of type internal table, whereas the work area you defined is just a flat structure. So there is a type conflict there as per the new stricter syntax checks. The reason why you are seeing it in debugging is because it is showing you the header. But if you go to the tables view of the debugger and enter DATA-TAB_VBAK for the table name, you will see all the records.

Hope this helps,

Srinivas

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 21:59:46 GMT

Srinivas,

That's true. In the debugger I can see the fields of DATA-TAB_VBAK in the table view but if I try to enter DATA-TAB_VBAK-VKORG in the field view the field is not found. That is why I cannot access DATA-TAB_VBAK-VKORG directly.

Greg

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 22:04:43 GMT

Lanka,

WA_VBAK still won't have a header so I won't be able to access WA_VBAK-VKORG.

Greg

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 22:35:50 GMT

So your code should be like this, assuming you will always have one record in your DATA-TAB_VBAK internal table.


DATA: v_commid(15) TYPE C,
      w_data_vbak  LIKE LINE OF data-tab_vbak, <-- here is the change
      w_vbak       LIKE vbak.
 
<b>READ TABLE DATA-TAB_VBAK INTO w_data_vbak INDEX 1.</b>

MOVE w_data_vbak TO w_vbak.
 
*
*** Look up EDI communication ID from custom table
CALL FUNCTION 'Z_EK_GET_ORG_COMMID'
EXPORTING
i_company = w_vbak-vkorg
i_dist = w_vbak-vtweg
i_division = w_vbak-spart
IMPORTING
E_COMMID = v_commid.
 
CONTROL_RECORD_OUT-sndprn = v_commid(10).

Re: Access objects in a flat structure

Former Member — Mon, 30 Jan 2006 22:52:41 GMT

Thanks Srinivas! I love you!

Greg

Re: Access objects in a flat structure

RichHeilman — Mon, 30 Jan 2006 23:27:26 GMT

That's exactly what I said in my second post, but in my suggestion, you only move it once, not twice.

Regards,

Rich Heilman

Re: Access objects in a flat structure

Former Member — Tue, 31 Jan 2006 01:59:37 GMT

Sorry Rich your right! I just missed it.