Multi Row Fetch

Hi All,



What am I doing wring here, when I compile the program containing this procedure I get an error stating that numOfRows and patientInfo are not defined or unusable. Any ideas?



        dcl-proc generateReports;

            dcl-pi *n char(250);



            END-PI;



            dcl-ds patientInfo dim(5000) qualified;

                   patno zoned(7:0);

                   admissionDate date;

            END-DS;



            dcl-s ifsFileName char(250);

            dcl-s numOfRows int(5) inz;



            exec sql

                 declare patInfo cursor for

                     Select PATNO, ISADATE

                       from Patients a

                 inner join Rmbed b

                         on a.PATNO = b.PAT#

                      where a.ISDDATE <> '0001-01-01';





            numOfRows = %elem(patientInfo);



            exec sql

                 open patInfo;



            exec sql

                 fetch patInfo

                     for :numOfRows ROWS

                  into :patientInfo;



            exec sql

                 close patInfo;





            ifsFileName = %trim(reportPath) + '/' +

                            %trim(spoolName)  + '_' +

                            currDate + '_' + currTime + '.pdf';



            return ifsFileName;

        END-PROC;