Re: if statement brain cramp

Rather than "complex" if statements...I move the testing logic to a
procedure (and use named constants instead of magic numbers ;)

if RelevantConditionName(SMLO10,M1PLIN);
skipRecord;
else;
includeRecord;
endif;

//Description
dcl-proc RelevantConditionName;
dcl-pi *n *ind;
whateverSML010 like(SML010) value;
whateverM1PLIN like(M1PLIN) value;
end-pi;

return (whateverSML010 = WHATEVER_5_MEANS
and whateeverM1PLIN <> *BLANKS);
end-proc;

Alternatively...
//Description
dcl-proc RelevantConditionName;
dcl-pi *n *ind;
whateverSML010 like(SML010) value;
whateverM1PLIN like(M1PLIN) value;
end-pi;

// a comment if needed
if whateverSML010 <> WHATEVER_5_MEANS;
return *OFF;
endif;

// a comment if needed
if whateverM1PLIN = *BLANKS;
return *OFF;
endif;

return *ON;
end-proc;


Yeah, it's a bit more code to write...but sure makes going back to it
easier.

Charles



On Wed, Feb 27, 2019 at 7:19 AM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

got it guys - thanks for not judging :)

if ( SML010 = 5 or M1PLIN <> *blanks);

is what I need to go with it looks like

jay

On Wed, Feb 27, 2019 at 9:17 AM <Franz.Rauscher@xxxxxxxxxxx> wrote:

if ( SML010 = 5 or M1PLIN <> *blanks);




From: "Jay Vaughn" <jeffersonvaughn@xxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxxxxxxxx>
Date: 27.02.2019 15:11
Subject: if statement brain cramp
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>



don't laugh, but i need to make sure i get this absolutely certain..

very elementary here... but, at risk of looking like a complete dummy...

what is the else to this if statement (in statement form)?

if ( SML010 <> 5 and M1PLIN = *blanks);
skipRecord;
else;
includeRecord;
endif;

I think it is...

if ( SML010 = 5 and M1PLIN = *blanks );

But need to be absolutely sure and want 2nd, 3rd, 4th opinions...

I want to includeRecord based on a true if statement condition.

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



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

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