sub GenerateRpt{

    my $oldouthdl = select;
    $rtncd = 0;

    #initialize and gerate various variables here

    $Text::Wrap::columns = 40;  

    select(STDOUT);                            # select(OUTFILE); to write to a file
    $~ = "ERRRPT";                             # $FORMAT_NAME
    $^ = "ERRRPT_TOP";                         # $FORMAT_TOP_NAME
    $= = 81;                                   # $FORMAT_LINES_PER_PAGE
    $- = 0;                                    # $FORMAT LINES_LEFT
  
    while(<INFILE>){
        .       # do somethings
        .      
        .

        write;                                                  

    } # end while(<INFILE>)

    
    close(INFILE);

    select $oldouthdl;                         # restore original output file handle
    return $rtncd;

#*****;

format ERRRPT_TOP =

@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"$title01[$cat]"
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"$title02"


 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$cathdr[$cat]
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $cathdr[$cat]
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $cathdr[$cat]
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $cathdr[$cat]
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $cathdr[$cat]


---------------------------------------------------------------------------------
.

format ERRRPT =
Local Case Number: @<<<<<<<<<<<<<<<<<<<    Seq: @<<<     Crt: @<    Phase: @<<<<<
                   $err[4],                     $err[5],      $err[2],     $err[6]

Err Number: @<<<<<            Rec Number: @<<<<<             Field Number: @<<<<<
            $err[0],                      $err[1],           $obfldnum97{$err[8]}

Field Information:                      Description:
 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $line01
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $line01
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $line01
---------------------------------------------------------------------------------
.
} #end GenerateRpt()