How to use equals in loop of an Stored Procedure

Question

Hi ,
This is my Stored Procedure which is working fine (mean displaying all the Data from the Table)
Here i want to add this functionality that is i want to check if there is 'IND' in country_code , i want to throw an Exception manually .
I am struck up here : After the cursor fetches all the country_code in its loop , how can i check the whether country_code contains 'IND' or not in it ??
create or replace PROCEDURE Auto_After_Bod_Status
is
country_code    VARCHAR2(40);
myException EXCEPTION ;
CURSOR PD1
IS
SELECT COUNTRY_CODE FROM LINK_STATUS;
BEGIN
OPEN PD1;
LOOP
FETCH PD1 INTO country_code;
DBMS_OUTPUT.PUT_LINE(country_code);
EXIT WHEN PD1%NOTFOUND;
END LOOP;
CLOSE PD1;
END  Auto_After_Bod_Status;
please help .Thanks .

Answer 1

user10503747 wrote:
I am struck up here : After the cursor fetches all the country_code in its loop , how can i check the whether country_code contains 'IND' or not in it ??Why do you need to check it after the loop. Check as soon as row is fetched. Also, your DBMS_OUTPUT.PUT_LINE(country_code); should be after EXIT WHEN PD1%NOTFOUND; not before:
create or replace PROCEDURE Auto_After_Bod_Status
is
country_code VARCHAR2(40);
myException EXCEPTION ;
CURSOR PD1
IS
SELECT COUNTRY_CODE FROM LINK_STATUS;
BEGIN
OPEN PD1;
LOOP
FETCH PD1 INTO country_code;
EXIT WHEN PD1%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(country_code);
IF country_code LIKE '%IND%'
  THEN close pd1;
       raise myException;
END IF;
END LOOP;
CLOSE PD1;
END Auto_After_Bod_Status;But if you want to fetch all rows first:
create or replace PROCEDURE Auto_After_Bod_Status
is
country_code VARCHAR2(40);
ind number := 0;
myException EXCEPTION ;
CURSOR PD1
IS
SELECT COUNTRY_CODE FROM LINK_STATUS;
BEGIN
OPEN PD1;
LOOP
FETCH PD1 INTO country_code;
EXIT WHEN PD1%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(country_code);
IF country_code LIKE '%IND%'
  THEN ind := 1;
END IF;
END LOOP;
CLOSE PD1;
IF ind = 1
  THEN raise myException;
END IF;
END Auto_After_Bod_Status;SY.