Same like SETLL in Embedded SQL

[Amir Khan <akhan@xxxxxxxxxxxxxxxxxx>]

I have a file which I read through embedded SQL, I fetch all records and
end-of-file (SQLCOD=100) condition is found. Now, due to some reason again I
want to fetch records from top of the file. I can do it by closing the
opened cursor and re-declaring and re-opening the cursor again, but can I
achieve it without closing and reopen the cursor? Herewith sample of my
program coding. Please help me. Regard.
 
 
/EXEC SQL
DECLARE C1 CURSOR FOR SELECT field1,field2
FROM filename 
/END SQL
 
/EXEC SQL
OPEN C1
/END SQL
STRC1         TAG
/EXEC SQL                      
 FETCH C1 INTO :xfield1, :xfield2
/END SQL
 
SQLCOD        IFEQ      100
GOTO      CLSC1
ENDIF          
.
.
.
GOTO STRC1
 
/EXEC SQL 
 CLOSE C1
/END-EXEC
 
Amir Raza Khan
EDP, Dammam,
Ext - 267