PROCEDURE SN302_SABRE_2X8(
  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)

 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
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_host_network n=302(10)
end_prolog_file

PROCEND SN302_SABRE_2X8
