topic Re: usingread statement in Application Development and Automation Discussions

usingread statement

Former Member — Wed, 10 Oct 2007 07:11:21 GMT

hi all,

i have a problem using read table statement can anybody help me on this issue,

i am using READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP ( KSCHL = 'JIPS' OR KSCHL = 'JIP5' ) BINARY SEARCH.

here APPENDKOMV is my internal table but how can i pass it with key checking kschl should be equal to jips or jip5 .

Re: usingread statement

Former Member — Wed, 10 Oct 2007 07:12:23 GMT

Hi,

You can not use OR AND in the read statement.

Instead you can use loop and endloop statement.

Use this way.

loop at APPENDKOMV where KNUMV = IT_HEADER-KNUMV and

KPOSN = IT_ITEM-EBELP and

( KSCHL = 'JIPS' OR KSCHL = 'JIP5' ).

do what ever you want here

endloop.

Re: usingread statement

Former Member — Wed, 10 Oct 2007 07:14:15 GMT

LOOP AT it_ITEM.

WA_TABIX = SY-TABIX.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP KSCHL = 'JIPS' OR KSCHL = 'JIP5' BINARY SEARCH.

IF SY-SUBRC = 0.

IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.

AT LAST.

SUM.

VAT = IT_ITEM-VAT.

CONDENSE:VAT.

ENDAT.

ENDLOOP.

THIS IS MY CODE I WANT TO USE FOR BOTH KSCHL READ STATEMENT.

Re: usingread statement

abdulazeez12 — Wed, 10 Oct 2007 07:15:37 GMT

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV

KPOSN = IT_ITEM-EBELP

KSCHL = 'JIPS' .

<do your processing here>.

if sy-subrc fails.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV

KPOSN = IT_ITEM-EBELP

KSCHL = 'JIP5' .

Hope it may be useful..

Cheers

Re: usingread statement

varma_narayana — Wed, 10 Oct 2007 07:15:42 GMT

Hi Abhinash..

READ TABLE statement can read only a single record of ITAB at a time. So it will not allow the OR Operation .

In that case we have to use the same statement 2 times as below.

Try this way....

READ TABLE APPENDKOMV WITH KEY

KNUMV = IT_HEADER-KNUMV

KPOSN = IT_ITEM-EBELP

KSCHL = 'JIPS' BINARY SEARCH.

if sy-subrc = 0.

<<process>>

endif.

READ TABLE APPENDKOMV WITH KEY

KNUMV = IT_HEADER-KNUMV

KPOSN = IT_ITEM-EBELP

KSCHL = 'JIP5' BINARY SEARCH.

if sy-subrc = 0.

<<process>>

endif.

reward if Helpful.

Re: usingread statement

former_member480923 — Wed, 10 Oct 2007 07:16:11 GMT

Change ur code as follows

LOOP AT APPENDKOMV WHERE KNUMV = IT_HEADER-KNUMV 
                                            AND  KPOSN = IT_ITEM-EBELP 
                                           AND   ( KSCHL = 'JIPS' OR 
                                                       KSCHL = 'JIP5' ) .
EXIT.

ENDLOOP.

IF SY-SUBRC = 0.
....
ENDIF.

Hope That Helps

Anirban M.

Re: usingread statement

Former Member — Wed, 10 Oct 2007 07:25:44 GMT

Hi Abinash,

Try using this.

LOOP AT it_ITEM.

WA_TABIX = SY-TABIX.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP BINARY SEARCH.

IF KSCHL = 'JIPS' OR KSCHL = 'JIP5'.IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.

AT LAST.

SUM.

VAT = IT_ITEM-VAT.

CONDENSE:VAT.

ENDAT.

ENDLOOP.

Reward if Useful.

Regards,

Chitra

Re: usingread statement

Former Member — Wed, 10 Oct 2007 07:32:41 GMT

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP KSCHL = 'JIPS' BINARY SEARCH.

IF SY-SUBRC = 0.

IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP KSCHL = 'JIP5' BINARY SEARCH.

IF SY-SUBRC = 0.

IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP KSCHL = 'JIPC' BINARY SEARCH.

IF SY-SUBRC = 0.

IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.

READ TABLE APPENDKOMV WITH KEY KNUMV = IT_HEADER-KNUMV KPOSN = IT_ITEM-EBELP KSCHL = 'JIPL' BINARY SEARCH.

IF SY-SUBRC = 0.

IT_ITEM-VAT = APPENDKOMV-KWERT.

MODIFY IT_ITEM INDEX WA_TABIX TRANSPORTING VAT.

ENDIF.