- 论坛徽章:
- 0
|
测试了个方法,不用trim处理,这个有8100字节长了。
- -- drop procedure tt;
- create procedure tt() returning char(8192);
- define s1 char(8192);
- define s2 char(8192);
- define s3 char(8192);
- define s char(8192);
- define i integer;
- define l1 integer;
- define l2 integer;
- define l3 integer;
- -- set debug file to "/tmp/tt.log" ;
- let s1="";
- let s2="";
- let s3="";
- let s="";
- --trace on;
- for i = 1 to 900
- let l1 = length( s1);
- let l2 = length( s2);
- let l3 = length( s3);
- let s1 = substr( s1,1,l1)||"123";
- let s2 = substr( s2,1,l2)||"abc";
- let s3 = substr( s3,1,l3)||"xyz";
- end for
- --trace " s1 = "||s1;
- --trace " s2 = "|| s2;
- --trace " s3 = "||s3;
-
- let l1 = length( s );
- let s = substr( s, 1,l1 ) || s1;
- let l1 = length( s );
- let s = substr( s, 1,l1 ) || s2;
- let l1 = length( s );
- let s = substr( s, 1,l1 ) || s3;
- return s;
- end procedure ;
复制代码
[ 本帖最后由 wenlq 于 2006-11-3 14:15 编辑 ] |
|