变量默认值和EXECUTE IMMEDIATE以及goto关键字

本文介绍了PL/SQL中的高级特性,包括设置变量默认值、使用EXECUTE IMMEDIATE执行动态SQL语句及非运行时创建的PL/SQL块,以及GOTO关键字的使用规则和注意事项。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

1、设置变量默认值

直接在参数类型后加:=defaultvalue

例子:

 

V_FUNCNAME                   VARCHAR2(20) := 'IFELSE';

2、EXECUTE IMMEDIATE 代替了以前Oracle8i中DBMS_SQL package包.

 

它解析并马上执行动态的SQL语句或非运行时创建的PL/SQL块.动态创建和执行SQL语句性能超前,EXECUTE IMMEDIATE的目标在于减小企业费用并获得较高的性能,较之以前它相当容易编码.尽管DBMS_SQL仍然可用,但是推荐使用EXECUTE IMMEDIATE,因为它获的收益在包之上。 

 

EXECUTE IMMEDIATE 'select ' || V_JSGS_BTXM_CONTENT_VALUE || ' from dual' INTO RESULT;

规则1:EXECUTE IMMEDIATE将不会提交一个DML事务执行,应该显式提交。

规则2:如果通过EXECUTE IMMEDIATE处理DML命令,那么在完成以前需要显式提交或者作为EXECUTE IMMEDIATE自己的一部分. 如果通过EXECUTE IMMEDIATE处理DDL命令,它提交所有以前改变的数据。

 declare
  l_depnam varchar2(20) := 'testing';
  l_loc    varchar2(10) := 'Dubai';
  begin
  execute immediate 'insert into dept values  (:1, :2, :3)'
    using 50, l_depnam, l_loc;
  commit;
 end;

 当执行SQL语句时,不要用分号,当执行PL/SQL块时,在其尾部用分号

 

3、goto关键字:

PL/SQL对于GOTO的使用有一些限制.对于块,循环或者IF语句而言,想要从外层跳转到内层是非法的.

使用GOTO语句从一个IF子句跳转到另一个子句中也是非法的.

最后,从一个异常处理块内部跳转到当前块是非法的.

/*
goto label_name;
只能由内部的语句块跳往外部块 
设置标签
<<label_name>>
可以为循环设置标签
*/
declare
id number:=1;
begin
loop 
dbms_output.put_line('循环次数--'||id);
id :=id+1;
if id=10 then 
goto a;
end if;
end loop;
<<a>>
dbms_output.put_line('跳出循环');
end;
/
 注意,goto语句不能在异常处理中跳转!

 

