PROCEDURE SN604_ISD2_2X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
crefc $echo output
 change_element_definition e=red_fa7b4_60 s=on  ic=((ch22 6))
                                                "Disk Channel 26(8)-CM6"
 change_element_definition e=red_fa7b4_71 s=on  ic=((ch22 7))
                                                "Disk Channel 26(8)-CM7"
 change_element_definition e=red_fa7b4_12 s=on  ic=((ch16 1))
                                                "Disk Channel 20(8)-CM1"
 change_element_definition e=red_fa7b4_23 s=on  ic=((ch16 2))
                                                "Disk Channel 20(8)-CM2"
 change_element_definition e=red_836_60   s=on  "ISD2-Unit60"
 change_element_definition e=red_836_71   s=on  "ISD2-Unit71"
 change_element_definition e=red_836_12   s=on  "ISD2-Unit12"
 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_60 as VSN060'
 initialize_ms_volume element=red_836_60 recorded_vsn=VSN060
 display_value 'Initializing red_836_71 as VSN071'
 initialize_ms_volume element=red_836_71 recorded_vsn=VSN071
 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)
"CLASS X WILL CONTAIN SCU_BOUND_PRODUCT"
CHAMSC VSN060 DC=(Y Z)
"CLASS Z WILL CONTAIN COBOL_BOUND_PRODUCT"
CHAMSC VSN071 DC=(X Y)
"CLASS Y WILL CONTAIN FORTRAN_BOUND_PRODUCT"
CHAMSC VSN023 DC=(X Z)
 display_value 'Adding VSN060 to set'
 add_volume_to_set member_vsn=VSN060
 display_value 'Adding VSN071 to set'
 add_volume_to_set member_vsn=VSN071
 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_2X4
