PROCEDURE COBALT_XMD_1X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
 delete_element_definition e=all r=(..
 cobalt_xmd_cm_2 ..
 cobalt_xmd_cm_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=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"
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
"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=(Y Z)
CHAMSC VSN002 DC=(X Y)
CHAMSC VSN003 DC=(X 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
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_XMD_1X4
