× 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.



Observability <> debug(*LIST)

Charles

On Wed, Jun 8, 2011 at 7:07 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:
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 thread ...

Replies:

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.