Re: bad indicators, bad! (was: RE: MOVEA -> EVAL)

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Both of these methods I like, although Brian's seems to be a little
"cleaner" is is probably the choice I'll use in the future (I've yet
to follow this method).

One good thing, is both methods still have the indicator number hard
coded.  If I search for 81 I will find the indicator in Marks, and
searching for 85 would find the indicator in Brian's.

Hmm.. I've not used Overlay yet in my data structures, but have been
using the start and end locations, but I can see how Overlays are 
much more legible and maintainable.

Dang, I love this list.

Regards,

Jim Langston

How come the word abbreviate is so long?

Mark Walter wrote:

>     FOed191x   CF   E             Workstn SFILE(subfil:rrn)
>INDDS(d_indicators)
>
>        * Indicator Data Structure
>     Dd_indicators     DS
>     D rollup                           25     25N
>     D sort_changed          33     33N
>     D sfl_clear                     80     80N
>     D sfl_disp                      81     81N
>     D sfl_dispctl                  82     82N
>     D sfl_end                       83     83N

Brian Parkins wrote:

> FSfileDsp  CF   E             Workstn Sfile(Control:Rrn)
> 
> D DspInd          DS                  Based(IndPtr)
> D   Exit                          N   Overlay(DspInd:3)
> D   SflEnd                        N   Overlay(DspInd:40)
> D   SflClr                        N   Overlay(DspInd:75)
> D   SflDspCtl                     N   Overlay(DspInd:85)
> D   SflDsp                        N   Overlay(DspInd:95)
> D Rrn             S              5P 0
> D IndPtr          S               *   Inz(%Addr(*In))
>  ** Logic fragment (not complete)
> C                   Dow       NOT Exit
>  ** etc, etc, then Display Subfile
> C                   Eval      SflDspCtl = *ON
> C                   Eval      SflDsp    = *ON
> C                   Exfmt     Control
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---