Re: Define and fill datastructure using the record format name

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

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.