To Remove SY-Ucomm(Ok-Code) in Subscreen

module user_command_103 input.
data: gv_ucomm_0809 like sy-ucomm.
constants: c_ucomm like sy-ucomm value 'P003'.
data: l_f_okcode like sy-ucomm.
perform get_ok_code_bom1 changing l_f_okcode.
case l_f_okcode.
when 'SRC'.
clear sy-ucomm.
*=== select all QC notifs with same VID
select * from qmel into table gt_qmel where
qmart eq c_qc and
qmnum ne viqmel-qmnum and
kfz_ident_nr eq viqmel-kfz_ident_nr.
if sy-subrc = 0.
* call VID display scrn
call screen 809 starting at 8 8 ending at 76 22.
else.
* no same VID exists
message w050(/rb04/yt2_iqis) with text-116.
endif.
* remove customer fcode/ucomm in sapliqs0
* customer fcode is invalid for sap and error arises!!!
field-symbols: .
field_name = '(SAPLIQS0)OK-CODE'.
assign (field_name) to .
= c_ucomm.
* clear g_activetab.
field_name = '(SAPLXQQM)SY-UCOMM'.
assign (field_name) to .
clear .
endcase.
endmodule. " USER_COMMAND_0809


*&---------------------------------------------------------------------*
*& Form get_ok_code_bom1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form get_ok_code_bom1 changing l_okcode.
field-symbols: .
data: field_name(40) type c.
field_name = '(SAPLIQS0)OK-CODE'.
assign (field_name) to .
l_okcode = .
endform. " get_ok_code_bom1