CREATE OR REPLACE PROCEDURE ausgabe (text IN VARCHAR2?)
IS
n NUMBER;
m NUMBER;
i NUMBER;
j NUMBER;
BEGIN
n := length(text);
IF n < 256 THEN
dbms_output.put_line(text);
ELSE
m := trunc(n/255);
FOR i IN 0 .. m
LOOP
j := i*255+1;
dbms_output.put_line(substr(text,j,255));
END LOOP;
END IF;
END ausgabe;
This entry was posted
on Tuesday, 5. April 2005 at 10:36 and is filed under Oracle.
You can follow any responses to this entry through the RSS 2.0 feed.
You can leave a response, or trackback (Guckstu hier) from your own site.