Thank you all for your suggestions. This is the 1st time in decades that I've had a need and I may not run into a need again for many years. I was thinking there had to be a better way and I've learned several techniques that are now in my tool kit for the future.
Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck “Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are.” - - - John Wooden -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Billy Ashton Sent: Tuesday, August 2, 2022 8:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: REXX Testing a bit? If you will be doing many of these kinds of tests, you can create a simple proc to tell you if the bit is on: BitOn: If Arg(2) > Length(Arg(1)) * 8 Then Return 9; tval = Overlay('1',X2B(C2X(Copies('00'x,Length(Arg(1))))),Arg(2),1); tval = X2C(B2X(tval)); Return C2X(BitAnd(Arg(1),tval)) > 0; The first test will return a 9 if you make an error, like specify Bit 9 of a 1-byte field. Otherwise, it will return a 1 or 0 as True or False indicating the bit is on or not. Note that it will work on multi-byte or single-byte values. Examples: If BitOn("AC",15) Then Say "It is on" ---> RC (1): It is on If BitOn("ABC",26) Then Say "It is on" ---> RC (9): null If BitOn("A",4) Then Say "It is on" ---> RC (0): null Thank you and best regards, Billy Ashton ------ Original Message ------ >From "Billy Ashton" <bill00ash...@gmail.com> To "IBM Mainframe Discussion >List" <IBM-MAIN@listserv.ua.edu> Date 8/2/2022 8:40:49 AM Subject Re: REXX >Testing a bit? >I usually am displaying something depending on the bit setting, so I wrote a >small proc: > >/*--------------------------------------------------------------------* > * BITSW function: to test a bit for a value and return translation * > >*--------------------------------------------------------------------*/ >BitSw: >tr$ = Trace(o); ; > > test_str = Arg(1); > test_bit = Arg(2); > test_ret = Arg(3); > > Return Translate(Substr(x2b(test_str),test_bit,1),test_ret,"01"); > > >You could use it like this: >mystring = BitSw(flag1,6,"NY") > >This means: >Test the setting of bit 6 of the flag1 variable Translate to the values >I pass in (N, Y) from the bit value of 0, 1 > > >Another simple way you could do it is to build your test mask (bit 6 on), and >use this: >If C2X(Bitand(flag1,'00000100'b)) > 0 Then say "got it" > >Thank you and best regards, >Billy Ashton > >------ Original Message ------ >From "Lionel B. Dyck" <lbd...@gmail.com> To IBM-MAIN@listserv.ua.edu >Date 8/2/2022 7:50:10 AM Subject REXX Testing a bit? > >>What is the best way to test if a bit is 1 or 0? >> >> >> >>I'm doing this but was thinking there may/probably is a better way: >> >> >> >>If substr(x2b(c2x(flag1)),6,1) = 1 then say 'got it' >> >> >> >> >> >>Lionel B. Dyck <>< >> >>Website: <https://www.lbdsoftware.com> https://www.lbdsoftware.com >> >>Github: <https://github.com/lbdyck> https://github.com/lbdyck >> >> >> >>"Worry more about your character than your reputation. Character is what you >>are, reputation merely what others think you are." - - - John Wooden >> >> >> >> >>---------------------------------------------------------------------- >>For IBM-MAIN subscribe / signoff / archive access instructions, send >>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
