[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



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