CA TPX:長期間ログオンしていないユーザーの確認方法

book

Article ID: 211875

calendar_today

Updated On:

Products

CA TPX - Session Management TPX SESSION MANAGEMENT

Issue/Introduction

長期間TPXにログオンしていないユーザーをバッチで確認する方法はありますか?

Environment

Release: ALL

Resolution

CA TPXのBATCH変数「VUSRDACC」がCA TPXへの最終ログオン年月日を保持しています。
当変数のフォーマットは「mm/dd/yy」となります。

「VUSRDACC」を「-------」で指定することで全ユーザー、
マスクすることで、特定の最終ログオン年月日でユーザーを抽出できます。

例1:VUSRDACC(------17 ------18)を指定し、
         最終ログオンが2017年と2018年であるユーザーを出力

//PTXATCH EXEC TPX54,VNODE='*BATCH*'
//*
//*Define file names for extract files                            
//EXTRACT DD UNIT=SYSDA,SPACE=(CYL,(n,n)),                        
//        DCB=(LRECL=2000,BLKSIZE=2004,RECFM=VB),                  
//        DISP=(,CATLG),VOL=SER=volume,DSN=dataset          
//*                           
//*Define file names for report files                              
//PRINT    DD SYSOUT=*                                             
//*                           
//SYSPRINT DD SYSOUT=*                                             
//SYSIN    DD *                                                  
C **************                                                   
C EXTRACT USERS WHO HAS 2017 AND 2018 AS LAST LOGON DATE           
C **************                                                   
EXTRACT GIVING(EXTRACT) USER AND NO SESSIONS (                     
                                     VUSRDACC(------17 ------18))  
SET RTITLE1                                                        
' USERID    LAST TPX LOGON in 2017 & 2018'                         
SET RTITLE2                                                        
' ========  ============================='                         
REPORT GIVING(PRINT) USING(EXTRACT)                                
((  ' &UIDXNAME'  ' &VUSRDACC          '))                         
//                                                                

出力例

USERID    LAST TPX LOGON in 2017 & 2018
========  ============================= 
AUSERMIN  08/14/17                    
ITEST04   03/30/18                    
NUSER01   04/01/18                    
[email protected]  08/16/17                  

例2:VVUSRDACC(------0- ------1- ------2-)を指定し
         全ユーザーを出力後、最終ログオン年月日でソート

//PTXATCH EXEC TPX54,VNODE='*BATCH*'
//*
//*Define file names for extract files                            
//EXTRACT DD UNIT=SYSDA,SPACE=(CYL,(n,n)),                        
//        DCB=(LRECL=2000,BLKSIZE=2004,RECFM=VB),                  
//        DISP=(,CATLG),VOL=SER=volume,DSN=dataset          
//*                           
//*Define file names for report files                              
//PRINT   DD UNIT=SYSDA,SPACE=(CYL,(n,n)),        
//        DCB=(LRECL=80,BLKSIZE=80,RECFM=FB),      
//        DISP=(,PASS),VOL=SER=volume,DSN=&&LIST  
//*                           
//SYSPRINT DD SYSOUT=*                                             
//SYSIN    DD *                                                  
C **************                                                   
C EXTRACT USERS SINCE 2000         
C **************                                                   
EXTRACT GIVING(EXTRACT) USER AND NO SESSIONS (                    
                             VUSRDACC(------0- ------1- ------2-))
SET RTITLE1                                
' ------------------------------'          
SET RTITLE2                                
' USERID    TPX LOGON SINCE 2000'          
SET RTITLE3                                
' --------  MM/DD/YY -----------'          
REPORT GIVING(PRINT) USING(EXTRACT)        
((  ' &UIDXNAME'  ' &VUSRDACC          ')) 
/*                                                  
//*                                                 
//SORTING  EXEC PGM=SORT                            
//SORTIN   DD   DSN=&&LIST,DISP=(OLD,DELETE)      
//SORTOUT  DD   SYSOUT=*                          
//SORTWK01 DD   UNIT=SYSDA,SPACE=(CYL,(n,n))      
//SORTWK02 DD   UNIT=SYSDA,SPACE=(CYL,(n,n))      
//SYSOUT   DD   SYSOUT=*                            
//SYSIN    DD   *                                   
 SORT FIELDS=(18,2,CH,A,12,2,CH,A,15,2,CH,A)        
/*                                                  
//                                                  

出力例

------------------------------
USERID    TPX LOGON SINCE 2000
--------  MM/DD/YY -----------
KERWIN  03/20/03          
TPXASER  11/29/16          
TPXUSER   11/29/16            
AUSERMIN  08/14/17          
[email protected]  08/16/17    
ITEST04   03/30/18    
NUSER01   04/01/18          
TESTI02   08/21/19          
DEVUSER1  12/10/20          
MARKA04 03/30/21          
USERO01 04/01/21                        

 

Additional Information

Old Japanese Knowledge document ID: JTEC002999
CA TPXのその他FAQについては、以下のリンクからご確認ください。
CA TPX FAQ一覧表