Re: Record Number

[Anton Gombkötö <Gombkoetoe@xxxxxxxxxx>]

Jim,

the INFDS contains the RRN of the record read.

But:

"Full procdural" does not necessarily mean sequential. Maybe you oversaw the
"K" in column 34 of the file declaration (F-card)?

Back to the INFDS:

 FDATEI     IF   F32766        DISK    USROPN
 F                                     INFDS(INFDSDATEI)
  *
 D INFDSDATEI      DS
 D  FICURR               397    400B 0

the example shows a program described file with an INFDS. (In this example,
i process the file in fact via RRN.)

Read the f***ing manual to learn about many other interesting fields. (There
are different layouts for DB, display and printer files!)

0.02 Euro

Anton Gombkötö

----- Original Message -----
From: "Jim Langston" <jlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, February 16, 2000 5:46 PM
Subject: Record Number


> I am searching through a file for some strings, and I need to find out
> what the record numbers are.  I am opening the file Input, Full
Procedural,
> externally described, and as I understand it, this uses sequential
processing,
> that is, record numbers.
>
> Once I find my string, how do I find out what record number I am actually
> on?  Until I find out I am going to just increment a counter and hope it's
> right, but as we all know, deleted records mess this up.
>
> Thanks.
>
> Regards,
>
> Jim Langston
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---