RE: Key field info

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The field with the number of fields in it from QUSLFLD is named QUSNBRLE
To get it you need to read the standard header, and from within it use
subfield QUSOHS+1 to get the location of the header returned by QUSLFLD.
Within that area is the QUSNBRLE subfield that contains the number of field
names returned.
Or, use the RPG xTools and just do this:
 Eval  nFldCount = CrtFldList('QGPL/FIELDS' : 'CUSTMAST')

-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of CWilt@xxxxxxxxxxxx
Sent: Thursday, September 23, 2004 12:57 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Key field info

Rob and Scott have tried, now I'll give it my shot....

The number of entries field isn't shown under the QUSLFLD API.

Instead, it has the following:

Format of the Generated List
The field list consists of:

-A user area 
-A generic header 
-An input parameter section 
-A header section 
The FLDL0100, FLDL0200, or FLDL0300 list data section 
For details about the user area and generic header, see User space format
for list APIs.

Notice the "see User space format for list APIs".  Now when you following
that link you'll find detailed information about the user area and generic
header sections listed above.  Specifically, you'll see where the generic
header section contains the number of entries field at offset 184 (from the
start of the generic header).

Does that make sense?

Charles




> -----Original Message-----
> From: Tony Carolla [mailto:carolla@xxxxxxxxx]
> Sent: Thursday, September 23, 2004 1:36 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Key field info
> 
> 
> 
> 
> Thanks Rob.
> 
> All of the information I have on APIs is located at IBM's site -- I
> don't even have QSYSINC loaded, so I have to hand-code the PR's (oh,
> the agony -- never forget that Binary4 = 10I 0!!!).
> 
> In the description of the QUSLFLD API, in the header section, I don't
> see anything indicating the number of fields returned.  I know that
> this is the norm, but I am not seeing it for this API.
> 
> I looked in QSYS2/SYSCOLUMNS, and I don't see a field that indicates
> which fields are keys.  I looked in several of the views in QSYS2
> (syskeys, syskeycst, systables, sysindexes), and I don't see any
> columns in these views that tell the key fields.
> 
> 
> 
> -- 
> "Enter any 11-digit prime number to continue..."
> --
> 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.