Re: Embedded SQL and Externally Described Data Structure

[Anton Gombkötö <gombkoetoe@xxxxxxxxxx>]

Jim,

although i'm not yet using SQL in RPG, i assume the following to work:

D JoinedDS           S        32766

D ResvhistR       E DS               ExtName( RESVHIST)  BASED(PtrResvhistR)
D ShwfilR           E DS               ExtName(SHWFIL)       BASED(PtrShwfilR)
D DetlListR        E DS                ExtName(DETLLIST)    BASED(PtrDetlListR)

C               EVAL    PtrResvhistR    = %ADDR(JoinedDS)
C               EVAL    PtrShwfilR      = %ADDR(PtrResvhistR) + 
%SIZE(ResvhistR)
C               EVAL    PtrDetlListR    = %ADDR(PtrShwfilR) + %SIZE(ShwfilR)

The first field reserves quite an amount of storage, you can define it with 
a more reasonable length (or ALLOC the storage you need by adding the 
%SIZEs of the structures, that would be better/prettier).

The E DS's are BASED, so they have no storage associated with them at 
program initialization. You "lay it over" a piece of storage by means of 
the Pointer.

The first EVAL sets the address of the first structure to the beginning of 
the storage.
The second takes this address and adds the length of the first structure. 
So the second structure is just behind the first one in storage.
The third one takes the second pointer and adds the length of the second 
structure.

And then you might be able to use JoinedDS in your SQL-statement.





Mit freundlichen Grüssen / best regards

Anton Gombkötö

Avenum Technologie GmbH
Wien - Mattsee - Stuttgart
e-mail Office   :       mailto:Anton.Gombkoetoe@avenum.com
Homepage        :       http://www.avenum.com

Lest das Redbook / read the redbook "Who knew you could do that with RPG?":
http://www.redbooks.ibm.com/abstracts/sg245402.html

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