谁来帮我改改procedure!! 
Create OR replace procedure DingXin.GetWrt
(p_UserID in varchar2,p_ProgId out varchar2,p_progName out varchar2) is
progId varchar2(10);
ProgName varchar2(10);
begin
Select Prog_ID,Prog_Name into progId,ProgName From Prg_Lst Lst,Prg_wrt wrt
where wrt.User_ID=p_UserID and wrt.Prog_Id=Lst.Prog_Id;
p_Progid:=progId;
p_ProgName:=ProgName;
dbms_output.put_line(ProgId,progName);
end;这么写对么?哪里错了????
最好能返回数据集合!