RE: Right side comments

Then change your check from
If Status='A'
to
If Status=Active
and have Active be a defined constant with a value of 'A'

Sort of like the following:
D NoError         C                   0
D RecordNotFound  C                   12
D DuplicateKey    C                   1021
D ReferentialErr  C                   1022
D TriggerErrBef   C                   1023
D TriggerErrAft   C                   1024
D Youareold       C                   1031
D FileClosed      C                   1211
D FileOpen        C                   1215
D ImpOpenCloseEr  C                   1216
D ExpOpenCloseEr  C                   1217
D RecAlreadyLock  C                   1218
D UpdBeforeRead   C                   1221
D RefErrOnAlloc   C                   1222
D PermIOErr       C                   1251
D JobEndingCtl    C                   1282
...
if %status(filea)=RecordNotFound

Now isn't that better than
if %status(filea)=12


Rob Berendt

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


                                                                                
                                       
                    "Smith, Nelson"                                             
                                       
                    <NSmith@lincare.c        To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>                 
                    om>                      cc:                                
                                       
                    Sent by:                 Subject:     RE: Right side 
comments                                      
                    owner-rpg400-l@mi                                           
                                       
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    07/26/2001 12:52                                            
                                       
                    PM                                                          
                                       
                    Please respond to                                           
                                       
                    RPG400-L                                                    
                                       
                                                                                
                                       
                                                                                
                                       




I like right-hand comments to define cryptic variables or codes:

IF         Status = 'A'                   (Active)
ENDIF

It's a lot better than having to go look it up in some table...

...of course it's even better if you don't use a code at all:

IF         Status = 'Active'
ENDIF

but we don't always have that luxury.




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