紧急求助:如何在PB7中执行输出参数为光标结果集的ORACLE存储过程

alen952 2002-03-11 03:25:19
create or replace procedure aaa
(AS_SYSTEM_CD in VARCHAR2,
AS_FILE_CREATE_DATE in VARCHAR2,
AS_CHK_TYPE in VARCHAR2,
ACUR_GET_TRAILER in out PKG_LOCKBOX_RETRIEVE.LOCKBOX_GET_TRAILER_CUR)
as

begin
open ACUR_GET_TRAILER for
select TDC_DEPT_CD
,TDC_HDR_SEQ
,TDC_REC_TYPE
,TDC_STUB_COUNT
,TDC_STUB_AMOUNT
,TDC_CHEQUE_COUNT
,TDC_CHEQUE_AMOUNT
from TDC_LOCKBOX_TRAILER
where TDC_DEPT_CD = AS_SYSTEM_CD||AS_CHK_TYPE
and TDC_HDR_SEQ = AS_FILE_CREATE_DATE;
end

create or replace package PKG_LOCKBOX_RETRIEVE
as
type LOCKBOX_GET_HEADER_REC is record(
TDC_DEPT_CD TDC_LOCKBOX_HEADER.TDC_DEPT_CD%type,
TDC_HDR_SEQ TDC_LOCKBOX_HEADER.TDC_HDR_SEQ%type,
TDC_REC_TYPE TDC_LOCKBOX_HEADER.TDC_REC_TYPE%type,
TDC_BUSIN_DATE TDC_LOCKBOX_HEADER.TDC_BUSIN_DATE%type,
TDC_STATION_ID TDC_LOCKBOX_HEADER.TDC_STATION_ID%type,
TDC_CREATE_DATE TDC_LOCKBOX_HEADER.TDC_CREATE_DATE%type,
TDC_CREATE_TIME TDC_LOCKBOX_HEADER.TDC_CREATE_TIME%type
);

type LOCKBOX_GET_HEADER_CUR is ref cursor
return LOCKBOX_GET_HEADER_REC;

END PKG_LOCKBOX_RETRIEVE;
...全文
29 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
dreamfisher1 2002-06-06
  • 打赏
  • 举报
回复
我也有同样的问题,可是没有人能够告诉我的.:(

397

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 非技术版
社区管理员
  • 非技术版社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