Re: Right side comments

D ActiveSts    C           'A'

C         If     Status = ActiveSts
C         EndIf

You always have that luxury.

Gary Guthrie


"Smith, Nelson" wrote:
> 
> 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.
> 
> > -----Original Message-----
> > From: Joe Giusto II (E-mail) [SMTP:juicenetdps@crosswinds.net]
> > Sent: Thursday, July 26, 2001 12:26 PM
> > To:   RPG400-L@midrange.com
> > Subject:      RE: Right side comments
> >
> > <snip>
> > It might be possible to argue a case for
> > right-hand comments when converting from RPG III but I'm of the firm
> > opinion
> > that if you convert code to RPG IV then you should convert it properly
> > rather than a half-baked RPG III style in RPG IV specifications.
> > </snip>
> > unless, of course, time is of the essence.  :)
> > I have converted many programs to gain the new functionality of the
> > language, but did have (or was not given) the time to re-write or
> > re-structure the entire program.
> >
> >
> >
> > Joe Giusto II
> > Programmer/Analyst
> > Ritz Camera
> > Beltsville, MD
> > 301-419-3209 x347
> > 410-813-2812 x347
> >
> >
> >
> > +---
> > | 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 message originates from Lincare Holdings Inc. It contains information 
>which maybe confidential or privileged and is intended only for the individual 
>or entity named above.
> It is prohibited for anyone else to disclose, copy, distribute or use the 
>contents of this message.
> All personal messages express views solely of the sender, which are not to be 
>attributed to Lincare Holdings Inc., and may not be copied or distributed 
>without this disclaimer.
> If you received this message in error, please notify us immediately at 
>MailAdmin@lincare.com or (800) 284-2006.
> 
>************************************************************************************************************************************************************************************************************
> +---
> | 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
+---