CASE ok_code.
WHEN 'R100' .
CLEAR ok_code.
* export s_p1_grp
* s_p2_grp
* s_c_loc
* s_f_rate
* s_o_code
* s_r_rate
* s_p_rate to memory
* id 'MEMORY_ID' .
SUBMIT zmm_rpt9001 VIA SELECTION-SCREEN AND RETURN .