Re: Define and fill datastructure using the record format name

No I-specs - all done in a data structure - something like this - Thx to Jon Paris

D SAfields DS
D field1
D field2
D field3
D field4
D field5
D field6
D field7
D field8
D field9
D SAfieldAr Overlay(SAfields)
D Like(field1) Dim(9)

HTH
Vern

On 3/23/2015 12:54 PM, Arco Simonse wrote:

Hi Booth,

You can do this with I-specs. I have done this with arrays, but the idea is
the same for a datastructure:


// array for rename screenfields
d SAfieldAr S 5A dim(9)

// rename screenfields to arrayfields
IPLA125AC
I field1 SAfieldAr( 1 )
I field2 SAfieldAr( 2 )
I field3 SAfieldAr( 3 )
I field4 SAfieldAr( 4 )
I field5 SAfieldAr( 5 )
I field6 SAfieldAr( 6 )
I field7 SAfieldAr( 7 )
I field8 SAfieldAr( 8 )
I field9 SAfieldAr( 9 )

I don't know if there is a newer concept for this, but it still works...

Best regards,
Arco Simonse


2015-03-23 17:47 GMT+01:00 Booth Martin <booth@xxxxxxxxxxxx>:

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.