PROCEDURE pewter_perf_1X4 (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
 change_connection_reference ..
   old_mainframe_name=$system_9303_0121 new_mainframe_name=$system_9301_0121

 delete_element_definition e=all r=(..
 pewter_cm_4 ..
 pewter_cm_5 ..
 pewter_9836_40 ..
 pewter_9836_41 ..
 pewter_9836_52 ..
 pewter_9836_53 ..
 pewter_7221_1 ..
 pew0 ..
 pew1 ..
 pewter_5698_0 ..
 pew2 ..
 pew3 ..
 pewter_ica_16 ..
 pewter_nad_1 ..
 xlink5_pew ..
 xlink19_pew ..
)

 change_element_definition e=pewter_cm_4    s=on ic=((ch1 4))
 change_element_definition e=pewter_cm_5    s=on ic=((ch1 5))
 change_element_definition e=pewter_9836_40 s=on pc=((pewter_cm_4 0))
 change_element_definition e=pewter_9836_41 s=on pc=((pewter_cm_4 1))
 change_element_definition e=pewter_9836_52 s=on pc=((pewter_cm_5 2))
 change_element_definition e=pewter_9836_53 s=on pc=((pewter_cm_5 3))
 change_element_definition e=pewter_7221_1  s=on
 change_element_definition e=pew0           s=on
 change_element_definition e=pew1           s=on
 change_element_definition e=pew2           s=on
 change_element_definition e=pew3           s=on
 change_element_definition e=pewter_ica_16  s=on
 change_element_definition e=pewter_nad_1   s=on
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
display_value 'Initializing PEWTER_9836_41 as S83641'
initialize_ms_volume element=pewter_9836_41 recorded_vsn=S83641
display_value 'Initializing PEWTER_9836_52 as S83652'
initialize_ms_volume element=pewter_9836_52 recorded_vsn=S83652
display_value 'Initializing PEWTER_9836_53 as S83653'
initialize_ms_volume element=pewter_9836_53 recorded_vsn=S83653
display_value 'Adding S83641 to set'
add_volume_to_set member_vsn=S83641
display_value 'Adding S83652 to set'
add_volume_to_set member_vsn=S83652
display_value 'Adding S83653 to set'
add_volume_to_set member_vsn=S83653
"ENTER CHAMSC HERE"
"CLASS X WILL CONTAIN SCU_BOUND_PRODUCT"
"CLASS Y WILL CONTAIN FORTRAN_BOUND_PRODUCT"
"CLASS Z WILL CONTAIN COBOL_BOUND_PRODUCT"
CHAMSC S83640 DC=(X Y Z)
CHAMSC S83641 DC=(Y Z)
CHAMSC S83652 DC=(X Y)
CHAMSC S83653 DC=(X Z)
end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
define_host_network n=767(10)
define_network_connection connected_system=pewter_ica_16 system_identifier=4fff20(16)
define_network_connection connected_system=xlink5_pew
define_network_connection connected_system=xlink19_pew
end_prolog_file

PROCEND pewter_perf_1X4
