Here's an example of renaming the ARA DSECT to ARADSECT DSECT by
intercepting the DSECT statement using OPSYN:
MACRO
.* Macro to include IHAARA changing ARA DSECT to ARADSECT DSECT
ARADSECT ,
MACRO
.* Inner macro to intercept DSECT
&NAME MYDSECT ,
AIF ('&NAME' NE 'ARA').KEEP Go if not ARA
ARADSECT _DSECT , Rename ARA to ARADSECT
MEXIT
.KEEP ANOP , Not ARA DSECT
&NAME _DSECT , Define with specified name
MEND
_DSECT OPSYN DSECT Save standard DSECT
DSECT OPSYN MYDSECT Redirect it to macro
IHAARA , Get the IBM ARA area
DSECT OPSYN _DSECT Restore standard DSECT
_DSECT OPSYN , Cancel temporary definition
MEND
Jonathan Scott, HLASM
IBM Hursley, UK
