RE: [sqr-users] Printing Dynamic variable in Header Brio SQR 8.1

["the dragon" <ceprn@hotmail.com>]

The heading would be getting executed if there is any printed output.  I am 
wondering in the changefield procedure is getting executed though.  It 
should be.

peace,
clark 'the dragon' willis



PSA: Salary <> Slavery.  If you earn a salary, your employer is renting your 
services for 40 hours a week, not purchasing your soul.  Your time is the 
only real finite asset that you have, and once used it can never be 
recovered, so don't waste it by giving it away.

"Time is the coin of your life. It is the only coin you have, and only you 
can determine how it will be spent.  Be careful lest you let other people 
spend it for you."

Carl Sandburg
(1878 - 1967)

----Original Message Follows----

Scott,

1.  Are you sure that your heading routine is even being executed?
Suggestion:

begin-heading 5

#debuga    string $dttmstamp ' begin-heading' by '' into $dispstr
#debuga    display $dispstr


        (heading content)

#debuga    string $dttmstamp ' end-heading' by '' into $dispstr
#debuga    display $dispstr

end-heading

2.  Are you sure that the size of your heading (5) is big enough; are you
sure that it's expressed in lines and not points?
Suggestion:  Change heading to larger number (i.e., begin-heading 70)

3.  Have you tried getting a static value to print?
Suggestion:  substitute for print $dn (,10):

   print 'This is my heading' (1,10)


to see if anything changes.  Also, note you would be designating a specific
line of the heading for printing this statement.

HTH,
Louise



-----Original Message-----

Yesterday I submitted some sample code to print dynamically in the heading
section.  Some people took the code I had literally  but, it was meerely an
example to show the problem at hand.  Does anyone know how to print
dynamically in a heading if evreything else in the program works fine. Below
is some more sample code it is to simply show the problem in its simplest
form.

This is the skeleton of the problem.

We cannot get this to work-----

!------------------------------------------------------------------

begin-heading 5
         print 'heading: ' (,1)
         let $dn=datenow()
         print $dn (,10)
         print $headingfield (,25)
end-heading

begin-procedure get_data
begin-select
category &f1 (+1,1) on-break procedure=changefield
       let $headingfield=&f1
element (,25)
from dm_flat_element


end-select

end-procedure

begin-procedure changefield
       new-page
end-procedure

begin-program
       do get_data
end-program

!----------------------------------------------------------------------

Thanks,
Scott Howser



_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users