[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
Print-Chart Only Printing Blank Lines
- Subject: Print-Chart Only Printing Blank Lines
- From: ANDERSD2 <ANDERSD2@OAKWOOD.ORG>
- Date: Thu, 22 Feb 2001 15:05:07 -0500
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