1: package wpiutl as
2: TYPE tvarchar IS table of varchar2(512) index by binary_integer;
3: TYPE tvchar3 IS table of VARCHAR2(3) index by binary_integer; 4: SUBTYPE ptnod IS pidl.ptnod; 5:
6: -- Constant for errors
7: s_ok CONSTANT NUMBER := 0; -- successful
8: s_subpnotfound CONSTANT NUMBER := 1; -- subprogram NOT found