× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.