Re: Data area

Shouldn't you use this format for data areas?

 * define data areas 
c     *dtaara       define    cutoff     cutoffdta           8 0 

Then to read use:
c     *lock         in        cutoffdta

That's the technique I use. 

Ron Power
_________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"James R. Newman, CDP" <cis146@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/26/2004 08:49 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG List" <RPG400-L@xxxxxxxxxxxx>
cc

Subject
Data area






It's been a while since I used a data area and I'm having trouble 
accessing it from an RPG program.  I've created an 8 character data area 
called CUTOFF that holds a date in yyyymmdd format.  I'm simply trying to 
read the data area from the RPG program.  I have an "I" spec that looks 
like this:

IDTAARA     UDS
                                1    8    CUTOFF

Shouldn't I be able to access (read) the data in the program without doing 
a DEFN, etc?  For testing purposes I put the statements above in a working 
program and listed CUTOFF as an output field in the header, which should 
display the date but doesn't show up.

Do I need to have a RTVDTAARA in my CL?  I know I do if I want to convert 
it to a parm and access it in the program that way but, again, I thought 
if I wanted to use the data area implicitly I could simply include the "I" 
specs and use it like any other variable in the program.

TIA. 
_______________________________________________
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 OutBound email has been scanned for Viruses