PROCEDURE NAVY_ISD2_2X2 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
crefc $echo output
 change_element_definition e=cm_11_0    s=on  "Disk channels 1(8)"
"change_element_definition e=cm_23_1    s=on" "Disk channels 23(8)"

 change_element_definition e=disk_11_0  s=on  "ISD2 - Unit 1"
"change_element_definition e=disk_23_0  s=on" "ISD2 - Unit 2"

 change_element_definition e=tape_adapter_a  s=on    "Tape channel 4"
 change_element_definition e=tape_a1         s=on    "Tape unit 0"

 change_element_definition e=ICA_0           s=on    "Ica channel 0"

 change_element_definition e=IVB_5           s=on    "IVB channel 5(8)"
 change_element_definition e=IVB_25          s=on    "IVB channel 25(8)"

delfc $echo output
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
"display_value 'Initializing disk_23_1 as DISK01'
"initialize_ms_volume element=disk_23_1 recorded_vsn=DISK01
"display_value 'adding DISK01 to set'
"add_volume_to_set member_vsn=disk01
end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
define_host_network n=0a203(16)
define_network_connection connected_system=ica_0 system_identifier=400239(16)
define_network_connection connected_system=ivb_5
"define_network_connection connected_system=ivb_21
define_network_connection connected_system=ivb_25
define_tcpip_host 'navy.ahse.cdc.com'
end_prolog_file

PROCEND NAVY_ISD2_2X2

