Fetch lock in QDBGETM

 Hi, I installed a simple program with one SQL that joined two tables.
Everything was fine for about a week, when for some reason the users began
to experience a slower and slower response time.  Once CFINT01 kicked in I
finally had to back out he program.  It appeared the SQL was just sitting on
the last program in the IBM fetch (program stack):
 
STTS34I - My program
QSROUTE
< TPATH_PROC
SQL_Fetch
F_GETNEXTL
F_GETBLK
QDBGETM
 
So, this program just sat there for over 10 minutes until it was cancelled.
There were no record locks on table, and this sql is does not update.  This
is the compile of the SQL.
 
EXEC SQL                                        
   FETCH NEXT                                   
    FROM CUSTOM                                 
    INTO :HV-CODECD,                            
         :HV-BILLPFX,                           
         :HV-BILLBDY,                           
         :HV-BILLCHK,                           
         :HV-BILLSFX,                           
         :HV-BILLDST                            
END-EXEC                                        
MOVE -4 TO SQLERRD(6)                           
CALL   "QSQROUTE" USING SQLCA  SQL-00004        
IF SQL-DATA-OK OF SQL-00004 = "1" THEN            
 
My question is, has anyone seen this before?  And  if the fetch of the row
is being locked by something, is there a way to find the lock or handle the
lock?
  
 
Thanks,
 
Mark Werner
 Application Analyst