报表对应程序包查询

SELECT Cpv.User_Concurrent_Program_Name
       ,Cpv.Creation_Date
       ,Ds.Name
       ,Ds.line 
       ,Ds.Text
       --select count(1) 
   FROM Dba_Source                 Ds
       ,Fnd_Executables_Form_v     Efv
       ,Fnd_Concurrent_Programs_Vl Cpv
  WHERE ds.TYPE = 'PACKAGE BODY'
    and Ds.Name = Upper(Substrb(Efv.Execution_File_Name
                               ,1
                               ,Instrb(Efv.Execution_File_Name
                                      ,'.') - 1))
    AND Efv.Executable_Id = Cpv.Executable_Id
    and  Efv.Execution_File_Name like 'CUX%';