PROCEDURE SN604_ISD2_1X2 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
crefc $echo output
 change_element_definition e=red_fa7b4_12 s=on  ic=((ch16 1))
                                                "Disk Channel 20(8)-CM1"
 change_element_definition e=red_836_12   s=on  "ISD2-Unit12"
 change_element_definition e=red_fa7b4_23 s=on  ic=((ch16 2))
                                                "Disk Channel 20(8)-CM2"
 change_element_definition e=red_836_23   s=on  "ISD2-Unit23"
 change_element_definition e=red_7021_2  s=on  "Tape Controller-CH23(8)"
 change_element_definition e=r50         s=on  "Tape Unit  0"
 change_element_definition e=r51         s=on  "Tape Unit  1"
 change_element_definition e=red_DI_10006b s=on "DI 107"
delfc $echo output
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
 display_value 'Initializing red_836_23 as VSN023'
 initialize_ms_volume element=red_836_23 recorded_vsn=VSN023
"ENTER CHAMSC HERE"
CHAMSC VSN012 DC=(X Y Z)
 display_value 'Adding VSN023 to set'
 add_volume_to_set member_vsn=VSN023
end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
define_network_connection connected_system=red_DI_10006b
define_host_network n=604(10)
end_prolog_file

PROCEND SN604_ISD2_1X2
