
VAR
  rav$format_types: [STATIC, READ] array [rac$object_library..rac$other] of ost$name := [
               'OBJECT_LIBRARY', 'ONLINE_MANUAL', 'SOURCE_LIBRARY', 'V_RECORD_FILE',
               'REAL_STATE_LIBRARY', 'DEADSTART_TAPE_MODULES', 'INDEXED_SEQUENTIAL_FILE',
               'SYMBOL_TABLE', 'INSTALLATION_TABLE', 'PPU', 'OTHER'];

*copyc ost$name
*copyc rat$file_format

