TPX ACL Passphrase not being passed to TSO in ACF2 environment
book
Article ID: 131766
calendar_today
Updated On:
Products
TPX - Session ManagementVman Session Management for z/OS
Issue/Introduction
Trying to use the same ACL in testing password/passphrase, however it is not being passed when logging on to TSO.
Environment
TPX ACF2
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..
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
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