Help for this page

Select Code to Download


  1. or download this
    $self->{'cpy00'} = Cobol::Copybook->new(
      {filehandle => \*DATA, filter => '00'});
...
      {filehandle => \*DATA, filter => '01'});
$self->{'cpy04'} = Cobol::Copybook->new(
      {filehandle => \*DATA, filter => '04'});
  2. or download this
    $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
+'})
};
  3. or download this
    $VAR1 = {
          'cpy04' => bless( {
...
                            }, 'Cobol::Copybook' )
        };