Re: Use SQL to load an Array

Thanks for the tip Aaron. That was one article I had not seen yet. It demonstrated reading a file a record at a time to fill the MODS, so it was not quite what I was looking for.

That said, it got me thinking of another approach (one I could of sworn I tried hours ago), and now my code works!

Thanks again,
JD

Working code - load DS Array direct from SQL:

H DFTACTGRP(*NO)

DarrDs ds qualified dim(50)
D SKU 3a
D Qty 7s 0

/free
exec sql
declare c1 cursor for
Select
SKU, Qty
From
OnHand
Where
CLASS='Z';

exec sql
open c1;

exec sql
fetch c1 for 50 rows into :arrDs;

exec sql
close c1;

*inlr = *on;
Return;

/end-free