Is Globalport Enabled

WITH
FUNCTION b2vc (in_bool_expr VARCHAR2) RETURN VARCHAR2 IS
l_bool  BOOLEAN;
l_plsql VARCHAR2(32767);
l_ret   VARCHAR2(5);
BEGIN
l_plsql := 'BEGIN :l_bool := ' || in_bool_expr || '; END;';
EXECUTE IMMEDIATE l_plsql USING OUT l_bool;
IF l_bool IS NOT NULL THEN
IF l_bool THEN
    l_ret := 'TRUE';
ELSE
 l_ret := 'FALSE';
END IF;
END IF;
 RETURN l_ret;
END b2vc;
SELECT b2vc('DBMS_XDB_CONFIG.ISGLOBALPORTENABLED') FROM dual;
/