Re: Get source from object?

[Alan <steelville@xxxxxxxxxxx>]

> Source is gone, I have the spool file and am copying the code now, but is there 
> any way to get the source from the object?
>
> Ron Power
>  
Ron,

I once wrote a program to pull the code from the compile listing for a 
colleague, but I don't have the code anymore. That seems to me much 
easier and quicker than going for 3rd party de-compilers (which can 
still come in handy, and I have used RTVCLSRC lots..)

If it is one compile with one source member (/COPY can complicate it), 
and even if not, there is a way, with the spool file. This suggestion 
loses the dates and sequence numbers on the lines. That's doable too, 
from the source, but a little more complicated.

=> First CRTPF with spaces wide enough to hold the print lines.

=> Then  use CPYSPLF to get the compile listing into a physical file.

=> Use CRTPF RCDLEN(100), or whatever the length of your SRCDTA.

=> Use SQL and selection criteria to DELETE the page headers and other 
repeated lines that do not consitute source. Don't get intimated, 
there's not so much to be insurmountable. <g> Just looks scary. <g>

__ For example: 

Delete from FlatFile where rrn( FlatFile ) < 999  { where 999 is the 
first line of the code list. }

Delete from FLATFILE where RRN( FLATFILE ) > 99999  {--where 99999 is 
the record number in the copied file of the last line of the source code 
list---}

Delete from FLATFILE where substr( flatfile, 35, 11 ) = 'IBM ILE RPG'
         or flatfile like '%Source Specifications%'
         or flatfile like '%....1....+%' 

There will be other lines generated in the compile, not so bad to go 
through  in blocks and a lot easier than retyping, and less prone to 
typos. The compile listing I'm looking at has the seq-nbr ending in 
print position 6, with the form type in print position 8.. So use SQL to 
copy to another physical file

=> insert into flatfile_2 select '     ' substr( flatfile, 8, 105 ) from 
flatfile.

Okay, if you have indented source for structured op codes, I would write 
some kind of RPG to the copy. Not so bad. <g>

Sounds like a fun exercise.

- Alan