How do I test the $4SF280?
$4SF280:
SPECIAL ZAP TO DISABLE THE ESTABLISHMENT OF STAX PROCESSING TO ENABLE PA1 INTERRUPTS
Release : 14.6
The $4SF280 enables the attention by PA1.
If $4SF280 is applied, running REXX containing many PANTSO commands and using PA1 output the "COMMAND TERMINATED DUE TO ATTENTION" message and REXX stop.
If $4SF280 is not applied, PA1 is invalid and REXX is not stopped.
Sample:
ALLOC F(PANDD1) DA('PANVLT.R146.PANLIB') SHR
ALLOC F(SYSPRINT) DA(*)
PAN PRINT NAME(TEST01) CONTROL(0)
PAN PRINT NAME(TEST02) CONTROL(0)
PAN PRINT NAME(TEST03) CONTROL(0)
PAN PRINT NAME(TEST04) CONTROL(0)
PAN PRINT NAME(TEST05) CONTROL(0)
:
:
PAN PRINT NAME(TEST30) CONTROL(0)
FREE F(PANDD1)
EXIT