Re: V3R2: EMBEDDED SQL

[DAsmussen@xxxxxxx]

Dan,

In a message dated 97-04-15 18:39:08 EDT, you write:

> D SQLSTR          S            256A                    
>  D*                                                    
>  C/EXEC SQL                                             
>  C+ DECLARE WRKEMPCR CURSOR                             
>  C+    FOR DYNSQLSTMT                                   
>  C/END-EXEC                                             
>  C                   EVAL      SQLSTR = 'SELECT * FROM AFILE +         
>  C                                 WHERE FLD1 = ' +                    
>  C                                 VALUE1 +                             
>  C                                 ' ORDER BY FLD2, FLD3'             
>  C*                                                                      
>  C/EXEC SQL                                                              
>  C+                  PREPARE DYNSQLSTMT                                  
>  C+                    FROM  :SQLSTR                                     
>  C/END-EXEC                                                              
>  C/EXEC SQL                                                 
>  C+                  OPEN      WRKEMPCR                     
>  C/END-EXEC

I'm not sure, but I think that you need to replace VALUE1 in your EVAL
statement with a question mark (?).  Then,

C+                     OPEN WRKEMPCR USING :VALUE1.

That should do the trick...

HTH,

Dean Asmussen
Enterprise Systems Consulting, Inc.
Fuquay-Varina, NC  USA
E-Mail:  DAsmussen@AOL.COM

"Listen, kid, take my advice.  Never hate a song that has sold a half a
million copies!" -- Irving Berlin  (Hear that, you Midrange and RPG haters?
;-))
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *