Skip to Content
0
Oct 16, 2006 at 09:33 AM

ok code not getting cleared

313 Views

CLEAR ok_code.

ok_code = sy-ucomm.

CASE ok_code.

WHEN 'ADD'.

TABLE_CONTROL-LINES = TABLE_CONTROL-LINES + new_row.

WHEN 'DEL'.

DELETE TCTRL WHERE SEL_FIELD = 'X'.

WHEN 'PROC'.

PERFORM chk_tctrl.

PERFORM code_gen.

WHEN 'CODP'.

PERFORM chk_tctrl.

PERFORM code_prev.

WHEN 'GENR'.

PERFORM chk_tctrl.

PERFORM gen_prg.

WHEN 'BACK'.

SET SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

In this coding the ok_code is not getting cleared. whenever an option is selected, and after if 'ENTER' is clicked the ok_code remains the previous option chosen and not getting cleared. please help.