  CONST
    jmc$max_service_data_length = 256;

  TYPE
    jmt$service_data = string (jmc$max_service_data_length),
    jmt$service_data_length = 0 .. jmc$max_service_data_length;

