|
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 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
midrange.com
