<div dir="ltr">Senhores boa noite tenho a seguinte instrução abaixo:<br>
<br>my $sth2 = $dbh-&gt;prepare(&quot;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Declare<br>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; v_msg_erro&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; VARCHAR (150);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; BEGIN<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; GNVBILLCANCEL.CREATEREBILLFORCUSTOMER(?,?);<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; GNVGEN.GNVCOMMIT;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; COMMIT;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; EXCEPTION WHEN OTHERS THEN<br>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; v_msg_erro := SUBSTR (SQLERRM, 1, 100);<br>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; INSERT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /*+APPEND*/INTO extract.ope_analise_controle_erro (customer_ref, account_num, data_insert, cod_erro, ds_erro)<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; VALUES (?, null,SYSDATE,&#39;CANCEL_FAT&#39;, &#39;CREATEREBILLFORCUSTOMER: &#39;||v_msg_erro);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; COMMIT;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; END;&quot;) or die(&quot;nao foi possivel preparar o comando: &quot;, $dbh-&gt;errstr(), &quot;\n&quot;);<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $sth2-&gt;bind_param( 1, $customer);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $sth2-&gt;bind_param(2, $descicao);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $sth2-&gt;execute() or die (&quot;Nao foi possivel executar o comando:&quot;, $sth-&gt;errstr(),&quot;\n&quot;);<br>
<br><br><br><br> no insert <span style="color: rgb(0, 0, 0);">INSERT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /*+APPEND..........</span><b><span style="color: rgb(255, 0, 0);"> </span></b>o primeiro campo a ser inserido e o conteudo armazenado em <b><span style="color: rgb(0, 0, 153);">$sth2-&gt;bind_param( 1, $customer);</span></b> que tambem é utilizado em <b><span style="color: rgb(255, 153, 0);">&quot;GNVBILLCANCEL.</span></b><b><span style="color: rgb(255, 153, 0);">CREATEREBILLFORCUSTOMER(?,?);&quot;</span></b> tenho que declara-lo ($sth2-&gt;bind_param( 3, $customer); novamente para utiliza-lo no insert??????? nao teria uma forma de utilizar  $sth2-&gt;bind_param( 1, $customer); que ja esta declarado????????
</div>