RE: Problem with reading a file that does have keys

*INLR = *on;
return;

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Brian Parkins
Sent: Tuesday, October 23, 2018 3:36 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Problem with reading a file that does have keys

[ External Email ]

----------------------------------------------------------------------
How do you terminate your RPG IV program? Do you have (just) a RETURN statement?

Brian.

On 23/10/2018 21:25, Burrows, Thomas 1001 wrote:

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

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=0-FS6ZrQhLAtMznbr1qWrqYztc4OlQl0Ktv4aAcUm1k&s=7AIgzE7C7R7TKDcLlAo2F6UXJfb_0J6S5HZ-heWQgew&e=
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=0-FS6ZrQhLAtMznbr1qWrqYztc4OlQl0Ktv4aAcUm1k&s=fg_lp68It6d2NNkj_RYP2ruVUeEx7Nz-QZGX-bYqTh4&e=.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://urldefense.proofpoint.com/v2/url?u=http-3A__amzn.to_2dEadiD&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=0-FS6ZrQhLAtMznbr1qWrqYztc4OlQl0Ktv4aAcUm1k&s=ik5N8Uy3SSzamkR_XJaVLJVVZSF9onOTyXxayqlXoyQ&e=