{
{ dmt$volume_label_attributes
{

  TYPE
    dmt$volume_label_attributes = array [ * ] of dmt$volume_label_attribute,

    dmt$volume_label_attribute = record
      case keyword: dmt$volume_label_keywords of

      = dmc$label_access_code =
        access_code: ost$name,

      = dmc$label_expiration_days =
        expiration_days: dmt$label_expiration_days,

      = dmc$label_internal_vsn =
        internal_vsn: dmt$internal_vsn,

      = dmc$label_owner_id =
        owner_id: ost$user_identification,

      = dmc$label_recorded_vsn =
        recorded_vsn: rmt$recorded_vsn,

      casend,
    recend,

    dmt$volume_label_keywords = (dmc$label_access_code,
      dmc$label_expiration_days, dmc$label_internal_vsn, dmc$label_owner_id,
      dmc$label_recorded_vsn),

    dmt$label_expiration_days = dmc$min_expiration_days ..
      dmc$max_expiration_days;

  CONST
    dmc$default_vol_access_code = osc$null_name,

    dmc$min_expiration_days = 1,

    dmc$max_expiration_days = 99999,

    dmc$default_vol_exp_days = 100,

    dmc$default_vol_exp_years = 0,

    dmc$default_vol_exp_months = 0;

?? PUSH (LISTEXT := ON) ??
*copyc dmt$internal_vsn
*copyc ost$name
*copyc ost$user_identification
*copyc rmd$volume_declarations
?? POP ??
