Forum Programmation.autre Utilisation des attributs %found et %isopen d'un sql_cursor dans un bloc PL/SQL en Pro*C oracle10g

Bonjour, j'aimerais utiliser l'attribut %found d'un curseur déclaré dans un bloc PL/SQL.

Voici mon code:


include(SRINCLUDE/header.srh)
include(SRINCLUDE/srorapas.srh)
include(SRINCLUDE/cadre.src)


#define ELM_LONGSTR 20


void errexit(char * param,char* s,int i,char *d,char*t);
void finNormaleProgramme(char *);

int main(argc,argv)
/*================*/
long argc;
char *argv[];
{
EXEC SQL BEGIN DECLARE SECTION;
int noint;
char nom[1000]="";
SQL_CURSOR mainc1;
char sql[1000]="select noint,nom from identite.membre where rownum < 10 ";
EXEC SQL END DECLARE SECTION;

printf("\n debut du programme \n");
EXEC SQL WHENEVER SQLERROR do fatalError(__FILE__,__LINE__);
el_connect("batch");
printf("\n connecté \n");
EXEC SQL WHENEVER NOT FOUND CONTINUE;

EXEC SQL WHENEVER SQLERROR DO fatalError(__FILE__,__LINE__);
EXEC SQL WHENEVER NOT FOUND CONTINUE;

EXEC SQL BEGIN DECLARE SECTION;
int found=0;
int isopen=0;
int isnull=0;
EXEC SQL END DECLARE SECTION;

EXEC SQL ALLOCATE :mainc1;

EXEC SQL EXECUTE
BEGIN
OPEN :mainc1 FOR :sql;
IF :mainc1 %ISOPEN THEN
:isopen:=1;
ELSE
:isopen:=-1;
END IF;
END;
END-EXEC;
printf("\nisopen after open==%d\n",isopen);

EXEC SQL WHENEVER NOTFOUND CONTINUE;
EXEC SQL FETCH :mainc1 into :noint,:nom;
EXEC SQL EXECUTE
BEGIN
IF :mainc1 %FOUND THEN
:found:=1;
ELSE
:found:=-1;
END IF;
END;
END-EXEC;
while(found==1)
{
printf("\n %d %s ",noint,nom);
EXEC SQL FETCH :mainc1 into :noint,:nom;
EXEC SQL EXECUTE
BEGIN
IF :mainc1 %FOUND THEN
:found:=1;
ELSE
:found:=-1;
END IF;
END;
END-EXEC;
}

EXEC SQL CLOSE :mainc1;

EXEC SQL COMMIT WORK RELEASE;
finNormaleProgramme(argv[0]);

return 0;
}

void errexit(char * param,char* s,int i,char *d,char*t)
{
printf("Erreur ORACLE %.70s (%d) at line %d %s %s %s\n", sqlca.sqlerrm.sqlerrmc, sqlca.sqlcode,i,s,d,t);
printf("\n%s\n",&param);
EXEC SQL ROLLBACK WORK RELEASE;
exit(0);
}
void finNormaleProgramme(char * nomProgramme)
{
printf("\nFin normale du programme %s\n",nomProgramme);
}

include(SRINCLUDE/header.src)
include(SRINCLUDE/srorapas.src)

Lorsque j'exécute ce programme, j'obtiens l'erreur suivante :
Oracle : -1001 ORA-01001: curseur non valide au premier test de la valeur de l'attribut %FOUND.

Avez-vous une idée de ce qui pourrait se passer?
D'avance merci.