Oracle 存储过程 常用

最新推荐文章于 2024-06-05 16:17:52 发布
原创 最新推荐文章于 2024-06-05 16:17:52 发布 · 208 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。 

CREATE OR REPLACE 
PROCEDURE CVCI_PANA_TRACE_XML( xml_data IN CLOB )
  IS
    line_name         VARCHAR(20);
    line_side         CHAR(1);
    front_char        CHAR(2);
    rear_char         CHAR(2);
    str_length        INT;
    l_xml_source      XMLType;
    stage_no          INT;
    stage_number      INT;
    insert_header     INT;
    MachineName       VARCHAR(20);
    PCBBarcode        VARCHAR(200);
    ProductName       VARCHAR(200);
    ProduceTime       VARCHAR(200);
    insert_PlacementCount INT;

    TYPE rec_header_data IS RECORD (
    plant_code        VARCHAR(10),
    mount_side        VARCHAR(5),
    machine_name      VARCHAR(5),
    lane_no           VARCHAR(5),
    boardnumber       VARCHAR(200),
    wip_sn            VARCHAR(50),
    program_name      VARCHAR(50),
    create_date       VARCHAR(30),
    line_mode         VARCHAR(10),
    job_status        VARCHAR(2),
    vendor_type       VARCHAR(10),
    last_machine      VARCHAR(5),
    stage_no          VARCHAR(5),
    entry_time        VARCHAR(30),
    release_time      VARCHAR(30),
    model_name        VARCHAR(50)
    );

    TYPE type_header_data IS TABLE OF rec_header_data INDEX BY BINARY_INTEGER;
    l_header_data_list type_header_data;

    TYPE rec_part_data IS RECORD (
    table_no          VARCHAR(5),
    slot_no           VARCHAR(5),
    sub_slot_no       VARCHAR(5),
    material_id       VARCHAR(50),
    parents_material_id VARCHAR(50),
    part_no           VARCHAR(50),
    real_part_no      VARCHAR(50),
    lot_code          VARCHAR(50),
    vendor_code       VARCHAR(50),
    data_code         VARCHAR(50),
    left_quantity     INT,
    operator_id       VARCHAR(50),
    used_time         VARCHAR(30),
    scan_time         VARCHAR(30),
    location_no       VARCHAR(50),
    pattern_no        INT
    );

  TYPE type_part_data IS TABLE OF rec_part_data INDEX BY binary_integer;
  l_part_data_list type_part_data;

