$self->{'cpy00'} = Cobol::Copybook->new(
      {filehandle => \*DATA, filter => '00'});
$self->{'cpy01'} = Cobol::Copybook->new(
      {filehandle => \*DATA, filter => '01'});
$self->{'cpy04'} = Cobol::Copybook->new(
      {filehandle => \*DATA, filter => '04'});