Re: Multi Row Fetch

It has something to do with the admissionDate date;

If I change it to admissionDate char(30); It not longer issues this
error. Seems like you should be able to use a date fields, so I don't have
a concrete solution for you. Hopefully this help you or someone else see
the real problem.



From: "Abhishek Arohi" <arohiabhi@xxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Date: 05/23/2018 09:29 AM
Subject: Multi Row Fetch
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



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;