sy-subrc value is not coming correctly...

Hi abapers,

I am new to abap. I have wrote this code. This code was is for deleting records from database according to input in table control. It is deleting perfectly(entire db table) but the problem is sy-subrc value is 4 and message is not coming after debugging what I saw. What might be the issue can you tell.

Here is my code :

WHEN 'D'.

LOOP AT ITAB.

JTAB-ZEMPID = YOM_TABLE_CONTRO-ZEMPLOYEEID.

JTAB-ZEMPNAME = YOM_TABLE_CONTRO-ZEMPLOYEENAME.

JTAB-ZDEPNUMB = YOM_TABLE_CONTRO-ZDEPRTMENTNUMBER.

APPEND JTAB.

ENDLOOP.

DELETE YEMP_MPP1 FROM TABLE JTAB.

IF SY-SUBRC = 0.

MESSAGE I011(ZOM_MSG).

LEAVE PROGRAM.

ENDIF.

regards,

Om prakash