PROCEDURE mauve_shortlooks (
  status)

collect_text $local.pcu_subcommands until='END_PROLOG_FILE'
EDIT_PHYSICAL_CONFIGURATION
 delete_element_definition e=all r=(..
  m_7155_1510 ..
  m_7155_2987 ..
  fmd_46_3641 ..
  fmd_47_3641 ..
  fmd_46_8377 ..
  fmd_46_8377 ..
  mauve_7021_1 ..
  ma50 ..
  ma51 ..
  ma52 ..
  mau_DI_100087 ..
  mau_DI_3000D6 ..
  mau_DI_3001B0 ..
  mau_DI_300420 ..
  mau_DI_10007F ..
  mau_DI_300116)

 change_element_definition e=m_7155_1510 s=on "CH0"
 change_element_definition e=m_7155_2987 s=on "CH21(8)"
 change_element_definition e=fmd_46_3641 s=on pc=((m_7155_1510 38))
 change_element_definition e=fmd_47_3641 s=on pc=((m_7155_1510 39))
 change_element_definition e=fmd_46_8377 s=on pc=((m_7155_2987 38))
 change_element_definition e=fmd_47_8377 s=on pc=((m_7155_2987 39))
 change_element_definition e=mauve_7021_1 s=on "CH13(8)"
 change_element_definition e=ma50 s=on  pc=((mauve_7021_1 0))
 change_element_definition e=ma51 s=on  pc=((mauve_7021_1 1))
 change_element_definition e=ma52 s=off pc=((mauve_7021_1 2))
 change_element_definition e=mau_di_300116 s=on "SN378"
quit
END_PROLOG_FILE
collect_text $local.lcu_mainframe_subcommands until='END_PROLOG_FILE'
display_value 'Initializing FMD_47_3641 as S88501'
initialize_ms_volume element=FMD_47_3641 recorded_vsn=S88501
display_value 'Initializing FMD_46_8377 as S88502'
initialize_ms_volume element=FMD_46_8377 recorded_vsn=S88502
display_value 'Initializing FMD_47_8377 as S88544'
initialize_ms_volume element=FMD_47_8377 recorded_vsn=S88503
display_value 'Adding S88501 to the set.'
add_volume_to_set member_vsn=S88501
display_value 'Adding S88502 to the set.'
add_volume_to_set member_vsn=S88502
display_value 'Adding S88503 to the set.'
add_volume_to_set member_vsn=S88503
END_PROLOG_FILE
collect_text $local.lcu_network_subcommands until='END_PROLOG_FILE'
END_PROLOG_FILE

PROCEND mauve_shortlooks
