Re: Embedded SQL Select Into

Michael,

Something like this should work:
***
D My_Array DS DIM(1000) Qualified
D WkSession_ID 128
**
EXEC SQL
Declare C1 cursor for
Select .....
;
exec sql Open C1;
EXEC SQL
Fetch next from C1 For 1000 rows into :My_Array ;

// Make sure all the elements are blanks (not null)...
RecNumber = SQLER3;
For Index = (RecNumber + 1) TO 1000;
My_Array(Index).WkSession_ID = *blanks;

exec sql Close C1;

*****
HTH,

Luis

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries