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