{dmdmid}
{        tape message identifier types

  TYPE
    dmt$message_id = (dmc$null, dmc$volume, dmc$scratch, dmc$ring, dmc$no_ring,
      dmc$ready, dmc$configure, dmc$assigned, dmc$reserved, dmc$inoperable,
      dmc$type, dmc$no_vsn, dmc$vsn_online),

    dmt$message_element = record
      element_name: ost$name,
      case mid: dmt$message_id of

      = dmc$null =
        ,

      = dmc$volume =
        external_vsn: rmt$external_vsn,
        ring: rmt$write_ring,

      = dmc$scratch =
        wrng: rmt$write_ring,

      = dmc$ring, dmc$no_ring, dmc$ready, dmc$configure, dmc$assigned,
        dmc$reserved, dmc$inoperable, dmc$type, dmc$no_vsn =
        ,

      = dmc$vsn_online =
        vsn: rmt$external_vsn,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc RMD$VOLUME_DECLARATIONS
*copyc OST$NAME
*copyc RMD$TAPE_DECLARATIONS
?? POP ??
