  TYPE
    rat$correction_package_header = record
      identification: string (18),
      version: string (4),
      applier: REL (rat$correction) ^SEQ ( * ),
      size_of_applier: rat$applier_size,
      number_of_elements: rat$element_index,
    recend;

  TYPE
    rat$applier_size = 0 .. 7FFFFFFF(16);

  CONST
    rac$correction_package_id = 'CORRECTION_PACKAGE',
    rac$correction_package_version = 'V1.4';

*copyc rat$correction_package

