Re: Right side comments

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Joel,

Ever tried to do EVAL XYZ at the debug command line when XYZ is a constant?
It's an extra step to go look up the actual value of a constant when you
need to know. OTOH, when reading code, a named constant certainly makes
things more readable.

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


From: "Joel Fritz" <JFritz@sharperimage.com>
> I can remember doing this sort of thing in RPGIII and people asking me
what
> that stuff meant.
> Some people think that the "real" values are more meaningful.

> > From: rob@dekko.com [mailto:rob@dekko.com]
> > 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



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


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

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