oracle包程序编写

由于工作关系，好久没有进行知识整理了，近期正好在进行oracle 编程，那就对这方面内容进行整理吧！

根据以下程序来说明介绍：

CREATE OR REPLACE PACKAGE RN_DEFINE_API AS  ---这句是创建包头的开始

---定义全局变量 

 contract_ CONSTANT VARCHAR(5) := 'CHENYING';

---在包头定义存储过程和函数名，没有具体的过程

  PROCEDURE TravesalManuf_(product_ VARCHAR2);

  PROCEDURE CreateBomTable_(partno_ IN VARCHAR2);

  FUNCTION ComputePartNum_(str_ IN VARCHAR2) RETURN NUMBER;

  FUNCTION GetLastLaneDate_(orderNo_ IN VARCHAR2) RETURN DATE;

END;   ---包头的结束

/       ---在PL/SQL中 运行程序必写

 

CREATE OR REPLACE PACKAGE BODY RN_DEFINE_API IS

PROCEDURE TravesalManuf_(product_ VARCHAR2) IS
BEGIN

---以表字段类型来定义变量

DECLARE v_partno manuf_structure.part_no%TYPE;

---定义游标

CURSOR list_Cursor IS
SELECT DISTINCT part_no FROM manuf_structure t WH