
  TYPE
    ost$unique_name = record
      case boolean of
      = TRUE =
        value: ost$name,
      = FALSE =
        dollar_sign: string (1),
        sequence_number: string (7),
        p: string (1),
        processor_model_number: string (1),
        s: string (1),
        processor_serial_number: string (4),
        d: string (1),
        year: string (4),
        month: string (2),
        day: string (2),
        t: string (1),
        hour: string (2),
        minute: string (2),
        second: string (2),
      casend,
    recend;

*copyc OST$NAME
*copyc ost$binary_unique_name
