375: l_object_name VARCHAR2(80) := p_object_name;
376: l_line_length NUMBER;
377: l_send_position NUMBER;
378: l_pkg_object_id NUMBER;
379: l_sqlstring dbms_sql.varchar2s;
380: l_empty_sqlstring dbms_sql.varchar2s;
381: i INTEGER;
382: j INTEGER;
383: l_cur INTEGER;
376: l_line_length NUMBER;
377: l_send_position NUMBER;
378: l_pkg_object_id NUMBER;
379: l_sqlstring dbms_sql.varchar2s;
380: l_empty_sqlstring dbms_sql.varchar2s;
381: i INTEGER;
382: j INTEGER;
383: l_cur INTEGER;
384: l_new_line_flag BOOLEAN := TRUE;
414: i := 1;
415:
416: j := l_sqlstring.count;
417:
418: l_cur:= DBMS_SQL.OPEN_CURSOR;
419:
420: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
421:
422: l_retval:= DBMS_SQL.EXECUTE(l_cur);
416: j := l_sqlstring.count;
417:
418: l_cur:= DBMS_SQL.OPEN_CURSOR;
419:
420: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
421:
422: l_retval:= DBMS_SQL.EXECUTE(l_cur);
423:
424: DBMS_SQL.CLOSE_CURSOR(l_cur);
418: l_cur:= DBMS_SQL.OPEN_CURSOR;
419:
420: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
421:
422: l_retval:= DBMS_SQL.EXECUTE(l_cur);
423:
424: DBMS_SQL.CLOSE_CURSOR(l_cur);
425:
426: l_sqlstring := l_empty_sqlstring;
420: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
421:
422: l_retval:= DBMS_SQL.EXECUTE(l_cur);
423:
424: DBMS_SQL.CLOSE_CURSOR(l_cur);
425:
426: l_sqlstring := l_empty_sqlstring;
427: ------+
428: -- Get Object id of the package Body
448: i := 1;
449:
450: j := l_sqlstring.count;
451:
452: l_cur := DBMS_SQL.OPEN_CURSOR;
453:
454: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
455:
456: l_retval:= DBMS_SQL.EXECUTE(l_cur);
450: j := l_sqlstring.count;
451:
452: l_cur := DBMS_SQL.OPEN_CURSOR;
453:
454: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
455:
456: l_retval:= DBMS_SQL.EXECUTE(l_cur);
457:
458: DBMS_SQL.CLOSE_CURSOR(l_cur);
452: l_cur := DBMS_SQL.OPEN_CURSOR;
453:
454: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
455:
456: l_retval:= DBMS_SQL.EXECUTE(l_cur);
457:
458: DBMS_SQL.CLOSE_CURSOR(l_cur);
459:
460: l_sqlstring := l_empty_sqlstring;
454: DBMS_SQL.PARSE(l_cur, l_sqlstring, i, j, l_new_line_flag, DBMS_SQL.V7);
455:
456: l_retval:= DBMS_SQL.EXECUTE(l_cur);
457:
458: DBMS_SQL.CLOSE_CURSOR(l_cur);
459:
460: l_sqlstring := l_empty_sqlstring;
461: ------+
462: -- Check Whether Package Compiled Successfully