
  VAR
    rav$product_reference: [READ] array [rat$product_references] of string (16) :=
          ['not referenced', 'licensed product', 'subproduct', 'group', 'excluded'];

?? PUSH (LISTEXT := ON) ??
*copyc rat$product_references
?? POP ??
