Re: Conceptual subfile question

Thanks John. No disagreement on using constants - in production code that is how I would do it.

When doing it for an article it is a trade-off between making it obvious what is happening at a mechanical vs the logical level. I don’t always make the right choice <grin>


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On May 3, 2016, at 5:06 PM, Voris, John <john.voris@xxxxxxxxxxxxx> wrote:

That is a nice piece of Code, Jon.

About the only improvement would be to make the dimensions 1 and 2 named constants,
so
D* Named Constants
D before C 1
D after C 2

custRec(1) = custRec(2);
would appear . . .

If custRec( before ) = custRec( after) ;


The mulitple Lines of the Subfile would then become a 2 x SflLines
and I guess you can then write the compare of the Subfile Lines as

For x = 1 to SflLines
If custRec( before ).Subfile( xx ) = custRec( after).Subfile( xx ) ;

- John Voris

a much simpler approach http://www.itjungle.com/fhg/fhg030315-story01.html

--
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.

Please contact support@xxxxxxxxxxxx for any subscription related questions.