Reg: Reverse engineering from Code to Flowchart -

Question

Hi Experts,
I'm facing problems while generating Flowchart from an existing old legacy PL/SQL code.
Is there any tool available which can generate that? Oracle SQL Developer, Toad, etc...?
I'm quite sure it'll no way be comparable to a flowchart created by a human brain, but will help in some way as the code is huge.
If it gives a basic outline (big picture), I can analyze the code and add the rest.
Any pointers is much appreciated.
Thanks,
Ranit

Answer 1

Parsing even formatted code is tricky and usually just not worth the effort.
This might most probably include your case too as reverse means the normal thing is the other way around so you're supposed to do something someone other had not done.
To confirm the validity of never say never I admit having done something resembling parsing (from far and by night), it's not perfect, but it can do the job (at least here)
A Loop Hunter:
select owner,name,type,the_object,max(loop_count) loop_count,max(loop_depth) max_loop_depth,max(commit_in_loop) commit_in_loop
  from (select owner,name,type,keyword,the_object,loop_count,loop_depth,commit_in_loop
          from (select owner,name,type,keyword,the_object,
                       row_number() over (partition by owner,name,the_object order by line) prn,
                       row_number() over (order by owner,name,the_object,line) rn
                  from (select owner,name,type,line,keyword,
                               last_value(case when instr(keyword,'loop') = 0
                                                and instr(keyword,'commit') = 0
                                               then keyword
                                          end
                                         ) ignore nulls over (partition by owner,name order by line) the_object
                          from (select owner,name,type,line,
                                       lower(case when instr(lower(text),'procedure') > 0
                                                  then regexp_replace(regexp_replace(ltrim(replace(case when instr(text,'.') > 0
                                                                                                        then 'procedure '||
                                                                                                             substr(text,instr(text,'.',-1,1) + 1)
                                                                                                        else text
                                                                                                   end,'"'
                                                                                          ),'^(procedure\s*\w+)[( ].*','\1',1,1,'i'
                                                                                    ),'( ){2,}',' ')
                                                  when instr(lower(text),'function') > 0
                                                  then regexp_replace(regexp_replace(ltrim(replace(case when instr(text,'.') > 0
                                                                                                        then 'function '||
                                                                                                             substr(text,instr(text,'.',-1,1) + 1)
                                                                                                        else text
                                                                                                   end,'"'
                                                                                          ),'^(function\s*\w+)[( ].*','\1',1,1,'i'
                                                                                    ),'( ){2,}',' ')
                                                  when instr(lower(text),'commit') > 0
                                                  then 'commit'
                                                  when instr(lower(text),'end loop') > 0
                                                  then 'end loop'
                                                  else 'loop'
                                             end
                                            ) keyword
                                  from all_source
                                 where instr(','||upper(nvl(:owner_list,owner))||',',','||owner||',') > 0
                                   and instr(','||upper(nvl(:object_name_list,name))||',',','||name||',') > 0
                                   and instr(','||upper(nvl(:object_type_list,type))||',',','||type||',') > 0
                                   and regexp_like(ltrim(replace(text,chr(9),' ')),'^[^-/*].+')                        -- not a comment
                                   and (regexp_like(lower(ltrim(replace(text,chr(9),' '))),'^(procedure|function).*')
                                    or  instr(lower(replace(text,chr(9),' ')),' loop') > 0
                                    or  instr(lower(replace(text,chr(9),' ')),'commit') > 0
         model
           partition by (owner,name,type,the_object)
           dimension by (rn)
           measures (keyword,0 loop_count,0 loop_depth,0 commit_in_loop,prn)
           rules
           (loop_count[any] = case when prn[cv()] = 1
                                   then 0
                                   when keyword[cv()] = 'end loop'
                                   then loop_count[cv() - 1] + 1
                                   else loop_count[cv() - 1]
                              end,
            loop_depth[any] = case when prn[cv()] = 1
                                   then 0
                                   when keyword[cv()] = 'loop'
                                   then loop_depth[cv() - 1] + 1
                                   when keyword[cv()] = 'end loop'
                                   then loop_depth[cv() - 1] - 1
                                   else loop_depth[cv() - 1]
                              end,
            commit_in_loop[any] = case when prn[cv()] = 1
                                       then 0
                                       when keyword[cv()] = 'commit'
                                        and loop_depth[cv()] != 0
                                       then commit_in_loop[cv() - 1] + 1
                                       else commit_in_loop[cv() - 1]
                                  end
group by owner,name,type,the_object
having max(loop_count) >= max(loop_depth) and max(loop_depth) > 0
order by max_loop_depth desc
Regards
Etbin