RE: STRDBG problem V5R2 on objects compiled for older release -- RPG400-L

BTW, also did

MOVOBJ OBJ(TESTDBG/TEST_PB) OBJTYPE(*PGM) TOLIB(TJWCUSTSRC)
CRTDUPOBJ OBJ(TEST_PB) FROMLIB(TJWCUSTSRC) OBJTYPE(*PGM) TOLIB(TESTDBG)
STRDBG PGM(TEST_PB) 

and it works as well.


-----Original Message-----
From: Westdorp, Tom [mailto:Tom.Westdorp@xxxxxxxxxxxxxxxxxx]
Sent: Wednesday, May 28, 2003 2:14 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: STRDBG problem V5R2 on objects compiled for older release


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
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.