RE: Indent on "ElseIf"

elseif isn't the only one:

CODE doesn't indent FOR/ENDFOR:


     C                   |  if        RROVCD <> *blanks
     C                   |  |  for       i = 1 by 1 to 10
     C                   |  |  eval      x = i + 1
     C                   |  |  endfor
     C                   |  |  movel     RROVCD        Work_Code
     C                   |  endif

but does on the compile listing:

C                   if                         x = 0
C                   |for                       i = i by 1 to 10
C                   ||eval                     x = 1
C                   |endfor
C                   endif

Try View|Indent on free format!  Doesn't do it at all! (It doesn't indent on
the compile listing, either.)

Phil

> -----Original Message-----
> From: code400-l-admin@midrange.com
> [mailto:code400-l-admin@midrange.com]On Behalf Of rob@dekko.com
> Sent: Friday, January 11, 2002 4:57 PM
> To: code400-l@midrange.com
> Subject: RE: Indent on "ElseIf"
>
>
>
> Makes me more fond of the Select statement minute-by-minute.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>                     "Samuel J Lennon"
>                     <lennon_s_j@hotmai       To:
> code400-l@midrange.com
>                     l.com>                   cc:
>                     Sent by:                 Fax to:
>                     code400-l-admin@mi       Subject:     RE:
> Indent on "ElseIf"
>                     drange.com
>
>
>                     01/11/2002 02:56
>                     PM
>                     Please respond to
>                     code400-l
>
>
>
>
> Code Editor doesn't agree up with that the compiler produces.  I believe
> the
> complier is correct, in that an ELSEIF is *not* indented.
>
> Here's a snippet from a compile spool file.
>
>   If                         RRDTVSUB <> *Zero
>   |  Eval                     Work_Date = RRDTVSUB
>   |
>   ElseIf                     RROVDT <> *Zero
>   |  Eval                     Work_Date = RROVDT
>   |
>   Else
>   |  If                       RROVCD <> *blanks
>   |  | Movel                  RROVCD        Work_Code
>   |  Endif
>   Endif
>
> Sam
>
> ------------------------------------------------------------------
> ------------
>
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com