IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

User key common area users - How to remove


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India

PostPosted: Thu Oct 10, 2019 1:17 am
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 - 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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts System add a USER parm when job submi... TSO/ISPF 4
No new posts can an ISPF appl save user changes in... TSO/ISPF 14
No new posts COBOL 6.4 - User Defined Function nee... COBOL Programming 6
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
Search our Forums:

Back to Top