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;
/
Partager