topic Re: Sysntax error in Application Development and Automation Discussions

Sysntax error

Former Member — Tue, 13 Jan 2009 07:34:33 GMT

Hi experts:

This code is giving error:

Select * from t001 into corresponding fields of table it_t001.

Select * from T009 into corresponding fields of table it_t009.

Loop at it_t001 into it_t001_line.

read table it_t009 with key periv = it_t001-periv.

If sy-subrc ne 0.

move-corresponding it_t001-periv to it_t001_inconsistent-periv.

append it_t001_inconsistent.

endif.

endloop.

The internal table "IT_T009" has no header line - explicit specification of an output area with "INTO wa" or "ASSIGNING <fs>" is required."

"IT_T001" is a table without a header line and therefore has no component called "PERIV".

The internal table "IT_T001_INCONSISTENT" has no header line - instead of "APPEND IT_T001_INCONSISTENT", only "APPEND wa TO IT_T001_INCONSISTENT" is possible"

How do i correct this.

Thanks,

Ajay

Re: Sysntax error

Sm1tje — Tue, 13 Jan 2009 07:37:23 GMT

read table .... INTO workarea. No header line defined, so use the workarea for reading data from itab.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:39:23 GMT

Check ur Internal tables declaration. Declare the internal tables as follows.

data: it_t001 type standard table of x_t001 with header line.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:39:37 GMT

hi,

Check the Read statement and replace it with below and declare it_t009_line .

read table it_t009 into it_t009_line with key periv = it_t001-periv.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:41:34 GMT

hi,

you are doing this ...

Select * from t001 into corresponding fields of table it_t001.

Select * from T009 into corresponding fields of table it_t009.

Loop at it_t001 into it_t001_line.

read table it_t009 with key periv = it_t001-periv.

If sy-subrc ne 0.

move-corresponding it_t001-periv to it_t001_inconsistent-periv.

append it_t001_inconsistent.

endif.

endloop.

try this...

Select * from t001 into corresponding fields of table it_t001.

Select * from T009 into corresponding fields of table it_t009.

Loop at it_t001 .

read table it_t009 into it_t001_line with key periv = it_t001-periv.

If sy-subrc ne 0.

move-corresponding it_t001-periv to it_t001_inconsistent-periv.

append it_t001_inconsistent.

endif.

endloop.

hope this help you

Regards

Ritesh J

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:44:11 GMT

Hi...

here is d correct code.

data:it_t001 TYPE STANDARD TABLE OF t001,

wa_t001 TYPE t001,

it_t001_inconsistent TYPE STANDARD TABLE OF t001,

wa_t001_inconsistent TYPE t001,

it_t009 TYPE STANDARD TABLE OF t009,

wa_t009 TYPE t009,

Select * from t001 into table it_t001.

IF it_t001[] is not initial.

Select * from T009

into table it_t009

for all entries in it_t001

where periv = it_t001-periv.

Loop at it_t001 into wa_t001.

read table it_t009 with key periv = it_t001-periv transporting no fileds.

If sy-subrc ne 0.

move wa_t001-periv to wa_t001_inconsistent-periv.

append wa_t001_inconsistent TO it_t001_inconsistent.

endif.

endloop.

endif.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:47:41 GMT

Hi,

Define a work are of type T009


data gwa_t009 like t009.

then change this line


read table it_t009 with key periv = it_t001-periv.

to this


read table it_t009 into gwa_t009 with key periv = it_t001_line-periv.
" When comparing the periv field of the t001 table, you have to compare it 
"with the contents of the field periv in the work area it_t001_line.

Also change the lines of code where you are moving the data.


move-corresponding it_t001-periv to it_t001_inconsistent_wa-periv. " Define the work area as well
append it_t001_inconsistent_wa to it_t001_inconsistent.

Alternatively you can declare all the tables with the addition with header line, but that is not recommended.

regards,

Advait

Edited by: Advait Gode on Jan 13, 2009 8:48 AM

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 07:53:29 GMT

Try it this way:

