Re: System name & # of recods

["Booth Martin" <Booth@xxxxxxxxxxxx>]

 Have you looked at the INFDS? for each file?  That has lots of interesting
info, free for the taking.

 
      FGCKF      UF A E             DISK    INFDS(INFDS)               
      FGCKFL1    IF   E           K DISK    Rename(RGCKF:RGCKF1)       
      F                                     INFDS(DB1) BLOCK(*NO)      
      FGCKFL2    IF   E           K DISK    Rename(RGCKF:RGCKF2)       
      F                                     INFDS(DB2) BLOCK(*NO)      
      FGCKFL3    IF   E           K DISK    Rename(RGCKF:RGCKF3)       
      F                                     INFDS(DB3) BLOCK(*NO)      
       *  ..................................................                
                                                                 
       * INFDS for database file. FileSize will contain the number     
       * of records in the file when the file is opened.               
      DINFDS            DS                                             
      D FILESIZE              156    159B 0                            
                                                                       
       * Get the record Number, to know which record to update/process:
      D DB1             DS                                             
      D DB1RRN                397    400B 0                            
      D DB2             DS                                             
      D DB2RRN                397    400B 0                            
      D DB3             DS                                             
      D DB3RRN                397    400B 0                            
       *  ......................................
 This is RPGLE but the same process is available in RPG
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Wednesday, January 15, 2003 11:15:36 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.
 
.