RE: Record Number

["Sims, Ken" <KSIMS@xxxxxxxxxxxxxxxx>]

Hi Jim -

First, again my apologies to the group for failing to change the subject on
the message that I sent before this one.  One of the hazards of using digest
mode.

>Date: Wed, 16 Feb 2000 08:46:25 -0800
>From: Jim Langston <jlangston@conexfreight.com>
>Subject: Record Number
 ...
>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.

The answers that you have gotten about using INFDS are correct, however one
thing that should be mentioned and hasn't, at least in the messages that
have been sent out in the digest, is that for the record number to be
accurate, record blocking must be turned off!  If you are just reading
straight through the file for input, by default the compiler will cause
record blocking to be requested.

If you are using RPG IV, turning off record blocking is very simple, just
specify BLOCK(*NO) in the keyword part of the F-spec.  If you are using RPG
III, you either need to have some code to the program that will cause the
compiler to decide that record blocking should not be used, or use an OVRDBF
with SEQONLY(*NO).

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone else.

+---
| 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
+---