APPS.MSC_UTIL dependencies on DBMS_SQL

Line 51: l_theCursor integer default dbms_sql.open_cursor;

47:
48: Procedure print_query( p_query in varchar2,
49: p_display_type in number default 1 )
50: is
51: l_theCursor integer default dbms_sql.open_cursor;
52: l_columnValue varchar2(4000);
53: l_status integer;
54: l_descTbl dbms_sql.desc_tab;
55: l_colCnt number;

Line 54: l_descTbl dbms_sql.desc_tab;

50: is
51: l_theCursor integer default dbms_sql.open_cursor;
52: l_columnValue varchar2(4000);
53: l_status integer;
54: l_descTbl dbms_sql.desc_tab;
55: l_colCnt number;
56: buff varchar2(4000);
57: begin
58:

Line 59: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );

55: l_colCnt number;
56: buff varchar2(4000);
57: begin
58:
59: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
60: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
61:
62: for i in 1 .. l_colCnt loop
63: dbms_sql.define_column

Line 60: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );

56: buff varchar2(4000);
57: begin
58:
59: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
60: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
61:
62: for i in 1 .. l_colCnt loop
63: dbms_sql.define_column
64: (l_theCursor, i, l_columnValue, 4000);

Line 63: dbms_sql.define_column

59: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
60: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
61:
62: for i in 1 .. l_colCnt loop
63: dbms_sql.define_column
64: (l_theCursor, i, l_columnValue, 4000);
65: end loop;
66:
67: l_status := dbms_sql.execute(l_theCursor);

Line 67: l_status := dbms_sql.execute(l_theCursor);

63: dbms_sql.define_column
64: (l_theCursor, i, l_columnValue, 4000);
65: end loop;
66:
67: l_status := dbms_sql.execute(l_theCursor);
68: IF p_display_type = 1 THEN
69: --Print one row per line
70: buff := '';
71: for i in 1 .. l_colCnt loop

Line 75: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop

71: for i in 1 .. l_colCnt loop
72: buff := buff || rpad( l_descTbl(i).col_name, 30 ) ;
73: end loop;
74: Print_Msg( buff );Print_Msg(' ');
75: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
76: buff := '';
77: for i in 1 .. l_colCnt loop
78: dbms_sql.column_value
79: ( l_theCursor, i, l_columnValue );

Line 78: dbms_sql.column_value

74: Print_Msg( buff );Print_Msg(' ');
75: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
76: buff := '';
77: for i in 1 .. l_colCnt loop
78: dbms_sql.column_value
79: ( l_theCursor, i, l_columnValue );
80: buff := buff ||( rpad( l_columnValue, 30 ) );
81: end loop;
82: Print_Msg( buff );

Line 87: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop

83: --dbms_output.put_line( '-----------------' );
84: end loop;
85: ELSE
86: --Print one column per line
87: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
88: for i in 1 .. l_colCnt loop
89: dbms_sql.column_value( l_theCursor, i, l_columnValue );
90: Print_Msg( rpad( l_descTbl(i).col_name, 30 ) || ': ' || l_columnValue );
91: end loop;

Line 89: dbms_sql.column_value( l_theCursor, i, l_columnValue );

85: ELSE
86: --Print one column per line
87: while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
88: for i in 1 .. l_colCnt loop
89: dbms_sql.column_value( l_theCursor, i, l_columnValue );
90: Print_Msg( rpad( l_descTbl(i).col_name, 30 ) || ': ' || l_columnValue );
91: end loop;
92: Print_Msg( '-----------------' );
93: end loop;