{
{              common deck dmdclas
{

  TYPE
    dmt$class = set of dmt$class_member,
    dmt$class_member = 'A' .. 'Z',
    dmt$system_class = (dmc$swap_files, dmc$critical_files,
        dmc$temporary_files, dmc$system_class_spare_1, dmc$system_class_spare_2);

  TYPE
    dmt$class_ordinal = 0 .. dmc$max_class_ordinal;

  CONST
    dmc$max_class_ordinal = 63,
    dmc$default_class = rmc$unspecified_file_class,
    dmc$swap_file_class = 'C',
    dmc$transient_segment_class = 'B',
    dmc$default_class_ordinal = 0;

*copyc rmc$unspecified_file_class