Select * from t001 into corresponding fields of table it_t001.
Select * from T009 into corresponding fields of table it_t009.

Loop at it_t001." into it_t001_line.

read table it_t009 with key periv = it_t001-periv.

If sy-subrc ne 0.

move-corresponding it_t001-periv to wa_t001_inconsistent-periv. "if you want to move only content of periv

" or else for entire record use 

move-corresponding it_t001 to wa_t001_inconsistent.
  
append wa_t001_inconsistent to it_t001_inconsistent. " using a explicit work area
endif.
endloop.

With luck,

Pritam.

Re: Sysntax error

faisalatsap — Tue, 13 Jan 2009 08:11:15 GMT

Hi,

Please use the following statement to define you Internal table or work area

DATA: it_t001 LIKE STANDARD TABLE OF t001 WITH HEADER LINE,
      wa_it_t001 LIKE t001,
      it_t009 LIKE STANDARD TABLE OF t009 WITH HEADER LINE,
      wa_it_t009 LIKE t009.

Kind Regards,

Faisal

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 08:20:43 GMT

1) First declare a work area for it_tT009 internal tables.

data : wa_t009 like line of it_tT009.

2) Then write the below code

Select * from t001 into corresponding fields of table it_t001.

Select * from T009 into corresponding fields of table it_t009.

clear it_t001_line.

Loop at it_t001 into it_t001_line.

clear wa_t009.

read table it_t009 into wa_t009 with key periv = it_t001-periv.

If sy-subrc ne 0.

move-corresponding it_t001-periv to it_t001_inconsistent-periv.

append it_t001_inconsistent.

clear it_t001_line.

endif.

endloop.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 08:33:37 GMT

Hello,

One of you has given me this code:

data:it_t001 TYPE STANDARD TABLE OF t001,

wa_t001 TYPE t001,

it_t001_inconsistent TYPE STANDARD TABLE OF t001,

wa_t001_inconsistent TYPE t001,

it_t009 TYPE STANDARD TABLE OF t009,

wa_t009 TYPE t009,

Select * from t001 into table it_t001.

IF it_t001[] is not initial.

Select * from T009

into table it_t009

for all entries in it_t001

where periv = it_t001-periv.

Loop at it_t001 into wa_t001.

read table it_t009 with key periv = it_t001-periv transporting no fileds.

If sy-subrc ne 0.

move wa_t001-periv to wa_t001_inconsistent-periv.

append wa_t001_inconsistent TO it_t001_inconsistent.

endif.

endloop.

endif.

Its giving a syntax error:

The internal table "IT_T009" has no header line - explicit specification of an output area with "INTO wa" or "ASSIGNING <fs>" is required.

Could you please help me out with this?

Thanks,

Ajay.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 08:57:50 GMT

yeah...there was small type errors...here it is...

data:it_t001 TYPE STANDARD TABLE OF t001,

wa_t001 TYPE t001,

it_t001_inconsistent TYPE STANDARD TABLE OF t001,

wa_t001_inconsistent TYPE t001,

it_t009 TYPE STANDARD TABLE OF t009,

wa_t009 TYPE t009.

Select * from t001 into table it_t001.

IF it_t001[] is not initial.

Select * from T009

into table it_t009

for all entries in it_t001

where periv = it_t001-periv.

Loop at it_t001 into wa_t001.

read table it_t009 with key periv = wa_t001-periv transporting no fields.

If sy-subrc ne 0.

move wa_t001-periv to wa_t001_inconsistent-periv.

append wa_t001_inconsistent TO it_t001_inconsistent.

endif.

endloop.

endif.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:04:36 GMT

Hi,

Use workarea for ur internal tables or use with headerline statement in ur internal table declaration.

Hope this will help u.

Thanks.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:15:06 GMT

If you want to use explicit work area for all the tables than do it this way: Modify the code given above:

Select * from t001 into table it_t001.

IF it_t001 is not initial.

Select * from T009 
into table it_t009
for all entries in it_t001
where periv = it_t001-periv.

