[Forms]Oracle 9i, Comment lancer un job en arrière plan?

[salim11]

Salut,

En 9i, je cherche a lancer un job mais en arrière plan pour me permettre de continuer mon execution
j'ai trouvé ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
BACKGROUND_PROCESS 
Indicates whether execution IS a  background process OR foreground process.
 
FOR internal USE only. dbms_job.background_process RETURN BOOLEAN 
SET serveroutput ON
 
DECLARE
 b BOOLEAN;
BEGIN
  IF dbms_job.background_process THEN
    dbms_output.put_line('TRUE');
  ELSE
    dbms_output.put_line('FALSE');
END IF;

[plaineR]

Salut Salim,
Selon moi, les jobs lancés avec dbms_job sont tous asynchrones sauf si tu forces l'exécution avec dbms_job.run.

[salim11]

Salut PlaineR,

Merci pour ta réponse PlaineR.

Meme avec dbms_job.run je ne suis pas capable de prendre la main jusqu'a la fin d'execution de la procedure.

Voici ce que je veux: lancer le job avec dbms_job et recupérer la main pour f suivre l'éxecution de cette procédure.

Code :

1
2
3
4
5
dbms_job.isubmit('1245','lang_laufend;',sysdate,null);
   commit ;
   synchronize;
   dbms_job.run('1245')

Avec la 10g, quand je lance le job avec le dbms_scheduler il me rend la main et je suis capable de suivre la progression de l'execution de ma procédure.

[plaineR]

Vire le dbms_job.run et tu devrais récupérer la main aussitôt.

[salim11]

salut PlaineR,

Mais le problème il va la mettre dans une fille d'attente et je ne sais pas quand il va l'executer, Alors je ne peux pas suivre la progression de l'éxecution de ma procèdure

[plaineR]

Normalement il va l'exécuter à la date que tu lui as indiqué :

NEXT_DATE is the date at which the job will next be automatically run,
assuming there are background processes attempting to run it

=> il faut que tu vérifies que le paramètre job_queue_processes est correctement paramétré (normalement nombre maxi de job simultané + 1)

[salim11]

Salut PlaineR,

Avec un dbms_lock.sleep(10); avant de rentrer dans la boucle qui suit la progression de l'execution

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
begin 
dbms_job.isubmit('1245','lang_laufend;',sysdate,NULL);
   forms_ddl('commit') ;
    -- dbms_job.run('1245') ;
    dbms_lock.sleep(10);
end ;
declare 
v_percent  number;
begin 
set_item_property('blo_progress.progressbar',width,	0);
	v_percent :=0;
	loop
  	exit when v_percent =100;
    SELECT (sofar / totalwork) * 100
      INTO v_percent
    FROM v$session_longops
    WHERE opname = 'APEX__JOB_LANG_LAUFEND' AND sofar < totalwork;
   -- message(v_percent);
   pause;
    :blo_progress.percent:= v_percent||'%';
    set_item_property('blo_progress.progressbar',width,	round( v_percent,2));
    synchronize;
    dbms_lock.sleep(2);
	end loop;
 
	 exception
    when NO_DATA_FOUND then
      v_percent := -1;
  	  set_item_property('blo_progress.progressbar',width,	100);
		  :blo_progress.percent:= '100'||'%';
    when TOO_MANY_ROWS then
      v_percent := -1;
   	  DBMS_SCHEDULER.drop_job (job_name => 'APEX__JOB_LANG_LAUFEND',FORCE=> true) ;
end ;

Ca fonctionne maintenent

Chapeau plaineR

[SheikYerbouti]

[SheikYerbouti]

Il y a malheureusement un bug lorsque DBMS_JOB est utilisé depuis Forms 9i (9.0.2) sur une base 9i. Le job ne s'exécute réellement qu'avec DBMS_JOB.Run(), et l'on perd le coté asynchrone

[plaineR]

Et si on fait une procédure stockée pour lancer le job, cela ne contourne pas le problème ?

[SheikYerbouti]

Envoyé par plaineR

Et si on fait une procédure stockée pour lancer le job, cela ne contourne pas le problème ?

Non, c'est pareil.

[salim11]

Salut,

Il n'y a pas un vue qui nous informe le commencement de l'éxecution de la job , Si on la trouve le problème sera réglé.

