
{ DECK: DMT$TAPE_RESERVATIONS

  TYPE
    dmt$tape_reservations = array [1 .. * ] of dmt$tape_reservation_entry,

    dmt$tape_reservation_entry = record
      available: boolean,
      jsn: jmt$system_supplied_name,
      unit_type: rmt$tape_reservation,
    recend;


?? PUSH (LIST := OFF) ??
*copyc jmt$system_supplied_name
*copyc rmt$tape_reservation
?? POP ??
