CODE FOR RUNNING CONCURRENT PROGRAM FROM BACK END

DECLARE
  l_success NUMBER;
BEGIN
  fnd_global.apps_initialize( 1013418, 65769, 20067 );
  l_success :=fnd_request.submit_request ('CT', -- Application Short name of the Concurrent Program.check short name for CT custom is 'CT'
  'TEST_BE_P', -- Program Short Name.
  'this is sample new',--description to be displayed(optional)
  SYSDATE,                                             -- Submitted date. Always give the SYSDATE.
  FALSE                                                -- Always give the FALSE.
  );--parameters list );
  IF l_success = 0 THEN
     fnd_file.put_line (fnd_file.LOG, 'Request submission For this store FAILED' );
    --DBMS_OUTPUT.PUT_LINE( l_success||'Request submission For this store FAILED' );
  ELSE
     fnd_file.put_line (fnd_file.LOG, l_success||'Request submission for this store SUCCESSFUL');
    DBMS_OUTPUT.PUT_LINE( l_success||'Request submission For this store SUCCESSFUL' );
  END IF;
END;
/
--a request id will be generated its a sequence number
COMMIT;
/
--procedure given for concurrent program
create or replace procedure test_860(ERRBUF              OUT VARCHAR2,
                              RETCODE             OUT NUMBER)
as
begin
dbms_output.put_line('hello ');
fnd_file.put_line (fnd_file.output, 'Request submission For this store SUCCESS' );
fnd_file.put_line (fnd_file.LOG, 'Request submission for this store SUCCESSFUL');
end;