
 TYPE
    fst$retention = record
      case selector: fst$retention_attribute_type of
      = fsc$retention_day_increment =
        day_increment: pft$retention,
      = fsc$retention_time_increment =
        time_increment: pmt$time_increment,
      = fsc$retention_expiration_date =
        expiration_date: ost$date_time,
      casend,
    recend;

*copyc fst$retention_attribute_type
*copyc ost$date_time
*copyc pft$retention
*copyc pmt$time_increment
