Query to find the current running sql query of the concurrent program

select hash_value,sql_text
from v$sqltext
where hash_value in (select vs.sql_hash_value
                    from v$session vs
                    where vs.module like '%CONC_PRGO_SHORT_NAME%')
order by hash_value,piece;