TPX Batch - example - Deleted Profiles still show up on TPX User Maintenance Detail Table

book

Article ID: 4251

calendar_today

Updated On:

Products

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

Issue/Introduction

I deleted several profiles and recycled the TPX task.  The sessions no longer appear on our clients TPX menus but the profiles that I deleted still appear in the TPX User Maintenance Detail Table for these static users.  

 

Cause

Deleting the profile will not remove that profile name from the individual user records.

Environment

CA TPX for z/OS

Resolution

Since these are static users, you can use TPX batch command DELETE USERPROFILE to delete a profile from a user.

See Additional Information for a sample job.  The general steps are:

  • Extract static user records 
    • EXTRACT GIVING(EXTFIL1) USER AND NO SESSIONS ( UIDXSTIC(Y) ) 
  • Report before delete
  • Delete the user profiles
    • DELETE USERPROFILE USING(EXTFIL1) ( profile1 ) 
      DELETE USERPROFILE USING(EXTFIL1) ( profile2 )  ...one stmt for each profile to delete 
  • Report after delete

Additional Information


 
//BATCHADM EXEC TPXPROC,VNODE='*BATCH*'   
//EXTFIL1  DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(MOD)
//RPTFIL1  DD SYSOUT=*
//EXTFIL2  DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(MOD)
//RPTFIL2  DD SYSOUT=*
//EXTFIL3  DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(MOD)
//RPTFIL3  DD SYSOUT=*
//SYSIN DD *
C
C  Delete specific profiles from static users
C
C ...can limit further by userid (UIDXNAME)
C        and/or assigned profile (VUSRPROF)
C
EXTRACT GIVING(EXTFIL1) USER AND NO SESSIONS (
                                              UIDXSTIC(Y)
                                              UIDXNAME(GVT-----)
                                                         )
C
SET RTITLE1
' Static users: <<< BEFORE delete >>>  max 5 profiles in report'
SET RTITLE2
' USERID   1ST PROF 2ND PROF 3RD PROF 4TH PROF 5TH PROF'
SET RTITLE3
' ======== ======== ======== ======== ======== ========'
REPORT GIVING(RPTFIL1) USING(EXTFIL1)
(( '0&UIDXNAME'   '&VUSR$PRF                                     '))
C //
C //
C //
C //* COMMENT out the above // after your first run. (Change // to C //)
C //* This will allow you to first see how many users will be affected
C //* before making any actual updates.
C
C   Update extracted users:  Delete listed user profiles
C
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICS   )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICSD  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICSE  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICSP  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICST  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCIST2  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDCICSQ  )
DELETE USERPROFILE USING(EXTFIL1) ( AZCICSE   )
DELETE USERPROFILE USING(EXTFIL1) ( AZCICSP   )
DELETE USERPROFILE USING(EXTFIL1) ( AZCICST   )
DELETE USERPROFILE USING(EXTFIL1) ( CICSCLAS  )
DELETE USERPROFILE USING(EXTFIL1) ( CICSMSGT  )
DELETE USERPROFILE USING(EXTFIL1) ( CICSPROD  )
DELETE USERPROFILE USING(EXTFIL1) ( CICSSTAG  )
DELETE USERPROFILE USING(EXTFIL1) ( ADDAZCICS )
C
C
C
C  Extract and report again after deletion.
C
C
EXTRACT GIVING(EXTFIL2) USER AND NO SESSIONS (
                                              UIDXSTIC(Y)
                                              UIDXNAME(GVT-----)
                                                         )
C
SET RTITLE1
' Static users: <<< AFTER delete >>>   max 5 profiles in report'
SET RTITLE2
' USERID   1ST PROF 2ND PROF 3RD PROF 4TH PROF 5TH PROF'
SET RTITLE3
' ======== ======== ======== ======== ======== ========'
REPORT GIVING(RPTFIL2) USING(EXTFIL2)
(( '0&UIDXNAME'   '&VUSR$PRF                                     '))