[Home] [Help]
273: end if;
274: end if;
275: end if;
276: endstep;
277: delete from java$jvm$steps$done where step = step_name;
278: commit;
279: end;
280:
281: procedure create_if_not_present(command varchar2) as
478: begin
479: select action into action from java$jvm$status where
480: punting = 'FALSE' and
481: execid = currentexecid;
482: delete from java$jvm$steps$done;
483: update java$jvm$status set inprogress = 'N', execid = null;
484: debug_output('endaction(' || action || ') DONE');
485: exception when no_data_found then
486: debug_output('endaction while PUNTING');
524: try := true;
525: update java$jvm$status set punting = 'TRUE';
526: elsif execid = currentexecid then
527: begin
528: select step into oldstep from java$jvm$steps$done where step = newstep;
529: exception when no_data_found then
530: try := true;
531: current_step := newstep;
532: update java$jvm$status set punting = 'TRUE';
555: procedure endstep as
556: begin
557: if current_step is not null then
558: debug_output('COMPLETED ' || current_step);
559: insert into java$jvm$steps$done values(current_step);
560: current_step := null;
561: end if;
562: update java$jvm$status set punting = 'FALSE';
563: commit;