Re: Indent Problem with Embedded SQL

[batthish@xxxxxxxxxx]

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