Anonyme

First code :

       while ($intFIELD_FK != "")
        {
                $sql = "select FIELD_FK , CHAPTER_FK from $strFlexSchema.FIELD WHERE PK = $intFIELD_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_FIELD = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_FIELD,OCI_DEFAULT)) oci_error_mgt($stmt_FIELD , $sql) ;
                if (! ocifetch($stmt_FIELD))
                        error_mgt("get_page_of_field($FIELD_FK) : Field $intFIELD_FK n'existe pas !!! (schema $strFlexSchema)" , true , 3) ;
                $intFIELD_FK = ociresult($stmt_FIELD,"FIELD_FK") ;
                $CHAPTER_FK = ociresult($stmt_FIELD,"CHAPTER_FK") ;
                ocifreestatement($stmt_FIELD);
        }
        while ($CHAPTER_FK != "")
        {
                $sql = "select CHAPTER_FK , PAGE_FK from $strFlexSchema.CHAPTER WHERE PK = $CHAPTER_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_CHAPTER = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_CHAPTER,OCI_DEFAULT)) oci_error_mgt($stmt_CHAPTER , $sql) ;
                if (! ocifetch($stmt_CHAPTER))
                        error_mgt("get_page_of_field($FIELD_FK) : Chapter $CHAPTER_FK n'existe pas !!!" , true , 3) ;
                $CHAPTER_FK = ociresult($stmt_CHAPTER,"CHAPTER_FK") ;
                $PAGE_FK = ociresult($stmt_CHAPTER,"PAGE_FK") ;
                ocifreestatement($stmt_CHAPTER);
        }

Result :

SQL>  select sql_Text,count(*) from v$open_cursor group by sql_text;

SQL_TEXT                                                       COUNT(*)
------------------------------------------------------------ ----------
 select sql_Text,count(*) from v$open_cursor group by sql_te          1
SELECT  pk FIELD_PK, name FIELD_NAME, message_fk FIELD_MESSA          1
SELECT VALUE   FROM WM_INSTALLATION  WHERE NAME = 'OWM_VERSI          1
select CHAPTER_FK , PAGE_FK from EV_E_HEALING.CHAPTER WHERE         124
select FIELD_FK , CHAPTER_FK from EV_E_HEALING.FIELD WHERE P          1
select sql_Text,count(*) from v$open_cursor group by sql_tex          1

6 rows selected.

SQL> 

Second code :

        while ($intFIELD_FK != "")
        {
                $sql = "select FIELD_FK , CHAPTER_FK from $strFlexSchema.FIELD WHERE PK = $intFIELD_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_FIELD = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_FIELD,OCI_DEFAULT)) oci_error_mgt($stmt_FIELD , $sql) ;
                if (! ocifetch($stmt_FIELD))
                        error_mgt("get_page_of_field($FIELD_FK) : Field $intFIELD_FK n'existe pas !!! (schema $strFlexSchema)" , true , 3) ;
                $intFIELD_FK = ociresult($stmt_FIELD,"FIELD_FK") ;
                $CHAPTER_FK = ociresult($stmt_FIELD,"CHAPTER_FK") ;
                ocifreestatement($stmt_FIELD);
        }
/*      while ($CHAPTER_FK != "")
        {
                $sql = "select CHAPTER_FK , PAGE_FK from $strFlexSchema.CHAPTER WHERE PK = $CHAPTER_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_CHAPTER = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_CHAPTER,OCI_DEFAULT)) oci_error_mgt($stmt_CHAPTER , $sql) ;
                if (! ocifetch($stmt_CHAPTER))
                        error_mgt("get_page_of_field($FIELD_FK) : Chapter $CHAPTER_FK n'existe pas !!!" , true , 3) ;
                $CHAPTER_FK = ociresult($stmt_CHAPTER,"CHAPTER_FK") ;
                $PAGE_FK = ociresult($stmt_CHAPTER,"PAGE_FK") ;
                ocifreestatement($stmt_CHAPTER);
        }
*/

Results :

SQL> select sql_Text,count(*) from v$open_cursor group by sql_text;

SQL_TEXT                                                       COUNT(*)
------------------------------------------------------------ ----------
SELECT  pk FIELD_PK, name FIELD_NAME, message_fk FIELD_MESSA          2
SELECT VALUE   FROM WM_INSTALLATION  WHERE NAME = 'OWM_VERSI          1
select FIELD_FK , CHAPTER_FK from EV_E_HEALING.FIELD WHERE P        159
select sql_Text,count(*) from v$open_cursor group by sql_tex          2

SQL> 

And finally :

        while ($intFIELD_FK != "")
        {
                $sql = "select FIELD_FK , CHAPTER_FK from $strFlexSchema.FIELD WHERE PK = $intFIELD_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_FIELD = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_FIELD,OCI_DEFAULT)) oci_error_mgt($stmt_FIELD , $sql) ;
                if (! ocifetch($stmt_FIELD))
                        error_mgt("get_page_of_field($FIELD_FK) : Field $intFIELD_FK n'existe pas !!! (schema $strFlexSchema)" , true , 3) ;
                $intFIELD_FK = ociresult($stmt_FIELD,"FIELD_FK") ;
                $CHAPTER_FK = ociresult($stmt_FIELD,"CHAPTER_FK") ;
                ocifreestatement($stmt_FIELD);
        }
        while ($CHAPTER_FK != "")
        {
                $sql = "select CHAPTER_FK , PAGE_FK from $strFlexSchema.CHAPTER WHERE PK = $CHAPTER_FK" ;
                //echo "SQL = $sql<br>";
                $stmt_CHAPTER = ociparse($glbcnnOra8,$sql);
                if (! @ociexecute($stmt_CHAPTER,OCI_DEFAULT)) oci_error_mgt($stmt_CHAPTER , $sql) ;
                if (! ocifetch($stmt_CHAPTER))
                        error_mgt("get_page_of_field($FIELD_FK) : Chapter $CHAPTER_FK n'existe pas !!!" , true , 3) ;
                $CHAPTER_FK = ociresult($stmt_CHAPTER,"CHAPTER_FK") ;
                $PAGE_FK = ociresult($stmt_CHAPTER,"PAGE_FK") ;
                ocifreestatement($stmt_CHAPTER);
        }
        $sql = "select 'toto' from dual";
        $stmt=ociparse($glbcnnOra8,$sql);
        ociexecute($stmt,OCI_DEFAULT);
        ocifreestatement($stmt);
 Results :

SQL> select sql_Text,count(*) from v$open_cursor group by sql_text;

SQL_TEXT                                                       COUNT(*)
------------------------------------------------------------ ----------
SELECT  pk FIELD_PK, name FIELD_NAME, message_fk FIELD_MESSA          2
SELECT VALUE   FROM WM_INSTALLATION  WHERE NAME = 'OWM_VERSI          1
select :"SYS_B_0" from dual                                          90
select FIELD_FK , CHAPTER_FK from EV_E_HEALING.FIELD WHERE P          1
select sql_Text,count(*) from v$open_cursor group by sql_tex          2