Re: Indent Problem with Embedded SQL

My previous note seems to have been truncated.

This problem is known to us (I believe someone already reported it via the
mailing list).
The fix (as I said before) is 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



                                                                                
                                        
                    Violaine                                                    
                                        
                    Batthish/Toronto/I       To:     code400-l@midrange.com     
                                        
                    BM@IBMCA                 cc:                                
                                        
                    Sent by:                 Subject:     Re: Indent Problem 
with Embedded SQL                          
                    code400-l-admin@mi                                          
                                        
                    drange.com                                                  
                                        
                                                                                
                                        
                                                                                
                                        
                    08/17/2001 10:19                                            
                                        
                    AM                                                          
                                        
                    Please respond to                                           
                                        
                    code400-l                                                   
                                        
                                                                                
                                        
                                                                                
                                        



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


_______________________________________________
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