PROCEDURE PURPLE_9836_2X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
create_file_connection $echo output
delete_element_definition e=all r=( ..
 purple_fa7b5_0 purple_fa7b5_1 purple_9836_0 purple_9836_1 ..
 purple_9836_2 purple_9836_3 purple_7221_1 p50 p51)
"Begin CHAED commands"
change_element_definition s=on e = purple_fa7b5_0 ..
    IOU_CONNECTION = ((  CH1 0 $SYSTEM_9303_0101 IOU0 ))
change_element_definition s=on e = purple_fa7b5_1 ..
    IOU_CONNECTION = ((  CH17 1 $SYSTEM_9303_0101 IOU0 ))
change_element_definition s=on e = purple_9836_0   "CM0 UN0"
change_element_definition s=on e = purple_9836_1   "CM0 UN1"
change_element_definition s=on e = purple_9836_2   "CM1 UN2"
"change_element_definition s=on e = purple_9836_3   CM1 UN3"
change_element_definition s=on e = purple_7221_1   "CH 4"
change_element_definition s=on e = p50             "Tape Unit 0"
change_element_definition s=on e = p51             "Tape Unit 1"
change_element_definition s=on e = purple_ica_16   "CH16"
delete_file_connection $echo output
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
"Begin INIMSV and CHAMSC commands
display_value 'Initializing purple_9836_1 as disk01'
initialize_ms_volume e = purple_9836_1 recorded_vsn = disk01
display_value 'Initializing purple_9836_2 as disk02'
initialize_ms_volume e = purple_9836_2 recorded_vsn = disk02
"display_value 'Initializing purple_9836_3 as disk03'
"initialize_ms_volume e = purple_9836_3 recorded_vsn = disk03
display_value 'Adding disk01 to set'
add_volume_to_set member_vsn = disk01
display_value 'Adding disk02 to set'
add_volume_to_set member_vsn = disk02
"display_value 'Adding disk03 to set'
"add_volume_to_set member_vsn = disk03
end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
"Begin network access commands
define_network_connection connected_system=purple_ica_16 ..
   system_identifier=400149(16)
define_host_network n=101(10)
end_prolog_file
PROCEND PURPLE_9836_2X4


