Indent Problem with Embedded SQL -- CODE400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

MIDRANGE dot COM Mailing List Archive

Subject: Indent Problem with Embedded SQL
From: "Samuel J Lennon" <lennon_s_j@xxxxxxxxxxx>
Date: Fri, 17 Aug 2001 10:00:09 -0400
List-Archive: <http://archive.midrange.com/code400-l/>
List-Help: <mailto:code400-l-request@midrange.com?subject=help>
List-Id: CODE/400 Discussion & Support <code400-l.midrange.com>
List-Post: <mailto:code400-l@midrange.com>
List-Subscribe: <http://lists.midrange.com/cgi-bin/listinfo/code400-l>,<mailto:code400-l-request@midrange.com?subject=subscribe>
List-Unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/code400-l>,<mailto:code400-l-request@midrange.com?subject=unsubscribe>

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+                  |            ERB0LOCP as LastLoc
     c+                  | where     RHREB# = :pReb#
     c+                  |        and RHLOC# = :pLoc#
     c+                  |        and RHTAGS = 'Y'
     c+                  |        and LastLoc.LCSDTE = :Tomorrow
     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
     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

As an Amazon Associate we earn from qualifying purchases.

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.