RE: Data area

Yeah sorry about that, I didn't even realize it was in RPGIII, just copied 
and pasted from ILE.  Sigh.

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




"Jansen, Larry" <ljansen@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/27/2004 02:03 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Data area






You could do it several ways, one way being:

D CUTOFF_DTA      S              8

C     *DTAARA       DEFINE    CUTOFF        CUTOFF_DTA

C                   IN        CUTOFF_DTA

Good luck!

Larry Jansen

-----Original Message-----
From: James R. Newman, CDP [mailto:cis146@xxxxxxxxxxx]
Sent: Wednesday, May 26, 2004 7:19 PM
To: RPG List
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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.665 / Virus Database: 428 - Release Date: 4/21/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.665 / Virus Database: 428 - Release Date: 4/21/04
 
_______________________________________________
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