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.
