Re: Field validations

Hi Larry,

Validation code should be after  AT SELECTION-SCREEN ON S_VBELN.

Also if you wish stop further processing then you should write STOP.

Do hope that you understood.

----------------------------------------------------------

REPORT  ZR_FIELD_VALIDATION.

DATA: V_EBELN TYPE EKKO-EBELN,
       V_VBELN TYPE VBAK-VBELN.

SELECT-OPTIONS: S_EBELN FOR V_EBELN,
                 S_VBELN FOR V_VBELN.
  
SELECT SINGLE EBELN FROM EKKO INTO V_EBELN WHERE EBELN IN S_EBELN.
   IF SY-SUBRC <> 0.
     MESSAGE 'PO DOES NOT EXIST' TYPE 'I'.
   ELSE.
     MESSAGE 'PO EXISTS' TYPE 'I'.
   ENDIF.

AT SELECTION-SCREEN ON S_VBELN.
  
SELECT SINGLE VBELN FROM VBAK INTO V_VBELN WHERE VBELN IN S_VBELN.
   IF SY-SUBRC <> 0.
     MESSAGE 'SALES ORDER DOES NOT EXIST' TYPE 'I'.
     STOP.
   ELSE.
     MESSAGE 'SALES ORDER EXISTS' TYPE 'I'.
   ENDIF.