TPX ACL Passphrase not being passed to TSO in ACF2 environment

book

Article ID: 131766

calendar_today

Updated On:

Products

CA TPX - Session Management TPX- PACKAGE CA Vman Session Management for z/OS TPX SESSION MANAGEMENT

Issue/Introduction

Trying to use the same ACL in testing password/passphrase, however it is not being passed when logging on to TSO.
 

Cause

ACF2 requires single quotes around the password phrase when logging on to TSO.
The ACL was not set up correctly to allow either password or passprhase..

Environment

TPX 
ACF2

Resolution

When using the same ACL for either password or password phrase for TSO/ACF2, the ACL must be modified to compare the length of the password and the password phrase
and then branch to the correct step accordingly.
See example below:
************************************************************            
* INITIALIZATION ACLPGM FOR TSO SPF EDIT                   *            
************************************************************            
        OPTION    FLOW,ON        *** DEBUG USUALLY OFF ***              
        OPTION    TERM,ON        *** DEBUG **                           
        WINP                     WAIT FOR TSO 'ENTER USERID' PROMPT     
*                                                                       
USERID  SEARCH    'ENTER USERID' ARE WE PROMPTED                        
        BRANCH    EQ,TYPEID      IF NOT                                 
        SEARCH    'ENTER LOGON ID' IS THIS ACF2 PROMPT?                 
        BRANCH    NE,MORE        IF NOT                                 
TYPEID  KEY       '&USERID'      ENTER USERID                           
        ENTER                    ... SEND                               
        SEARCH    'NOT AUTHORIZED'                                      
        BRANCH    EQ,STOP                                               
        SEARCH    'IN USE'                                              
        BRANCH    EQ,STOP                                               
*                                                                       
PROCEED SEARCH    'PASSWORD'     ARE WE PROMPTED                        
        BRANCH    NE,USERID      TRY USERID AGAIN                       
*                                                                       
*       CHECK LENGTH OF PSWD VARIABLE                                   
*       IF LENGTH OF PSWD .GT. 8 GO TO SYS1                             
*       IF LENGTH OF PSWD .LE. 8 GO TO SYS2                             
*                                                                       
        SET       A1,8                                                 
        SET       A2,&SIZE_OF(&PSWD)                                   
        COMPARE   A2,A1                                                 
        BRANCH    GT,SYS1                                               
        BRANCH    LE,SYS2                                               
                                                                        
SYS1    KEY      '''&PWPH'''         ENTERS PWPH                        
        ENTER                    ... SEND                               
        SEARCH    'NOT AUTHORIZED'                                      
        BRANCH    EQ,STOP         
        SEARCH    'IN USE'                                              
        BRANCH    EQ,STOP                                               
        SEARCH    'ACF01012 PASSWORD NOT MATCHED'                       
        BRANCH    EQ,STOP                                               
        BRANCH    ANY,READY                                             
                                                                        
SYS2    KEY      '&PSWD'         ENTERS PSWD                            
        ENTER                    ... SEND                               
        SEARCH    'NOT AUTHORIZED'                                      
        BRANCH    EQ,STOP                                               
        SEARCH    'IN USE'                                              
        BRANCH    EQ,STOP                                               
        SEARCH    'ACF01012 PASSWORD NOT MATCHED'                       
        BRANCH    EQ,STOP                                               
        BRANCH    ANY,READY                                             
*                                                                       
MORE    ENTER                    SEND TO TSO                            
        BRANCH    ANY,USERID     WAIT FOR USERID                        
*                                                                       
*  IF WE SEE READY THEN GO INTO SPF                                     
*                                                                       
READY   SEARCH    'READY'        INSURE 'READY' WAS SENT                
        BRANCH    EQ,ISPF        IF SO, ENTER ISPF                      
        SEARCH    '***'          WAS IT THREE ASTERISKS                 
        BRANCH    EQ,CLSTAR      YES - CLEAR IT                         
        WINP                     MUST BE MORE COMING                    
        BRANCH    ANY,READY      LOOK AGAIN                             
*                                                                       
*     ELSE HIT ENTER TO CLEAR '***' CONDITION                           
*                                                                       
CLSTAR  ENTER                    ... SEND                               
        BRANCH    ANY,LISTB                                             
*                                                                       
ISPF    KEY       'ISPF'         GET INTO SPF                           
        ENTER                    ... SEND                               
        SEARCH    'PRIMARY OPTION' INSURE PRIMARY OPTION MENU           
        BRANCH    NE,ERROR       IF NOT, ITS AN ERROR                   
*                                                                       
EDIT    KEY       '2'            GET INTO EDIT                          
        ENTER                    ... SEND                               
        SEARCH    'EDIT - ENTRY' VALIDATE EDIT                          
        BRANCH    NE,ERROR       IF NOT, ITS AN ERROR                   
*                                                                       
LISTB   ENTER                                                           
*                                                                       
STOP    STOP                     DONE       
*                                                                       
ERROR   KEY       'ERROR IN TSO ACLPGM' SEND MESSAGE 
              STOP