Query For Drop More Than One Constraint Using Procedure

                             Query For Drop More Than One Constraint Using Procedure


CREATE OR REPLACE PROCEDURE KBR_CONSTRAINT_DROP(L_TABLE_NAME VARCHAR2)
AS
L_ROWNUM NUMBER;
L_CONSTRA VARCHAR2(50);
L_OBJECT_NAME VARCHAR2(50);
L_CONSTRATS VARCHAR2(30);
BEGIN
BEGIN
L_ROWNUM :=1;
L_CONSTRATS :=' CONSTRAINT';
END;
BEGIN
FOR KBR IN 1..5
LOOP
L_ROWNUM :=1;
SELECT CONSTRAINT_NAME INTO L_CONSTRA
 FROM user_cons_columns
WHERE table_name =L_TABLE_NAME 
AND COLUMN_NAME IN ('LAST_UPDATE_DATE' ,'LAST_UPDATED_BY','CREATION_DATE','CREATED_BY','LAST_UPDATE_LOGIN')AND ROWNUM=L_ROWNUM;
EXECUTE IMMEDIATE 'ALTER TABLE '|| L_TABLE_NAME|| ' DROP '||L_CONSTRATS||' '||L_CONSTRA;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('ERROR');
END;
END;



EXEC KBR_CONSTRAINT_DROP('XXHRS_EMP_DATA')