Implement panel or REXX in TPX menu

Document ID : KB000118494
Last Modified Date : 25/10/2018
Show Technical Document Details
Introduction:
We need to implement a panel or REXX in TPX menu which would do the following: There is a REXX which displays a panel, and based on the inputs, it either resumes a TSO ID, or resets the password and resumes the ID. We would like to hook this into TPX for selected users. Please provide guidance what steps do we have to perform to be able to start this REXX from TPX directly, or in case this is not feasible, how to display a panel, which will call the REXX from the )PROC statement. 
Instructions:
You can use a TSO ACL to either change the proc name or invoke a CLIST or REXX routine from the READY prompt.
Depending on the messages received at logon you would need to adjust the WAIT time.
See the TSO ACL example below:

**************************************************************            
* INITIALIZATION ACLPGM FOR TSO TO CHANGE                    * 
* THE PROC NAME AND INVOKE A CLIST OR                        *
* REXX ROUTINE                                               *
**************************************************************            
       OPTION    FLOW,OFF                - CHANGE FLOW TO ON FOR DEBUGGING ONLY                               
       OPTION    TERM,OFF                - CHANGE FLOW TO ON FOR DEBUGGING ONLY                            
       WINP                WAIT FOR TSO 'ENTER USERID' PROMPT           
*                                                                       
USERID SEARCH    'ENTER USERID' ARE WE PROMPTED                         
       BRANCH    NE,MORE        IF NOT                                  
*                                                                       
       KEY       '&USERID' ENTER USERID                                 
       ENTER               ... SEND                                     
       SEARCH    'NOT AUTHORIZED'                          
       BRANCH    NE,PROCEED                                   
STOP   STOP                                                             
*                                                                       
PROCEED KEY      '&PSWD'   ENTER PSWD                                  
        TABF     1                                                      
        KEY      'CATSO   '                                        
*       KEY      'CATSO   ' <<<< CHANGE PROC NAME >>>>>                 
        ENTER               ... SEND                                    
        WAIT      10                                                    
        ENTER                                                           
        BRANCH    ANY,READY                                             
*                                                                       
                                                                        
MORE   KEY       ' '       NULL ENTER                                   
       ENTER               SEND TO TSO                                  
       BRANCH    ANY,USERID   WAIT FOR USERID                           
*                                                                       
*  IF WE SEE READY THEN INVOKE EITHER A REXX ROOUTINE OR CLIST          
*  WHEN IT FINDS THE READY PROMPT THE CLIST PANAPT32 IS INVOKED         
*                                                                       
READY  SEARCH    'READY'                         
       KEY       'PANAPT32'                               
       ENTER                                                     
       WAIT      5                                                
       ENTER                                                            
       KEY       'ISPF'                                                 
       WAIT      2                                                      
       ENTER                                                           
       BRANCH    ANY,MENU                                               
                                                                        
*  IF WE SEE ISPF MENU THEN INVOKE THE PANAPT MENU                      
*                                                                       
MENU   SEARCH    'OPTION  ===> '                                       
       WAIT      5                                                      
       KEY       'A'                                                    
       ENTER                                                          
       WAIT      5                                                     
       ENTER                                                            
       BRANCH    ANY,QUIT                                               
                                                                        
                                                                        
*                                                                       
QUIT   STOP