RE: data area

["Joubert, Robert" <RJoubert@xxxxxxxxxxxxxxxxxxxx>]

Chris,

if this is RPGiv, try:

define it like this:-

 D                                                              
 D* Get the GL1000DA data area                                  
 D DAGL1000        DS                  dtaara(GL1000DA)  (THIS IS THE
external DATA AREA NAME)       
 D  DAFld1                 1     24                             
 D  #fpm                  25     26  0                          
 D  #fpcy                 27     30  0                          
 D  DAFld2                31    200                             

then exclusively access it like this:-
C

C* Get the GL1000DA Data Area

C     *lock         in        DAGL1000

C


                 
and then update it like this:                                
C                   eval      #fpm =  ##workfpm

C

C* Update the GL1000DA Data Area

C                   out       DAGL1000











-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Chris Payne
Sent: Wednesday, August 04, 2004 12: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