PROCEDURE pewter_open_usage (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
EDIT_PHYSICAL_CONFIGURATION
 delete_element_definition e=all r=(..
 block_cm_0 ..
 block_cm_1 ..
 block_0 ..
 block_1 ..
 block_2 ..
 block_3 ..
 pewter_7221_1 ..
 pew0 ..
 pew1 ..
 pewter_5698_0 ..
 pew2 ..
 pew3 ..
 stornet ..
 pewter_ica_16 ..
 pewter_ica_0  ..
 pewter_ica_test ..
 pewter_nad_1 ..
 xlink5_pew ..
 xlink19_pew ..
)

change_element_definition e=block_cm_0     s=on ic=((ch1 0))
change_element_definition e=block_cm_1     s=on ic=((ch1 1))
change_element_definition e=block_0        s=on pc=((block_cm_0 0))
change_element_definition e=block_1        s=on pc=((block_cm_0 1))
change_element_definition e=block_2        s=on pc=((block_cm_1 2))
change_element_definition e=block_3        s=on pc=((block_cm_1 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=pewter_5698_0  s=on
change_element_definition e=pew2           s=on
change_element_definition e=pew3           s=on
change_element_definition e=stornet        s=on
change_element_definition e=pewter_ica_16  s=on
change_element_definition e=pewter_ica_0   s=on
change_element_definition e=pewter_ica_test s=on
change_element_definition e=pewter_nad_1   s=on
change_element_definition e=xlink19_pew    s=on
change_element_definition e=xlink5_pew     s=on
QUIT
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
display_value 'Initializing BLOCK_1 as SXMD1'
initialize_ms_volume element=block_1 recorded_vsn=SXMD1
display_value 'Initializing BLOCK_2 as SXMD2'
initialize_ms_volume element=block_2 recorded_vsn=SXMD2
display_value 'Initializing BLOCK_3 as SXMD3'
initialize_ms_volume element=block_3 recorded_vsn=SXMD3
display_value 'Adding SXMD1 to set'
add_volume_to_set member_vsn=SXMD1
display_value 'Adding SXMD2 to set'
add_volume_to_set member_vsn=SXMD2
display_value 'Adding SXMD3 to set'
add_volume_to_set member_vsn=SXMD3
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=pewter_ica_0 system_identifier=4fff21(16)
define_network_connection connected_system=xlink5_pew
define_network_connection connected_system=xlink19_pew
end_prolog_file

PROCEND pewter_open_usage


