RE: QSYSINC/QUSLFLD usage in RPG in V5R2

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Yes, but then the service program may not work because you recompile it and
miss a subtle change that IBM made on the new release.
I recommend _only_ using /COPY and /INCLUDE for API data structures; whether
or not you've made your own copies of the QSYSINC library.
Granted the QSYSINC /COPY members are in an "I don't know RPG" syntax
converted to RPG IV from C using a software tool, and granted the field
names suck, and granted the data structures should use the QUALIFIED keyword
today, and granted the integer fields should all be 10i0 instead of "B", at
least they are updated on each release.  :)
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joel Cochran
Sent: Tuesday, November 23, 2004 4:18 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: QSYSINC/QUSLFLD usage in RPG in V5R2

You could, of course, also physically copy the source into your program
(instead of doing a /copy).  While I really like /copy for prototypes
and constants, I don't frequently put Datastructures into /copy
members.  

I suppose I'll get beat up because this isn't very modular-ish, but I
like to have the actual definitions right in my source code. Had this
been the case, the program would not have ceased functioning... Of
course, I also only have one copy of this DS because I encapsulated the
API functionality into a single service program.

http://www.rpgnext.com/docs/rnbquslfld/

Joel
http://www.rpgnext.com

On Tue, 2004-11-23 at 14:55, John Brandt Sr. wrote:
> How about a different option. Create your own libraries like I did to keep
> the older versions intact.
> 
> /if defined( *V4R5M0 )
> D/COPY MSYSV4R5/QRPGLESRC,QUSLFLD
> /endif
> /if defined( *V5R1M0 )
> D/COPY MSYSV5R1/QRPGLESRC,QUSLFLD
> /endif/if defined( *V5R2M0 )
> D/COPY QSYSINC/QRPGLESRC,QUSLFLD
> /endif
> 
> 
> John Brandt 
> iStudio400.com 
> (903) 523-0708 
> Home of iS/ODBC - MSSQL access from iSeries and RPG. 
> 
> 
> 
> 
> -----Original Message-----
> From: Steve Richter [mailto:stephenrichter@xxxxxxxxx]
> Sent: Tuesday, November 23, 2004 8:46 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: QSYSINC/QUSLFLD usage in RPG in V5R2
> 
> 
> > 
> > We just recently upgraded our OS to V5R2 and we had a program that was
> > using the QUSLFLD
> > 
> > D/COPY QSYSINC/QRPGLESRC,QUSLFLD
> > 
> > We have always compiled to a previous release, when creating the
> > program. We are now seeing a compile error for around 8 fields that
> > are in the copy book. One of the errors is with this field below.
> > 
> > QUSICCSW              477    492P 0
> >                                            IC Curr Start With
> > 
> > RNF0503 - Length of numeric item QUSICCSW00 is greater than 30
> > digits; defaults to 30.
> > 
> > The problem is that IBM decided to add 31 byte numeric fields to the
> > end of the record formats QUSL0100, and now we cannot get these
> > programs to compile after we introduced a small change, unless we
> > decide to set the targer compile release to V5R2.
> > 
> > Has anyone encountered this problem and how has it been handled other
> > than deciding to not use QSYSINC any more.
> 
> what about adding some conditional compile stmts to the QUSLFLD source
> member?
>  
>  /if defined( *V5R2M0 )
>  QUSICCSW              477    492P 0
>  /endif
> 
> -Steve
> --
> 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.
> 
> ---
> Incoming mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.792 / Virus Database: 536 - Release Date: 11/9/04
>  
> 
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.799 / Virus Database: 543 - Release Date: 11/19/04
>  
> --
> 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.

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