[SheikYerbouti]

Code :

1
2
 
SELECT * FROM all_objects WHERE object_name LIKE '%JOB%' AND object_type = 'VIEW'

[salim11]

Salut,

Merci Mr sheik.

J'ai trouvé la vue user_jobs qui contient l'information sur mes jobs que je lancent, et j'ai remarque quand il termine le job ,il figurera plus dans la vue user_jobs .

[salim11]

Salut,
Ça fonctionne, je vous remercie tous.

C'est un vrai travail d'equipe wow.

L'explication : avant de tracker la progression de l'execution ma procédure je vérifier avant que ma job a commencer a s'executer dans user_jobs c'est a dire total_time!=0 is not null

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
begin 
--	appel;
	/* Lancement de la procédure par le package dbms_job pour la version 9i*/
   dbms_job.isubmit('1245','lang_laufend;',sysdate,NULL);
   forms_ddl('commit') ;
 
/*	 Lancement de la procédure par le package dbms_scheduler pour la version 10g*/
/*	
 dbms_scheduler.create_job(
    job_name   => 'APEX__JOB_LANG_LAUFEND'
   ,job_type   => 'stored_procedure'
   ,job_action => 'lang_laufend'
   ,start_date => SYSDATE
   ,enabled    => TRUE
  );*/
end;
 
  declare
     v_percent number:=0;
     nb number :=0;
  begin 
      loop 
       	SELECT count(job)
      	INTO nb 
      	 FROM user_jobs
      	 WHERE job='1245' AND total_time!=0;
              IF  nb!=0 then 
      	 	  set_item_property('blo_progress.progressbar',width,	0);
						v_percent :=0;
						loop/* pour suivre la progression de l'éxecution de la procedure lancée par dbms_job*/
					  	exit when v_percent =100;
					    SELECT (sofar / totalwork) * 100
					      INTO v_percent
					    FROM v$session_longops
					    WHERE opname = 'APEX__JOB_LANG_LAUFEND' AND sofar < totalwork;
 
					    :blo_progress.percent:= v_percent||'%';
					    set_item_property('blo_progress.progressbar',width,	round( v_percent,2));
					    synchronize;
					    dbms_lock.sleep(2);
						end loop;
		end IF;
			exit when nb!=0 ;
		end loop;	 	
						exception
					    when NO_DATA_FOUND then
					      v_percent := -1;
					  	  set_item_property('blo_progress.progressbar',width,	100);
							  :blo_progress.percent:= '100'||'%';
					    when TOO_MANY_ROWS then
					      v_percent := -1;
					   	  DBMS_SCHEDULER.drop_job (job_name => 'APEX__JOB_LANG_LAUFEND',FORCE=> true) ;
end;

[SheikYerbouti]

Cela ne change rien dans la mesure ou sous Forms 9i, isubmit() ne démarre pas le job. Il faut utiliser Run().

[salim11]

Salut Mr sheik

Notre problème on rentre dans la boucle qui tracke la progression de l'execution de la procédure avant que le job soit lancé c'etais ca l'inconvenient de ne pas utiliser le RUN.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
III-A. SUBMIT
Cette procédure va nous permettre de soumettre un job dans la file 
d'attente : 
 
III-B. ISUBMIT
Cette procédure effectue le même travail que SUBMIT, cependant sans pour
 autant se baser sur la séquence interne Oracle. L'utilisateur donne lui-même 
le numéro de job.  
 
III-C. RUN
Cette procédure va nous permettre de lancer "à la main" le job.

[SheikYerbouti]

Alors je récapitule.
isubmit() ne lance pas le Job avec Forms9i.
et si le job n'est pas lancé, le programme boucle indéfiniment puisque le % n'atteint jamais 100%.
La seule façon de démarrer le traitement est d'utiliser Run(), mais dans ce cas, le job ne rend la main à Forms que lorsqu'il est terminé (synchrone).
La barre de progression passe donc direct de 0% à 100%.

[salim11]

Salut,

Moi je la teste avec la 10g mais en utilisant le package dbms_job .

[SheikYerbouti]

Oui, ça fonctionne parfaitement avec Forms 10g. c'est juste dommage que Forms 9i soit bugué
il faudrait essayer avec Forms 10gR1 (9.0.4)...