topic Re: problem with read stmt in Application Development and Automation Discussions

problem with read stmt

Former Member — Wed, 28 Nov 2007 01:44:17 GMT

My requirement is that i have an itab, which has KOSTL along with other things.

i need to make sure that each and every KOSTL in this itab, has a master data in CSKS, if not found,

then all those KOSTLs should be listed,

so i thought of doing this way: with for all entries on itab ,grab all the data from CSKS pertaining to this itab

and keep them in new i_csks internal table, and then loop through over itab, looking for the match.

i coded the following way, here the condition is that, the KOKRS field in the CSKS should be one of 2000 or 3000.

SELECT KOSTL KOKRS

INTO TABLE I_CSKS

FROM CSKS

FOR ALL ENTRIES IN ITAB

WHERE KOSTL = ITAB-KOSTL AND ( KOKRS = 2000 OR KOKRS = 3000 ).

LOOP AT ITAB.

>>>>>> READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 3000 .

IF SY-SUBRC <> 0.

I_KOSTL-KOSTL = ITAB-KOSTL.

I_KOSTL-KOKRS = I_CSKS-KOKRS.

APPEND I_KOSTL.

ENDIF.

ENDLOOP.

ENDFORM.

i am struck at the READ stmt how do i put both KOKRS = 2000 or KOKRS = 3000., bcos its not taking OR inbetween.

any clues.

thank you.

Re: problem with read stmt

Former Member — Wed, 28 Nov 2007 02:03:16 GMT

Hi Sanjana,

You do not require to put KOKRS = 2000 or KOKRS = 3000 in the READ statement as you already put this condition in the SELECT statement so your internal table I_CSKS has data only for KOKRS = 2000 or 3000.

Regards,

Atish

Re: problem with read stmt

Former Member — Wed, 28 Nov 2007 02:06:05 GMT

in u r read statement u have to specify the work area.

change READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL into wa_csks.

u r i_csks contain only 2 fields kostl and kokrs so specify key as table_line..

bye

Venu.

Re: problem with read stmt

Former Member — Wed, 28 Nov 2007 02:09:04 GMT

Several options:

1. Internal table only contains KOSTL where KOKRS 2000 / 3000 based on SELECT statement, so you do not need to check this again when in the LOOP - just read with key KOSTL = ...

2. Does ITAB have KOKRS? if so read with KOSTL = ITAB-KOSTL KORKS = ITAB-KOKRS

3. Do 2 reads:


LOOP AT ITAB.
  READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 2000 .
  IF SY-SUBRC <> 0.
    READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 3000 .
  ENDIF.
  IF SY-SUBRC <> 0.
    I_KOSTL-KOSTL = ITAB-KOSTL.
    I_KOSTL-KOKRS = I_CSKS-KOKRS.  "<<<< This will not work - I_CSKS entry not found so KOKRS value indeterminate !!! 
    APPEND I_KOSTL.
  ENDIF.
ENDLOOP.

4. Alternative (not sure if this is your requirement


LOOP AT ITAB.
  READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 2000 .
  IF SY-SUBRC <> 0.
    I_KOSTL-KOSTL = ITAB-KOSTL.
    I_KOSTL-KOKRS = '2000'.    "<< Not found in 2000
    APPEND I_KOSTL.
  ENDIF.
  READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 3000 .
  IF SY-SUBRC <> 0.
    I_KOSTL-KOSTL = ITAB-KOSTL.
    I_KOSTL-KOKRS = '3000'.    "<< Not found in 3000
    APPEND I_KOSTL.
  ENDIF.
ENDLOOP.

Andrew

Re: problem with read stmt

former_member426550 — Wed, 28 Nov 2007 02:13:38 GMT

use loop statement instead of Read statement....

or u can use two read statements....

Re: problem with read stmt

Former Member — Wed, 28 Nov 2007 02:23:40 GMT

I believe no need to put KOKR in Read Stmt..

If you insist checking KOKR Try this..

LOOP AT ITAB.

>>>>>> READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL kokrs = 3000 .

IF SY-SUBRC <> 0.

CHECK I_CSKS-KOKR = 2000 or 3000 .

IF SY_SUBRC = 0 .

I_KOSTL-KOSTL = ITAB-KOSTL.

I_KOSTL-KOKRS = I_CSKS-KOKRS.

APPEND I_KOSTL.

ELSe.

CONTINUE .

ENDIF.

ENDLOOP.

Hope this helps.

Praveen

Re: problem with read stmt

Former Member — Wed, 28 Nov 2007 03:50:27 GMT

Hi Sanjana,

You could try below code for your requirement.

SELECT KOSTL

INTO TABLE I_CSKS

FROM CSKS

WHERE KOKRS = 2000

OR KOKRS = 3000.

LOOP AT ITAB.

READ TABLE I_CSKS

TRANSPORTING NO FIELDS

WITH KEY KOSTL = ITAB-KOSTL.

IF SY-SUBRC <> 0.

I_KOSTL-KOSTL = ITAB-KOSTL.

I_KOSTL-KOKRS = ITAB-KOKRS.

APPEND I_KOSTL.

ENDIF.

ENDLOOP.

Regards,

Teddy

Re: problem with read stmt

naimesh_patel — Wed, 28 Nov 2007 03:53:42 GMT

Don't bother about the KOKRS = 2000 or 3000

LOOP AT ITAB.
READ TABLE I_CSKS WITH KEY KOSTL = ITAB-KOSTL.  " << if you have any entry it will set SY-SUBRC = 0
IF SY-SUBRC <> 0.
I_KOSTL-KOSTL = ITAB-KOSTL.
I_KOSTL-KOKRS = I_CSKS-KOKRS.
APPEND I_KOSTL.
ENDIF.
ENDLOOP.

Hope you got it

Regards,

Naimesh Patel