BEGIN
  insert_header := 1;
  insert_PlacementCount := 0;
  l_xml_source := XMLType(xml_data);
  front_char := '_S';
  rear_char := '_C';
  line_name := l_xml_source.EXTRACT('/message/header/location/@routeName').getStringVal();
  MachineName := l_xml_source.EXTRACT('/message/header/location/@machineName').getStringVal();
  PCBBarcode := l_xml_source.EXTRACT('/message/body/panel/@pcbID').getStringVal();
  ProductName := l_xml_source.EXTRACT('/message/body/panel/@productName').getStringVal();
  ProduceTime := l_xml_source.EXTRACT('/message/body/panel/@startTime').getStringVal();
  stage_no := l_xml_source.EXTRACT('/message/body/stageNo/@value').getNumberVal();
  stage_number := l_xml_source.EXTRACT('/message/body/stageNo/@number').getNumberVal();
    -- Start Process XML data
  DBMS_OUTPUT.PUT_LINE('Parse XML ID:' || PCBBarcode || ' Line:' || line_name || ' Mc:' || MachineName || ' Stage:' || stage_no || ' Stage_Total:' || stage_number  || ' ProductName:' || ProductName  || ' ProduceTime:' || ProduceTime);
  str_length := LENGTH(line_name);
  IF (INSTR(line_name, front_char, -1, 1) = (str_length - 1) OR INSTR(line_name, rear_char, -1, 1) = (str_length - 1)) THEN
    line_side := SUBSTR(line_name,-1, 1);
    line_name := SUBSTR(line_name, 0, str_length - 2);
  ELSE
    line_side := l_xml_source.EXTRACT('/message/body/panel/@productSide').getStringVal();
  END IF;
  
  IF (stage_number >0 AND stage_no < stage_number) THEN
    insert_header := 0; 
  END IF;

  SELECT
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@factoryName') AS plant_code,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@productSide') AS mount_side,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@machineName') AS machine_name,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@laneNo') AS lane_no,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@pcbID') AS boardnumber,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@pcbID') AS wip_sn,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@productName') AS program_name,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@startTime') AS create_date,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@machineMode') AS line_mode,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@jobStatus') AS job_status,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@vendorType') AS vendor_type,
    EXTRACTVALUE(VALUE(xml_body), '/message/header/location/@lastMachine') AS last_machine,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/stageNo/@output') AS stage_no,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@startTime') AS entry_time,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@endTime') AS release_time,
    EXTRACTVALUE(VALUE(xml_body), '/message/body/panel/@modelStr') AS model_name
  BULK COLLECT
  INTO l_header_data_list
  FROM TABLE(XMLSEQUENCE(EXTRACT(l_xml_source, '/message'))) xml_body;
  -- Insert Barcode into R_CVCI_BOARD_UNIT_INFO_T Table
  DBMS_OUTPUT.PUT_LINE('Start Insertion Table:UNIT_INFO_ ID:' || PCBBarcode || ' Mc:' || MachineName || ' Stage:' || stage_no);
  IF (l_header_data_list.COUNT > 0 AND insert_header = 1) THEN
    FOR i IN l_header_data_list.FIRST..l_header_data_list.LAST LOOP
      INSERT INTO CIMR.R_CVCI_BOARD_UNIT_INFO_T(
        PLANT_CODE,
        LINE_NAME,
        LINE_SIDE,
        MOUNT_SIDE,
        MACHINE_NAME,
        LANE_NO,
        BOARDNUMBER,
        WIP_SN,
        PROGRAM_NAME,
        CREATE_DATE,
        LINE_MODE,
        JOB_STATUS,
        VENDOR_TYPE ,
        LAST_MACHINE
      )
      VALUES (
        l_header_data_list(i).plant_code,
        line_name,
        line_side,
        l_header_data_list(i).mount_side,
        l_header_data_list(i).machine_name,
        l_header_data_list(i).lane_no,
        l_header_data_list(i).boardnumber,
        l_header_data_list(i).wip_sn,
        l_header_data_list(i).program_name,
        CAST(to_timestamp_tz(l_header_data_list(i).create_date,'MM/DD/YYYY HH24:MI:SS TZD') AS DATE),
        l_header_data_list(i).line_mode,
        l_header_data_list(i).job_status,
        l_header_data_list(i).vendor_type,
        l_header_data_list(i).last_machine
      );
    END LOOP;
  END IF;
  DBMS_OUTPUT.PUT_LINE('End__ Insertion Table:UNIT_INFO_ ID:' || PCBBarcode || ' Mc:' || MachineName || ' Stage:' || stage_no);
  SELECT
    EXTRACTVALUE(VALUE(xml_list), '/placement/@tableNo') AS table_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@p3') AS slot_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@p4') AS sub_slot_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@id') AS material_id,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@userdata3') AS parents_material_id,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@part') AS part_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@userdata4') AS real_part_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@lot') AS lot_code,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@vendor') AS vendor_code,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@userdata') AS data_code,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@qty') AS left_quantity,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@userdata5') AS operator_id,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@usedTime') AS used_time,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@timeon') AS scan_time,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@refDes') AS location_no,
    EXTRACTVALUE(VALUE(xml_list), '/placement/@pos') AS pattern_no
  BULK COLLECT
  INTO l_part_data_list
  FROM TABLE(XMLSEQUENCE(EXTRACT(l_xml_source, '/message/body/Placements/placement'))) xml_list;
