RE: Problem with reading a file that does have keys

[Scott Mildenberger <smildenberger@xxxxxxxxxxxx>]

Are you sure that cunano is NOT the field containing the National Number which according to your data does repeat?  Even the spelling implies that where in your setll you use cucuno which the spelling implies Customer Number.

Scott Mildenberger | Software Developer | Washington Corporations | 101 International Drive | Missoula, MT 59808 | Office: (406) 523-1536 | www.washcorp.com

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

Counting the last record twice is not the issue. I have a count of 22,000 plus on count4.
Have that other field name, but due to constraints I have to get out of the setup that gets me to the AS400 to get to my private email. Have just registered my company email "burrows.thomas@xxxxxxxxxxxxxx" which I can see when looking at the AS400. Long story - firewalls, etc. Everyone has heard the plot before but the details always change:-)

 if cunano = savcunano;
                count4 = count4 + 1;
                cunano = cunano;
             endif;
             count1  = count1 + 1;


On Tue, Oct 23, 2018 at 1:32 PM Scott Mildenberger < smildenberger@xxxxxxxxxxxx> wrote:

> What does the following return?
> Select count(*) from arlcu where cunano = '        000117'
>
> Do you by chance have the field name for the National Account instead 
> of Customer Account?
>
> By the way, you will count the last record twice because you increment 
> the counters after the read without checking %eof.
>
>
> Scott Mildenberger | Software Developer | Washington Corporations | 
> 101 International Drive | Missoula, MT 59808 | Office: (406) 523-1536 
> | www.washcorp.com
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Thomas 
> Burrows
> Sent: Tuesday, October 23, 2018 11:54 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: Problem with reading a file that does have keys
>
> Here is what I mean from top to bottom on the file.
> Using DBU here are the first three variables or columns.
> Key 1 is the first column A5 length. Key 2 is the second column A14 
> length
>
> company Customer       National
>                        Account
>    005          000059         000059
>    005          000117         000117
>    005          000125         000117
>    005          000133         000117
>    005          000141         000117
>    005          000158         000117
>    005          000166         021436
>    005          000174         074625
>    005          000182         000182
>    005          000208         000208
>    005          000224         000224
>
> Code
>
> setll (cuco: cucuno) arlcu;
>  dow not %eof(arlcu);
>      exsr   mainloop;
>  enddo;
>
>   begsr mainloop;
>             read arlcu;
>              if cunano = '        000117';
>                 count4 = count4 + 1;
>                 cunano = cunano;
>              endif;
>              count1  = count1 + 1;
> endsr;
>
> I get 14 for count4.  And 36 thousand plus for counter1. Which is the 
> number of records in ARLCU. Which in real life is a LF, but when I 
> copied the file into my library ARLCU became a PF.
>
> What am I missing here?
>
> Thomas