RE: data area

Chris - the change for you would be specifying a U before the DS to
indicate it's the LDA.

On Wed, 4 Aug 2004 15:27:04 -0400, "Bruce Odum" <bodum@xxxxxxxxxxxx>
said:
> Here is an example
> 
> D DataOut                 1    258                          
>  *                                                          
> d dtaarain        ds                  dtaara(dpicsarsrd)    
> d Status                  1      1a                         
> 
> C                   In        dtaarain  
> C                   eval      status = wstatus         
> C                   Out       dtaarain                 
> Bruce Odum
> bodum@xxxxxxxxxxxx
> (423) 510-3821
> 
> 4080 Jenkins Rd.
> Chattanooga, TN 37421
> 
> 
> 
> -----Original Message-----
> From: Chris Payne [mailto:CPayne@xxxxxxxxxxxxxxx] 
> Sent: Wednesday, August 04, 2004 3:24 PM
> To: midrange.com RPG support (rpg400-l@xxxxxxxxxxxx)
> Subject: data area
> 
> Hello,
> I am trying to access the local data area in an RPG program, I want to
> retrieve just a couple of characters, and put them into a variable. In
> the
> RPG reference it says I should use the "in" command, but it's not clear
> to
> me how this works.
>  
> Chris Payne
> --
> 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.
> 
> 
> --
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx