Oracle过程的使用，调用函数，调用过程，使用游标

1、创建通常的过程：

    

 

 

create or replace procedure  过程名
(

--定义参数,格式(参数名  进出类型(in,out,inout)  数据类型,)
 p_kh      in t_djls.kh%type, --卡号
  p_id      in t_kcsm.id%type, --输入id
  p_sm      out t_kcsm.sm%type, --返回书名
  p_dj      out t_kcsm.dj%type, --定价
  p_bbmc    out t_kcsm.bbmc%type, --版别名称
  p_kycs    out t_kcsl.kccs%type, --可用册数
  p_flowid  out t_dpls.flowid%type, --订单流水号
  p_sjcs    out t_dpls.sjcs%type, --订单册数
  p_qhcs    out t_dpls.qhcs%type, --期货册书
  p_gcbj    out number, --是否有馆藏库存 1有，0没有
  p_gcsl    out t_gckc.gcsl%type, ---返回图书馆管仓库存
  p_ccbj    out number,--返回同一个下游客户之间的查重，有重复为1，没有重复为0
  p_ccts    out varchar2,--返回查重信息。包含数量和卡号
  p_errcode out number, --错误代码0返回成功，-3没有可用库存，1已有采购信息修改，-4没有可用的书目信息
  p_errtext out varchar2 --错误内容
) is
  /*
  得到可用库存和书目信息
  2008-03-03
  ljg
  */

--定义过程内参数,一般只为临时使用 格式(参数名  数据类型;)
  v_uhlx     t_kcsm.uhlx%type := '0002'; --货权
  v_progress varchar2(200); --进度信息
  v_ddcs     t_kcsl.kccs%type; --订单册数
  v_isbn     t_kcsm.isbn%type; --书目的ISBN
  v_dh       t_djls.dh%type; --中盘店号
  v_xydh     t_djls.xydh%type; --下游店号
  v_gcsl