Query/Script to check Oracle Concurrent Program Status

set serveroutput on
declare
l_ret_status boolean;
l_request_id number:=12345678;
l_phase varchar2(200);
l_status varchar2(200);
l_dev_phase varchar2(200);
l_dev_status varchar2(200);
l_message varchar2(200);
l_app  varchar2(30) :='FND';
l_conc_prog varchar2(30):='FNDOAMCOL';
begin
l_ret_status := FND_CONCURRENT.GET_REQUEST_STATUS
(request_id     =>l_request_id,
                    appl_shortname => l_app,
                    program        => l_conc_prog,
                    phase          => l_phase,
                    status         => l_status,
                    dev_phase      => l_dev_phase,
                    dev_status     => l_dev_status,
                    message        => l_message);
dbms_output.put_line('Program : '||l_app||':'||l_conc_prog);
dbms_output.put_line('l_request_id : '||l_request_id);
dbms_output.put_line('l_phase : '||l_phase);
dbms_output.put_line('l_dev_phase : '||l_dev_phase);
dbms_output.put_line('l_dev_status : '||l_dev_status);
dbms_output.put_line('l_message : '||l_message);
end;