/* REXX */                                                                      
TRACE COMMANDS                                                                  
ADDRESS TSO     "ALLOCATE FILE(SYSUEXEC) DA(REXXA.EXEC) SHR REUSE"              
ADDRESS TSO     "ALTLIB ACTIVATE USER(EXEC)"                                    
ADDRESS ISPEXEC "LIBDEF ISPMLIB DATASET ID(REXXA.EXEC)"                         
EXIT RC