Q: LIKE or = in WHERE and READ...

Question

Hi,
I have a problem with my code below. The problem is either in my SELECT-statement or in my READ-statement. I am having problems debugging so I cannot narrow it down. I have the following code:
SELECT DISTINCT MAT_SALES
    FROM /BI0/PMAT_SALES
    INTO TABLE i_mat_sales
    WHERE /BIC/ZACCASGRP IS NULL
            OR /BIC/ZACCASGRP LIKE ' '
            OR /BIC/ZACCASGRP LIKE 'A1'
            OR /BIC/ZACCASGRP LIKE 'C3'.
LOOP AT SOURCE_PACKAGE into source_wa.
    T_INDEX = SY-TABIX.
     READ TABLE I_MAT_SALES WITH KEY MSALE =
             source_wa-MAT_SALES TRANSPORTING NO FIELDS.
     IF SY-SUBRC NE 0.
            DELETE SOURCE_PACKAGE INDEX T_INDEX.
     ENDIF.
The MAT_SALES field and the ZACCASGRP fields are both of type CHAR, and I have changed my where to LIKE instead of = but for the READ is not possible to use LIKE.
Does anybody have any idea about what can be wrong in this code?
Thank you in advance,
Mikael

Answer 1

Hi
First of all you can instead of
OR /BIC/ZACCASGRP LIKE ' '
OR /BIC/ZACCASGRP LIKE 'A1'
OR /BIC/ZACCASGRP LIKE 'C3'.
you can write
OR /BIC/ZACCASGRP IN (' ','A1','C3').
Second.
/BIC/ZACCASGRP IS NULL  you ask if it initial
/BIC/ZACCASGRP LIKE ' '    you ask if it empty
you need only one of them
and...
i dont think that in checking you need
TRANSPORTING NO FIELDS
plus
you can check if MSALE and
source_wa-MAT_SALES have same type...
also
LOOP AT I_MAT_SALES into wa_mat_sales.
DELETE SOURCE_PACKAGE where MAT_SALES  = WA_MAT_SALES-MSALE.
ENDLOOP.
instead of your lines
LOOP AT SOURCE_PACKAGE into source_wa.
T_INDEX = SY-TABIX.
READ TABLE I_MAT_SALES WITH KEY MSALE =
source_wa-MAT_SALES TRANSPORTING NO FIELDS.
IF SY-SUBRC NE 0.
DELETE SOURCE_PACKAGE INDEX T_INDEX.
ENDIF.
Regards
Yossi
Message was edited by:
        Yossi Rozenberg
Message was edited by:
        Yossi Rozenberg