PROCEDURE est_860_a (
  status)

COLLECT_TEXT $local.pcu_subcommands until='END_PROLOG_FILE'
EDIT_PHYSICAL_CONFIGURATION
" 844/885 controller
change_element_definition e=es1_7155_1 s=on
" 885 disk drives
change_element_definition e=es1_885_42 s=on
change_element_definition e=es1_885_43 s=on
" 67x tape controller
change_element_definition e=es1_7021 s=on
" 67x tape drives
change_element_definition e=nt0 s=on
change_element_definition e=nt1 s=on
" 698 tape controller (Hitachi)
change_element_definition e=es1_698 s=on
" 698 tape drives (Hitachi)
change_element_definition e=ht0 s=on
change_element_definition e=ht1 s=on
" NAD
change_element_definition e=es1_NAD_1 s=on
" DI
change_element_definition e=es1_DI_30032e ei=$2620_210 s=on
quit
END_PROLOG_FILE
collect_text $local.lcu_mainframe_subcommands until='END_PROLOG_FILE'
 display_value 'Initializing ES1_885_43 as V88543'
 initialize_ms_volume element=es1_885_43 recorded_vsn=v88543
 display_value 'Adding V88543 to set'
 add_volume_to_set member_vsn=v88543
END_PROLOG_FILE
collect_text $local.lcu_network_subcommands until='END_PROLOG_FILE'
define_network_connection connected_system=es1_DI_30032e
define_host_network n=341(16)
END_PROLOG_FILE

PROCEND est_860_a
