module pool program...

I tried a module pool program......I didnt get the output.....can anyone resolve the problem in the program.

REPORT Z_SMS.

data: radio1(1) type c , radio2(1) type c , radio3(1) type c,

field1(20) type c , field2(30) type c , field3(30) type c.

data: ok_code type sy-ucomm,

save_ok type sy-ucomm.

call screen 100.

module USER_COMMAND_0100 input.

save_ok = ok_code.

clear ok_code.

case save_ok.

when 'RADIO'.

if radio1 = 'X'.

field1 = 'RAJESH'.

clear: field2 , field3.

elseif radio2 = 'X'.

field2 = 'SAP'.

clear: field1 , field3.

elseif radio3 = 'X'.

field3 = 'COVANSYS'.

clear: field1 , field2.

endif.

when 'CANCEL'.

leave program.

endcase.

endmodule.

module STATUS_0100 output.

radio1 = 'X'.

clear: radio2 , radio3.

endmodule.