
  TYPE
    jmt$output_system_id = jmt$kol_index;

*copyc jmt$kol_index
