PROCEDURE SN302_SABRE_HOTKEY(
  status)

 COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
 EDIT_PHYSICAL_CONFIGURATION
  delete_element_definition e=all r=(..
  violet_5831_6 ..
  violet_5831_7 ..
  violet_5833_00 ..
  violet_5833_08 ..
  violet_5833_10 ..
  violet_5833_18 ..
  violet_5833_01 ..
  violet_5833_09 ..
  violet_5833_11 ..
  violet_5833_19 ..
  violet_7021_1 ..
  v50 ..
  v51 ..
  stornet ..
  violet_DI_100092 ..
  violet_DI_3000D3 ..
  violet_DI_3000F0)

  change_element_definition e=violet_5831_6    s=on  ic=((cch5b 6))
  change_element_definition e=violet_5831_7    s=on  ic=((cch9b 7))
  change_element_definition e=violet_5833_00   s=on  pc=((violet_5831_6 00))
  change_element_definition e=violet_5833_08   s=on  pc=((violet_5831_6 08))
  change_element_definition e=violet_5833_10   s=on  pc=((violet_5831_6 16))
  change_element_definition e=violet_5833_18   s=on  pc=((violet_5831_6 24))
  change_element_definition e=violet_5833_01   s=on  pc=((violet_5831_7 01))
  change_element_definition e=violet_5833_09   s=on  pc=((violet_5831_7 09))
  change_element_definition e=violet_5833_11   s=on  pc=((violet_5831_7 17))
  change_element_definition e=violet_5833_19   s=on  pc=((violet_5831_7 25))
  change_element_definition e=violet_7021_1    s=on
  change_element_definition e=v50              s=on  pc=((violet_7021_1 0))
  change_element_definition e=v51              s=on  pc=((violet_7021_1 1))
  change_element_definition e=stornet          s=on
  change_element_definition e=violet_DI_100092 s=on
  change_element_definition e=violet_DI_3000D3 s=on
  change_element_definition e=violet_DI_3000F0 s=on
 QUIT
end_prolog_file
 COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
  display_value 'Initializing violet_5833_08 as VSN001'
  initialize_ms_volume element=violet_5833_08 recorded_vsn=VSN001
  display_value 'Initializing violet_5833_10 as VSN002'
  initialize_ms_volume element=violet_5833_10 recorded_vsn=VSN002
  display_value 'Initializing violet_5833_18 as VSN003'
  initialize_ms_volume element=violet_5833_18 recorded_vsn=VSN003
  display_value 'Initializing violet_5833_01 as VSN004'
  initialize_ms_volume element=violet_5833_01 recorded_vsn=VSN004
  display_value 'Initializing violet_5833_09 as VSN005'
  initialize_ms_volume element=violet_5833_09 recorded_vsn=VSN005
  display_value 'Initializing violet_5833_11 as VSN006'
  initialize_ms_volume element=violet_5833_11 recorded_vsn=VSN006
  display_value 'Initializing violet_5833_19 as VSN007'
  initialize_ms_volume element=violet_5833_19 recorded_vsn=VSN007
 "ENTER CHAMSC HERE"
 "CLASS X WILL CONTAIN SCU_BOUND_PRODUCT"
 "CLASS Y WILL CONTAIN FORTRAN_BOUND_PRODUCT"
 "CLASS Z WILL CONTAIN COBOL_BOUND_PRODUCT"
 CHAMSC VSN000 DC=(X Y Z)
 CHAMSC VSN001 DC=(X Y Z)
 CHAMSC VSN002 DC=(Y Z)
 CHAMSC VSN003 DC=(X Y Z)
 CHAMSC VSN004 DC=(X Y)
 CHAMSC VSN005 DC=(X Y Z)
 CHAMSC VSN006 DC=(X Z)
 CHAMSC VSN007 DC=(X Y Z)
  display_value 'Adding VSN001 to set'
  add_volume_to_set member_vsn=VSN001
  display_value 'Adding VSN002 to set'
  add_volume_to_set member_vsn=VSN002
  display_value 'Adding VSN003 to set'
  add_volume_to_set member_vsn=VSN003
  display_value 'Adding VSN004 to set'
  add_volume_to_set member_vsn=VSN004
  display_value 'Adding VSN005 to set'
  add_volume_to_set member_vsn=VSN005
  display_value 'Adding VSN006 to set'
  add_volume_to_set member_vsn=VSN006
  display_value 'Adding VSN007 to set'
  add_volume_to_set member_vsn=VSN007
end_prolog_file
 COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
 define_network_connection connected_system=violet_DI_100092
 define_network_connection connected_system=violet_DI_3000D3
 define_network_connection connected_system=violet_DI_3000F0
 define_host_network n=302(10)
end_prolog_file

PROCEND SN302_SABRE_HOTKEY
