RE: 7th bit of a field

[rob@xxxxxxxxx]

Excellent example.  I think the problem with the book is they gave 
everything in hex.  And that's not as clear as the binary.  If I had 
converted the hex sample to binary, and did the intermediate calculations, 
it would have stuck out like Johnny Holmes.


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





CWilt@xxxxxxxxxxxx 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
08/12/2004 03:13 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Fax to

Subject
RE: 7th bit of a field






Geez,

Apparently I didn't either <grin>.

See if this new example helps:

select * from YCSC1 where land(YSTAT1, x'40') = x'40'

the results of land is simply the results of a binary and between the 
fields
passed.

0110 1101
0100 0000
------------
0100 0000

Since were dealing with single byte fields, and x'40' has only one bit on,
if my results is equal to x'40' then the YSTAT1 field had bit 7 on.

Charles


> -----Original Message-----
> From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
> Sent: Thursday, August 12, 2004 3:56 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: 7th bit of a field
>
>
>
>
> I just read the SQL reference manual and still don't
> understand land at
> all.
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
> |-----------------------------+-------------------------------
> ------------|
> |   CWilt@xxxxxxxxxxxx        |
>             |
> |   Sent by:                  |
>             |
> |   midrange-l-bounces@midrang|
>           To|
> |   e.com                     |    midrange-l@xxxxxxxxxxxx
>             |
> |                             |
>           cc|
> |   08/12/2004 02:25 PM       |
>             |
> |                             |
>       Fax to|
> |         Please respond to   |
>             |
> |         Midrange Systems    |
>      Subject|
> |       Technical Discussion  |    RE: 7th bit of a field
>             |
> |      <midrange-l@xxxxxxxxxxx|
>             |
> |                m>           |
>             |
> |                             |
>             |
> |                             |
>             |
> |                             |
>             |
> |                             |
>             |
> |-----------------------------+-------------------------------
> ------------|
>
>
>
>
>
>
> Depends on where you're doing the selection.
>
> Since you didn't post in the RPG-L list, how about some SQL.
>
> select * from YCSC1 where land(YSTAT1, x'40')
>
> HTH,
> Charles
>
>
> > -----Original Message-----
> > From: Muralidhar Narayana [mailto:Muralidhar_Narayana@xxxxxxxxxxx]
> > Sent: Thursday, August 12, 2004 3:08 PM
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: 7th bit of a field
> >
> >
> > There is column oriented file YCSC1. One of the field  is
> > YSTAT1 which  is defined as
> >  Type Character  &  Length  1.
> > I need select records from this file YCSC1 when 7th bit of
> > YSTAT1 is "on" .
> > Can some one help me how to go about this and acheive records
> > for this selection.
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion
> > (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> --
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> --
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.