Error Message For Correct Input.

Question

Hi,
Im generating Vendor Report I want to Dispaly the Error Message for Invalid Input.
If i give the Company Codes other than 1000,2000,3000, & 4000 it should give the Error
as Invalid Company code...But For Correct company code also it is giving Error...
I Created Error class 'YVENMSG'
and in my Program i called Erorr as follows
if sy-subrc IS  INITIAL.
MESSAGE e000(YVENMSG) .
ENDIF.
I dont know wr im wrong...
Plz help me on this...
Regards
Smitha

Answer 1

Hi Smitha
You declare as below :
*---- SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS : s_werks FOR vbap-werks .                 "Plant
SELECTION-SCREEN END OF BLOCK b1.
*Selection Screen validation
AT SELECTION-SCREEN .
  IF s_werks-low IS NOT INITIAL.
    SELECT SINGLE werks            "Plant
    FROM t001w
    INTO s_werks-low
    WHERE werks = s_werks-low
    and werks in ( '2000','3000','4000' ).
    IF sy-subrc NE 0.
      MESSAGE e000 WITH text-t48.
    ENDIF.
  ENDIF.
if its a parameter just replace s_werks as p_werks
Edited by: Martina Floriette on Feb 21, 2009 6:01 AM