Dynamic SQL Question

[Jeff Young <cooljeff913@xxxxxxxxx>]

Given the following code:
D Finalized S Like(RpcSts) Inz(99)
C Eval Route_Cursor =
C 'Select RpcCmp,RpcLoc,RpcDlvDt,RpcRout from -
C FRoRCtl Where RpcCmp = ? and RpcSts = ? -
C Order by RpcCmp,RpcLoc,RpcDlvDt,RpcRout'
C/Exec SQL
C+ Set Option Commit = *None,
C+ CLOSQLCSR = *EndMod
C/End-Exec
C/Exec SQL
C+ Prepare Routes_to_Purge from :Route_Cursor
C/End-Exec
C/Exec SQL
C+ Declare Routes_to_Purge Cursor for Routes_to_Purge
C/End-Exec
C Read VArComp
C Dow Not %Eof()
C Eval XaKey = 'FOODIF ' + %EditC(TaComp : 'X')
C XaKey Chain VxaCont
C If Not %Found()
C Eval Xano05 = *HiVal
C EndIf
C/Exec Sql
C+ Open Routes_to_Purge Using :TaComp,:Finalized
C/End-Exec
C Dou Records_Read = *Zero
C Fetch_Data BegSr
C/Exec Sql
C+ Fetch Routes_to_Purge for :Records_to_Read Rows
C+ into :Finalized_Routes
C/End-Exec
C Eval Records_Read = SqlEr3
C ENDSR

Where TACOMP is a field in file VARCOMP with a value of 01 (2P0) , I have verified that there is data in the FRORCTL file for the selection.
I am getting back a value of ZERO in SQLER3.
The SQLER5 value and SQLSTT value are also ZERO.

What am I missing here?

Thanks,

Jeff Young 
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3