\DocumentsandSettings\jinghua\ApplicationData\IBM\DB2\DC\项目\bld1309245830936\SQL110528115458880.jar>>,'GDZJ.SQL110528115458880',0）
[IBM][CLIDriver][DB2/AIX64]SQL4304N具有特定名称"SQL110628152507130"的Java存储过程或用户定义的函数"sqlejReadJar"不能装入Java类"COM/ibm/db2/app/sqlejProcs"，原因码为"5"。
SQLSTATE=42724
在google中无论搜索中文还是英文的资料，都找不到解决的方案，于是，把这脑残的问题，从java中转换到db2的sql中去。
下面先看看该存储过程的代码：
/**
* SQLJ 存储过程 GDZJ.BaseCodeGen
* @param enprName 企业名称
* @param enprAddr 企业地址
* @param enprLeader 法人
* @param enprPhone 联系电话
* @param baseCode 返回的基准码
*/
package com.excellence.basecodesrv;
import java.io.FileWriter;
import java.io.PrintWriter;
import java.sql.*; // JDBC 类
import java.util.Map;
import java.util.HashMap;
import java.util.Date;
import sqlj.runtime.*;
import sqlj.runtime.ref.*;
#sql context SPContext;
#sql iterator BaseCodeGen_Cursor1 （ String curBaseCode ）;
#sql iterator BaseCodeGen_Cursor2 （ String curBaseCode ）;
public class BaseCodeGen
{
/**
* @param enprName
* @param enprAddr
* @param enprLeader
* @param enprPhone
* @param baseCode
* @exception SQLException
* @exception Exception
*/
public static void baseCodeGen （ String enprName,
String enprAddr,
String enprLeader,
String enprPhone,
String[] baseCode ） throws SQLException, Exception
{
BaseCodeGen_Cursor1 cursor1 = null;
BaseCodeGen_Cursor2 cursor2 = null;
SPContext ctx = null;
try
{
if（enprName==null || enprName.trim（）.equals（""））{
// 设置返回参数
baseCode[0] = null;
return;
}
ctx = new SPContext（ "jdbc:
default:
connection", false ）;
#sql [ctx] cursor1 =
{
select max（enpr_basecode） as curBaseCode from T_PUB_BASECODE where enpr_name like concat（concat（'%',:
enprName）,'%'）
};
// 用来存取结果
//ResultSet rs1 = cursor1.getResultSet（）;
String curBaseCode = "";
while （cursor1.next（））
{
curBaseCode = cursor1.curBaseCode（）;
}
// 关闭打开资源
if （cursor1 !
= null） cursor1.close（）;
if（curBaseCode!
=null && !
curBaseCode.trim（）.equals（""））{
// 设置返回参数
baseCode[0] = curBaseCode;
return;
}else{
#sql [ctx] cursor2 =
{
select max（enpr_basecode） as curBaseCode from T_PUB_BASECODE
};
while （cursor2.next（））
{
curBaseCode = cursor2.curBaseCode（）;
}
// 关闭打开资源
if （cursor2 !
= null） cursor2.close（）;
}
//权重
Map weight = new HashMap（）;
weight.put（new Integer（"3"）, new Integer（"9"））;
weight.put（new Integer（"4"）, new Integer（"10"））;
weight.put（new Integer（"5"）, new Integer（"5"））;
weight.put（new Integer（"6"）, new Integer（"8"））;
weight.put（new Integer（"7"）, new Integer（"4"））;
weight.put（new Integer（"8"）, new Integer（"2"））;
String domain = "GZ"; // 主体码
String entityCode = ""; // 本体码
String checkCode = ""; // 校验码
String rtnBaseCode = ""; // 返回的基准码
entityCode = curBaseCode==null?
"333333":
curBaseCode.substring（2,8）;
if （entityCode.equals（"ZZZZZZ"）） {
throw new Exception（"本体码分配已经用完，无法再生成新的企业基准码！
"）;
}
// 本体码 begin
String newEntityCode = "";
char c = '0';
for（int i=5; i>=0; --i）{
c = entityCode.charAt（i）;
if（c == '9'）{
c = 'A';
}else if（c == 'Z'）{
c = '0';
}else{
++c;
}
newEntityCode = c+newEntityCode;
if（c<'Z' && c!
='0'）{
newEntityCode = entityCode.substring（0,i）+newEntityCode;
break;
}
}
entityCode = newEntityCode;
// 本体码 end
// 校验码 begin
int charWeight = 0; // 本体码‘位’的权重
int entityCharNum = 0; // 本体码‘位’的数值
int sum = 0; // 本体码‘位’的权重 与 本体码‘位’的数值 的乘积
char sglChar = '0';
for（int i=0; i<6; i++）{
sglChar = entityCode.charAt（i）;
if（sglChar > '9'）{
entityCharNum = sglChar - 55;
}else{
entityCharNum = sglChar - 48;
}
charWeight = （（Integer）weight.get（new Integer（i+3）））.intValue（）;
sum += entityCharNum*charWeight;
}
int cc = 11 - sum%11;
switch（cc）{
case 10:
checkCode = "X";
break;
case 11:
checkCode = "0";
break;
default :
checkCode = String.valueOf（cc）;
break;
}
// 校验码 end
rtnBaseCode = domain+entityCode+checkCode;
Date genTime = new java.sql.Date（new Date（）.getTime（））;
Date giveTime = new java.sql.Date（new Date（）.getTime（））;
#sql
{
insert into T_PUB_BASECODE（enpr_name,charger,address,phone,enpr_basecode,gen_bc_time,give_bc_time） values（:
enprName,:
enprLeader,:
enprAddr,:
enprPhone,:
rtnBaseCode,:
genTime,:
giveTime）
};
// 设置返回参数
baseCode[0] = rtnBaseCode;
}
catch （Exception e）
{
// 关闭打开资源
try
{
if （cursor1 !
= null） cursor1.close（）;
if （cursor2 !
= null） cursor2.close（）;
if （ctx !
= null） ctx.close（）;
} catch （SQLException e2） { /* 忽略 */ };
/*
try{
PrintWriter pwx = new PrintWriter（new FileWriter（"c:
/db2ps.txt"）,true）;
e.printStackTrace（pwx）;
}catch（Exception e3）{ }
*/
throw e;
}
}
}
转换后的DB2存储过程为：
-- Start of generated script for server226-DB2-GDZJ （gdzj）
-- Jun-29-2011 at 10:
51:
42
SET SCHEMA GDZJ ;
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","GDZJ";
drop PROCEDURE GDZJ.BASECODEGEN_ZGW;
CREATE PROCEDURE GDZJ.BASECODEGEN_ZGW
（IN ENPRNAME VARCHAR（256）,
IN ENPRADDR VARCHAR（256）,
IN ENPRLEADER VARCHAR（64）,
IN ENPRPHONE VARCHAR（64）,
OUT BASECODE VARCHAR（32）
）
LANGUAGE SQL
NOT DETERMINISTIC
CALLED ON NULL INPUT
MODIFIES SQL DATA
INHERIT SPECIAL REGISTERS
l1:
begin
declare curBaseCode varchar（16） default '';
declare domain varchar（16） default 'GZ';--主体码
declare entityCode varchar（16） default '';-- 本体码
declare checkCode varchar（16） default '';-- 校验码
declare rtnBaseCode varchar（16） default '';-- 返回的基准码
declare newEntityCode varchar（16） default '';
declare V_COUNT int default 0;
declare V_INDEX int default 0;
declare cc int default 0;
declare c char
（1） default '0';
declare charWeight int default 0; -- 本体码‘位’的权重
declare entityCharNum int default 0; -- 本体码‘位’的数值
declare sum int default 0; -- 本体码‘位’的权重 与 本体码‘位’的数值 的乘积
declare sglChar char
（1） default '0';
if ENPRNAME is null or rtrim（ENPRNAME）='' then
set BASECODE = null;
return;
end if;
set curBaseCode=（select max（enpr_basecode） from T_PUB_BASECODE where enpr_name like '%'||ENPRNAME||'%' ）;
if curBaseCode is not null and rtrim（curBaseCode）!
='' then
set BASECODE =curBaseCode;
return;
else
set curBaseCode=（select max（enpr_basecode） from T_PUB_BASECODE）;
end if;
if curBaseCode is null then
set entityCode='333333';
else
set entityCode = SUBSTR（curBaseCode,3,6）;
end if;
if entityCode='ZZZZZZ' then
set BASECODE =null;
return;
end if;
--本体码 begin
SET V_COUNT = LENGTH（entityCode）;
set V_INDEX=V_COUNT;
WHILE V_INDEX >0 DO
set c = SUBSTR（entityCode,V_INDEX,1）;
if c = '9' then
set c = 'A';
elseif c='Z' then
set c='0';
else
set c=chr（DEC_TO_TEN（HEX（c）,16）+1）;
end if;
set newEntityCode=c||newEntityCode;
if c<'Z' and c!
='0' then
set newEntityCode = SUBSTR（entityCode,1,V_INDEX-1）||newEntityCode;
set V_INDEX=0;
end if;
set V_INDEX=V_INDEX-1;
END WHILE;
set entityCode = newEntityCode;
--本体码 end
--校验码 begin
set V_INDEX=0;
WHILE V_INDEX<6 DO
set sglChar = SUBSTR（entityCode,V_INDEX+1,1）;
if sglChar>'9' then
set entityCharNum=DEC_TO_TEN（HEX（sglChar）,16）-55;
else
set entityCharNum=DEC_TO_TEN（HEX（sglChar）,16）-48;
end if;
--设置权重值
case V_INDEX
when 0 then set charWeight=9;
when 1 then set charWeight=10;
when 2 then set charWeight=5;
when 3 then set charWeight=8;
when 4 then set charWeight=4;
when 5 then set charWeight=2;
else
set charWeight=0;
end case;
set sum=sum+entityCharNum*charWeight;
set V_INDEX=V_INDEX+1;
END WHILE;
set cc=11 - mod（sum,11）;
case cc
when 10 then set checkCode = 'X';
when 11
升级会员 