|
That's what I thought too. <g> > -----Original Message----- > From: rob@dekko.com [mailto:rob@dekko.com] > Sent: Thursday, July 26, 2001 3:20 PM > To: RPG400-L@midrange.com > Subject: RE: Right side comments > > > > F^*& 'em. > > Rob Berendt > > ================== > A smart person learns from their mistakes, > but a wise person learns from OTHER peoples mistakes. > > > > > Joel Fritz > > <JFritz@sharperim To: > "'RPG400-L@midrange.com'" <RPG400-L@midrange.com> > age.com> cc: > > Sent by: Subject: RE: > Right side comments > owner-rpg400-l@mi > > drange.com > > > > > > 07/26/2001 03:38 > > PM > > Please respond to > > RPG400-L > > > > > > > > > > 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. > > -----Original Message----- > > From: rob@dekko.com [mailto:rob@dekko.com] > > Sent: Thursday, July 26, 2001 1:07 PM > > To: RPG400-L@midrange.com > > Subject: 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. > > > > > +--- > | 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 > +--- > > > > > +--- > | 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 > +--- > +--- | 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
