connect to patent;
drop function npopatn;
drop function jpatn;
drop function noblank;
create function npopatn(varchar(12)) returns varchar(12) fenced no scratchpad returns null on null input
variant no sql no external action language java parameter style db2general
no final call allow parallel dbinfo external name 'DELPHUdf!npopatn';
commit work;
create function noblank(varchar(127)) returns varchar(127) fenced no scratchpad returns null on null input
variant no sql no external action language java parameter style db2general
no final call allow parallel dbinfo external name 'DELPHUdf!noblank';
commit work;
export to aa.del of del select npopatn(patn), npopatn(patn10) from main where datasrc='USG' and substr(patn,1,3)='USP'  fetch first 10 rows only;
commit work;
export to bb.del of del select Rtrim(Ltrim(icl)),noblank(icl) from clas_icl where datasrc='USG' and substr(patn,3,1)='D' fetch first 10 rows only;
connect reset;