[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



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