在SQL开发人员的“运行”窗口中运行代码片段时,它工作正常,并在底部的OutputVaribles部分中显示out。但是当从SQL文件运行该过程时,它已成功完成但未显示输出
set serveroutput on
DECLARE
INTCHARTIDS DDI.P_CHARTS_QUERY.ARRAYINTCHARTIDS;
A DDI.P_CHARTS_QUERY.CURSOROBJECT;
B DDI.P_CHARTS_QUERY.CURSOROBJECT;
C DDI.P_CHARTS_QUERY.CURSOROBJECT;
D DDI.P_CHARTS_QUERY.CURSOROBJECT;
E DDI.P_CHARTS_QUERY.CURSOROBJECT;
F DDI.P_CHARTS_QUERY.CURSOROBJECT;
G DDI.P_CHARTS_QUERY.CURSOROBJECT;
H DDI.P_CHARTS_QUERY.CURSOROBJECT;
I DDI.P_CHARTS_QUERY.CURSOROBJECT;
BEGIN
INTCHARTIDS(1):=2568;
DDI.P_CHARTS_QUERY.OPENCHARTS(INTCHARTIDS=>INTCHARTIDS,
INTUNITSYSTEMID=>30,
INTEDITEDBY=>1565,
INTOPENMODE=>1,
CHARTOBJECT=>A,
CHARTAXISOBJECT=>B,
CHARTSERIESOBJECT=>C,
CHARTSERIESRUNOBJECT=>D,
CHARTSUBSETOBJECT=>E,
CHARTSUBSETDATAOBJECT=>F,
CHARTANNOTATIONOBJECT=>G,
CHARTSERIESCONTROLRUNOBJECT=>H,
CHARTSERIESRUNGROUPOBJECT=>I
);
END;
答案 0 :(得分:0)
我找到了答案。
我尝试了多种选择,但现在知道我需要在程序结束时输入正斜杠(/)。然后可以将输出分配给游标变量。
set serveroutput on;
VAR CHARTOBJECT refcursor;
VAR CHARTAXISOBJECT refcursor;
VAR CHARTSERIESOBJECT refcursor;
VAR CHARTSERIESRUNOBJECT refcursor;
VAR CHARTSUBSETOBJECT refcursor;
VAR CHARTSUBSETDATAOBJECT refcursor;
VAR CHARTANNOTATIONOBJECT refcursor;
VAR CHARTSERIESCONTROLRUNOBJECT refcursor;
VAR CHARTSERIESRUNGROUPOBJECT refcursor;
DECLARE
INTCHARTIDS DDI.P_CHARTS_QUERY.ARRAYINTCHARTIDS;
A DDI.P_CHARTS_QUERY.CURSOROBJECT;
B DDI.P_CHARTS_QUERY.CURSOROBJECT;
C DDI.P_CHARTS_QUERY.CURSOROBJECT;
D DDI.P_CHARTS_QUERY.CURSOROBJECT;
E DDI.P_CHARTS_QUERY.CURSOROBJECT;
F DDI.P_CHARTS_QUERY.CURSOROBJECT;
G DDI.P_CHARTS_QUERY.CURSOROBJECT;
H DDI.P_CHARTS_QUERY.CURSOROBJECT;
I DDI.P_CHARTS_QUERY.CURSOROBJECT;
BEGIN
INTCHARTIDS(1):=2619;
-- INTCHARTIDS(2):=2572;
-- INTCHARTIDS(3):=2573;
DDI.P_CHARTS_QUERY.OPENCHARTS(INTCHARTIDS=>INTCHARTIDS,
INTUNITSYSTEMID=>30,
INTEDITEDBY=>1565,
INTOPENMODE=>1,
CHARTOBJECT=>:CHARTOBJECT,
CHARTAXISOBJECT=>:CHARTAXISOBJECT,
CHARTSERIESOBJECT=>:CHARTSERIESOBJECT,
CHARTSERIESRUNOBJECT=>:CHARTSERIESRUNOBJECT,
CHARTSUBSETOBJECT=>:CHARTSUBSETOBJECT,
CHARTSUBSETDATAOBJECT=> :CHARTSUBSETDATAOBJECT,
CHARTANNOTATIONOBJECT=>:CHARTANNOTATIONOBJECT,
CHARTSERIESCONTROLRUNOBJECT=>:CHARTSERIESCONTROLRUNOBJECT,
CHARTSERIESRUNGROUPOBJECT=>:CHARTSERIESRUNGROUPOBJECT
);
END;
/
Print CHARTOBJECT ;
Print CHARTAXISOBJECT ;
Print CHARTSERIESOBJECT ;
Print CHARTSERIESRUNOBJECT ;
Print CHARTSUBSETOBJECT ;
Print CHARTSUBSETDATAOBJECT ;
Print CHARTANNOTATIONOBJECT ;
Print CHARTSERIESCONTROLRUNOBJECT ;
Print CHARTSERIESRUNGROUPOBJECT ;