/* REXX */                                                                      
uid    = sysvar('SYSUID')                                                       
dsn = "'" || uid || ".CBT.FILE434'"                                             
address TSO "ALTLIB ACTIVATE APPLICATION(CLIST) DA("dsn")"                      
address ISPEXEC "LIBDEF ISPPLIB DATASET ID("dsn") STACK"                        
address ISPEXEC "LIBDEF ISPMLIB DATASET ID("dsn") STACK"                        
address ISPEXEC "SELECT PANEL(XEFMENU) NEWAPPL(ISR) PASSLIB"                    
address ISPEXEC "LIBDEF ISPMLIB"                                                
address ISPEXEC "LIBDEF ISPPLIB"                                                
address TSO "ALTLIB DEACTIVATE APPLICATION(CLIST) "                             
exit 0