PROCEDURE (hidden) rap$get_activation_option (
  menu_module, mm: name = $required
  activation_option, ao: (VAR) string 0 .. $max_name = $required
  status)


*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

" PURPOSE:
"   This procedure prompts the operator to determine if they wish to activate
"   the system.  The response is returned in the activation_option field of
"   installation_parameters.
*IFEND

  "$FORMAT=OFF
  VAR
    local_status: status
    selection: string
  VAREND
  "$FORMAT=ON"

  rap$prompt_via_menu menu_module=menu_module menu_selections=(production_usage, console_usage_only)..
         prompting_options=clear_screen selection_chosen=selection status=local_status

  IF local_status.normal THEN
    IF selection = 'PRODUCTION_USAGE' THEN
      activation_option = 'PRODUCTION'
    ELSEIF selection = 'CONSOLE_USAGE_ONLY' THEN
      activation_option = 'CONSOLE'
    IFEND
  ELSE
    EXIT procedure WITH local_status
  IFEND

PROCEND rap$get_activation_option
