Re: urgent???????

From: Vadim Gorbunov <dim_at_protek.ru>
Date: Mon, 26 Jun 2000 17:52:44 +0400
Message-Id: <10540.110409@fatcity.com>

This is a multi-part message in MIME format.
--------------D32762DF8CEC43D865B9784C

Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit

Hi, Mohamed,
This script is from www.onwe.co.za
Hope this helps
Vadim

rem -----------------------------------------------------------------------

rem Filename: readlong.sql
rem Purpose: Fetch Long column values piece-wise from PL/SQL

rem Date:       12-Jan-1999
rem Author:     Frank Naude (frank_at_onwe.co.za)
rem -----------------------------------------------------------------------

set serveroutput on

Create test table drop table longtable; create table longtable (longcol long) tablespace TOOLS; insert into longtable values ( rpad('x', 257, 'QWERTY') );

DECLARE

  cur1       PLS_INTEGER         := DBMS_SQL.OPEN_CURSOR;;
  rc         NUMBER;
  long_piece VARCHAR2(256);
  piece_len  INTEGER             := 0;
  long_tab   DBMS_SQL.VARCHAR2S;
  long_len   INTEGER             := 0;

BEGIN
DBMS_SQL.PARSE(cur1, 'select longcol from longtable', DBMS_SQL.NATIVE); DBMS_SQL.DEFINE_COLUMN_LONG(cur1, 1);
rc := DBMS_SQL.EXECUTE(cur1);

  rc := DBMS_SQL.FETCH_ROWS(cur1);                       -- Get one row

Loop until all pieces of the long column are processed LOOP DBMS_SQL.COLUMN_VALUE_LONG(cur1, 1, 256, long_len, long_piece, piece_len); EXIT WHEN piece_len = 0; DBMS_OUTPUT.PUT_LINE('Long piece len='|| piece_len);

     long_tab( NVL(long_tab.LAST, 0)+1 ) := long_piece;  -- Add piece to table
     long_len := long_len + piece_len;

  END LOOP;
  DBMS_SQL.CLOSE_CURSOR(cur1);
  DBMS_OUTPUT.PUT_LINE('Total long col fetched, len='|| long_len); END;
/

--------------D32762DF8CEC43D865B9784C

Content-Type: text/x-vcard; charset=us-ascii; name="dim.vcf"

Content-Transfer-Encoding: 7bit
Content-Description: Card for Vadim Gorbunov
Content-Disposition: attachment;

filename="dim.vcf"

begin:vcard
n:Gorbunov;Vadim
tel;work:(095)737-3533
x-mozilla-html:FALSE

url:www.protek.ru
org:Protek;IT
adr:;;;Moscow;;;Russia

version:2.1
email;internet:dim_at_protek.ru
title:Oracle DBA
fn:Vadim Gorbunov Received on Mon Jun 26 2000 - 08:52:44 CDT