> On Sunday, August 13, 2023 at 03:53:19 AM PDT, Seymour J Metz
> <[email protected]> wrote:
> A technique that I have seen used in macros is to repurpose the length
> attribute in order to define
> FLAG4 DC AL1(l'LDAP_AUTH_ENABLED+TRACE)
The +TRACE in flag4 needs to be removed.
On Sunday, August 13, 2023 at 03:53:19 AM PDT, Seymour J Metz
<[email protected]> wrote:
Unless something has changed you can't use quoted symbols as the value of an
X-type constant, although you can use SET symbols . So
FLAGS DC AL4(LDAP_AUTH_ENABLED+TRACE)
A technique that I have seen used in macros is to repurpose the length
attribute in order to define both an address and a mask for each flag bit:
FLAGS DS 0AL4
FLAG1 DC AL1(L'TRACE)
TRACE EQU FLAG1,X'80' ENABLE TRACING
FLAG2 DC AL1(0)
FLAG3 DC AL1(0)
FLAG4 DC AL1(l'LDAP_AUTH_ENABLED+TRACE)
LDAP_AUTH_ENABLED EQU FLAG1,X'01' LDAP AUTH IS ENABLED
USE_SSL EQU FLAG4,X'02' SSL IS ENABLED
STRICT_MODE EQU FLAG4,X'04' STRICT USER MAPPING
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Assembler List [[email protected]] on behalf
of Rene BRANDT [[email protected]]
Sent: Sunday, August 13, 2023 2:23 AM
To: [email protected]
Subject: Re: Self-documenting Bit Settings
Hi,
If you want it unaligned code it as :
FLAGS DC XL4(LDAP_AUTH_ENABLED+TRACE)
René
Le vendredi 11 août 2023 à 19:25:04 UTC+2, Dave Clark
<[email protected]> a écrit :
Given this:
FLAGS DC XL4'80000001'
LDAP_AUTH_ENABLED EQU X'00000001' LDAP AUTH IS ENABLED
USE_SSL EQU X'00000002' SSL IS ENABLED
STRICT_MODE EQU X'00000004' STRICT USER MAPPING
TRACE EQU X'80000000' ENABLE TRACING
It makes more sense to me (and is self-documenting) to code it
this way.
FLAGS DC A(LDAP_AUTH_ENABLED+TRACE)
But that yields aligned storage, correct? Is there a way to
achieve the same result but without aligned storage?
Sincerely,
Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300
Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
*********************************************************************************************
