× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Mark and Simon,

Every AND statement can be expressed as OR NOT, and vice versa.

X and Y = NOT( NOT X or NOT Y )

X or Y = NOT( NOT X and NOT Y)

So,

/If Not Defined X And Not Defined Y
/Else
Here goes the code you want compiled if X OR Y
/EndIf

Haven't tested this, but the logic is correct.

- Asher


In a message dated 7/20/2008 11:05:34 P.M. Jerusalem Daylight Time,
mlazarus@xxxxxxxx writes:

Simon,

I have run into this limitation, and would very much like IBM to
add in OR capability to compiler directives.

Aren't the LOOKUPxx / TLOOKUPxx opcodes far more egregious than the
TRIMx opcodes, when it comes to implementation?

-mark

At 7/18/08 06:34 PM, you wrote:

Has anyone else needed to test multiple conditions using /IF?

The RPG IV documentation does not mention either whether it is
supported or unsupported but it seems reasonable to want to test
multiple conditions however there appears to be no syntax to support it.

ANDing conditions is relatively easy although clumsy but ORing
conditions is a bit harder and certainly messier.

I've tried every combination I could think of just incase this had
slipped through without documentation but I always get a compiler
error indicating it's not supported. For example:

/if defined( x or y)
/endif

/if defined(x) or defined(y)
/endif

/if defined(x)
/or defined(y)
/endif

I do value the efforts the RPG compiler team make but this is another
area that smacks of "not quite enough effort" or as someone I know
was always told: "could do better". A bit like the TRIM
implementation. Why 3 built-in functions? Should have been 1 with a
parameter for Leading, Trailing, or Both (default).

Is it just me or does no-one else run into these things?

Comments?

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------



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

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






**************Get fantasy football with free live scoring. Sign up for
FanHouse Fantasy Football today.
(http://www.fanhouse.com/fantasyaffair?ncid=aolspr00050000000020)

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.