RE: [sqr-users] SQR-4503 Errors with 0 line offset in print command

["Peter Burton" <Peter_Burton@hyperion.com>]

Howard,

Begin-Report
 Print 'Line 1' (10,10)
 Let #Advance = 0
 Print 'Part A' (+#Advance, 20)
 Let #Advance = 1
 Print 'Part B' (+#Advance, 20)
End-Report

Produces

         Line 1    Part A
                   Part B

Peter

-----Original Message-----
From: sqr-users-bounces+peter_burton=hyperion.com@sqrug.org
[mailto:sqr-users-bounces+peter_burton=hyperion.com@sqrug.org] On Behalf
Of Howard Thompson
Sent: Tuesday, July 12, 2005 11:54 AM
To: sqr-users@sqrug.org
Subject: [sqr-users] SQR-4503 Errors with 0 line offset in print command

(There is probably a way better way to accomplish what I'm trying to
do...; if so, let me know).

I have a report that lists a person's name and from 0 to many messages
for/about the person.

Person Name            Message
=====================  ===================================
Abel, Alan             This is message 1 for Alan
                       This is message 2 for Alan
Builder, Betty         This is the only message for Betty
Corva, Charles         
Davis, Danielle        This is message 1 for Danielle
                       This is message 2 for Danielle

As I go through the process for a person, I store the messages in an
array and at the end of the person
I print the name and then loop through the array to print any
accumulated messages.

On my first message for a person, I want the line offset to be 0; for
subsequent messages, I want the line offset to be +1

I tried the followoing and got the SQR 4503 error (presumably because if
the line offset is a variable it can't be 0)

PRINT $fmt_name        (+1, {COL01})

Let #LineOffset = 0
LET #AryIdx = 0
WHILE #AryIdx <= #AryLimit                 ! AryLimit is the number if
messages
  GET $RptMsg FROM MsgArray(#AryIdx) Msg
  PRINT $RptMsg              (#LineOffset, {COL02}, 0)
  LET #LineOffset = +1
  ADD 1 TO #AryIdx
END-WHILE 

The only way I can get it to work is this:

LET #AryIdx = 0
WHILE #AryIdx <= #AryLimit
  GET $RptMsg FROM MsgArray(#AryIdx) Msg
  IF #AryIdx = 0                                ! First message
    PRINT $RptMsg              (0, {COL03}, 0)
  ELSE
    PRINT $RptMsg              (+1, {COL03}, 0)
  END-IF
  ADD 1 TO #AryIdx
END-WHILE

I appreciate any ideas.

--
Howard Thompson
Senior IS Project Lead
Oregon Health & Science University
thompsoh@ohsu.edu
503-494-5936



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



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