RE: data area

[Chris Payne <CPayne@xxxxxxxxxxxxxxx>]

Thank Robert,
        In fact thank you everyone, I am up and running.
Chris Payne

-----Original Message-----
From: Joubert, Robert [mailto:RJoubert@xxxxxxxxxxxxxxxxxxxx] 
Sent: Wednesday, August 04, 2004 4:35 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: data area


This works:


D

D* Get the *LDA

D DALDA          UDS                  dtaara(*LDA)

D  DAFld1                 1      4

D  DAFld2                10     19

D  DAFld5                20     30

D  DAFld3               115    115

  


C                                                       
C* Get the Local Data Area                              
C                   in        DALDA                     
C                                                       
C* Populate the workfields from the *LDA                
C                   eval      #fld1 = DAFld1            
C                   eval      #fld2 = DAFld2            


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Chris Payne
Sent: Wednesday, August 04, 2004 1:09 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: data area


Ok, 
        I actually don't need to change the data area, just get a value

--
This is the RPG programming on the AS400 / 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.