CREATE OR REPLACE PROCEDURE DEBLOCAGE_NUX_PARAMETRE (Mois_partition varchar2,An_partition varchar2) is
....
begin
open CUR_COMMAND_STRING;
loop
fetch CUR_COMMAND_STRING into VAR_CUR_COMMAND_STRING;
exit when CUR_COMMAND_STRING%NOTFOUND;
select (BSA_TRN_SEQ.NEXTVAL) into SEQ from dual;
CMD:='TRANID='||SEQ||',DESTNO=3,DESTYP=IN,EVTCODE=UNLOCK,MSISDN='||VAR_CUR_COMMAND_STRING.CDEC||',';
part_str:='insert into BIL.BSA_TRANSACTIONS PARTITION(BSA_TRANS_'||Mois_partition||'_'||An_partition||')
(TRANSACTION_ID,REPLY_DATE,STATUS,COMMAND_STRING,PRIORITY,CREATE_DATE,EVENT_CODE)
values ('||SEQ||',sysdate,1,'||CMD||',1,sysdate,UNLOCK)';
execute immediate part_str;
Partager