Long text to be made mandatory in QA11 for rejected Inspection lots

Question

Hi
My requirement is whenever a inspection lot is rejected in QA11 ie qave-vbewertung = 'R' then reason should be provided in log text section.It has to be made mandatory.
I am trying EXITs EXIT_SAPMQEVA_007 and EXIT_SAPMQEVA_004 but error message doesnt come.Even if i write code so that error message is triggered still information or abort message comes.Is there any way to forcibly display error message.
Can you suggest any other solution?
*& Include ZXQEVU09 *
DATA: v_lot TYPE qave-prueflos,
v_codevaluation TYPE qave-vbewertung.
DATA : it_mattext(150) OCCURS 0 WITH HEADER LINE,
v_string(1000),
l_name LIKE thead-tdname,
l_header LIKE thead,
it_lines LIKE tline OCCURS 0 WITH HEADER LINE,
v_string1(3000),
out_texts(57) OCCURS 0 WITH HEADER LINE.
v_lot = i_qals-prueflos.
v_codevaluation = i_qave-vbewertung.
IF i_qave-vbewertung = 'R'.
CONCATENATE sy-mandt i_qals-prueflos i_qave-kzart INTO l_name.
CLEAR : it_lines, it_lines[].
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'QAVE'
language = sy-langu
name = l_name
object = 'QPRUEFLOS'
IMPORTING
header = l_header
TABLES
lines = it_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc ne 0.
MESSAGE e030(zh).
ENDIF.
ENDIF.
I have tried Message 'Reason is mandatory' type 'E'. also...

Answer 1

hi Deepika ,
Instead try to message number try for this method 'MESSAGE ' 'Reason is mandatory' TYPE 'E'.
i think standard want call the message  number in user exit u need to decalre message id in starting of the program.
that is not possable .
i think this may help u.
regards ,
santosh
Edited by: santosh jajur on Jul 16, 2009 1:24 PM