Yeah, the approach you suggest occurred to me but it seemed a lot of trouble
considering that it is not a perfect solution for the reasons you describe.

I got a good approach from a couple of people and have coded (but not tested
yet) that.

Charles


-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Farley, Peter x23353
Sent: Friday, September 29, 2017 8:04 AM
To: [email protected]
Subject: Re: Determining MACHINE level in a macro

You could use character symbol subscripting and extract the numeric part of
&SYSOPT_OPTABLE (select everything from position 3 to the length of the
symbol) then assign that character string to a numeric symbol and test that
numeric symbol value.

Of course, if they ever change the "ZS" to something else that would also
break.

HTH

Peter

-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Charles Mills
Sent: Friday, September 29, 2017 8:09 AM
To: [email protected]
Subject: Determining MACHINE level in a macro

I am writing a macro that I want to be parametrized by the MACHINE level:
generate one thing if MACHINE greater than or equal to ZS-6 and another
thing if less.

I can compare &SYSOPT_OPTABLE to 'ZS6' and jump if GE. But I would guess
that one of these days there will be a ZS-9 and then a ZS-10 and 'ZS10'
compares low to 'ZS6'. Is the machine level available somewhere in a numeric
symbol that will continue to increment, or is there some better way to do
this?

Charles 

 

This message and any attachments are intended only for the use of the
addressee and may contain information that is privileged and confidential.
If the reader of the message is not the intended recipient or an authorized
representative of the intended recipient, you are hereby notified that any
dissemination of this communication is strictly prohibited. If you have
received this communication in error, please notify us immediately by e-mail
and delete the message and any attachments from your system.

Reply via email to