307: -- flex field, this will cause an error in which case continue
308: begin
309: begin
310:
311: X_Cursor := dbms_sql.open_cursor;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
308: begin
309: begin
310:
311: X_Cursor := dbms_sql.open_cursor;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
309: begin
310:
311: X_Cursor := dbms_sql.open_cursor;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
310:
311: X_Cursor := dbms_sql.open_cursor;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
318: dbms_sql.close_cursor(X_Cursor);
311: X_Cursor := dbms_sql.open_cursor;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
318: dbms_sql.close_cursor(X_Cursor);
319: END IF;
312: dbms_sql.parse(X_Cursor,arg_default_value,dbms_sql.v7);
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
318: dbms_sql.close_cursor(X_Cursor);
319: END IF;
320:
313: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 100 );
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
318: dbms_sql.close_cursor(X_Cursor);
319: END IF;
320:
321: -- dbms_output.put_line('Value for dynamic sql select is '||sql_value);
314: X_Rows := dbms_sql.execute(X_Cursor);
315: X_Rows := dbms_sql.fetch_rows(X_Cursor);
316: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
317: IF dbms_sql.is_open(X_Cursor) THEN
318: dbms_sql.close_cursor(X_Cursor);
319: END IF;
320:
321: -- dbms_output.put_line('Value for dynamic sql select is '||sql_value);
322: argument(arg_cnt) := sql_value;
342:
343: -- dbms_output.put_line('Value for dynamic sql is: '||value_set_lookup);
344: -- dbms_output.put_line('Where value = '||sql_value);
345: begin
346: X_Cursor := dbms_sql.open_cursor;
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
343: -- dbms_output.put_line('Value for dynamic sql is: '||value_set_lookup);
344: -- dbms_output.put_line('Where value = '||sql_value);
345: begin
346: X_Cursor := dbms_sql.open_cursor;
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
344: -- dbms_output.put_line('Where value = '||sql_value);
345: begin
346: X_Cursor := dbms_sql.open_cursor;
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
352: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
345: begin
346: X_Cursor := dbms_sql.open_cursor;
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
352: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
353: exception when others then
346: X_Cursor := dbms_sql.open_cursor;
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
352: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
353: exception when others then
354: -- dbms_output.put_line('Error in dynamic sql; arg_value_set_id:'||to_char(arg_value_set_id));
347: dbms_sql.parse(X_Cursor,value_set_lookup,dbms_sql.v7);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
352: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
353: exception when others then
354: -- dbms_output.put_line('Error in dynamic sql; arg_value_set_id:'||to_char(arg_value_set_id));
355: -- dbms_output.put_line('Error in dynamic sql:'||value_set_lookup);
348: DBMS_SQL.Bind_Variable(X_cursor,':value',argument(arg_cnt));
349: DBMS_SQL.Define_Column(X_cursor, 1, sql_value, 255 );
350: X_Rows := dbms_sql.execute(X_Cursor);
351: X_Rows := dbms_sql.fetch_rows(X_Cursor);
352: DBMS_SQL.Column_Value(X_cursor, 1, sql_value);
353: exception when others then
354: -- dbms_output.put_line('Error in dynamic sql; arg_value_set_id:'||to_char(arg_value_set_id));
355: -- dbms_output.put_line('Error in dynamic sql:'||value_set_lookup);
356: -- dbms_output.put_line('Where value = '||sql_value);
358: -- will be informed there is a missing required flag.
359: sql_value := NULL;
360: end;
361:
362: IF dbms_sql.is_open(X_Cursor) THEN
363: dbms_sql.close_cursor(X_Cursor);
364: END IF;
365: if sql_value is not null then
366: argument(arg_cnt) := sql_value;
359: sql_value := NULL;
360: end;
361:
362: IF dbms_sql.is_open(X_Cursor) THEN
363: dbms_sql.close_cursor(X_Cursor);
364: END IF;
365: if sql_value is not null then
366: argument(arg_cnt) := sql_value;
367: end if;