紧急求助:如何在PB7中执行输出参数为光标结果集的ORACLE存储过程
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;