
  TYPE
    pft$locked_catalog_list = array [1 .. pfc$max_locked_catalogs] of ^cell;

*copyc pfc$max_locked_catalogs
