I do something similar; if the option is RENT, I define an RSECT, else
CSECT.

Pieter

-----Original Message-----
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
On Behalf Of Swarbrick, Frank
Sent: Monday, February 15, 2016 19:17
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Using macro to set assembler option

I don't see how this might be possible, but no harm in asking.  I am writing
a simple macro which can be used to insert an appropriate SETOPT line to set
the link/bind REUS attribute:

         MACRO ,
&LABEL   REUS  &REUSOPT
         AIF   ('&REUSOPT' EQ 'RENT').OPTRENT
         AIF   ('&REUSOPT' EQ 'NONE').SETREUS
         AIF   ('&REUSOPT' EQ 'SERIAL').SETREUS
         AIF   ('&REUSOPT' EQ 'REFR').OPTRENT
         MNOTE 8,'INVALID PARAMETER #1'
         MNOTE 0,'VALID OPTIONS ARE SAME AS BINDER REUS OPTIONS:'
         MNOTE 0,'    NONE, SERIAL, RENT, REFR'
         AGO   .EXIT
.OPTRENT ANOP  ,
* something here to turn on ASM RENT option...
.SETREUS PUNCH ' SETOPT PARM(REUS=&REUSOPT)'
.EXIT    MEXIT ,
         MEND  ,

Ideally after the .OPTRENT label there would be something that would also
set the assembler RENT option.  But since a *PROCESS option must occur in
the source before any other source statements (other than ICTL) I don't see
how I can do it.  Any thoughts?

Thanks,
Frank


The information contained in this electronic communication and any document
attached hereto or transmitted herewith is confidential and intended for the
exclusive use of the individual or entity named above. If the reader of this
message is not the intended recipient or the employee or agent responsible
for delivering it to the intended recipient, you are hereby notified that
any examination, use, dissemination, distribution or copying of this
communication or any part thereof is strictly prohibited. If you have
received this communication in error, please immediately notify the sender
by reply e-mail and destroy this communication. Thank you.

Reply via email to