1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| DECLARE
l_dad VARCHAR2(30) := 'monwp';
l_path VARCHAR2(30) := '/monwp/*';
l_dbUser VARCHAR2(30) := 'monwp';
l_docTable VARCHAR2(30) := 'monwp.UPLOADED_DOCUMENTS';
l_authMode VARCHAR2(30) := 'Basic';
l_attrNames DBMS_EPG.VARCHAR2_TABLE;
l_attrValues DBMS_EPG.VARCHAR2_TABLE;
BEGIN
l_dbUser := UPPER(l_dbUser);
BEGIN
DBMS_EPG.DROP_DAD(l_dad);
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
DBMS_EPG.CREATE_DAD
( dad_name => l_dad,
path => l_path );
DBMS_EPG.SET_DAD_ATTRIBUTE
( dad_name => l_dad,
attr_name => 'database-username',
attr_value => l_dbUser);
DBMS_EPG.SET_DAD_ATTRIBUTE
( dad_name => l_dad,
attr_name => 'authentication-mode',
attr_value => l_authMode);
DBMS_EPG.SET_DAD_ATTRIBUTE
( dad_name => l_dad,
attr_name => 'document-table-name',
attr_value => l_docTable );
DBMS_EPG.AUTHORIZE_DAD
( dad_name => l_dad,
user => l_dbUser );
DBMS_EPG.GET_ALL_DAD_ATTRIBUTES(l_dad,l_attrNames,l_attrValues);
FOR i IN 1..l_attrNames.COUNT LOOP
DBMS_OUTPUT.PUT_LINE(LPAD(l_attrNames(i),20)||' : '||l_attrValues(i));
END LOOP;
END; |
Partager