54: Retcode in out NOCOPY Varchar2,
55: p_object_long_name in varchar2 )
56: IS
57: stmt varchar2(300);
58: v_col DBMS_SQL.VARCHAR2_TABLE;
59: l_viewname VARCHAR2(100);
60: cid NUMBER;
61: l_dummy NUMBER;
62: nViewCount NUMBER := 0;
81:
82: IF (p_object_long_name is not null) THEN
83: stmt:= 'SELECT relation_name from EDW_RELATIONS_MD_V@' || l_target_link ||
84: ' where relation_long_name = :longname and relation_type in (:fact, :dimension)';
85: cid := DBMS_SQL.OPEN_CURSOR;
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
82: IF (p_object_long_name is not null) THEN
83: stmt:= 'SELECT relation_name from EDW_RELATIONS_MD_V@' || l_target_link ||
84: ' where relation_long_name = :longname and relation_type in (:fact, :dimension)';
85: cid := DBMS_SQL.OPEN_CURSOR;
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
83: stmt:= 'SELECT relation_name from EDW_RELATIONS_MD_V@' || l_target_link ||
84: ' where relation_long_name = :longname and relation_type in (:fact, :dimension)';
85: cid := DBMS_SQL.OPEN_CURSOR;
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
84: ' where relation_long_name = :longname and relation_type in (:fact, :dimension)';
85: cid := DBMS_SQL.OPEN_CURSOR;
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
85: cid := DBMS_SQL.OPEN_CURSOR;
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
93: DBMS_SQL.close_cursor(cid);
86: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
93: DBMS_SQL.close_cursor(cid);
94: END IF;
87: DBMS_SQL.BIND_VARIABLE(cid, ':longname', p_object_long_name);
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
93: DBMS_SQL.close_cursor(cid);
94: END IF;
95:
88: DBMS_SQL.BIND_VARIABLE(cid, ':fact', 'CMPWBCube');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
93: DBMS_SQL.close_cursor(cid);
94: END IF;
95:
96: l_dir:=fnd_profile.value('UTL_FILE_DIR');
89: DBMS_SQL.BIND_VARIABLE(cid, ':dimension', 'CMPWBDimension');
90: DBMS_SQL.DEFINE_COLUMN(cid, 1, l_obj_short_name, 100);
91: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
92: DBMS_SQL.COLUMN_VALUE(cid, 1, l_obj_short_name);
93: DBMS_SQL.close_cursor(cid);
94: END IF;
95:
96: l_dir:=fnd_profile.value('UTL_FILE_DIR');
97:
110: stmt := stmt ||' and object_name = :b_object_name';
111: END IF;
112:
113: fnd_file.put_line(fnd_file.log,l_newline||'Going to Execute : '||stmt);
114: cid := DBMS_SQL.OPEN_CURSOR;
115: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
116: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
117:
118: IF l_obj_short_name is not null THEN
111: END IF;
112:
113: fnd_file.put_line(fnd_file.log,l_newline||'Going to Execute : '||stmt);
114: cid := DBMS_SQL.OPEN_CURSOR;
115: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
116: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
117:
118: IF l_obj_short_name is not null THEN
119: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
112:
113: fnd_file.put_line(fnd_file.log,l_newline||'Going to Execute : '||stmt);
114: cid := DBMS_SQL.OPEN_CURSOR;
115: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
116: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
117:
118: IF l_obj_short_name is not null THEN
119: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
120: END IF;
115: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
116: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
117:
118: IF l_obj_short_name is not null THEN
119: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
120: END IF;
121:
122: DBMS_SQL.DEFINE_COLUMN(cid, 1, nViewCount);
123: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
118: IF l_obj_short_name is not null THEN
119: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
120: END IF;
121:
122: DBMS_SQL.DEFINE_COLUMN(cid, 1, nViewCount);
123: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
124: DBMS_SQL.COLUMN_VALUE(cid, 1, nViewCount);
125: DBMS_SQL.close_cursor(cid);
126:
119: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
120: END IF;
121:
122: DBMS_SQL.DEFINE_COLUMN(cid, 1, nViewCount);
123: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
124: DBMS_SQL.COLUMN_VALUE(cid, 1, nViewCount);
125: DBMS_SQL.close_cursor(cid);
126:
127: fnd_file.put_line(fnd_file.log,l_newline||'Number of source views found :'|| nViewCount);
120: END IF;
121:
122: DBMS_SQL.DEFINE_COLUMN(cid, 1, nViewCount);
123: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
124: DBMS_SQL.COLUMN_VALUE(cid, 1, nViewCount);
125: DBMS_SQL.close_cursor(cid);
126:
127: fnd_file.put_line(fnd_file.log,l_newline||'Number of source views found :'|| nViewCount);
128:
121:
122: DBMS_SQL.DEFINE_COLUMN(cid, 1, nViewCount);
123: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
124: DBMS_SQL.COLUMN_VALUE(cid, 1, nViewCount);
125: DBMS_SQL.close_cursor(cid);
126:
127: fnd_file.put_line(fnd_file.log,l_newline||'Number of source views found :'|| nViewCount);
128:
129: stmt := 'SELECT distinct FLEX_VIEW_NAME FROM edw_source_views@' || l_target_link ||
132: IF l_obj_short_name is not null THEN
133: stmt := stmt ||' and object_name = :b_object_name ';
134: END IF;
135:
136: cid := DBMS_SQL.OPEN_CURSOR;
137: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
138: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
139:
140: IF l_obj_short_name is not null THEN
133: stmt := stmt ||' and object_name = :b_object_name ';
134: END IF;
135:
136: cid := DBMS_SQL.OPEN_CURSOR;
137: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
138: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
139:
140: IF l_obj_short_name is not null THEN
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
134: END IF;
135:
136: cid := DBMS_SQL.OPEN_CURSOR;
137: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
138: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
139:
140: IF l_obj_short_name is not null THEN
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
142: END IF;
137: DBMS_SQL.PARSE(cid, stmt, dbms_sql.native);
138: DBMS_SQL.BIND_VARIABLE(cid, ':version', l_version);
139:
140: IF l_obj_short_name is not null THEN
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
142: END IF;
143: DBMS_SQL.DEFINE_ARRAY(cid, 1, v_col, nViewCount, 1);
144: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
145: DBMS_SQL.COLUMN_VALUE(cid, 1, v_col);
139:
140: IF l_obj_short_name is not null THEN
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
142: END IF;
143: DBMS_SQL.DEFINE_ARRAY(cid, 1, v_col, nViewCount, 1);
144: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
145: DBMS_SQL.COLUMN_VALUE(cid, 1, v_col);
146: DBMS_SQL.close_cursor(cid);
147:
140: IF l_obj_short_name is not null THEN
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
142: END IF;
143: DBMS_SQL.DEFINE_ARRAY(cid, 1, v_col, nViewCount, 1);
144: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
145: DBMS_SQL.COLUMN_VALUE(cid, 1, v_col);
146: DBMS_SQL.close_cursor(cid);
147:
148: WHILE (nCount < nViewCount )LOOP
141: DBMS_SQL.BIND_VARIABLE(cid, ':b_object_name', l_obj_short_name);
142: END IF;
143: DBMS_SQL.DEFINE_ARRAY(cid, 1, v_col, nViewCount, 1);
144: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
145: DBMS_SQL.COLUMN_VALUE(cid, 1, v_col);
146: DBMS_SQL.close_cursor(cid);
147:
148: WHILE (nCount < nViewCount )LOOP
149: nCount := nCount + 1;
142: END IF;
143: DBMS_SQL.DEFINE_ARRAY(cid, 1, v_col, nViewCount, 1);
144: l_dummy := DBMS_SQL.EXECUTE_AND_FETCH(cid);
145: DBMS_SQL.COLUMN_VALUE(cid, 1, v_col);
146: DBMS_SQL.close_cursor(cid);
147:
148: WHILE (nCount < nViewCount )LOOP
149: nCount := nCount + 1;
150: fnd_file.put_line(fnd_file.log, nCount||'. Going to generate '||v_col(nCount));