PROCEDURE SN302_XMD3_1X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
 delete_element_definition e=all r=(..
 violet_xmd_cm_2 ..
 violet_xmd_cm_3 ..
 violet_9853_0 ..
 violet_9853_1 ..
 violet_9853_2 ..
 violet_9853_3 ..
 violet_7021_1 ..
 v50 ..
 v51 ..
 v52 ..
 v55 ..
 stornet ..
 violet_DI_3000f0 ..
 violet_DI_100092 ..
 $7992_10_1_0 ..
 xlink_violet ..
 drd_dum0 ..
 sma_drd0 ..
 sma_drd1)

 change_element_definition e=violet_xmd_cm_2    s=on  ic=((cch5a 2))
 change_element_definition e=violet_xmd_cm_3    s=on  ic=((cch5a 3))
 change_element_definition e=violet_9853_0  s=on  pc=((violet_xmd_cm_2 0))
                                                                  "XMD-1841"
 change_element_definition e=violet_9853_1  s=on  pc=((violet_xmd_cm_2 1))
                                                                  "XMD-1840"
 change_element_definition e=violet_9853_2  s=on  pc=((violet_xmd_cm_3 2))
                                                                  "XMD-1782"
 change_element_definition e=violet_9853_3  s=on  pc=((violet_xmd_cm_3 3))
                                                                  "XMD-1838"
 change_element_definition e=violet_7021_1  s=on            "VE Tapes-CH33(8)"
 change_element_definition e=v50            s=on  pc=((violet_7021_1 0))
                                                                  "679 Unit 0"
 change_element_definition e=v51            s=on  pc=((violet_7021_1 1))
                                                                  "679 Unit 1"
 change_element_definition e=v52           s=off  pc=((violet_7021_1 2))
                                                                  "679 Unit 2"
 change_element_definition e=v55            s=on  pc=((violet_7021_1 5))
                                                                  "679 Unit 5"
 change_element_definition e=xlink_violet   s=off  "EXPRESS LINK to LIZZIE"
 change_element_definition e=stornet        s=on
 change_element_definition e=violet_DI_3000f0 s=on "DI 340"
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
 display_value 'Initializing violet_9853_1 as VSN001'
 initialize_ms_volume element=violet_9853_1 recorded_vsn=VSN001
 display_value 'Initializing violet_9853_2 as VSN002'
 initialize_ms_volume element=violet_9853_2 recorded_vsn=VSN002
 display_value 'Initializing violet_9853_3 as VSN003'
 initialize_ms_volume element=violet_9853_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=violet_DI_3000f0
define_host_network n=302(10)
end_prolog_file

PROCEND SN302_XMD3_1X4
