Re: Determining *DS4 support

[boldt@xxxxxxxxxx]

Paul wrote:
>> C           1             SUBST(P)    DEVCAP:2                 ARTB
>1
>> C                          TESTB         '23'
>> ARTB                         01
>
>FWIW, in RPG IV this can be changed to eliminate the work variable and
>indicator like so:
>
> C         if        (%subst(devCap : 2 : 1) and x'30') = x'30'
>
>Better still would be to define a symbolic constant:
>
> C         if        (%subst(devCap : 2 : 1) and DS4) = DS4
>
>Ideally, it should be possible to just use
>
> C         if        %subst(devCap : 2 : 1) and DS4
>
>but I don't think this behaviour is guaranteed to work.


Damn right that's not going to work!  Here's a radical idea: Why
not compile code snippets before posting?

The reason this code doesn't work is because AND is a logical
operator, not a bitwise operator.  This code snippet fails to
compile because both of the operands to the AND operator are not
valid indicator values.  (Even if the AND operator successfully
compiled, the = comparison would always return *OFF since AND
returns only values of '0' or '1'.)

(Perhaps a future release of RPG may have bitwise operations, but
that's nowhere in plan yet.)

Have a nice day.

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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
+---