Ionut,
You don't want to change "whole program logic", and
you are not happy with your current solution.
My quick read is your current logic sounds like standard
procedural break logic.
Over past years I have transitioned to SQL to simplify
problems like this.
Often a single SQL statement can be used to load a file or
DS array with the desired result.
Developing SQL is often easy to do with Run Sql Scripts,
or similar tools by 3rd party
Maybe you are ready for a "change the whole program logic" solution?
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Nisha Ramesh
Sent: Friday, October 19, 2012 8:52 AM
To: RPG programming on the IBM i / System i
Subject: Fetch the correct record - pls help
Hi All,
I have a scenario like this
I have 3 files , File1, File2, File3.
File1 has account number as a filed
File2 has account number, security and Quantity as fields
File3 has Account number Quantity and Security.
suppose File1 has these values
A
B
C
File2 - Accnum and Sec are keyfileds
Accnum Security Qty
A x 2
A x 3
A x 1
A y 2
A y 3
B y 5
B y 1
C x 2
C x 2
I want to create File3 as a summary. The value should be like this
AccNum Security Qty
A x 6
A y 5
B y 6
C x 4
Without using SQL(I have to change the whole program logic if I go for SQL) By using chain or Reade how can I achieve this in mininum steps
I have used a method like this
Point to the first record in file1 and read from there onwards. With Accnum as the key readE file2 in a loop( the file has accnum and security as keufields but am using Accnum alone not sure whether that will cause any
probs) , save the previous security value and in the DoW not %Eof(File2)loop check whether the prev saved security = Current security, If so sum up the Qty fields, else, write to file3. After endDo, I put the write part again otherwise I was missing the last record which will not enter into the DoW not %Eof loop.
Anyone has any better idea? My logic seems to be complex.. :(
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
