Re: Indent on "ElseIf"

"ELSEIF" is not being indented properly.  Also, FOR/ENDFOR and
MONITOR/ON-ERROR/ENDMON are not indented properly either.  These will all
be fixed in the next release.

As stated by someone else, the indent view does not work for free form.
Due to the column dependencies of fixed form RPG, the indent view was
introduced into CODE to give the users a nicer way of viewing their source.
With free form RPG, the user is in total control and can indent their
source however they like.  That is the reason why it was not implemented
for free form code.

Michele Cummings

WDT iSeries Development
IBM Toronto Lab



"Samuel J Lennon" <lennon_s_j@hotmail.com>@midrange.com on 11/01/2002
09:49:20 AM

Please respond to code400-l@midrange.com

Sent by:  code400-l-admin@midrange.com


To:   CODE400-L@midrange.com
cc:
Subject:  Indent on "ElseIf"


[ Converted text/html to text/plain ]

I have code like this:

C If RRDTVSUB <> *Zero

C Eval Work_Date = RRDTVSUB

C

C ElseIf RROVDT <> *Zero

C Eval Work_Date = RROVDT

C

C Else

C If RROVCD <> *blanks

C Movel RROVCD Work_Code

C Endif

C Endif

If I indent it it looks like this:

C If RRDTVSUB <> *Zero

C | Eval Work_Date = RRDTVSUB

C

C | ElseIf RROVDT <> *Zero

C | Eval Work_Date = RROVDT

C

C Else

C | If RROVCD <> *blanks

C | | Movel RROVCD Work_Code

C | Endif

C Endif

Shouldn't the ElseIf be at the same level as the preceeding If? That is,
the
ElseIf shouldn't be indented? Opinions?

------------------------------------------------------------------------------

Get your FREE download of MSN Explorer at http://explorer.msn.com[1].

===References:===
  1. http://go.msn.com/bql/hmtag_etl_EN.asp

_______________________________________________
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
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.