Error ORA-06550, PLS-00103 in procedure launched by php page

Question

Hi,
I have written a php page that calls a pl/sql procedure. When I launch the procedure (through the php) I receive this error
Warning: ociexecute(): OCIStmtExecute: ORA-06550: line 1, column 101: PLS-00103: Encountered the symbol "" when expecting one of the following: ( - + case mod new not null others <an identifier>  <a double-quoted delimited-identifier> <a bind variable> avg count current exists max min prior sql stddev sum variance execute forall merge time timestamp interval date <a string literal with character set specification>  <a number> <a single-quoted SQL string> pipe <an alternatively-quoted string literal with character set specifi in /web/findb/php/fin/SPR/nuoveEmissioni/nuoveEmissioni.class.php on line 918
bool(false) The php code that calls the procedure is the following:
$query  = " declare retU number; begin ";
      $query .= " retU := pkg_schedapr.UPDATE_SPR_STATUS( :isinU, :utente, :emissione_f,
                        :azione_f, :fondo_f, :emittenteU_f, :rischioU_f, :varU_f,
                        :formulaU_f, :profiloU_f); ";
      $query .= ":retU_val := retU; "; 
      $query .= "end;";   
      $stmtUpdate = ociparse ($this->conn,$query);
         if (!$stmtUpdate) die (var_dump(OCIError()));  
        ociBindByName($stmtUpdate, ":isinU", $isin_t, 12);
        ociBindByName($stmtUpdate, ":utente", $userName, 20);
        ociBindByName($stmtUpdate, ":emissione_f", $mod_bond, 1);
        ociBindByName($stmtUpdate, ":azione_f", $mod_azione, 1);
        ociBindByName($stmtUpdate, ":fondo_f", $mod_fondo, 1);
        ociBindByName($stmtUpdate, ":emittenteU_f", $mod_emittente, 1);
        ociBindByName($stmtUpdate, ":rischioU_f", $mod_rischio, 1);
        ociBindByName($stmtUpdate, ":varU_f", $mod_var, 1);
        ociBindByName($stmtUpdate, ":formulaU_f", $mod_formula, 1);
        ociBindByName($stmtUpdate, ":profiloU_f", $mod_profilo, 1);
        ociBindByName($stmtUpdate, ":retU_val", $retU_val, 1);  
        $err=OCIExecute($stmtUpdate);
         if (!$err) die (var_dump(OCIError()));
      ocifreestatement($stmtUpdate);  The pl/sql procedure is the following:
function UPDATE_SPR_STATUS(isin_p in varchar2, utente in varchar2, mercato in varchar2,
                           emissione_p in number, azione_p in number, fondo_p in number, emittente_p in number,
                           rischio_p in number, var_p in number, formula_p in number, mercato_p in number,
                           profilo_p in number) return number
