PROCEDURE: SYS.SUBPTXT2

Source

1 procedure     subptxt2(name varchar2, subname varchar2, usr varchar2,
2                              dbname varchar2, dbowner varchar2,
3                              txt in out varchar2) is
4 status diutil.ub4;
5 
6 begin -- main
7     diutil.subptxt(name, subname, usr, dbname, dbowner, txt, status);
8     if (status <> diutil.s_ok) then
9         if (status = diutil.s_subpNotFound) then
10             txt := '$$$ s_subpNotFound';
11         elsif (status = diutil.s_stubTooLong) then
12             txt := '$$$ s_stubTooLong';
13         elsif (status = diutil.s_logic) then
14             txt := '$$$ s_logic';
15         elsif (status = diutil.s_notInPackage) then
16             txt := '$$$ s_notInPackage';
17         else txt := '$$$ s_other';
18         end if;
19     end if;
20 end subptxt2;