Problematic Statement EPC Error
In the following FORM in a program when i do the EPC Check. I get a problematic statement Error which says:
Indirect Index Access to Internal Table TA_MATNR
Outside a LOOP, this causes a short dump.
Please tell me how can this be resolved. What is the problem with the DELETE Statement ?
DATA: XCLASS LIKE SCLASS OCCURS 0 WITH HEADER LINE,
XOBJECTS LIKE CLOBJDAT OCCURS 0 WITH HEADER LINE.
KLAH-CLASS = 'SUPPLY'.
MOVE TA_MATNR-MATNR TO AUSP-OBJEK.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
CLASS = KLAH-CLASS
CLASSTYPE = '001'
CLINT = KLAH-CLINT
OBJECT = AUSP-OBJEK
T_CLASS = XCLASS
T_OBJECTDATA = XOBJECTS
NO_CLASSIFICATION = 1
NO_CLASSTYPES = 2
INVALID_CLASS_TYPE = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
READ TABLE XOBJECTS WITH KEY ATNAM =
IF SY-SUBRC NE 0.
TA_MATNR-NEW = 'X'.
ELSEIF XOBJECTS-AUSP1(1) EQ TA_MATNR-RESP.
>>> DELETE TA_MATNR. <<<