is
control number;
modificato number;
SQL_QUERY VARCHAR2(4000);
TYPE MOD_SUM IS REF CURSOR;
SUMM MOD_SUM;
TYPE MOD_SUM_ROW
    IS RECORD(
        EMISSIONE VARCHAR2(1),
        AZIONE VARCHAR2(1),
        FONDO VARCHAR2(1),
        EMITTENTE VARCHAR2(1),
        RISCHIO VARCHAR2(1),
        VAR VARCHAR2(1),
        FORMULA VARCHAR2(1),
        PROFILO VARCHAR2(1)
MODIFICHE MOD_SUM_ROW;
EMS VARCHAR2(1);
AZI VARCHAR2(1);
FON VARCHAR2(1);
EMT VARCHAR2(1);
RSK VARCHAR2(1);
VAR VARCHAR2(1);
FRM VARCHAR2(1);
PRF VARCHAR2(1);
MKT VARCHAR(1);
begin
     modificato := emissione_p + azione_p + fondo_p + emittente_p + rischio_p
                   + var_p + formula_p + mercato_p + profilo_p;
     select count(*)
     into control
     from spr_web_nuove_emissioni a
     where a.ISIN=isin_p
     AND A.END_DATE IS NULL;
     if control > 0
     then
     update spr_web_nuove_emissioni a
     set a.END_DATE=sysdate
     where a.ISIN=isin_p
       AND A.END_DATE IS NULL;
     SQL_QUERY := 'SELECT A.EMISSIONE, A.AZIONE, A.FONDO, A.EMITTENTE,
                   A.RISCHIO, A.VAR, A.FORMULA,
                   A.PROFILO
                   FROM SPR_WEB_NUOVE_EMISSIONI A
                   WHERE A.ISIN='''||isin_p||' AND A.END_DATE=TRUNC(SYSDATE)';
     OPEN SUMM FOR SQL_QUERY;       
     LOOP
     FETCH SUMM INTO MODIFICHE;
     EXIT WHEN SUMM%NOTFOUND;
     if emissione_p < 1 THEN
     EMS := MODIFICHE.EMISSIONE;
     ELSE
     EMS := 'Y';
     end if;
     if azione_p < 1 THEN
     AZI := MODIFICHE.AZIONE;
     ELSE
     AZI := 'Y';
     end if;
     if fondo_p < 1 THEN
     FON := MODIFICHE.FONDO;
     ELSE
     FON := 'Y';
     end if;
     if emittente_p < 1 THEN
     EMT := MODIFICHE.EMITTENTE;
     ELSE
     EMT := 'Y';
     end if;
     if rischio_p < 1 THEN
     RSK := MODIFICHE.RISCHIO;
     ELSE
     RSK := 'Y';
     end if;
     if var_p < 1 THEN
     VAR := MODIFICHE.VAR;
     ELSE
     VAR := 'Y';
     end if;
     if formula_p < 1 THEN
     FRM := MODIFICHE.FORMULA;
     ELSE
     FRM := 'Y';
     end if;
     if profilo_p < 1 THEN
     PRF := MODIFICHE.PROFILO;
     ELSE
     PRF := 'Y';
     end if;
     END LOOP;
     CLOSE SUMM;
     ELSE
     if emissione_p < 1 THEN
     EMS := 'N';
     ELSE
     EMS := 'Y';
     end if;
     if azione_p < 1 THEN
     AZI := 'N';
     ELSE
     AZI := 'Y';
     end if;
     if fondo_p < 1 THEN
     FON := 'N';
     ELSE
     FON := 'Y';
     end if;
     if emittente_p < 1 THEN
     EMT := 'N';
     ELSE
     EMT := 'Y';
     end if;
     if rischio_p < 1 THEN
     RSK := 'N';
     ELSE
     RSK := 'Y';
     end if;
     if var_p < 1 THEN
     VAR := 'N';
     ELSE
     VAR := 'Y';
     end if;
     if formula_p < 1 THEN
     FRM := 'N';
     ELSE
     FRM := 'Y';
     end if;
     if profilo_p < 1 THEN
     PRF := 'N';
     ELSE
     PRF := 'Y';
     end if;
     end if;
     insert into spr_web_nuove_emissioni
     values (isin_p, sysdate, utente, EMS, AZI, FON, EMT,
            RSK, VAR, FRM, PRF,
            SYSDATE, NULL);
     begin
     update spr_status a
     set a.VALIDATED='Y'
     where a.ISIN=isin_p
       AND A.MARKET=mercato;
     if modificato > 0
     then
     update spr_status a
     set a.USER_CHANGE='Y', a.USER_LAST_MODIFIED=sysdate
     where a.ISIN=isin_p and a.MARKET=mercato;
     end if;
     exception
         when others then
         dbms_output.put_line('ERROR in <PKG_SCHEDAPR.UPDATE_SPR_STATUS> Aggiornamento stato ' ||SQLCODE||'-'||SQLERRM);
         return 1;
     end;
     commit;
     return 0;
end UPDATE_SPR_STATUS;I do not succed to understand the error I receive, why? Where is the error?
Can someone help me?
Thanks, bye bye.

Answer 1

Hi,
I have changed the php code in this way:
$query  = " declare retU number; begin ";
      $query .= " retU := pkg_schedapr.UPDATE_SPR_STATUS(:isinU, :utente, :emissione_f, ";
      $query .= ":azione_f, :fondo_f, :emittenteU_f, :rischioU_f, :varU_f, ";
      $query .= ":formulaU_f, :profiloU_f); ";
      $query .= ":retU_val := retU; "; 
      $query .= "end;";   
      $stmtUpdate = ociparse ($this->conn,$query);
         if (!$stmtUpdate) die (var_dump(OCIError()));  
        ociBindByName($stmtUpdate, ":isinU", $isin_t, 12);
        ociBindByName($stmtUpdate, ":utente", $userName, 20);
        ociBindByName($stmtUpdate, ":emissione_f", $mod_bond, 1);
        ociBindByName($stmtUpdate, ":azione_f", $mod_azione, 1);
        ociBindByName($stmtUpdate, ":fondo_f", $mod_fondo, 1);
        ociBindByName($stmtUpdate, ":emittenteU_f", $mod_emittente, 1);
        ociBindByName($stmtUpdate, ":rischioU_f", $mod_rischio, 1);
        ociBindByName($stmtUpdate, ":varU_f", $mod_var, 1);
        ociBindByName($stmtUpdate, ":formulaU_f", $mod_formula, 1);
        ociBindByName($stmtUpdate, ":profiloU_f", $mod_profilo, 1);
        ociBindByName($stmtUpdate, ":retU_val", $retU_val, 1);  
         echo "$isin_t--";echo "$userName--"; echo"$mod_bond--";
      echo "$mod_azione--";echo "$mod_fondo--"; echo"$mod_emittente--";
      echo "$mod_rischio--";echo "$mod_var--"; echo"$mod_formula--";
      echo "$mod_profilo--";echo "$retU_val";
        echo "$query";
        $err=OCIExecute($stmtUpdate);
         if (!$err) die (var_dump(OCIError()));
      ocifreestatement($stmtUpdate);   and now I receive this error:
Warning: ociexecute(): OCIStmtExecute: ORA-01756: quoted string not properly terminated ORA-06512: at "FIN.PKG_SCHEDAPR", line 6420 ORA-06512: at line 1 in /web/findb/php/fin/SPR/nuoveEmissioni/nuoveEmissioni.class.php on line 918
bool(false) But I do not understand the cause of the error.
How can I solve?
Thanks, bye bye.