package My_Test;

$File = 'TEST.BTR';

$Length = 13;

$Spec =
{
  File => [ $Length, 512, 1, 0, 0, 0    ]
, Key  => [       1,   3, 0, 0, 0, 0, 0 ]
};

$Mask = 'A3A10';

$FirstKey       = 101;
$NotExistingKey = 999;

$Data =
[
  [ $FirstKey+4,'Abc']
, [ $FirstKey  ,'Bcd']
, [ $FirstKey+2,'Cde']
];

1;

=head1 SPECIFICATION

=head2 File

  2 S  short int Logical Record Length
  2 S  short int Page Size
  2 S  short int Number of Indexes
  4 x4 char      Reserved
  2 S  short int File Flags
  1 C  char      Number of Duplicate Pointers To Reserve
  1 x  char      Not Used
  2 S  short int Allocation

=head2 Key

  2 S  short int Key Position
  2 S  short int Key Length
  2 S  short int Key Flags
  4 x4 char      Reserved
  1 C  char      Extended Data Type
  1 C  char      Null Value
  2 x2 char      Not Used
  1 C  char      Manually Assigned Key Number
  1 C  char      ACS Number

=cut