1 type body WF_AGENT_T as
2 MEMBER FUNCTION getName return varchar2 is
3 begin
4 return name;
5 end getName;
6
7 MEMBER FUNCTION getSystem return varchar2 is
8 begin
9 return system;
10 end getSystem;
11
12 MEMBER PROCEDURE setName(pName in varchar2) is
13 begin
14 name := upper(pName);
15 end setName;
16
17 MEMBER PROCEDURE setSystem(pSystem in varchar2) is
18 begin
19 system := upper(pSystem);
20 end setSystem;
21 end;