-- Insert Barcode into R_CVCI_BOARD_TRACE_INFO_T Table
  DBMS_OUTPUT.PUT_LINE('Start Insertion Table:TRACE_INFO ID:' || PCBBarcode || ' Mc:' || MachineName || ' Stage:' || stage_no);
    IF (l_part_data_list.COUNT > 0) THEN
      FOR i IN l_part_data_list.FIRST..l_part_data_list.LAST LOOP
        IF(l_part_data_list(i).material_id is not null) THEN
          IF(l_part_data_list(i).real_part_no is not null) THEN
            l_part_data_list(i).part_no := l_part_data_list(i).real_part_no;
          END IF;
          INSERT INTO CIMR.R_CVCI_BOARD_TRACE_INFO_T(
            PLANT_CODE,
            LINE_NAME,
            LINE_SIDE,
            MOUNT_SIDE,
            MACHINE_NAME,
            STAGE_NO,
            LANE_NO,
            TABLE_NO,
            SLOT_NO,
            SUB_SLOT_NO,
            BOARDNUMBER,
            WIP_SN,
            PROGRAM_NAME,
            PATTERN_NO,
            MATERIAL_ID,
            PART_NO,
            LOT_CODE,
            VENDOR_CODE,
            DATA_CODE,
            LOCATION_NO,
            LEFT_QUANTITY,
            OPERATOR_ID,
            ENTRY_TIME,
            RELEASE_TIME,
            MODEL_NAME,
            PATTERNNUMBER,
            USED_TIME,
            SCAN_TIME,
            PARENT_REEL
          )
          VALUES (
            l_header_data_list(1).plant_code,
            line_name,
            line_side,
            l_header_data_list(1).mount_side,
            l_header_data_list(1).machine_name,
            l_header_data_list(1).stage_no,
            l_header_data_list(1).lane_no,
            l_part_data_list(i).table_no,
            LPAD(l_part_data_list(i).slot_no,4,'0'),
            l_part_data_list(i).sub_slot_no,
            l_header_data_list(1).boardnumber,
            l_header_data_list(1).wip_sn,
            l_header_data_list(1).program_name,
            NVL(l_part_data_list(i).pattern_no,0),
            NVL(l_part_data_list(i).material_id,0),
            NVL(l_part_data_list(i).part_no,0),
            NVL(l_part_data_list(i).lot_code,0),
            NVL(l_part_data_list(i).vendor_code,0),
            NVL(l_part_data_list(i).data_code,0),
            NVL(l_part_data_list(i).location_no,0),
            NVL(l_part_data_list(i).left_quantity,0),
            NVL(l_part_data_list(i).operator_id,0),
            CAST(to_timestamp_tz(l_header_data_list(1).entry_time,'MM/DD/YYYY HH24:MI:SS TZD') AS DATE),
            CAST(to_timestamp_tz(l_header_data_list(1).release_time,'MM/DD/YYYY HH24:MI:SS TZD') AS DATE),
            SUBSTR(l_header_data_list(1).model_name,0,15),
            NVL(l_part_data_list(i).pattern_no,0),
            CAST(to_timestamp_tz(l_part_data_list(i).used_time,'YYYY/MM/DD HH24:MI:SS TZD') AS DATE),
            CAST(to_timestamp_tz(l_part_data_list(i).scan_time,'YYYY/MM/DD HH24:MI:SS TZD') AS DATE),
            l_part_data_list(i).parents_material_id
          );
          insert_PlacementCount := insert_PlacementCount + 1;
        END IF;
      END LOOP;
    END IF;
  DBMS_OUTPUT.PUT_LINE('End__ Insertion Table:TRACE_INFO ID:' || PCBBarcode || ' Mc:'|| MachineName ||' Stage:' || stage_no || ' PlacementCount:' || insert_PlacementCount);
END;

 

