[sqr-users] workaround for "BEFORE" outside a BEGIN-SELECT...END-SELECT ?

[Lionel le Marec <Lionel.Le.Marec@msci.com>]

Hello,

I would like to display the result of a stored proc using ON-BREAK
logic.
My problem is I cannot use "BEFORE" outside a BEGIN-SELECT...END-SELECT,
which I am not using since I retrieve data from a stored proc.

The stored procedure I use extracts data from Sybase DB.
Let's say that data extracted represent products, with id, name, code,
colors and prices.
One given product has one code, multiple colors and one price for each
color.

1    code1    fork    red      10.00
1    code1    fork    green  12.00
1    code1    fork    blue     11.00
2    code2    knife    red        21.00
2    code2    knife    green    20.00
2    code2    knife    blue       22.00

I want to display something like:

1    code1    fork
red      10.00
green  12.00
blue     11.00

2    code2    knife
red        21.00
green    20.00
blue       22.00

but the first set of data would not call the name_break procedure, as
there is no real break. I will get sth like:

                    fork
red      10.00
green  12.00
blue     11.00

2    code2    knife
red        21.00
green    20.00
blue       22.00

Can someone help me finding out a work around for "BEFORE" outside
select statement?

Thx

Lio.

Here are my get_data, print_data, name_break procedures.

begin-procedure get_data ($date)
    EXECUTE
      do=print_data
      on-error=sql_error_handler
      @#status=get_data
      @date=$date,
      into
       &_id        smallint
    ,  &_code   int
    ,  &_name  varchar(20)

    ,  &_color   varchar(20)
    ,  &_price  float
end-procedure

begin-procedure print_data
    let $name    =&name

    let $color   =&color
    let #price   =&price

    print $name                 (,10)   on-break procedure=name_break

    print $color                (+1,10)
    print #price                 (,40)
end-procedure

begin-procedure name_break
    let #id          =&id
    let #code    =&code
    print #id                    (+2,1)
    print #code                    (,40)
end-procedure


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