/* REXX */ "CLEAR"; trace r ispexec = "TSO" address ISPEXEC say address() address (ispexec) say address() exit