RE: data area

[Chris Payne <CPayne@xxxxxxxxxxxxxxx>]

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

D DataOut                 1    258                          
  *                                                          
 d dtaarain        ds                  dtaara(dpicsarsrd)    
 d Status                  1      1a                         
 
 C                   In        dtaarain

Where does the U go to specify local data area? What is the DataOut
necessary for? 

Chris  

-----Original Message-----
From: michaelr_41@xxxxxxxxxxxxxx [mailto:michaelr_41@xxxxxxxxxxxxxx] 
Sent: Wednesday, August 04, 2004 3:32 PM
To: RPG programming on the AS400 / iSeries
Subject: 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

--
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.