Fetch as a loop condition

I have the following code that gets into a never ending loop on the fetch 
loop.  Apparently it does the fetch once, and only once.  Why?
       InitSql();
       Select;
       When DeclareC1()<>*all'0';
         ErrorHandler('DeclareC1');
       When OpenC1()<>*all'0';
         ErrorHandler('OpenC1');
       Other;
         Dow FetchC1()=*all'0';
           callp LockFile(SourceFile.File:SourceFile.Library:
                          SourceFile.LockState);
         EndDo;
         Select;
         When SqlStt='02000';
           // End of cursor (normally).  Ok.
         Other;
           ErrorHandler('FetchC1');
         EndSl;
         CloseC1();
       EndSl;
       *inlr=*on;
       return;
      /end-free
...
      /eject
     P FetchC1         B
     D FetchC1         PI                  like(sqlstt)
     C/EXEC SQL
     C+ Fetch C1 into :SourceFile.Library, :SourceFile.File
     C/END-EXEC
      /free
       return sqlstt;
      /end-free
     P FetchC1         E

Joblog:
...No members exist in data base file QCLSRC in library DARREN.
Objects not allocated. 
Object QWCLOBJL in QTEMP type *USRSPC not found. 
Ownership of object QWCLOBJL in QTEMP type *USRSPC changed. 
Object QWCLOBJL in QTEMP type *USRSPC deleted. 
No members exist in data base file QCLSRC in library DARREN.
Objects not allocated. 
Object QWCLOBJL in QTEMP type *USRSPC not found. 
Ownership of object QWCLOBJL in QTEMP type *USRSPC changed. 
Object QWCLOBJL in QTEMP type *USRSPC deleted. 
No members exist in data base file QCLSRC in library DARREN.
...


Rob Berendt