Re: MultiRow Fetch

[MWalter@xxxxxxxxxxxxxxx]

It didn't work either way. I have the declare, open, fetch, and close all
within the same procedure. to get it to work, I had to iterate through the
cursor one row at a time and move the ds into an array element to be passed
back to the caller.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    rob@dekko.com
                    Sent by:                 To:     rpg400-l@midrange.com
                    rpg400-l-admin@mi        cc:
                    drange.com               Subject:     Re: MultiRow Fetch


                    04/08/02 12:23 PM
                    Please respond to
                    rpg400-l






This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Are you still using the like or did you do it on the field with the
extname like Rolf did?  SQL, like, and external ds's are not a gleesome
threesome.  This is one of the reason there has been talk of making the
SQL precompiler a two step precompiler instead of a single step
precompiler.  Let the RPG people do the likes as fields, /copies, etc,
then pass it back to the SQL people.  They'd put their mumbo jumbo in
there, and then send it on for compilation.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




MWalter@hanoverwire.com
Sent by: rpg400-l-admin@midrange.com
04/08/2002 09:31 AM
Please respond to rpg400-l


        To:     rpg400-l@midrange.com
        cc:
        Fax to:
        Subject:        Re: MultiRow Fetch



No Cigar. Same message when changing it to a MODS.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    "Rolf Mittag"
                    <mailing-lists@r-m        To: <rpg400-l@midrange.com>
                    -e-d-v.de>                cc:
                    Sent by:                  Subject:     Re: MultiRow
Fetch
                    rpg400-l-admin@mid
                    range.com


                    04/08/02 10:18 AM
                    Please respond to
                    rpg400-l






unfortunately the precompiler is right this time ;-)

DdsCtryMast     e Ds                  extname(CtryMast) prefix(o_)
occurs(100)

 ...

c+ FETCH cur FOR :count ROWS INTO :dsCtryMast

should work. the dsArry only has one field per row, which your table
most likely has not

hth Rolf

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
! Dipl.Inf.(FH) Rolf P Mittag  IBM Partner in Development     !
! Leipziger Str. 50            D-69214 Eppelheim              !
! Fon: +49 (6221) 76 78 60     Fax: +49 (6221) 76 80 26   /"\ !
! eMl: rm@r-m-e-d-v.de                                    \ / !
!                                                          X  !
!              ASCII Ribbon campaign against HTML E-Mail  / \ !
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.