PROCEDURE COBALT_BYOPS_XMD_2X8 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
crefc $echo output
 delete_element_definition e=all r=(..
 cobalt_xmd_cm_2 ..
 cobalt_xmd_cm_3 ..
 violet_xmd_cm_2 ..
 violet_xmd_cm_3 ..
 violet_9853_0 ..
 violet_9853_1 ..
 violet_9853_2 ..
 violet_9853_3 ..
 cobalt_xmd_0 ..
 cobalt_xmd_1 ..
 cobalt_xmd_2 ..
 cobalt_xmd_3 ..
 cobalt_7021_2 ..
 c44 ..
 c45 ..
 c46 ..
 c47 ..
 cobalt_DI_3000c2)

 change_element_definition e=cobalt_xmd_cm_2 s=on  ic=((cch7b 2))
 change_element_definition e=cobalt_xmd_cm_3 s=on  ic=((cch7b 3))
 change_element_definition e=violet_xmd_cm_2 s=on  ic=((cch3b 2))
 change_element_definition e=violet_xmd_cm_3 s=on  ic=((cch3b 3))
 change_element_definition e=violet_9853_0   s=on  pc=((violet_xmd_cm_2 0))
                                                                    "XMD-68"
 change_element_definition e=violet_9853_1   s=on  pc=((violet_xmd_cm_2 1))
                                                                    "XMD-66"
 change_element_definition e=violet_9853_2   s=on  pc=((violet_xmd_cm_3 2))
                                                                    "XMD-63"
 change_element_definition e=violet_9853_3   s=on  pc=((violet_xmd_cm_3 3))
                                                                    "XMD-69"
 change_element_definition e=cobalt_xmd_0   s=on  pc=((cobalt_xmd_cm_2 0))
                                                                    "XMD-2181"
 change_element_definition e=cobalt_xmd_1   s=on  pc=((cobalt_xmd_cm_2 1))
                                                                    "XMD-2182"
 change_element_definition e=cobalt_xmd_2   s=on  pc=((cobalt_xmd_cm_3 2))
                                                                    "XMD-2183"
 change_element_definition e=cobalt_xmd_3   s=on  pc=((cobalt_xmd_cm_3 3))
                                                                    "XMD-2184"
 change_element_definition element=cobalt_7021_2 s=on               "CH33(8)"
 change_element_definition element=c44 s=on pc=((cobalt_7021_2 4))
 change_element_definition element=c45 s=on pc=((cobalt_7021_2 5))
 change_element_definition element=c46 s=on pc=((cobalt_7021_2 6))
 change_element_definition element=c47 s=on pc=((cobalt_7021_2 7))
 change_element_definition element=cobalt_DI_3000c2 state=on "DI294"
delfc $echo output
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
 display_value 'Initializing cobalt_xmd_1 as VSN001'
 initialize_ms_volume element=cobalt_xmd_1 recorded_vsn=VSN001
 display_value 'Initializing cobalt_xmd_2 as VSN002'
 initialize_ms_volume element=cobalt_xmd_2 recorded_vsn=VSN002
 display_value 'Initializing cobalt_xmd_3 as VSN003'
 initialize_ms_volume element=cobalt_xmd_3 recorded_vsn=VSN003
 display_value 'Initializing violet_9853_0 as VSN004'
 initialize_ms_volume element=violet_9853_0 recorded_vsn=VSN004
 display_value 'Initializing violet_9853_1 as VSN005'
 initialize_ms_volume element=violet_9853_1 recorded_vsn=VSN005
 display_value 'Initializing violet_9853_2 as VSN006'
 initialize_ms_volume element=violet_9853_2 recorded_vsn=VSN006
 display_value 'Initializing violet_9853_3 as VSN007'
 initialize_ms_volume element=violet_9853_3 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=cobalt_DI_3000c2
 define_host_network n=102(10)
end_prolog_file

PROCEND COBALT_BYOPS_XMD_2X8
