read on a do loop

Since I've developed a fondness for iter I'd like to do something like
...
setll(e) MyFile Mykey;
dou %status(reade(e) MyFile MyKey)<>0;
  // process
  ...
  iter;
  else;
  ...
EndDo;

I take it the way to do this is to make a one statement subprocedure that 
does the reade and make the code look like

setll(e) MyFile Mykey;
dou ReadLoopProc<>0;
  // process
  ...
  iter;
  else;
  ...
EndDo;

P ReadLoopProc   b
D ReadLoopProc   PI   like(returnvar)
D  returnvar      s            5i 0
/free
 reade(e) MyFile MyKey;
 returnvar=%status(MyFile);
 return returnvar;
/end-free
P ReadLoopProc  E


Rob Berendt