Off of the top of my head....
D datast ds likerec(fmt01 : *all)
D newvalues ds likeds(datast)
D oldvalues ds likeds(datast)
Eval-corr oldvalues = datast;
Exfmt fmt01 datast;
Eval-corr newvalues = datast;
If oldvalues < > newvalues;
Endif;
Paul
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth
Martin
Sent: Monday, March 23, 2015 12:47 PM
To: RPG programming on the IBM i / System i
Subject: Define and fill datastructure using the record format name
This seemed simple enough until it exploded in my face this morning.
I have a screen with 7 input/output capable fields. Lets call that record
name FMT01.
I want to define a datastructure as being like FMT01, and then have it
automagically be populated with the values from the 7 input/output capable
fields whenever it is used in a calc.
I also want 2 standalone fields (OLDVALUES & NEWVALUES) that are like the
datastructure
The purpose is to make these lines work:
OLDVALUES = DataSt;
EXFMT FMT01;
NEWVALUES = DataSt
if OLDVALUES <> NEWVALUES:
.... do stuff.
Is that possible? Have I taken the Stupid Pill again?
--
Booth Martin
www.martinvt.com
(802)461-5349
UFOs are for real. It's the Air Force that doesn't exist.
--
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.
midrange.com
