
  TYPE
    pft$mainframe_usage_list = array [1 .. * ] of pft$physical_mainframe_usage;

*copyc pft$mainframe_usage_index
*copyc pft$physical_mainframe_usage
