Validate input criteria on Bex and prompt for relevant information

Enhanced RSR00001:

I_step =3.
CLEAR: ls_msg, lt_msg.

IF i_s_rkb1d-compid=' zm_bcs01_q001 '.
READTABLE I_t_var_rangeTransportingNOFields
WithKEY iobjnm=' 0comp_code '.
IF Sy-subrc=0.
READTABLE I_t_var_rangeTransportingNOFields
WithKEY iobjnm=' 0cs_group '.
IF Sy-subrc=0.
Ls_msg-msgty=E.
Ls_msg-msgid=' Rsar '.
Ls_msg-msgno=' 051 '.
Ls_msg-msgv1=' Merge hierarchy and company code cannot be entered at the same time '.
APPEND ls_msgTo Lt_msg.
ENDIF.
ELSE.
READTABLE I_t_var_rangeTransportingNOFields
WithKEY iobjnm=' 0cs_group '.
IF Sy-subrcNE0.
Ls_msg-msgty=E.
Ls_msg-msgid=' Rsar '.
Ls_msg-msgno=' 051 '.
Ls_msg-msgv1=' Merge level and company code must enter at least one '.
APPEND ls_msgTo Lt_msg.
ENDIF.
ENDIF.

IF lt_msgIsNotINITIAL.
 PagerFUNCTION' rrms_messages_input ' focus on using this function to throw a message out
        Exporting
i_t_msg= Lt_msg
        EXCEPTIONS
Dummy=  1
           Span class= "l0s52" >OTHERS   =  2
      RAISE  Span class= "L0s32" >1
     Endif   endif

Validate input criteria on Bex and prompt for relevant information