RE: 730 to 825 migration

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Steve:

Ummm... are you saying that you successfully compiled this on a V4R5 system but 
it now fails on V5R2? Is this example an issue for an upgrade from V4R5?

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>   4. RE: 730 to 825 migration (Steve Richter)
>
>Here is the rpg code that does not compile as of 6/30/03.  It causes the
>compiler job to abend.
>
>** a data struct with a ptr subfld.
>dds1              ds                  qualified
>d pData                           *
>
>d BugProc         pr
>p BugProc         b
>d BugProc         pi
>
>d FsEnt           ds                  likeds(ds1)
>d FsData          s          32000a   based( FsEnt.pData )
>
>d LsEnt           ds                  likeds(ds1)
>d LsData          s          32000a   based( LsEnt.pData )
> /free
>      if          %subst(FsData:5:3) > %subst(LsData:5:1) ;
>      endif ;

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455