APPS.MSC_UTIL dependencies on DBMS_SQL

Line 55: l_theCursor integer default dbms_sql.open_cursor;

51:
52: Procedure print_query( p_query in varchar2,
53: p_display_type in number default 1 )
54: is
55: l_theCursor integer default dbms_sql.open_cursor;
56: l_columnValue varchar2(4000);
57: l_status integer;
58: l_descTbl dbms_sql.desc_tab;
59: l_colCnt number;

Line 58: l_descTbl dbms_sql.desc_tab;

54: is
55: l_theCursor integer default dbms_sql.open_cursor;
56: l_columnValue varchar2(4000);
57: l_status integer;
58: l_descTbl dbms_sql.desc_tab;
59: l_colCnt number;
60: buff varchar2(4000);
61: begin
62:

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

59: l_colCnt number;
60: buff varchar2(4000);
61: begin
62:
63: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
64: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
65:
66: for i in 1 .. l_colCnt loop
67: dbms_sql.define_column

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

60: buff varchar2(4000);
61: begin
62:
63: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
64: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
65:
66: for i in 1 .. l_colCnt loop
67: dbms_sql.define_column
68: (l_theCursor, i, l_columnValue, 4000);

Line 67: dbms_sql.define_column

63: dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
64: dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
65:
66: for i in 1 .. l_colCnt loop
67: dbms_sql.define_column
68: (l_theCursor, i, l_columnValue, 4000);
69: end loop;
70:
71: l_status := dbms_sql.execute(l_theCursor);

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

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

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

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

Line 82: dbms_sql.column_value

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

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

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

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

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