Re: Indent Problem with Embedded SQL

[batthish@xxxxxxxxxx]

Hi Samuel,

This problem has , and the fix is already slated for our next release.

Thanks,
Violaine Batthish
CODE/400 Project Lead
batthish@ca.ibm.com          IBMCA(BATTHISH)

WDT/400 page:  http://www.ibm.com/software/ad/wdt400
WDT/400 Support : http://www.ibm.com/software/ad/wdt400/support



                                                                                
                                        
                    "Samuel J Lennon"                                           
                                        
                    <lennon_s_j@hotmai       To:     CODE400-L@midrange.com     
                                        
                    l.com>                   cc:                                
                                        
                    Sent by:                 Subject:     Indent Problem with 
Embedded SQL                              
                    code400-l-admin@mi                                          
                                        
                    drange.com                                                  
                                        
                                                                                
                                        
                                                                                
                                        
                    08/17/2001 10:00                                            
                                        
                    AM                                                          
                                        
                    Please respond to                                           
                                        
                    code400-l                                                   
                                        
                                                                                
                                        
                                                                                
                                        



Indent has a minor quirk.  It picks up SQL SELECT statements.  It should
ignore embedded SQL statements.  Example of the problem:
     c/exec sql          select     RHLOC#
     c+                  |  into      :wkLoc#
     c+                  |  from      ERB1HDRP,
     c+                  |            ERB1LOCP as PrevLoc,
     c+&nbs! p;                 |            ERB0LOCP as LastLoc
     c+                  |  where     RHREB# = :pReb#
     c+                  |        and RHLOC# = :pLoc#
     c+                  |        and RHTAGS = 'Y'
     c+                  |        and LastLoc.LCSDTE = :Tomorrow
  &! nbsp;  c+                  |        and RHREB# = PrevLoc.LCREB#
     c+                  |        and RHLOC# = Prevloc.LCLOC#
     c+                  |        and RHREB# = LastLoc.LCREB#
     c+                  |        and RHLOC# = LastLoc.LCLOC#
     c/end-exec
     c                   |  ! select
     c                   |  when      SQLSTT = SQLSuccess
     c                   |  |  eval      retField='Y'
     c                   |  when      SQLSTT = SQLNoData
     c                   |  |  eval      retField='N'
     c                   |  other
   &nbs! p; c                   |  |  callp     SqlProblem(pReb#: pLoc#:
     c                   |  |            'Future Tags Select')
     c                   |  endsl
V5R1 with SP2 applied, running on Win 98 SE.


Get your FREE download of MSN Explorer at http://explorer.msn.com
_______________________________________________ This is the CODE/400
Discussion & Support (CODE400-L) mailing list To post a message email:
CODE400-L@midrange.com To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/code400-l or email:
CODE400-L-request@midrange.com