Re: embedded sql session error in subfile

Douglas,

No PREPARE?
And in what do you FETCH?

Besides, you should drink more coffee.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 26-7-05 at 13:52 Douglas W. Palme wrote:

>I am trying desperately to get this embedded sql down and thought I had
>it 
>after the last go around, unfortunately I must be 1. dumber than I
>thought, 
>2. losing my mind or 3. had too much gaterade today.  In any event, I am 
>using the following code to extract the records from the logical file:
>
>C     BLDSQL        BEGSR                                        
>C/EXEC SQL                                                       
>C+    DECLARE SQLCURSOR CURSOR                                   
>C+    FOR SELECT                                                 
>C+    ILNSOLDTO,                                                 
>C+    ICMNAME,                                                   
>C+    SUM(ILNEPRICE),                                            
>C+    SUM(ILNEUAVCST),                                           
>C+    SUM(ILNEPRICE) - SUM(ILNEUAVCST) AS MARGIN,                
>C+    (SUM(ILNEPRICE) - SUM(ILNEUAVCST)) / SUM(ILNEPRICE) AS MPCT
>C+    FROM SPECGASLF                                             
>C+    WHERE                            
>C+          ILNINVDATE > :STARTDATE AND
>C+          ILNINVDATE <= :ENDDATE     
>C+    GROUP BY                         
>C+             ILNSOLDTO,              
>C+             ICMNAME                 
>C+    ORDER BY                         
>C+             MPCT DESC               
>C/END-EXEC                             
>
>I am then opening the cursor with the very next sql statement:
>
>C/EXEC SQL          
>C+    OPEN SQLCURSOR
>C/END-EXEC          
>
>Then I set the indicators for my subfile:
>
>C                   EVAL      *IN52 = *ON 
>C                   WRITE     SPECCTL     
>C                   EVAL      *IN52 = *OFF
>C                   DOU       RRN = 10    
>
>I am then using a fetch statement to extract the record, move them into 
>variables and then write it to the subfile, however when I was in debug
>mode 
>and viewed the variables at it was moving them into the subfiles fields it 
>wasn't passing any data.....so of course it errors on a blank record.
>
>Ideas, suggestions? or just tell me to get lost......
>
>
>If you bought, it was hauled by a truck - somewhere, sometime.
>
>-- 
>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.