Table entry validation:event 01

Question

Hi,
I have  created a z* table with key fields Material and plant.I want to validate material and plant while entering data in the table.I am doing validation with table MARC.I am using event 01.
but while executing(creating records),what ever I am entering data for material an plant are not passing in the following code.
SELECT SINGLE * FROM MARC WHERE MATNR EQ ZMMYF-MATNR AND WERKS EQ ZMMYF-ZPLANT.
Can some body throw light on this issue,please?
TABLES:MARC.
* INCLUDE LZMMYFD...                         " Local class definition
  INCLUDE LSVIMDAT                                . "general data decl.
  INCLUDE LZMMYFT00 . "view rel. data dcl.
   form BEF_SAVE.
   SELECT SINGLE * FROM MARC WHERE MATNR EQ ZMMYF-MATNR AND WERKS EQ ZMMYF-ZPLANT.
   IF SY-SUBRC <> 0.
*   MESSAGE 'PLEASE CHECK YOUR INPUT' I TYPE.
   MESSAGE 'please check your input' TYPE 'I'.
   ENDIF.
   ENDFORM.

Answer 1

Hi Jaheer,
When u are checking for error using 01 event, then it need to be done in a special way. Consider the following example :
LOOP AT total.
    CASE <action>.
       WHEN neuer_eintrag.   "New entry
         READ TABLE extract WITH KEY <vim_xtotal_key>.
         IF sy-subrc = 0.
           ZMMYF  = extract.
           SELECT SINGLE * FROM MARC WHERE MATNR EQ ZMMYF-MATNR AND
                                   WERKS EQ ZMMYF-ZPLANT.
           IF sy-subrc <> 0.
              MESSAGE 'Error' TYPE 'S' DISPLAY LIKE 'E'.
              vim_abort_saving = 'X'.
              EXIT.
           ENDIF.
         ENDIF.
     ENDCASE.
ENDLOOP.
Please try this and revert.
Thanks & Regards,
Abijith