Probably not. Program is observable so why not just open in debug, extract
the source and compare?

On Wed, Jun 8, 2011 at 4:46 PM, sjl <sjl_abc@xxxxxxxxxxx> 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
User profile . . . . . . . . . . . . . : *USER
Use adopted authority . . . . . . . . : *YES
Fix decimal data . . . . . . . . . . . : *NO
Teraspace enabled . . . . . . . . . . : *NO
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
Conversion required . . . . . . . . . : *NO
Sort sequence . . . . . . . . . . . . : *HEX
Language identifier . . . . . . . . . : *JOBRUN
Program performance information:
Optimization . . . . . . . . . . . . . : *NOOPTIMIZE
Paging pool . . . . . . . . . . . . . : *USER
Update PASA . . . . . . . . . . . . . : *NOUPDPASA
Clear PASA . . . . . . . . . . . . . . : *CLRPASA
Paging amount . . . . . . . . . . . . : *BLOCK


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
User profile . . . . . . . . . . . . . : *USER
Use adopted authority . . . . . . . . : *YES
Fix decimal data . . . . . . . . . . . : *NO
Teraspace enabled . . . . . . . . . . : *NO
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
Conversion required . . . . . . . . . : *NO
Sort sequence . . . . . . . . . . . . : *HEX
Language identifier . . . . . . . . . : *JOBRUN
Program performance information:
Optimization . . . . . . . . . . . . . : *NOOPTIMIZE
Paging pool . . . . . . . . . . . . . : *USER
Update PASA . . . . . . . . . . . . . : *NOUPDPASA
Clear PASA . . . . . . . . . . . . . . : *CLRPASA
Paging amount . . . . . . . . . . . . : *BLOCK


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?

Regards,
sjl



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



This thread ...

Follow-Ups:
Replies:

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

This mailing list archive is Copyright 1997-2019 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].