RE: Problem with reading a file that does have keys

["Burrows, Thomas 1001" <Burrows.Thomas@xxxxxxxxxxxxxx>]

Peter:

I had the "K" in column 34. Removed that and took out the SETLL. Get the exact same results. At no time should 
This statement be TRUE;

read arlcu;
if cunano = savcuno;
   count4 = count4 + 1;
endif;

savcuno = cunano;
count1  = count1 + 1;

================

There are 36,815 records in ARLCU and not a single repeating CUNANO.

Not sure what is up. 

Thomas





-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Peter Dow
Sent: Tuesday, October 23, 2018 2:55 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Problem with reading a file that does have keys

[ External Email ]

----------------------------------------------------------------------
Hi Thomas,

In regards to your question "is there anything on the F specs I could be overlooking?", make sure there's a "K" in pos.34 of the F-spec, or if you're doing free-format, the KEYED keyword. Otherwise you'd be reading the file by RRN instead of by key.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /


On 10/23/2018 8:45 AM, Thomas Burrows wrote:
> I want to read a keyed file from top to bottom. i.e. I am finding that I
> seem to read some records more than once.
>
> is there anything on the F specs I could be overlooking?
> I put a counter in for the read and I get the right number of times through
> the read routine.
>
> Doing a "DOU NOT %EOF(filename)
> Then an EXSR X1 to the read routine where the read on the file is
> BEGSR x1
>   READ FILENAME;
> endsr
>
> I put an if statement in after the read looking against one of the account
> numbers that is only in the file being read from once. But I get SEVEN or
> more hits in the IF statement checking against that one account number.
>
> Thomas Burrows