CREATE OR REPLACE PROCEDURE SFIS1.accy_input_keypart (
sn IN VARCHAR2,--输入参数 VARCHAR2类型
DATA IN VARCHAR2,
mygroup IN VARCHAR2,
res OUT VARCHAR2,--输出参数
datetime IN DATE,
emp IN VARCHAR2
)
AS
kpc VARCHAR2 (25);--存储过程变量
ok VARCHAR2 (25);
c_ver VARCHAR2 (25);
BEGIN
SELECT compal_part_no, version--取数据
INTO kpc, c_ver
FROM sfism4.r_part_map_t
WHERE compal_sn = DATA AND ROWNUM = 1; check_sn_sps (DATA, sn, 'A', '%', ok);--检查(应该是一个函数吧。) IF ok = 'OK'
THEN
insert_r108 (emp, sn, kpc, DATA, mygroup, datetime, c_ver);--插入数据
END IF; res := ok;
EXCEPTION--错误处理。
WHEN OTHERS
THEN
res := 'ACCY_INPUT_KEYPA';
END;
sn IN VARCHAR2,--输入参数 VARCHAR2类型
DATA IN VARCHAR2,
mygroup IN VARCHAR2,
res OUT VARCHAR2,--输出参数
datetime IN DATE,
emp IN VARCHAR2
)
AS
kpc VARCHAR2 (25);--存储过程变量
ok VARCHAR2 (25);
c_ver VARCHAR2 (25);
BEGIN
SELECT compal_part_no, version--取数据
INTO kpc, c_ver
FROM sfism4.r_part_map_t
WHERE compal_sn = DATA AND ROWNUM = 1; check_sn_sps (DATA, sn, 'A', '%', ok);--检查(应该是一个函数吧。) IF ok = 'OK'
THEN
insert_r108 (emp, sn, kpc, DATA, mygroup, datetime, c_ver);--插入数据
END IF; res := ok;
EXCEPTION--错误处理。
WHEN OTHERS
THEN
res := 'ACCY_INPUT_KEYPA';
END;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货