How to validate similar columns fetched by the cursor

Question

Hi,
I have one table which has columns like COMP_PART_NUMBER_1 , COMP_PART_NUMBER_2 up to COMP_PART_NUMBER_50
Need to validate columns as shown below,I want to know how to make create dynamic script for the below validation so that there is no need to add same logic for 50 times.
IF rec_SCR_assy.COMP_PART_NUMBER_1 IS NOT NULL THEN
IF LENGTH(rec_SCR_assy.COMP_PART_NUMBER_1) > 8 THEN
     v_error_description := NVL(v_error_description,'') || 'The Component 1 Part Number length should not be greater than 8| ';
ELSE
v_upd_script := ' COMP_PART_NUMBER_1 = ''' || rec_SCR_assy.COMP_PART_NUMBER_1 || '''';
END IF;
END IF;
I have tried to create pl sql block as :-
FOR vcnt IN 1..50
LOOP
VFIELD_COMP_PART := 'COMP_PART_NUMBER_' || VCNT;
v_exec_query:=' begin
IF rec_SCR_assy.'||VFIELD_COMP_PART ||' IS NOT NULL THEN
IF LENGTH(rec_SCR_assy.'||VFIELD_COMP_PART||') > 8 THEN
:v_error_description := NVL(:v_error_description,'''') || ''The Component 1 Part Number length should not be greater than 8| '';
ELSE
:v_upd_script := '' rec_SCR_assy.'||VFIELD_COMP_PART||' = '''''' ||rec_SCR_assy.'||VFIELD_COMP_PART ||'||'''''''';
end if;
END IF; end;';
execute immediate V_EXEC_QUERY using v_error_description,v_upd_script;
This code is giving an error as it is not possible to create a bind variable to the cursor in dynamic script.
Please help me to find the solution for it.Thanks in advance.

Answer 1

Try like this ...
DECLARE
   v_exec_query   VARCHAR2 (4000);
BEGIN
   FOR i IN (SELECT column_name
               FROM all_tab_cols
              WHERE table_name = 'EMP')
   LOOP
      v_exec_query :=
            ' begin
IF rec_SCR_assy.'
         || i.column_name
         || ' IS NOT NULL THEN
IF LENGTH(rec_SCR_assy.'
         || i.column_name
         || ') > 8 THEN
:v_error_description := NVL(:v_error_description,'''') || ''The Component 1 Part Number length should not be greater than 8| '';
ELSE
:v_upd_script := '' rec_SCR_assy.'
         || i.column_name
         || ' = '''''' ||rec_SCR_assy.'
         || i.column_name
         || '||'''''''';
end if;
END IF; end;';
      DBMS_OUTPUT.put_line (v_exec_query);
   END LOOP;
END;
--Output
BEGIN
   IF rec_scr_assy.emp_info IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.emp_info) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
               ' rec_SCR_assy.EMP_INFO = ''' || rec_scr_assy.emp_info || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.deptno IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.deptno) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                   ' rec_SCR_assy.DEPTNO = ''' || rec_scr_assy.deptno || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.comm IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.comm) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                       ' rec_SCR_assy.COMM = ''' || rec_scr_assy.comm || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.sal IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.sal) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                         ' rec_SCR_assy.SAL = ''' || rec_scr_assy.sal || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.hiredate IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.hiredate) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
               ' rec_SCR_assy.HIREDATE = ''' || rec_scr_assy.hiredate || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.mgr IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.mgr) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                         ' rec_SCR_assy.MGR = ''' || rec_scr_assy.mgr || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.job IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.job) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                         ' rec_SCR_assy.JOB = ''' || rec_scr_assy.job || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.emp_no IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.emp_no) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                   ' rec_SCR_assy.EMP_NO = ''' || rec_scr_assy.emp_no || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.sys_nc00009$ IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.sys_nc00009$) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
               ' rec_SCR_assy.SYS_NC00009$ = '''
            || rec_scr_assy.sys_nc00009$
            || '''';
      END IF;
   END IF;
END;
BEGIN
   IF rec_scr_assy.ename IS NOT NULL
   THEN
      IF LENGTH (rec_scr_assy.ename) > 8
      THEN
         :v_error_description :=
               NVL (:v_error_description, '')
            || 'The Component 1 Part Number length should not be greater than 8| ';
      ELSE
         :v_upd_script :=
                     ' rec_SCR_assy.ENAME = ''' || rec_scr_assy.ename || '''';
      END IF;
   END IF;
END;Regards,
Friend