RE: data area

[michaelr_41@xxxxxxxxxxxxxx]

Right before the DS...

>From the manual...
Local Data Area (*LDA): If you specify blanks for the data area data
structure
(positions 7 through 21 of the definition specification that contains a
U in position
23), the compiler uses the local data area. To provide a name for the
local data
area, use the *DTAARA DEFINE operation, with *LDA in factor 2 and the
name in
the result field or DTAARA(*LDA) on the definition specification.

On Wed, 4 Aug 2004 16:08:31 -0400 , "Chris Payne"
<CPayne@xxxxxxxxxxxxxxx> said:
> 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.
> --
> 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