Null-values in report variables

BDL 3.542k
fjs-f4gl-3[1].54.2k-lnxlc22.sh
and
fjs-f4gl-3[1].54.2k-lnxlc23.sh
 
Hi,
just encountered a (new?) bug concerning reports.
 
A construction like this:
 
function f1()
define l_rec record like tab1.*
 
 
if condition then
  start report rep1
else
  start report rep2
end if
 
foreach cursor...
     l_rec.* properly populated
 if condition then   
   output to report rep1(l_rec.*)
 else
   output to report rep2(l_rec.*)
end if
end foreach
 
 if condition then   
   output to report rep1(100, l_rec.*)
 else
   output to report rep2(200, l_rec.*)
end if
 
 
end function
 
report rep1(int_var, r_rec)
define int_var integer,                      
        r_rec record like tab1.* - 
 
on every row
 print int_var                        # all integer types: 0
 print r_rec.col1, r_rec.col2  # all other types: null
end report
 
report rep2(int_var, r_rec)
define int_var integer,        
         r_rec record like tab1.*
 
on every row
 print int_var                                 # all types ok
 print r_rec.col1, r_rec.col2
end report
 
Only after renaming int_var and r_rec to unique names
all values are correct
 
 

Regards,
Ullrich Molter

 

L U T Z   Büro- und Datentechnik GmbH
Im Taubental 25, 41468 Neuss
Telefon : 02131 - 34 13 - 0   Telefax : 02131 - 34 13 - 88
http://www.lutz.de <http://www.lutz.de>
mailto:[email protected] <mailto:[email protected]> >