On 10/20/2011 12:23 PM, John Ehrman wrote:
Jim Phoenix asked:
Is there a way to test what AMODE is in effect for the current CSECT?
Such a test would be valuable to allow a macro to expand differently
based on the result, particularly if AMODE 64.
There is no system variable symbol that captures this information.
You could consider something like this:
ASect CSECT ,
&AM SETA 64
Asect Amode&AM
and then you can test the value of&AM elsewhere.
If you're desperate, write a macro that AREADs the source records
and scans them for an AMODE statement; once found scan off the
value. After AREADing each record, use AINSERT to buffer it to a
queue that will be read when your scanning macro exits.
Didn't think there was a system variable. Wish there were.
Thanks!
--
| Jim Phoenix | Voice: (310) 338-0400 x316 |
| Senior Software Developer | Fax: (310) 338-0801 |
| Phoenix Software International | |
| 831 Parkview Drive North | [email protected] |
| El Segundo, CA 90245 | http://www.phoenixsoftware.com |
Opinions expressed by this individual are not necessarily those of the Company.
