RE: Free format question on D specs

Stylistically I have wondered why we ever use Yes/No'; we already have the very clear *on & *off.

We, too. It is very important in a multi-dimensional environment: English (Yes/Y), German (Ja/J), French (Oui/O), Italian (Si/S) ....
*ON/*OFF or 0/1 is international

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Booth Martin
Sent: Freitag, 25. Januar 2019 06:54
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Free format question on D specs

Stylistically I have wondered why we ever use Yes/No'; we already have the very clear *on & *off.

Why not a meaningful named indicator for each condition being tested? Something like ItIsReady, WeMayCall, or just Flag1, Flag2,etc.

giving us code like:

if ItIsReady;
SendInvoice();
ItIsReady = *off;
endif;


On 1/24/2019 10:54 PM, Joe Pluta wrote:

Thomas, others have addressed the syntactical part of your question,
but I have a stylistic suggestion. Rather than using variables x_yes
and x_no, I prefer to use constants:

dcl-c C_YES 'Y';
dcl-c C_NO 'N';

My own preference is to uppercase literals and precede them with C_;
that makes it very clear when I use a literal. Then I can write the
following:

if xzstas <> C_YES and xsstas <> C_NO;

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com