
  VAR
    rav$subproduct_type: [READ] array [rat$subproduct_type] of string (20) := ['CORRECTION', 'RELEASE'];


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