
{ A system_supplied_name is of the form $MMM_NNNN_SSS_CCCC }

  TYPE
    jmt$system_supplied_name_mask = record
      case boolean of
      = true =
        system_supplied_name: jmt$system_supplied_name,
      = false =
        dollar: string(1),
        model: jmt$ssn_model_number,
        underscore_1: string(1),
        serial_number: jmt$ssn_serial_number,
        underscore_2: string(1),
        sequence: jmt$ssn_sequence_number,
        underscore_3: string(1),
        counter: jmt$ssn_counter,
      casend,
    recend;

*copyc jmt$ssn_counter
*copyc jmt$ssn_model_number
*copyc jmt$ssn_sequence_number
*copyc jmt$ssn_serial_number
*copyc jmt$system_supplied_name
