RE: System name & # of recods

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The best way is to use the APIs to do that.
To retrieve the serial number call the 'QWCRSVAL' API.
To retrieve the number of records you can use the 'QUSLMBR' API and then
read back in each member description, or if only one member is in each
file, use the 'QUSRMBRD' API to retrieve the member description.

How to call these APIs has been covered to death on this list.

Bob

-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com] On Behalf Of Dhatha Thriyan
Sent: Wednesday, January 15, 2003 9:49 AM
To: rpg400-l@midrange.com
Subject: System name & # of recods


Two questions :

(a)In an RPG/400 (sorry no ILE) program, I need to retreive the system
name. 
How do I do that ?

(b) In the same program, I also read a file (oufile of DSPOBJD) that has
a 
list of files in a library. I need to determine the number of records
for 
each file I read. The DSPOBJD gives you the size of the object but
doesn't 
have the # of records. Ho to retrieve the # of records ?

Thanks in advance for any help.

D





_________________________________________________________________
MSN 8: advanced junk mail protection and 2 months FREE*. 
http://join.msn.com/?page=features/junkmail

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