Re: Data areas in sub-procedures

Thanks for your reply Rory
I was able to get around my dilemma by defining the data area in the global
section of the service program.
However, I will certainly look at your article when I get a few minutes

Thanks



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/16/2007 05:03:08 PM:

Alan,

Use the QWCRDTAA (Retrieve Data Area) API. I've wrappered it into a
procedure called rtvdtaara() and put it into a utility service program. I
wrote an article about using this API in the December 2006 issue of

System i

Network News (it's here:

http://www.systeminetwork.com/artarchive/20735/channel//subart//index.html
-

you'll need a PRo/VIP subscription to see it though).

In your code, you'd simply use the rtvdtaara() procedure. Because it

returns

a character value, you could either use a BIF to convert the returned
character value to a numeric value, or simply have a data-structure which
contains the StartDate subfield and retrieve dircetly into the DS:

D StartDateDS ds
D StartDate 6 0

/free

StartDateDS = rtvdtaara( '*LIBL/STARTDATE' );

/end-free

On 10/16/07, Alan Shore <AlanShore@xxxxxxxx> wrote:

Hi Bob
here is the pertinent part of my compile

2294 D StartDate s 6 0 dtaara(StartDate)
======> aaaaaa
*RNF3757 20 a 146200 The keyword is not valid for definitions in
subprocedures.



Alan Shore

--
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.