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



Here's what I just did:

CRTLIB LIB(TESTDBG)
MOVOBJ OBJ(TJWCUSTSRC/TEST_PB) OBJTYPE(*PGM) TOLIB(TESTDBG)
CHGCURLIB CURLIB(QGPL) 
ADDLIBLE LIB(TESTDBG) POSITION(*FIRST)
STRDBG PGM(TEST_PB)

get
                             Display Module Source                         
                                                                           
 Program:   TEST_PB        Library:   TESTDBG        Module:   TEST_PB     
      1           *MODULE ENTRY AND MAIN PROCEDURE ENTRY                   
      2          1 H Debug Option(*srcstmt : *nodebugio)                   
      3     000200 H BndDir('TEST_PB')                                     
      4     000300 FTEST_PB   CF   E             WORKSTN                   
      5     000400 FPBLACCT1  IF   E           K Disk    UsrOpn            
      6     000500 FPBLTRANS1 IF   E           K Disk    UsrOpn            
      7     000600 FCSLCM1    IF   E           K Disk    UsrOpn            
      8     000700                                                         
      9     000800  /copy pb_prots                                         
etc

set a breakpoint at 1711
CALL TEST_PB
get
 1710     008900  /free                                                   
 1711     009000   level = #getOCLlvl(PgmName:'*LIBL     ':'*PGM      '); 
 1712     009100   CMPY$$ = #GetMPid;                                     
 1713     009200   CMPY## = #GetCSid;

just as expected

                          Display Program Information

                                                                 Display 1
of 7 
 Program  . . . . . . . :   TEST_PB       Library  . . . . . . . :   TESTDBG

 Owner  . . . . . . . . :   QPGMR

 Program attribute  . . :   RPGLE

 Detail . . . . . . . . :   *BASIC

 

 

 Program creation information:

   Program creation date/time . . . . . . . . . . :   03/19/03  13:22:30

   Type of program  . . . . . . . . . . . . . . . :   ILE

   Program entry procedure module . . . . . . . . :   TEST_PB

     Library  . . . . . . . . . . . . . . . . . . :     TJWCUSTSRC

   Activation group attribute . . . . . . . . . . :   *NEW

   Shared activation group  . . . . . . . . . . . :   *NO

   User profile . . . . . . . . . . . . . . . . . :   *USER

   Use adopted authority  . . . . . . . . . . . . :   *YES

   Coded character set identifier . . . . . . . . :   65535

   Number of modules  . . . . . . . . . . . . . . :   1

   Number of service programs . . . . . . . . . . :   8

   Number of unresolved references  . . . . . . . :   0

   Number of copyrights . . . . . . . . . . . . . :   0

   All creation data  . . . . . . . . . . . . . . :   *YES

   Observable information compressed  . . . . . . :   *NO

   Run time information compressed  . . . . . . . :   *NO

   Allow update . . . . . . . . . . . . . . . . . :   *YES

   Allow bound *SRVPGM library name update  . . . :   *NO

   Profiling data . . . . . . . . . . . . . . . . :   *NOCOL

   Teraspace storage enabled PEP  . . . . . . . . :   *YES

   Teraspace storage enabled modules  . . . . . . :   *ALL

   Storage model  . . . . . . . . . . . . . . . . :   *SNGLVL

   Text description . . . . . . . . . . . . . . . :   Test PB function

 Program statistics:

   Number of parameters . . . . . . . . . . . . . :   0            255

   Associated space size (decompressed) . . . . . :   4096

   Static storage size  . . . . . . . . . . . . . :   12864

   Allow static storage reinitialization  . . . . :   *NO

   Program size . . . . . . . . . . . . . . . . . :   724992

   Program state  . . . . . . . . . . . . . . . . :   *USER

   Program domain . . . . . . . . . . . . . . . . :   *USER

   Release program created on . . . . . . . . . . :   V5R2M0

   Release program created for  . . . . . . . . . :   V5R1M0

   Earliest release program can run . . . . . . . :   V5R1M0

   Conversion required  . . . . . . . . . . . . . :   *NO

 Program performance information:

   Paging pool  . . . . . . . . . . . . . . . . . :   *USER

   Paging amount  . . . . . . . . . . . . . . . . :   *BLOCK

 


Module was compiled DBGVIEW(*LIST)



-----Original Message-----
From: Walden H. Leverich III [mailto:WaldenL@xxxxxxxxxxxxxxx]
Sent: Wednesday, May 28, 2003 1:57 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: STRDBG problem V5R2 on objects compiled for older release


>From: Joe Pluta [mailto:joepluta@xxxxxxxxxxxxxxxxx] 
>Let me get this straight...

Sounds right to me, but I'm working off Luc's description, I don't have a
play V5R2 box to try it on right now. Looking at the MSGD for CPF7102 on 5.1
I see the same text and that scares me. But I can debug a moved pgm on 5.1.

Anyone have 5.2 to try this on?

-Walden

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.