AW: Indicator documentation (was: worst RPG ever seen?)

Hi,

I've seen the following code sometimes ago:

line 100: C        MYDATE   IFEQ  TODAY
          C                 MOVE  *ON     *IN85
          C        MYDATE   IFGT  TODAY
          C                 MOVE  *ON     *IN86
          C        MYDATE   IFLT  TODAY 
          C                 MOVE  *ON     *IN87
          C                 ELSE
          C                 MOVE  *OFF    *IN87
          C                 ENDIF
          C                 ELSE
          C                 MOVE  *OFF    *IN86 
          C                 ENDIF
          C                 ELSE
          C                 MOVE  *OFF    *IN85
          C                 ENDIF

line 3275:C       *IN85     IFEQ  *ON
          C****** Do something 

line 5000 C       *IN86     IFEQ  *ON

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars." 
(Les Brown) 

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von David Gibbs
Gesendet: Dienstag, 28. Februar 2006 20:22
An: RPG programming on the AS400 / iSeries
Betreff: Indicator documentation (was: worst RPG ever seen?)


Jerry Adams wrote:
> I don't recall actually running out of indicators, but I do recall
> forgetting what each one did.

Ah, that reminds me of my favorite bit of documentation ... the
'indicator summary' at the top of many programs.  You know, that block
of comments that's included in every program you see (probably copied in
from a boiler plate) and absolutely, positively, never updated once.

david
(who strives to never use an indicator in a program at all if possible)