ERROR ORA-01002 ??????

Question

Hi! sorry by my English......
I have this Package:
CREATE OR REPLACE PACKAGE PCK_KK
AS
TYPE CURBATCH IS REF CURSOR;
PROCEDURE PROC_SUBKK
     BATCH_SEG     OUT CURBATCH,
     BATCH_PES     OUT CURBATCH,
     NUMERROR$     OUT NUMBER,
     MSJERROR$     OUT VARCHAR2
END PCK_KK;
CREATE OR REPLACE PACKAGE BODY PCK_KK
AS
PROCEDURE PROC_SUBKK
     BATCH_SEG     OUT CURBATCH,
     BATCH_PES     OUT CURBATCH,
     NUMERROR$     OUT NUMBER,
     MSJERROR$     OUT VARCHAR2
IS
BEGIN
BEGIN
          OPEN BATCH_SEG FOR
               SELECT
                    CODIGO_SEG,
                    NOMBRE_SEG
               FROM
                    PESQUERIAS.SEGUIMIENTO@TI_PESQUERIA.US.ORACLE.COM
               ORDER BY
                    NOMBRE_SEG;
          OPEN BATCH_PES FOR
               SELECT
                    SEGUIMIENTO.CODIGO_SEG,
                    PESQUERIA.COD_PESQUERIA,
                    PESQUERIA.NOMBRE_PESQUERIA
               FROM
                    PESQUERIAS.PESQUERIA@TI_PESQUERIA.US.ORACLE.COM INNER JOIN
                    (PESQUERIAS.SEGUIMIENTO@TI_PESQUERIA.US.ORACLE.COM INNER JOIN
                    PESQUERIAS.SEGUIMIENTO_PESQUERIA@TI_PESQUERIA.US.ORACLE.COM
                    ON SEGUIMIENTO.CODIGO_SEG = SEGUIMIENTO_PESQUERIA.COD_SEG)
                    ON PESQUERIA.COD_PESQUERIA = SEGUIMIENTO_PESQUERIA.COD_PES
               ORDER BY
                    SEGUIMIENTO.CODIGO_SEG,
                    PESQUERIA.COD_PESQUERIA;
          NUMERROR$ := 0;
          MSJERROR$ := '';
          RETURN;
          EXCEPTION
               WHEN OTHERS THEN
               NUMERROR$ := SQLCODE;     
               CASE NUMERROR$
                    WHEN 100 THEN MSJERROR$:='bla bla bla';
                    WHEN -1 THEN MSJERROR$:='other bal bla bla';
                    ELSE MSJERROR$:= 'ERROR [PCK_KK] '||to_char(SQLERRM);
               END CASE;
     END;
END PROC_SUBKK;
END PCK_KK;
Ok, I execute by SqlPlus and ok!!!!!
but, by PHP so:
Warning: ocifetchstatement(): OCIFetchStatement:
ORA-01002: recuperación fuera de secuencia
in /ifop/ti/P_center_ingresar.php on line 72
And my source php is:
$Coneccion = OCILogon($User, $Passwd, $HostOracle);
$Cursor = OCINewCursor($Coneccion);
$sTmpSql = OCIParse($Coneccion,"BEGIN PROC_SUBKK.PCK_KK(:rTmp1,:rTmp2,:lNumError,:sMsjError); END;");
OCIBindByName($sTmpSql,":rTmp1",&$Cursor,-1,OCI_B_CURSOR);
OCIBindByName($sTmpSql,":rTmp2",&$Cursor,-1,OCI_B_CURSOR);
OCIBindByName($sTmpSql,":lNumError",&$lNumError,32);
OCIBindByName($sTmpSql,":sMsjError",&$sMsjError,32);
ociexecute($sTmpSql);
ociexecute($Cursor);
if ($lNumError == 0)
     $rTmp1_RecordCount = OCIfetchstatement($Cursor,&$rTmp1);
     if ($rTmp1_RecordCount > 0)
          for ($lTmp1 = 0; $lTmp1 < $rTmp1_RecordCount; $lTmp1++ )
               $aTmp1[$lTmp1][1] = $rTmp1["CODIGO_SEG"][$lTmp1];
               $aTmp1[$lTmp1][2] = $rTmp1["NOMBRE_SEG"][$lTmp1];
     $rTmp2_RecordCount = OCIfetchstatement($Cursor,&$rTmp2); <--- ERROR!!!!!! ??????
     if ($rTmp2_RecordCount > 0)
          //Si viene registros, traspasa a arreglo
          for ($lTmp1 = 0; $lTmp1 < $rTmp2_RecordCount; $lTmp1++ )
               $aTmp2[$lTmp1][1] = $rTmp1["CODIGO_SEG"][$lTmp1];
               $aTmp2[$lTmp1][2] = $rTmp1["COD_PESQUERIA"][$lTmp1];
               $aTmp2[$lTmp1][3] = $rTmp1["NOMBRE_PESQUERIA"][$lTmp1];
     OCIFreeStatement($sTmpSql);
     OCIFreeCursor($Cursor);
     OCILogoff($Coneccion);
else
     OCIFreeStatement($sTmpSql);
     OCIFreeCursor($Cursor);
     OCILogoff($Coneccion);
HELPME PLEASE
THANKS !!!!
My configuration !!!!
Web Server//
RedHat Advanced Server 2.1
Oracle Application Server 10g
Php 5
DB Server//
RedHat Advanced Server 2.1
Oracle 9i
THANKS AGAIN !!!!

Answer 1

Dear CJJ:
I proved subject "$cursor1 and $cursor2, for the two ref cursor parameters" and I work myself perfectly...thank you very much !!!!
          $Cursor1 = OCINewCursor($Coneccion);
          $Cursor2 = OCINewCursor($Coneccion);
          $sTmpSql = OCIParse($Coneccion,"BEGIN TI_SEL001SEGUIMIENTOPESQUERIA.SEL001SEGUIMIENTOPESQUERIA(:rTmp1,:rTmp2,:lNumError,:sMsjError); END;");
          OCIBindByName($sTmpSql,":rTmp1",&$Cursor1,-1,OCI_B_CURSOR);
          OCIBindByName($sTmpSql,":rTmp2",&$Cursor2,-1,OCI_B_CURSOR);
          OCIBindByName($sTmpSql,":lNumError",&$lNumError,32);
          OCIBindByName($sTmpSql,":sMsjError",&$sMsjError,32);
          ociexecute($sTmpSql);
          ociexecute($Cursor1);
          ociexecute($Cursor2);
I work without problems
THANKS !!!!!!