RE: embedded SQL not outputting to report

["Douglas W. Palme" <dpalme@xxxxxxxxxxx>]

I stepped through it in debug mode but did not see anything that jumped up 
and bit me on the lip....I will run it again and check the values for the 
two you listed.


On Wed, 13 Jul 2005 14:44:41 -0500, Holden Tommy wrote
> Need more info.
> 
> Have you run this in debug?  if so what where the SQLCOD & SQLSTT 
> values after each SQL operation?  It could be that the execution has 
> failed which is causing your problem.
> 
> Using SQL cursors can have a "domino" effect...
> 
> if the DECLARE fails then all other SQL operations on that cursor is 
> pointless, "" ""  OPEN     ""    ""   ""  ""   ""   ""        ""  "" 
>  ""     "" ""
> 
> if the FETCH fails then you'll get bad results (i.e. host variable 
> still contains data from previous fetch,etc...)
> 
> As far as the code you posted I don't see anything wrong from a 
> cursory glance.  Most likely it is a scenario similar to what I 
> listed above.  Run time errors don'tcha love 'em??
> 
> Thanks,
> Tommy Holden
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> Sent: Wednesday, July 13, 2005 2:30 PM
> To: RPG Group
> Subject: embedded SQL not outputting to report
> 
> I have begun this whole ordeal in hopes of getting down the issue of 
> embedding sql statements in my rpg code, I think in the long run it 
> will make life much easier.
> 
> However, I have not been able to figure out what I am doing wrong 
> with the following code, it is supposed to extract the soldto number 
> (cust no) and print it in the report.  The field in the externally 
> described report is prtcustno....if anyone would be so helpful as to 
> point out what I am doing wrong I would greatly appreciate it.
> 
>  C     *USA          MOVE      '06/01/2005'  SDATE
>  C     *USA          MOVE      '06/30/2005'  EDATE
>  C/EXEC SQL                                       
>  C+ DECLARE CUSTCURSOR CURSOR                     
>  C+ FOR SELECT ILNSOLDTO                          
>  C+ FROM INVMARGIN                                
>  C+ WHERE ILNINVDATE >= :SDATE AND                
>  C+ ILNINVDATE <= :EDATE                          
>  C/END-EXEC                                       
>  C                   WRITE     HEADINGS           
>  C/EXEC SQL                                       
>  C+                  OPEN      CUSTCURSOR         
> C+                  OPEN      CUSTCURSOR 
> C/END-EXEC                               
> C/EXEC SQL                               
> C+ FETCH NEXT                            
> C+ FROM CUSTCURSOR                       
> C+ INTO :PRTCUSTNO                       
> C+                                       
> C/END-EXEC                               
> C                   WRITE     DETAILLINE 
> C/EXEC SQL                               
> C+ CLOSE CUSTCURSOR                      
> C/END-EXEC                               
> C                   EVAL      *INLR = *ON
> C                   RETURN
> 
> 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.
> 
> -- 
> 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.


If you bought, it was hauled by a truck - somewhere, sometime.