Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
User key common area users - How to remove

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1650
Location: The Good Place

PostPosted: Thu Oct 10, 2019 1:17 am    Post subject: User key common area users - How to remove
Reply with quote

Hi,
We are trying to identify the tasks that use user key common area, so they can be acted upon during z/OS 2.4 migration.

Looks like there are flags in SMF 30 that show when the user key common area is being used. Used the below program.
Code:
//PDB      DD  DISP=SHR,DSN=AAA.MXG.PDBD                           
//SASCODE  DD  *                                                   
 DATA LIMIT;                                                       
     SET PDB.SMFINTRV ;                                             
 IF CPUTM NE  .   ;                                                 
  IF SMF30_RAXFLAGS='80'X THEN DELETE;                             
 /* 10000000 = 80 = AUDIT ON              */                       
 /* 10010000 = 90 = CHANGE KEY            */                       
 /* 10100000 = A0 = CADS USAGE            */                       
 /* 10110000 = B0 = CADS+CHANGE KEY       */                       
 /* 11000000 = C0 = CSA USAGE             */                       
 /* 11010000 = D0 = CSA+CHANGE KEY        */                       
 /* 11100000 = E0 = CSA+CADS              */                       
 /* 11110000 = F0 = CSA+CADS+CHANGEKEY    */                       
  IF SMF30_RAXFLAGS='90'X THEN USERKEY='CHGKEY' ;                   
  IF SMF30_RAXFLAGS='A0'X THEN USERKEY='CADS' ;                     
  IF SMF30_RAXFLAGS='B0'X THEN USERKEY='CADS+CHGKEY' ;             
  IF SMF30_RAXFLAGS='C0'X THEN USERKEY='CSA' ;                     
  IF SMF30_RAXFLAGS='D0'X THEN USERKEY='CSA+CHGKEY' ;               
  IF SMF30_RAXFLAGS='E0'X THEN USERKEY='CSA+CADS' ;                 
  IF SMF30_RAXFLAGS='F0'X THEN USERKEY='CSA+CADS+CHGKEY' ;         
 RUN;                                                               
  PROC MEANS DATA=LIMIT SUM NWAY MISSING NONOBS PRINT;             
    CLASS  SYSTEM JOB PROGRAM SMF30_RAXFLAGS USERKEY;               
    VAR CPUTM;                                                     
 OUTPUT OUT=POSTAV1(DROP=_TYPE_) SUM = GCPU  ;                     
                                                                   
 PROC PRINT DATA=POSTAV1;                                           
 TITLE 'SMF30_USERKEY';                                             
 ID SYSTEM PROGRAM SMF30_RAXFLAGS USERKEY ;                         
 VAR JOB;                                                           
 RUN;


The output of this job showed CICS 5.2 regions with program DFHSIP and other batch jobs.

Code:
             JOB                     AUDIT*                               
             NAME*OR*    PROGRAM*    USERKEY*                             
SYSTEM*ID    TSO USER    NAME        CSA*FLAGS    USERKEY             SUM 
-------------------------------------------------------------------------   
SYSA         CI30AOR1    DFHSIP      C0           CSA          49.4800000 
             CI30AOR2    DFHSIP      C0           CSA          57.6700000


But the article - https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.e0zm100/BCP_vsm-rsm_userkeyCA_v2r3.htm says,
Quote:
If you are running CICS Transaction Server (CTS) for z/OS, ensure that you are running CTS V5.2 or later.


Is it normal to see CICS 5.2 using user key common area?
There are batch jobs that use DB2 showning up on the report. Could you please let me know what is the next course of action after identifying the tasks.
Back to top
View user's profile Send private message

View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IEBGENER to copy from FB to VB and re... Mike.Fulton All Other Mainframe Topics 3 Sat Aug 24, 2019 7:20 am
No new posts How to force PULL to read user-input ... Andi1982 CLIST & REXX 5 Thu May 09, 2019 6:27 pm
No new posts To remove the spaces using SORT Card dharmaraok DFSORT/ICETOOL 1 Tue Apr 30, 2019 3:42 pm
No new posts Call DB2 user defined function from C... Ziko13 DB2 5 Thu Mar 14, 2019 4:46 pm
No new posts To get the count of PDS data sets whi... Vignesh Sid JCL & VSAM 4 Fri Nov 30, 2018 8:38 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us