RE: Load a subfile with clients selected by user

I was thinking something along these lines


H ActGrp(*CALLER)
H DftActGrp(*NO)
*ENTRY PLIST
D Foxwell PR extpgm('FOXWELL')
D Surname 1a
D ChristianName 1a
D MaidenName 1a
D DateOfBirth 1a
D Town 1a
D ZipCode 1a
D Foxwell PI
D Surname 1a
D ChristianName 1a
D MaidenName 1a
D DateOfBirth 1a
D Town 1a
D ZipCode 1a

D SurnameL s like(surname)
D SurnameH s like(surname)
D ChristianNameL s like(ChristianName)
D ChristianNameH s like(ChristianName)
D* ...


/free
*inlr=*on;

// SQL's version of the H spec
EXEC SQL
Set Option
Naming = *Sys,
Commit = *None,
UsrPrf = *User,
DynUsrPrf = *User,
Datfmt = *iso,
CloSqlCsr = *EndMod;
D Surname 1a
D ChristianName 1a
D MaidenName 1a
D DateOfBirth 1a
D Town 1a
D ZipCode 1a
select;
When %addr(Surname)=*null;
SurnameL=*loval;
SurnameH=*hival;
Other;
SurnameL=Surname;
SurnameH=Surname;
EndSl;
select;
When %addr(ChristianName)=*null;
ChristianNameL=*loval;
ChristianNameH=*hival;
Other;
ChristianNameL=ChristianName;
ChristianNameH=ChristianName;
EndSl;
// ...
exec sql
Declare C1 cursor for
select ...
from ...
where ChristianName between :ChristianNameL
and :Christiannameh
and Surname between :SurnameL
and :SurnameH
...
// Did it work?
Select;
When SqlStt='00000';
dsply cmpnam;
Other;
dsply SqlStt;
EndSl;
return;
/end-free


Rob Berendt