  TYPE
    jmt$system_supplied_name_list = array [1 .. * ] of
          jmt$system_supplied_name;

*copyc jmt$system_supplied_name
