The &s before &BITPREF in SETA were missing in the first try ...
Am 30.12.2014 um 16:48 schrieb Bernd Oppolzer:
> &BITPREF SETA 0
> AIF ('&ZSYS' EQ 'S370').BIT24A
> &BITPREF SETA X'80000000'
> .BIT24A ANOP
> NEWIO DC X'000C0000' machine check enabled + EC
> DC A(&BITPREF+STAGE2)
>
> Kind regards
>
> Bernd
>
>
> Am 30.12.2014 um 15:29 schrieb K.V.:
>> I wonder if it would be possible to simplify this:
>>
>> NEWIO DC X'000C0000' machine check enabled + EC
>> AIF ('&ZSYS' EQ 'S370').MOD24B
>> DC A(X'80000000'+STAGE2)
>> AGO .MOD31B
>> .MOD24B ANOP
>> DC A(STAGE2)
>> .MOD31B ANOP
>>
>> by having a variable set to either X'00000000'
>> or X'80000000'.
>>
>> Something like:
>>
>> AIF ('&ZSYS' EQ 'S370').BIT24A
>> BITPREF EQU X'80000000'
>> AGO .BIT24B
>> BITPREF EQU X'00000000'
>> .BIT24B
>>
>> NEWIO DC X'000C0000' machine check enabled + EC
>> DC A(&BITPREF+STAGE2)
>>
>> Would that work?
>>
>> Thanks. P.
>>
>>
|