$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'});

##</code><code>##

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

##</code><code>##

$VAR1 = {
          'cpy04' => bless( {
                              'filter' => '04',
                              'fh' => \*Product::Datafile::DATA
                            }, 'Cobol::Copybook' ),
          'cpy01' => bless( {
                              'filter' => '01',
                              'fh' => $VAR1->{'cpy04'}{'fh'}
                            }, 'Cobol::Copybook' ),
          'cpy00' => bless( {
                              'filter' => '00',
                              'fh' => $VAR1->{'cpy04'}{'fh'}
                            }, 'Cobol::Copybook' )
        };