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

Document ID : KB000004251
Last Modified Date : 14/02/2018
Show Technical Document Details
Issue:

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.  

 

Environment:
CA TPX for z/OS
Cause:

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

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                                     '))