Re: API receiver variable limit

[Mel Rothman <melrothman@xxxxxxxx>]

Buck, my experience has been that the compiler always stores the occurrences one
after the other.  If this still makes you nervous, you could allocate storage
for indField dynamically.  For example:

D indField        s          32767    based(indField@) 
C                   alloc     64000             indField@
C                   call      'QDBRTVFD'          
C                   parm                    indField
...

IndField does not have to be 32767.  Make it as big as the biggest piece you
will be processing at a time, using a work pointer.

Nah, don't use C.


Mel Rothman


Buck Calabro wrote:
> 
> Hello!
> 
> I'm writing a boilerplate for QDBRTVFD (Retrieve file description API).  The
> maximum RPG IV string size is 32kb.  The FILD0200 request for a particular
> file is returning 49kb of data.  I've used a multiple occurrence data
> structure and a based pointer to move an internal data structure around
> (which works), but can I rely on the compiler always storing the occurrences
> one after the other (to form one block of contiguous API populated memory?)
> Is there a better way? (I hope so!)  Should I use C? (sigh)
> 
> D indField        s          32767    based(indField@)
> D indField@       s               *
> D QDBRV           ds         32767    occurs(2)
> C                   call      'QDBRTVFD'
> C                   parm                    QDBRV
> ...
> C                   eval      indField@ = %addr(QDBRV) + fieldOffset
> 
> Buck Calabro
> Aptis; Albany, NY
> "We are what we repeatedly do.
>  Excellence, then, is not an act, but a habit." --Aristotle
> 
> Billing Concepts Corp., a NASDAQ Listed Company, Symbol: BILL
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---