RE: Keyed file is not appearing in sorted Order

[Nisha Ramesh <n4nisha@xxxxxxxxx>]

Hi,
I  have used runqry to determine the output. And yeah in f spec i used k to
declare..

Regards
Nisha
 On Oct 7, 2013 8:26 PM, "Gary Thompson" <gthompson@xxxxxxxxxxx> wrote:

> Only guessing but the .txt attachment seems to only
> include something about the RPG list at midrange,
> but I would check your RPG F spec and make sure you
> have specified the exact file name and have a "K" in
> the F spec "Record Address Type" (column 34 I believe)
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Nisha Ramesh
> Sent: Monday, October 07, 2013 8:48 AM
> To: RPG programming on the IBM i / System i
> Subject: Keyed file is not appearing in sorted Order
>
> Hi All,
>
> Please consider the below scenario, I need your valuable input on this.
>
> I have a program which ran daily(From monday to friday) and will generate
> report from a file(Say fileA)  which has fields - 'Date the report is ran'
> , and Balance keyed by Date.
>
> Now I need to run a monthly report(At month End) which will report all the
> daily balances for that month. Since there are no daily report for Sat and
> Sun, I need to report sat and sun with Friday's balance. At the end I need
> to show the average balance as well
>
>  For that I am creating a duplicate of FileA in Qtemp and then with
> OpnqryF I select only those balances of current Month. Then override the
> file to Qtemp with Share(*Yes).
> Then I call an RPG program am reading FileA in a loop and using an SQL am
> determining whether the date falls on Friday. If the SQL returns value for
> Friday, then I will call a subroutine which will increment the date by one
> and write a record(Using RPG WRITE Opcode). Again the same for Sunday. At
> the end, using an SQL, am calculating the average balance.
>
> But unfortunately the sat and sun records are not written in order, it
> writes at the end. Please see the attachment for reference. I am wondering
> if the file is keyed, then why the WRITE opcode is writing at the end and
> not inserting the record in the order?
>
> I know the query appears is little big.. but am higly dependent on your
> valuable inputs. Please help me if you are able to find where am missing.
>
> Regards
> Nisha
> --
> 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: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.