× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I believe the number of MI and ODT entries are likely to be almost the same across the compilers. Plausible that to perform the same run-time that one compiler might do something differently or in addition to another to setup the call; e.g. the MI used to perform an OPEN on one release of the compiler might be different between release. The numbers for the two programs shown have sufficient change however, that I infer the sources are probably different.

Seems to me that the most telling might be a review of SOURCELIB/JDESRC.P76H05 for SRCDAT values reflecting changes since 980905. Especially relevant since the new *PGM shows the source was last changed almost four years later on 020521. I would infer that any source date values beyond the source change-date of the original program would indicate either added or changed lines of source code for what was assumed to be the same source member; deleted lines, not so much help there. Might be some value in removing what appear to be additions and reverting changes in a copy of the source member, to see if a compile from that revision comes much closer in MI and ODT entry counts.?

I am not sure of the debug view that might be available for the old OPM program [not shown on DSPPGM], but if any is available, that might provide an effective [source] listing which could be compared with the newly compiled *PGM? If not originally compiled with OPTION(*SRCDBG) or OPTION(*LSTDBG), I do not think the "statement view" will be presented by any source debuggers, but that view might still be available to be retrieved from both of the OPM *PGM objects to be compared?

I doubt that the LIC dump of the x/0201 MI object to obtain disassembled listings or a dump object [DMPOBJ] to obtain program templates for each program would be valuable for comparisons, but I mention them anyhow. I would hope that the "statement view" is a better [i.e. prettier] for comparison if available; I think that view may be an effective reformatting of the data in the template.?

Regards, Chuck

On 08-Jun-2011 15:46 , sjl wrote:
Assume that /someone/ [not me] created an OPM RPG program back in the
year 2001.
Also assume that the source library D514SRC does not exist and cannot
be found on any of the backups.

Original program:

5722SS1 V5R4M0 060210 MYSYSTEM 06/08/11 15:40:51 CDT

Program . . . . . . . . . . . . . . . . : P76H05
Library . . . . . . . . . . . . . . . : MYLIB
Owner . . . . . . . . . . . . . . . . . : QPGMR
Program attribute . . . . . . . . . . . : RPG
Program creation information:
Program creation date/time . . . . . . : 09/24/01 14:19:14
Type of program . . . . . . . . . . . : OPM
Source file . . . . . . . . . . . . . : JDESRC
Library . . . . . . . . . . . . . . : D514SRC
Source member . . . . . . . . . . . . : P76H05
Source file change date/time . . . . . : 09/05/98 16:24:01
Observable information . . . . . . . . : *ALL
<<SNIP>>
Text description . . . . . . . . . . . : Configurador de documentos
Program statistics:
Number of parameters . . . . . . . . . : 0 2
Program size (bytes) . . . . . . . . . : 507904
Associated space size (bytes) . . . . : 0
Static storage size (bytes) . . . . . : 25280
Automatic storage size (bytes) . . . . : 0
Number of MI instructions . . . . . . : 5687
Number of ODT entries . . . . . . . . : 5356
Program state . . . . . . . . . . . . : *USER
Program domain . . . . . . . . . . . . : *USER
Compiler . . . . . . . . . . . . . . . : 5769RG1 V4R2M0
Earliest release that program can run : V2R3M0
<<SNIP>>


I found source code in another library for this program and compiled it:

5722SS1 V5R4M0 060210 MYSYSTEM 06/08/11 15:41:48 CDT

Program . . . . . . . . . . . . . . . . : P76H05
Library . . . . . . . . . . . . . . . : QTEMP
Owner . . . . . . . . . . . . . . . . . : QPGMR
Program attribute . . . . . . . . . . . : RPG
Program creation information:
Program creation date/time . . . . . . : 06/03/11 08:51:36
Type of program . . . . . . . . . . . : OPM
Source file . . . . . . . . . . . . . : JDESRC
Library . . . . . . . . . . . . . . : SOURCELIB
Source member . . . . . . . . . . . . : P76H05
Source file change date/time . . . . . : 05/21/02 12:43:08
Observable information . . . . . . . . : *ALL
<<SNIP>>
Text description . . . . . . . . . . . : Configurador de documentos
Program statistics:
Number of parameters . . . . . . . . . : 0 2
Program size (bytes) . . . . . . . . . : 532480
Associated space size (bytes) . . . . : 0
Static storage size (bytes) . . . . . : 25968
Automatic storage size (bytes) . . . . : 0
Number of MI instructions . . . . . . : 5757
Number of ODT entries . . . . . . . . : 5392
Program state . . . . . . . . . . . . : *USER
Program domain . . . . . . . . . . . . : *USER
Compiler . . . . . . . . . . . . . . . : 5722WDS V5R4M0
Earliest release that program can run. : V5R4M0
<<SNIP>>


As you can see, the number of MI instructions and ODT entries for the
two programs are different.

Does this mean that the source I found is NOT the same as the source
used to compile the original program?


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.