oracle存储过程常用技巧
06-16
Oracle存储过程常用技巧 Oracle存储过程是一种强大的数据库对象，它可以帮助开发者简化复杂的业务逻辑，并提高数据库的安全性和性能。在 Oracle 中，存储过程是一种特殊的 PL/SQL 程序，它可以接受输入参数，执行...
oracle存储过程常用的技巧（详）
09-10
学习和熟练掌握这些Oracle存储过程的常用技巧，将极大地提升你在数据库管理和开发中的效率和能力。通过实践，你可以创建复杂的业务逻辑，实现更高效的数据操作，同时降低网络通信成本，提高系统的响应速度。
oracle 常用存储过程
baimanmu3398的博客
02-23 125
普通存储过程，无任何参数CREATE OR REPLACE PROCEDURE EMP_COUNT AS V_TOTAL NUMBER(10); BEGIN SELECT COUNT(*) INTO V_TOTAL FROM EMP; DBMS_OUTPUT.PUT_LINE('雇员总人数为：'||V_TOTAL); END; -...
【Oracle】常用对象之存储过程
小确幸的博客
03-12 1141
曾几何时，上级领导强烈建议我们有时间要往全栈的方向发展发展，作为有志向不怕秃的程序员，不能只撸得来Java代码，操作得了数据库，懂得些Linux运维，还要考虑考虑流行的前端，比如VUE、React、AngularJS等热门框架。 好吧，我承认一开始对前端是毫无兴趣的，什么前端界面，什么JS，我只想安安静静的做个后端bug制造者~。然而随着时间的流逝，全栈似乎成为了一个程序员不得不思考的问题，也许往全栈发展不能给你涨工资，也不能给你升职，但长远来看确是很有价值的。曾经花了一段时间思考这个问题，决定尝试性去学
oracle 存储过程常用,几个常用的Oracle存储过程
weixin_39715187的博客
04-02 229
初学Oracle,了解了一下Oracle的存储过程，运行了几个例子，做个备忘，方便以后使用：1、插入数据：向一张表里插入若干条数据/*创建表tb1包含两个字段col1、col2*/create table tb1(col1 char(20),col2 char(20));/*插入数据的存储过程*/CREATE OR REPLACE PROCEDURE INSERTAMOUNTTEST(ST_NUM...
Oracle存储过程
最新发布
weixin_50835854的博客
06-05 6678
这段时间实习，公司要使用存储过程，以前没接触过以为是啥高大上的技术，后来学习了一下，其实就是将一堆SQL命令打个包，下一次遇到类似的情况直接运行整个包也就是存储过程，然后就可以达到同样的效果。存储过程还可以和编程代码一样写比较复杂的逻辑，但是由于我最近并没有用到，所以咱是就记录这么多，以后用到了再补。
oracle存储过程详解
qq_31874627的博客
03-22 4197
在Oracle中，创建带参数的存储过程通常涉及到定义输入（IN）、输出（OUT）或输入输出（IN OUT）参数，并在存储过程的主体中使用这些参数。以下是一个简单的Oracle存储过程示例，它接受一个输入参数（一个数字），计算这个数字的平方，并通过一个输出参数返回结果。Oracle SQL Developer提供了一个强大的调试器，允许你逐步执行存储过程代码，查看变量值，设置断点等。这有助于增强代码的可维护性和可读性。游标的使用通常会增加存储过程的复杂性和执行时间，因此应谨慎使用，特别是在处理大量数据时。
oracle存储过程常用的一些功能
01-07
根据提供的文件信息，以下是对Oracle存储过程常用功能的详细解读及使用技巧的总结： ### Oracle 存储过程：概述 存储过程是预先编译并存储在数据库中的SQL语句和PL/SQL代码块集合，可以在应用程序中通过名称来调用...
oracle 去掉小数点后面的0,mssql sqlserver如何去掉小数点后面多余的0呢?
weixin_42300113的博客
04-04 2610
摘要：下文讲述sqlserver数据库中去掉小数点后面多余0的方法分享，如下所示；实现思路:方式1：将数值转换为real类型即可cast(@a as real)或convert(real,@a)方式2:通过编写自定义函数处理多余的零/*自定义函数的实现原理:/*匹配出连续零的位置*/patindex('%[^0]%',reverse(@a)通过反转，然后把反转后字符串左边所有的零剔除掉*/例:de...
Oracle存储过程及调用
热门推荐
ywl470812087的博客
02-02 15万+
Oracle存储过程语法 Oracle的存储过程语法如下： ? 1 2 3 4 5 6 create procedure 存储过程名称（随便取） is 在这里可以定义常量、变量、游标、复杂数据类型这里可以定义变量、常量 begin 执行部分 end; ...
Oracle存储过程详细教程
最初的节奏
01-19 8万+
Oracle存储过程详细教程 点关注不迷路，欢迎再访！ 目录Oracle存储过程详细教程一 .创建存储过程语法二.输出案例三.调用存储过程3.1 声明declare关键字3.2不声明declare关键字3.3call四.带有参数的存储过程五.in，out参数问题六.异常写法七.循环7.1while 循环7.2for循环八.基本正删改查 一 .创建存储过程语法 create or rep......
ORACLE存储过程
weixin_44740485的博客
10-28 4万+
目录一、存储过程的创建二、存储过程语法说明1.存储过程的基本结构2.变量的声明和赋值三、流程控制语句四、循环控制语句 本文是基于oracle编写的存储过程，以下所说的存储过程均为oracle中的存储过程，以及下面所说的存过都是存储过程的简称 一、存储过程的创建 创建存储过程的方式两种，一种是基于PLSQL创建，一种是ORACLE语法创建 PLSQL创建步骤： 1.连接plsql 2、找到左边对象下的procedures，点击右键 3、点击新建进入到创建存过页面 4、填写存储过程名称以及输入参数和输出
oracle 存储过程常用,Oracle 存储过程整理及常用几种示例
weixin_34504649的博客
04-02 362
参考了以下文章，对 Oracle 存储过程常用语法的一个总结，和需要注意的一些问题【下面的存储过程不是按照参考文章的顺序，网页展示的存储过程可能会有点乱，需要拷到plsql 中看】：一：ORACLE 存储过程二：简述%TYPE 和 %ROWTYPE 的用法三：Oracle 基本数据类型四：Oracle存储过程in、out、in out 模式参数五：oracle 存储过程的基本语法六：Oracle ...
在Oracle的XMLType里查询数据
rrrrssss00的专栏
06-25 3252
XMLtype的查询操作: 查询对象样例：表名：etab，第一列为varchar2() 名称为id,第二列为xmltype 列名为xmlcol， 其中一行为，id字段的值为:aa xmlcol字段的值为: 02B BRA CCD 2003-06-30 22:12:24 448   1:extract 作用:提取出XML串中指定
Oracle 存储过程整理及常用几种示例
qq_38793144的博客
06-27 1928
参考了以下文章，对Oracle 存储过程的一个总结，和需要注意的一些问题【下面的存储过程不是按照参考文章的顺序，网页展示的存储过程可能会有点乱，需要拷到plsql 中看】： 一：ORACLE 存储过程 二：简述%TYPE 和 %ROWTYPE 的用法 三：Oracle 基本数据类型 四：Oracle存储过程in、out、in out 模式参数 五：oracle 存储过程的基本语法 六：...
比较常用的Oracle存储过程
lv941002的博客
09-21 933
#输出多行多列 create or replace procedure sp_for_emp(v_empno in number, v_out out sys_refcursor) as begin open v_out for select * from emp where empno; exce...
Oracle存储过程详解：常用技巧与示例
本文将深入探讨Oracle存储过程的常用技巧，包括其基本结构、参数传递方式、游标处理、异常处理以及集合操作等关键点，旨在帮助读者更好地理解和应用存储过程。 1. 存储过程的基本结构 创建存储过程的语法通常以`...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值