Create Directory same path as other directory

 

Begin

 For Cur_Rec In (select directory_path from DBA_DIRECTORIES where DIRECTORY_NAME='LDOUTPUT') Loop

    Begin

      Execute Immediate 'create or replace directory XMLDIR as '''|| Cur_Rec.directory_path ||'''';

      Execute Immediate 'create or replace directory DOCUMENT as '''|| Cur_Rec.directory_path ||'''';

    End;

  End Loop;

End;

/