Re: SQLRPGLE - Dynamic selection

Here's a snippet...


     eval      statement = 'Select '      
               + %trim(Field1) + ','      
               + %trim(field2) +          
               ' from ' + %trim(filename) 
...
...
...

C/EXEC SQL                                        
C+ PREPARE SQLSTMNT FROM :statement               
C/END-EXEC                                        
                                                  
C/EXEC SQL                                        
C+ DESCRIBE SQLSTMNT INTO :SQLDA USING ALL        
C/END-EXEC                                        
                                                  
C/EXEC SQL                                        
C+ DECLARE A1 CURSOR FOR SQLSTMNT                 
C/END-EXEC  
...
...
...etc.

Hope this helps.

Russell Conerly
                                      
-------------------
> Can someone send me a sample of an imbedded SQL process that reads
records from a file that is a variable?  I can get the dynamics
working using other variables for selection, just not the file name. 
Any help is greatly appreciated!
> 
> Tracy L. Ball
> The Jackson Group
> Sr. Programmer/Analyst 
> (317) 781-4600 ext. 3107
> 
> 
> 
> -----Original Message-----
> From: Carel Teijgeler [mailto:coteijgeler@xxxxxxxxx]
> Sent: Thursday, February 20, 2003 4:29 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: PDM option that submits customized compile
> 
> 
> Dan,
> 
> write your own command that wrap the CRTMOD and CRTPGM commands in
one CPP. Use that command as a user defined option in PDM.
> 
> The only thing you have to figure out is to tell the CRTPGM what
modules,*SRVPGM, binding directories/sources should be used to create
the final executable.
> 
> Just my option.
> 
> Regards,
> Carel Teijgeler 
> 
> *********** REPLY SEPARATOR  ***********
> 
> On 20-2-03 at 12:43 Dan wrote:
> 
> >I know this has been discussed before, but a couple of searches
turned up
> >nothing in the archives.
> > (So feel free to either point me to specific archive posts or the
search
> >terms you used.)
> >
> >I am looking for an already-invented wheel that someone would be
willing
> >to share that can be used as a PDM option; replacements for options
14 & 15.  (I've finally had it
> >with not having any way to change the command default for DBGVIEW
on our dev box.)
> >
> >Ideally, this would be a "smart" option, which uses &N, &F, &L, and
&T, to
> >decide which source member to compile, and with which command it
should be compiled.  Another
> >parameter should handle the preference to compile as a program or
as a module.
> >
> >Ideally, it would handle CLP, RPG, RPGLE, SQLRPGLE, (and more)
member
> >types, but if what's available doesn't have all these, I'm sure I
can add the functionality if
> >I have something to work off of.
> 
> 
> 
> _______________________________________________
> 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.
> 
> 
> _______________________________________________
> 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.
> 
>