MultiRow Fetch

[MWalter@xxxxxxxxxxxxxxx]

Hello all,

I am trying to do a multirow fetch in a procedure. I can't seem to get the
thing to compile. Here is a simplified version of the code.
     D/copy *libl/qrpglesrc,ctryMastPr

     DdsCtryMast     e Ds                  extname(CtryMast) prefix(o_)
     DdsArray           S                         LIKE(dsCtryMast) DIM(100)
     Dcount                S             10i 0

      * Retrieve all country Master Records
     PgetCtryMastAll   B                   Export
     DgetCtryMastAll   PI                  like(dsCtryMast) dim(100)

     c/exec sql
     c+ SELECT COUNT(*) INTO :count
     c+ FROM ctrymast
     c/end-exec

     c/exec sql
     c+ DECLARE cur CURSOR FOR
     c+  SELECT * FROM Ctrymast
     c/end-exec

     c/exec sql
     c+ OPEN cur
     c/end-exec

     c/exec sql
     c+ FETCH cur FOR :count ROWS INTO :dsArray
     c/end-exec

     c/exec sql
     c+ CLOSE cur
     c/end-exec

     c                   return    dsArray
     P                 E

The precompiler tells me that the structure :dsArray is not defined or not
usable.


Thanks in advance,

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