Discussion :

[providence]

begin

open CUR_COMMAND_STRING;
loop
fetch CUR_COMMAND_STRING into VAR_CUR_COMMAND_STRING;
exit when CUR_COMMAND_STRING%NOTFOUND;

select (LOG_MAJ_SIM_SEQ.NEXTVAL) into SEQ from dual;
IMSI_HLR:= 0;
SELECT '6607'||substr(SIM,-8) INTO IMSI FROM BASE
WHERE SUBSTR(MSISDN,-8)=VAR_CUR_COMMAND_STRING.BRS_PHONE_NUMBER;

IF IMSI_HLR <>0 or IMSI_HLR is not null THEN

IF VAR_CUR_COMMAND_STRING.BRS_SIM_NO <> IMSI_HLR THEN

UPDATE BIL.B_TOTO
SET BRS_X_NO=IMSI_HLR
WHERE ID =VAR_CUR_COMMAND_STRING.ID_SIM
;
INSERT INTO LOG_MAJ_SIM( ID,
ID_BRS_SIM,
MSISDN,
OLD_SIM_BRS_SIM,
--NEW_SIM_BRS_SIM,
SIM_HLR
) VALUES(SEQ,
VAR_CUR_COMMAND_STRING.ID_SIM,
VAR_CUR_COMMAND_STRING.BRS_PHONE_NUMBER,
VAR_CUR_COMMAND_STRING.BRS_SIM_NO,
IMSI_HLR
);
END IF;
END IF;

End loop;

Bonsoir à Tous,

Relativment au code ci-dessus,je voudrais pouvoir gerer les erreurs emanant du bout de code en rouge de sorte que si une erreur survient, la ligne suivante du curseur soit chargé et ainsi de suite. N'ayant pas une bonne maitrise des exceptions, merci de bien vouloir m'eclairer.

[providence]

pense j'ai reussi à mieux cerner la notion d'EXCEPTION.
ci-après une solution à ma préoccupation

begin

open CUR_COMMAND_STRING;
loop
fetch CUR_COMMAND_STRING into VAR_CUR_COMMAND_STRING;
exit when CUR_COMMAND_STRING%NOTFOUND;

select (LOG_MAJ_SIM_SEQ.NEXTVAL) into SEQ from dual;
IMSI_HLR:= 0;
SELECT '6607'||substr(SIM,-8) INTO IMSI FROM BASE
WHERE SUBSTR(MSISDN,-8)=VAR_CUR_COMMAND_STRING.BRS_PHONE_NUMBER;

IF IMSI <>0 or IMSI_HLR is not null THEN

IF VAR_CUR_COMMAND_STRING.BRS_SIM_NO <> IMSI_HLR THEN

UPDATE BIL.B_TOTO
SET BRS_X_NO=IMSI_HLR
WHERE ID =VAR_CUR_COMMAND_STRING.ID_SIM
;
INSERT INTO LOG_MAJ_SIM( ID,
ID_BRS_SIM,
MSISDN,
OLD_SIM_BRS_SIM,
--NEW_SIM_BRS_SIM,
SIM_HLR
) VALUES(SEQ,
VAR_CUR_COMMAND_STRING.ID_SIM,
VAR_CUR_COMMAND_STRING.BRS_PHONE_NUMBER,
VAR_CUR_COMMAND_STRING.BRS_SIM_NO,
IMSI_HLR
);
END IF;
END IF;

End loop;
CLOSE CUR_COMMAND_STRING;
EXCEPTION
WHEN NO_DATA_FOUND
IMSI :=0;
END;
END;
/