*----------------------------------------------------------------------*
***INCLUDE /GAL/_MONITOR_F03 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  PAI_0100_USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM pai_0100_user_command.
  CASE sy-ucomm.
    WHEN 'TAB_R'.
      g_dynp_0100-subscr_dynpro = '0101'.
      tab-activetab = sy-ucomm.
    WHEN 'TAB_J'.
      g_dynp_0100-subscr_dynpro = '0102'.
      tab-activetab = sy-ucomm.
    WHEN 'EXIT'.
      SET SCREEN 0.
  ENDCASE.
ENDFORM.                    " PAI_0100_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  pai_0101_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM pai_0101_user_command .
  CASE sy-ucomm.
    WHEN 'SEARCH'.
      PERFORM pbo_0101_load_data_into_grid.
  ENDCASE.
ENDFORM.                    " PAI_0101_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  pai_0102_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM pai_0102_user_command .
  CASE sy-ucomm.
    WHEN 'SEARCH'.
      PERFORM pbo_0102_load_data_into_grid.
  ENDCASE.
ENDFORM.                    "pai_0102_user_command
