[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
Re: Print-Chart Only Printing Blank Lines
- Subject: Re: Print-Chart Only Printing Blank Lines
- From: Peter Clark <PGCLARK@VAC-ACC.GC.CA>
- Date: Fri, 23 Feb 2001 09:25:05 -0400
What printer type are you specifying? If you are specifying (or defaulting to)
LINEPRINTER, that could be your problem since lineprinters only support ASCII
character printing. Try one of the other printer types.
>>> ANDERSD2 <ANDERSD2@OAKWOOD.ORG> 2001/02/22 4:05:07 pm >>>
I wish to develop an SQR to create a LINE chart. I followed the example
from (the old, but reliable) SQR3 Workbench (MITI) but the output was a
report with blank lines. The following is the relevant code snippet...
!***************************************************************************
***
begin-setup
!***************************************************************************
***
declare-chart Performance_Chart
title = 'Howdy, this is the title'
sub-title = 'Yup, a subtitle'
chart-size = (10,10)
type = line
end-declare
create-array
name=Chart_Data
size=10
field = Count:char
field = Time:number
field = Avg_Time:number
end-setup
!***************************************************************************
***
Begin-Procedure Summarize-Process
#debug show 'Enter Summarize-Process'
!***************************************************************************
***
let #Average = #Total_Time / #Count
move 0 to #element
while #element < #Count
put #Average into Chart_Data(#element) Avg_Time
#ifdef debug
get $Count #Time #Average from Chart_Data(#element)
show 'C T A ' $Count ' <> ' #Time ' <> ' #Average
#endif
add 1 to #element
end-while
new-page
print-chart Performance_Chart (+1,1)
data-array = Chart_Data
data-array-column-count = 3
data-array-row-count = #Count
#debug show 'Exit Summarize-Process'
End-Procedure
The LIS shows 10 blank lines (which makes sense as that is the size I
defined in SETUP).
I appreciate any/all help,
David Anderson
Compuware Professional Services
Oakwood Health Services - Muirhead