
{ This deck defines the type for service classes.  Any time the service
{ class table (jmv$service_class_table_p) needs to be scanned, the scan
{ should be from jmc$system_service_class (the first defined class) to
{ jmv$max_service_class_in_use (the index of the highest defined class).

  CONST
    jmc$null_service_class = 0,
    jmc$unspecified_service_class = jmc$null_service_class,
    jmc$system_service_class = 1,
    jmc$maintenance_service_class = 2,
    jmc$unassigned_service_class = 3,
    jmc$lowest_site_service_class = 4,
    jmc$minimum_service_classes = 3,
    jmc$maximum_service_classes = 255;

  TYPE
    jmt$service_class_index = 0 .. jmc$maximum_service_classes;
