/* REXX */
Address ipcs
x = OUTTRAP(ip.,9999)
'systrace current'
x = outtrap('OFF')
Do i = 1 to ip.0
   Say i' 'ip.i
   End i
Exit 0