RE: SSL Socket Client

Once again I am in your Debt Scott.   Thank you thank you,



-----Original Message-----
From: Scott Klement [mailto:klemscot@klements.com]
Sent: Wednesday, February 20, 2002 3:12 PM
To: 'midrange-l'
Subject: Re: SSL Socket Client



Hi Chris,

> What is currently eluding me is a constant defined as:
> #define SSL_ENCRYPT_MASK  (1<<0)
>
> Ok I know it is a constant but what value does (1<<0) return?

Short answer:  1

Long answer:

The << operator shifts the bits to the left.  x<<y would shift the bits
in x to the left y positions.

IBM documents this here:
http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/qb3at602/5.6.6

If for example, you had "1<<2" it would look like this (in binary):

        before shifting: 00000001
         after shifting: 00000100

The closest approximation to this in RPG is to just multiply by 2 for
each position you want to shift.   Thus   "z = x<<y" in RPG would be
"eval    z = x * (2 ** y)".

Now... in YOUR CASE, you have 1<<0.  Stick that in our equasion.
z = 1 * (2 ** 0).   Ummm...  z = 1.   Shifting it zero positions does
not change the value!  (except possibly rounding, if there are precision
issues)

So, in RPG you'd define it as:

     D SSL_ENCRYPT_MASK...
     D                 C                   CONST(1)