TYPE BODY: SYSTEM.IEO_SVR_INFO_OBJ

Source

1 TYPE BODY IEO_SVR_INFO_OBJ AS
2   MEMBER FUNCTION is_valid  RETURN BOOLEAN
3     IS
4       b_flag BOOLEAN := TRUE;
5     BEGIN
6       IF (SERVER_NAME IS NULL OR SERVER_NAME = '')
7       THEN
8         b_flag := FALSE;
9       END IF;
10       RETURN b_flag;
11     END is_valid;
12 
13 /*
14   MEMBER PROCEDURE print
15     IS
16     BEGIN
17       dbms_output.put_line('NAME: '|| SERVER_NAME ||
18                            ' USER_ADDR ' || USER_ADDR ||
19                            ' DNS_NAME ' || DNS_NAME ||
20                            ' IP_ADDR ' || IP_ADDR ||
21                            ' PORT ' || TO_CHAR(PORT) ||
22                            ' COMP_NAME ' || COMP_NAME ||
23                            ' STATUS ' || TO_CHAR(STATUS) ||
24                            ' LAST_UPDATE ' || TO_CHAR(LAST_UPDATE) ||
25                            ' MAJOR_LOAD ' || TO_CHAR(MAJOR_LOAD) ||
26                            ' MINOR_LOAD ' || TO_CHAR(MINOR_LOAD) );
27     END print;
28 */
29 END;