  TYPE
    jmt$results_keys = array [1 .. * ] of jmt$attribute_keys;

*copyc jmt$attribute_keys
