RE: Right side comments

Bill,
I would have used the
DACTIVE                   C         CONST('A')
instead to keep it a constant.
1)  It documents that this is unable to be changed.  Documents it as a
flag.
2)  Prevents some silly bugger from accidentally changing the value in
line.
3)  And so on.  Maybe you just didn't know about Constants.
Of course
D Active                  C         'A'
or
D Active                  C         Const('A')
may be more readable.


Rob Berendt

==================
A smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.


                                                                                
                                       
                    bill.reger@conver                                           
                                       
                    gys.com                  To:     RPG400-L@midrange.com      
                                       
                    Sent by:                 cc:                                
                                       
                    owner-rpg400-l@mi        Subject:     RE: Right side 
comments                                      
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    07/26/2001 02:04                                            
                                       
                    PM                                                          
                                       
                    Please respond to                                           
                                       
                    RPG400-L                                                    
                                       
                                                                                
                                       
                                                                                
                                       





Assuming you're writing RPG IV (you are, aren't you?), you DO have the
luxury!


D  Active                        1    Inz('A')

C                   If        Status = Active
C                   EndIf





+---
| 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
+---