RE: Data area - working

["Francis Lapeyre" <flapeyre@xxxxxxxxxxx>]

Hmm. The manual seems to say  that data areas are read before *INZSR is run
- personally, all I do is set on *INOF in the *INZSR and condition the
header to print on *INOF before I write a detail line. I was thinking that
things might not be resolved yet if you were printing the header straight
from the *INZSR.


Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of James R. Newman, CDP
Sent: Thursday, May 27, 2004 4:06 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Data area - working

A friend suggested using the DSPLY to show what if anything was in the data
area.  Turns out the program was getting the data okay.  I moved the field
from the header area of the report to the detail and it shows up fine.
Who'd a thunk it?


----- Original Message -----
From: "James R. Newman, CDP" <cis146@xxxxxxxxxxx>
To: "RPG List" <RPG400-L@xxxxxxxxxxxx>
Sent: Wednesday, May 26, 2004 6:19 PM
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 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.