If (!1) Get SQLFetch Of !1 To SQLResult #IF (!0=1) //*** zero tells statement object to use file property If (SQLResult) ; Send SQLBindFile To !1 0 #ENDIF #IFSAME !2 TO If (SQLResult) Begin #IF (!0>2) SQL$NextFile !1 !3 !4 !5 !6 !7 !8 !9 #ENDIF End #ENDIF