CREATE OR REPLACE PROCEDURE IMES.SP_MES_GET_SN_ATTR_INFO(T_SN IN VARCHAR2, T_STATIONNAME IN VARCHAR2, TCONTENT OUT VARCHAR2, TRES OUT VARCHAR2) IS /* create by ellis 2024/08/06 V1.0.0.0 组装综合作业获取SN参数,默认获取工单,料号,工单线体,ROUTE,工单颜色,K&NK */ V_COUNT NUMBER; V_LINE IMES.P_SN_STATUS.LINE%TYPE; V_STAGE IMES.P_SN_STATUS.STAGE%TYPE; V_STATION_TYPE IMES.P_SN_STATUS.STATION_TYPE%TYPE; V_WO IMES.P_SN_STATUS.WORK_ORDER%TYPE; V_MODEL IMES.P_SN_STATUS.MODEL%TYPE; V_WO_LINE IMES.P_SN_STATUS.LINE%TYPE; V_IPN IMES.P_SN_STATUS.IPN%TYPE; V_KOLDATA VARCHAR2(10); V_SQL varchar2(4000); V_WO_COLOR IMES.M_PART.PRODUCTDESCCOLOR1%TYPE; V_CUSTRULE varchar2(200); BEGIN TCONTENT:='{'; IMES.SP_MES_GET_STATION_INFO_V1(T_STATIONNAME, V_LINE, V_STAGE, V_STATION_TYPE, V_MODEL, TRES); IF TRES <>'OK' THEN GOTO ENDP; END IF; SELECT COUNT(1) INTO V_COUNT FROM IMES.P_SN_STATUS WHERE SERIAL_NUMBER=T_SN ; IF V_COUNT =0 THEN TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE('A0001', 'ZH', T_SN); GOTO ENDP; END IF; SELECT WORK_ORDER,MODEL,IPN INTO V_WO,V_MODEL,V_IPN FROM IMES.P_SN_STATUS WHERE SERIAL_NUMBER=T_SN; TCONTENT:=TCONTENT||'"TWO":"'||V_WO||'"'; TCONTENT:=TCONTENT||',"TMODEL":"'||V_MODEL||'"'; TCONTENT:=TCONTENT||',"TIPN":"'||V_IPN||'"'; SELECT COUNT(1) INTO V_COUNT FROM IMES.P_WO_BASE WHERE WORK_ORDER=V_WO; IF V_COUNT =0 THEN TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE('A0714', 'ZH', V_WO); GOTO ENDP; END IF; SELECT LINE INTO V_WO_LINE FROM IMES.P_WO_BASE WHERE WORK_ORDER=V_WO; TCONTENT:=TCONTENT||',"TWOLINE":"'||V_WO_LINE||'"'; SELECT COUNT(1) INTO V_COUNT FROM IMES.M_PART WHERE IPN=V_IPN; IF V_COUNT =0 THEN TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE('A0005', 'ZH', ''); GOTO ENDP; END IF; SELECT DECODE (UPPER (SUBSTR (RADIO, -2, 2)), 'NK', 'NK', 'K'),PRODUCTDESCCOLOR1 INTO V_KOLDATA,V_WO_COLOR FROM IMES.M_PART WHERE IPN=V_IPN; TCONTENT:=TCONTENT||',"TKOLDATA":"'||V_KOLDATA||'"'; TCONTENT:=TCONTENT||',"TWOCOLOR":"'||V_WO_COLOR||'"'; --特定属性 SELECT COUNT(1) INTO V_COUNT FROM IMES.M_BLOCK_CONFIG_TYPE A, IMES.M_BLOCK_CONFIG_VALUE B WHERE A.CONFIG_TYPE_NAME = 'Config_AssemblyWork_SN_ATTR_SQL' AND A.ENABLED = 'Y' AND B.ENABLED = 'Y' AND A.CONFIG_TYPE_ID = B.CONFIG_TYPE_ID AND (B.LINE IS NULL OR B.LINE = '*') AND B.STATION_TYPE = V_STATION_TYPE AND B.MODEL IN ('*', V_MODEL); IF V_COUNT>0 THEN FOR CURR_SQL IN (SELECT B.CONFIG_VALUE ATTR_SQL,B.CONFIG_NAME ATTR_NAME FROM IMES.M_BLOCK_CONFIG_TYPE A, IMES.M_BLOCK_CONFIG_VALUE B WHERE A.CONFIG_TYPE_NAME = 'Config_AssemblyWork_SN_ATTR_SQL' AND A.ENABLED = 'Y' AND B.ENABLED = 'Y' AND A.CONFIG_TYPE_ID = B.CONFIG_TYPE_ID AND (B.LINE IS NULL OR B.LINE = '*') AND B.STATION_TYPE = V_STATION_TYPE AND B.MODEL IN ('*', V_MODEL) ORDER BY MODEL DESC) LOOP V_SQL:= CURR_SQL.ATTR_SQL; IF INSTR(V_SQL, '@SN') > 0 THEN V_SQL := REPLACE(V_SQL, '@SN', '''' || T_SN || ''''); END IF; IF INSTR(V_SQL, '@STATION_NAME') > 0 THEN V_SQL := REPLACE(V_SQL, '@STATION_NAME', '''' || T_STATIONNAME || ''''); END IF; IF INSTR(V_SQL, '@STATION_TYPE') > 0 THEN V_SQL := REPLACE(V_SQL, '@STATION_TYPE', '''' || V_STATION_TYPE || ''''); END IF; IF INSTR(V_SQL, '@LINE') > 0 THEN V_SQL := REPLACE(V_SQL, '@LINE', '''' || V_MODEL || ''''); END IF; IF INSTR(V_SQL, '@MODEL') > 0 THEN V_SQL := REPLACE(V_SQL, '@MODEL', '''' || V_MODEL || ''''); END IF; EXECUTE IMMEDIATE V_SQL INTO V_CUSTRULE; TCONTENT:=TCONTENT||',"'||CURR_SQL.ATTR_NAME||'":"'||V_CUSTRULE||'"'; END LOOP; END IF; <<ENDP>> NULL; TCONTENT:=TCONTENT||'}'; EXCEPTION WHEN OTHERS THEN TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE('B0001', 'ZH', 'SP_MES_GET_SN_ATTR_INFO#'||DBMS_UTILITY.FORMAT_ERROR_BACKTRACE ); END; /
最新发布
07-30
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值