Adding custom field using procedure with passing values

 

Hi,

Please help me to resolve below error. 

SET SERVEROUTPUT ON

create or replace procedure ADD_PLATFORM_CUSTOM_FIELD  (fieldname IN varchar2, fieldtype IN varchar2, fieldlength IN number)

IS

v_fieldname varchar2(30);

v_fieldtype varchar2(30);

v_fieldlength number(10);

MY_STRING VARCHAR2(100);

BEGIN

v_fieldname:=fieldname;

v_fieldtype:=fieldtype;

v_fieldlength:=fieldlength;

MY_STRING := 'ALTER TABLE VERIFIER  ADD ( v_fieldname, v_fieldtype, v_fieldlength);';

  EXECUTE IMMEDIATE MY_STRING USING v_fieldname, v_fieldtype, v_fieldlength;

DBMS_OUTPUT.PUT_LINE (MY_STRING);

END;

/

Procedure created.

SQL> execute ADD_PLATFORM_CUSTOM_FIELD ('CUSTOM_1', 'VARCHAR2', 30);

BEGIN ADD_PLATFORM_CUSTOM_FIELD ('CUSTOM_1', 'VARCHAR2', 30); END;