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

Products

• 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
========  ============================= 
User-ID1  08/14/17                     
User-ID2  03/30/18                     
User-ID3  04/01/18                     
User-ID4  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 -----------
User-IDA  03/20/03            
User-IDB  11/29/16            
User-IDC  11/29/16            
User-IDD  08/14/17            
User-IDE  08/16/17    
User-IDF  03/30/18     
User-IDG  04/01/18            
User-IDH  08/21/19            
User-IDI  12/10/20            
User-IDJ  03/30/21            
User-IDK  04/01/21                          

 

Additional Information

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