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.
>
>
|