Re: Data areas in sub-procedures

["Rory Hewitt" <roryhewitt@xxxxxxxxx>]

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