Loop at it_t001 into wa_t001.
read table it_t009 into wa_t009 with key periv = wa_t001-periv.
If sy-subrc ne 0.
move wa_t001-periv to wa_t001_inconsistent-periv.
append wa_t001_inconsistent TO it_t001_inconsistent.
endif.
endloop.
endif.

With luck,

Pritam.

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:43:55 GMT

Hi,

I am using this code:

data:it_t001 like STANDARD TABLE OF t001 with header line,

wa_t001 TYPE t001,

it_t001_inconsistent TYPE STANDARD TABLE OF t001,

wa_t001_inconsistent TYPE t001,

it_t009 like STANDARD TABLE OF t009 with header line,

wa_t009 TYPE t009.

Select * from t001 into table it_t001.

IF it_t001[] is not initial.

Select * from T009

into table it_t009

for all entries in it_t001

where periv = it_t001-periv.

Loop at it_t001 into wa_t001.

read table it_t009 with key periv = it_t001-periv." TRANSPORTING NO FIELDS.

If sy-subrc ne 0.

move wa_t001-periv to wa_t001_inconsistent-periv.

append wa_t001_inconsistent TO it_t001_inconsistent.

endif.

endloop.

endif.

But the internal table it_t001_inconsistent gets all the entries which are there in it_t001... i.e. the basic logic of the program is failing, which is that only those entries should come in it_t001_inconsistent that are there is T001-PERIV but not in T009-PERIV.

Can you please help me out with this?

Thanks,

Ajay.

Re: Sysntax error

SuhaSaha — Tue, 13 Jan 2009 09:49:28 GMT

Hello Ajay,


You wrote:
" .... those entries should come in it_t001_inconsistent that are there is T001-PERIV but not in T009-PERIV."

Just to let you know this is NEVER possible because against T001-PERIV you have T009 maintained as check table. This situation will never happen.


Select * from t001 into table it_t001.
IF it_t001[] is not initial.
Select * from T009
into table it_t009
for all entries in it_t001
where periv = it_t001-periv.

Loop at it_t001 into wa_t001.
read table it_t009 with key periv = it_t001-periv." TRANSPORTING NO FIELDS.
If sy-subrc ne 0.
move wa_t001-periv to wa_t001_inconsistent-periv.
append wa_t001_inconsistent TO it_t001_inconsistent.
endif.
endloop.
endif.

Change the stmt:

 read table it_t009 with key periv = it_t001-periv." TRANSPORTING NO FIELDS.

read table it_t009 with key periv = wa_t001-periv.

You will find it_t001_inconsistent will have no values !!!

BR,

Suhas

I hope i am clear on this.

BR,

Suhas

Edited by: Suhas Saha on Jan 13, 2009 10:51 AM

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:52:10 GMT

Hi,

You are reading the data in a work area wa_t001, but while comparing the key preiv, you are using the itab. this is wrong.


Loop at it_t001 into wa_t001.
read table it_t009 with key periv = it_t001-periv." TRANSPORTING NO FIELDS.


Loop at it_t001 into wa_t001.
read table it_t009 with key periv = wa_t001-periv.  "use the work are here

regards,

Advait

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:53:24 GMT

Hello Suhas,

I have this situation where there are some blank values in T001-PERIV, which are not present in T009-PERIV.

Thanks,

Ajay.

Re: Sysntax error

SuhaSaha — Tue, 13 Jan 2009 09:57:10 GMT

Hi Ajay,

Blank values in T001-PERIV means that Fiscal Year Variant is not maintained for that Company Code. What i meant is that you cannot give wrong / incorrect values to this field. You can always leave it as blank )

Then your code will work, with the modifications mentioned in my post.

BR,

Suhas

Edited by: Suhas Saha on Jan 13, 2009 10:57 AM

Re: Sysntax error

Former Member — Tue, 13 Jan 2009 09:59:10 GMT

Hello,

Thanks to you all. Now I am able to get entries in the table it_t001_inconsistent. Now how do I print the result of this table?

Thanks,

Ajay.