
  VAR
    rav$correction_format: [READ] array [rat$correction_format] of string (14) := ['OBJECT_LIBRARY',
          'SOURCE_LIBRARY', 'REPLACEMENT'];



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