× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. September 2005

Re: no. of rec in file through RPG

"Look for a field in the file information data structure. - Paul"

You're right Paul...

   * Standard RPG feedback area 1-80
     DINFDS            ds
     D File              *FILE      * File name
     D OpenInd                 9      9      * File open?
     D EOFInd                 10     10      * File at eof?
     D FileStatus        *STATUS      * Status code
     D OpCode            *OPCODE      * Last opcode
     D Routinr           *ROUTINE      * RPG Routine
     D ListNum                30     37      * Listing line
     D SpclStat               38     42S 0      * SPECIAL status
     D RecordFmt         *RECORD      * Record name
     D MsgID                  46     52      * Error MSGID
     D NUM_RCDS              156    159I 0      * Num of records


Peter Vidal 
PALL Corporation / SR Programmer Analyst, IT Development Group
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com

"Only he who can see the invisible can do the impossible."
-Anonymous-

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.