
rath_igit
Novice
Jun 17, 2015, 5:31 AM
Post #13 of 15
(26061 views)
|
Re: [rath_igit] Perl report format and references to hash is creating header issues in 11g(perl version 5.10.0) but fine in 10g(perl version 5.8.4)
[In reply to]
|
Can't Post
|
|
Hi, I have again gone through the db interaction and population of hashes.All are fine .all the $c,$tblrep,$tblreprndata have the data upto write() function. ----------------------Code------------------------------------------------------------- sub WritePageHeader{ ($c,$cntpag)=@_; $tblrep=$$c{tabl_rpt()}->data(); $tblreprndata=$$c{tabl_rpt_run_dat()}->data(); $$cntpag ++; select ($$c{outputflhndl()}; $~="PAGEHEADER_STANDARD"; #upto this both 10g and 11g results are same write($$c{outputflhndl()}; #when checking here $tblrep,$tblreprndata etc are empty in 11g(perl 5.10.0) .... } -------------------------------------------------------------------------------- format PAGEHEADER_STANDARD= @<<<<<<<<<<<<<< @|||||||||||||||| Date: @<<<<<< @<<<<<< $$tblreprndata{'entdes'}{'data_value'}, $$tblrep{$$c{repid()}}{'repname'}, $$c{pdate()}}, $$c{pdate()}} -------------------------------------------------------------------------------- In the debugger I can see the values in hashes as x $tblreprndata, x $c etc ;but when it is entering the write function then it is taking this format PAGEHEADER_STANDARD and this $tblrep and $tblreprndata are showing empty and as these above two hashes are empty p $$tblreprndata{'entdes'}{'data_value'} also showing blank. It is the issue in 11g which is using (5.10.0 perl version). But OK with 10g which is using (5.8.4 perl version). all other things are OK. this $tblrep and $tblreprndata are showing hash values and as these above two hashes are not empty p $$tblreprndata{'entdes'}{'data_value'} also showing correct value in report. Thanks
(This post was edited by rath_igit on Jun 17, 2015, 5:41 AM)
|