PROCEDURE SN102_887_2X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
crefc $echo output
 delete_element_definition e=all r=(pink_887_6 pink_887_7 ..
   pink_887_10 pink_887_11 pink_7021_1 pink_698_c1 p50 p51 p52 p53 p60 p61 ..
   p62 p63 pink_di_3000a0 pink_di_300070 pink_NAD_1 pink_NAD_2)
 change_element_definition e=pink_887_6 ic=((cch7a 0)) s=on   "HYDRA CCH7A UNIT0"
 change_element_definition e=pink_887_7 ic=((cch7a 1)) s=on   "HYDRA CCH7A UNIT1"
 change_element_definition e=pink_887_10 ic=((cch9a 4)) s=on   "HYDRA CCH9A UNIT4"
 change_element_definition e=pink_887_11 ic=((cch9a 5)) s=on   "HYDRA CCH9A UNIT5"
 change_element_definition e=pink_7021_1 s=on ..
                       ic=((cch6 0 $system_0990_0102 iou1))     "Tape Channel 6 IOU1"
 change_element_definition e=pink_698_c1 s=on "H-Tape Channel 20(8) IOU1"
 change_element_definition e=p50         s=on "679 Tape Unit 0"
 change_element_definition e=p51         s=on "679 Tape Unit 1"
 change_element_definition e=p52         s=on "679 Tape Unit 2"
 change_element_definition e=p53         s=on "679 Tape Unit 3"
 change_element_definition e=p60         s=on   "H-Tape Unit 0"
 change_element_definition e=p61         s=on   "H-Tape Unit 1"
 change_element_definition e=p62         s=on   "H-Tape Unit 2"
 change_element_definition e=p63         s=on   "H-Tape Unit 3"
 change_element_definition e=pink_DI_3000a0 s=on ic=((ch6 0)) "DI"
delfc $echo output
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
 display_value 'Initializing pink_887_7 as V88707'
 initialize_ms_volume element=pink_887_7 recorded_vsn=V88707
 display_value 'Initializing pink_887_10 as V88710'
 initialize_ms_volume element=pink_887_10 recorded_vsn=V88710
 display_value 'Initializing pink_887_11 as V88711'
 initialize_ms_volume element=pink_887_11 recorded_vsn=V88711
"ENTER CHAMSC HERE"
CHAMSC VSN7A0 DC=(X Y Z)
"CLASS X WILL CONTAIN SCU_BOUND_PRODUCT"
CHAMSC V88707 DC=(Y Z)
"CLASS Z WILL CONTAIN COBOL_BOUND_PRODUCT"
CHAMSC V88710 DC=(X Y)
"CLASS Y WILL CONTAIN FORTRAN_BOUND_PRODUCT"
CHAMSC V88711 DC=(X Z)
 display_value 'Adding V88707 to set'
 add_volume_to_set member_vsn=V88707
 display_value 'Adding V88710 to set'
 add_volume_to_set member_vsn=V88710
 display_value 'Adding V88711 to set'
 add_volume_to_set member_vsn=V88711
end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
define_channel_network n=102(16) cs=pink_DI_3000a0 rr=false
define_host_network n=102(10)
end_prolog_file

PROCEND SN102_887_2X4
