TPX batch - example - Is there a way to set up the pass ticket flag for individual users for multiple applications?

Document ID : KB000012836
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

Is there a way to set up the pass ticket flag for individual users for multiple applications?

Answer:

Here is an example for updating user session records:

There are 3 extracts and corresponding reports
1) show users and sessions before  (I limited this report to userids U*)
2) extract a subset of users and sessions to update UENTPTIX
3)  show users and sessions after  (same report as 1 but using new files EXTFIL3/RPTFIL3)
 
Note: The UPDATE will get RC 8 since we extract on USER AND MATCHING SESSIONS, so the update is trying to update user records as well as usersession records.  Since UENTPTIX only exists on the usersession record, the attempt to update the user record gets the RC 8.
 
 
//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 >> BEFORE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
C                                                                     
C  List users (U*) and sessions with applid: TPXADMIN or A--ITSO      
C                                                                     
EXTRACT GIVING(EXTFIL1) USER    AND MATCHING SESSIONS                 
    (UIDXNAME(U-------)                                               
     UENTAPPL(TPXADMIN A--ITSO))                                      
C                                                                     
SET RTITLE1                                                           
' >>>> BEFORE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'          
SET RTITLE2                                                           
' Userid   SessionID ApplID    Gen PTick '                            
SET RTITLE3                                                           
' ======== ========= ========  ========= '                            
REPORT GIVING(RPTFIL1) USING(EXTFIL1)                                 
    ((' &UIDXNAME' '&UENTUSER' ' &UENTAPPL' ' &UENTPTIX' ))           
C                                                                     
C                                                                     
C >> CHANGE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
C                                                                     
C Set Generate Passticket (UENTPTIX) for these user sessions:         
C  for :  users USER001 sessions  A31ITSO                             
C               USER02            A11ITSO                             
C                                                                     
EXTRACT GIVING(EXTFIL2) USER    AND MATCHING SESSIONS                 
    (UIDXNAME(USER001                                                 
              USER02  )                                               
     UENTAPPL(A31ITSO                                                 
              A11ITSO ))                                              
UPDATE USING(EXTFIL2) (UENTPTIX(Y))                                   
C                                                                     
SET RTITLE1                                                           
' >>>> USER SESSIONs extracted for change <<<<<<<<<<<<<<<<<<'         
SET RTITLE2                                                           
' Userid   SessionID ApplID    Gen PTick '                            
SET RTITLE3                                                           
' ======== ========= ========  ========= '                            
REPORT GIVING(RPTFIL2) USING(EXTFIL2)                                 
    ((' &UIDXNAME' '&UENTUSER' ' &UENTAPPL' ' &UENTPTIX' ))           
C                                                                     
C                                                                     
C >> AFTER  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
C                                                                     
C  List users and sessions with applid: TPXADMIN or A31ITSO           
C                                                                     
EXTRACT GIVING(EXTFIL3) USER    AND MATCHING SESSIONS                 
    (UIDXNAME(U-------)                                               
     UENTAPPL(TPXADMIN A--ITSO))                                      
C                                                                     
SET RTITLE1                                                           
' >>>> AFTER  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'          
SET RTITLE2                                                           
' Userid   SessionID ApplID    Gen PTick '                            
SET RTITLE3                                                 
' ======== ========= ========  ========= '                  
REPORT GIVING(RPTFIL3) USING(EXTFIL3)                       
    ((' &UIDXNAME' '&UENTUSER' ' &UENTAPPL' ' &UENTPTIX' )) 
/* 
 
 
Note: The UPDATE will get RC 8 since we extract on USER AND MATCHING SESSIONS, so the update is trying to update user records as well as usersession records.  Since UENTPTIX only exists on the usersession record, the attempt to update the user record gets the RC 8.
 
Here is the section of the batch job output for the update step showing the expected messages on the user record update:
 
 
TPBL1000 01/13/17.013 17:06:21.92 C >> CHANGE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
TPBL1000 01/13/17.013 17:06:21.92 C                                                                    
TPBL1000 01/13/17.013 17:06:21.92 C Set Generate Passticket (UENTPTIX) for these user sessions:        
TPBL1000 01/13/17.013 17:06:21.92 C  for :  users USER001 sessions  A31ITSO                            
TPBL1000 01/13/17.013 17:06:21.92 C               USER02            A11ITSO                            
TPBL1000 01/13/17.013 17:06:21.92 C                                                                    
TPBL1000 01/13/17.013 17:06:21.92 EXTRACT GIVING(EXTFIL2) USER    AND MATCHING SESSIONS                
TPBL1000 01/13/17.013 17:06:21.92     (UIDXNAME(USER001                                                
TPBL1000 01/13/17.013 17:06:21.92               USER02  )                                              
TPBL1000 01/13/17.013 17:06:21.92      UENTAPPL(A31ITSO                                                
TPBL1000 01/13/17.013 17:06:21.92               A11ITSO ))                                             
TPBL1009 01/13/17.013 17:06:22.03          6 Records written GIVING (EXTFIL2 )                         
TPBL1000 01/13/17.013 17:06:22.03 UPDATE USING(EXTFIL2) (UENTPTIX(Y))                                  
TPBL1010 01/13/17.013 17:06:22.04 VPUT     UENTPTIX return code is    8                               
TPBL1054 01/13/17.013 17:06:22.04  means value not appropriate for this variable                       
TPBL1031 01/13/17.013 17:06:22.04   while Updating UUSER001                                            
TPBL1037 01/13/17.013 17:06:22.04 No fields updated for UUSER001                                       
TPBL1033 01/13/17.013 17:06:22.04 UUSER001          Prcssed                                            
TPBL1033 01/13/17.013 17:06:22.05 UUSER001 TSO31    UPDATed                                            
TPBL1033 01/13/17.013 17:06:22.11 UUSER001 TXO11    UPDATed                                            
TPBL1010 01/13/17.013 17:06:22.11 VPUT     UENTPTIX return code is    8                                
TPBL1054 01/13/17.013 17:06:22.11  means value not appropriate for this variable                       
TPBL1031 01/13/17.013 17:06:22.11   while Updating UUSER02                                             
TPBL1037 01/13/17.013 17:06:22.11 No fields updated for UUSER02                                        
TPBL1033 01/13/17.013 17:06:22.11 UUSER02           Prcssed                                            
TPBL1033 01/13/17.013 17:06:22.15 UUSER02  TSO31    UPDATed                                            
TPBL1033 01/13/17.013 17:06:22.17 UUSER02  TXO11    UPDATed                                            
TPBL1009 01/13/17.013 17:06:22.17          6 Records read USING (EXTFIL2 )  
Additional Information:

Batch Administration Pass ticket variables:

The above scenario was specific to user session variables, but depending upon the requirements, there are a variety of batch variables that may be appropriate to your situation. 

 

User Variables

UIDXPTIXPass Ticket UserUIDXPTIX specifies whether the user is using a non-qualified Pass ticket to log in to TPX.
UIDXQTIXQualified PTick User UIDXQTIX specifies whether the user is using a qualified Pass ticket to log

 

Profile Variables

PIDXPTIXPass Ticket UserPIDXPTIX specifies whether the user is using a non-qualified Pass ticket to log in to TPX.
PIDXQTIXQualified PTick UserUser PIDXQTIX specifies whether the user is using a qualified Pass ticket to log in to TPX.

 

User Session variables

UENTPTIXGenerate Pass TicketUENTPTIX indicates that a pass ticket is generated for this application during session initiation.
UENTQTIXGen Qualified Pass TicketUENTQTIX indicates a Pass Ticket is generated based on ACF2 or TOP SECRET qualified profiles. 

 

Profile Session Variables

PENTPTIXGenerate Pass TicketPENTPTIX indicates that a pass ticket is generated for this application during session initiation.
PENTQTIXGen Qualified Pass TicketPENTQTIX indicates a Pass Ticket is generated based on ACF2 or TOP SECRET qualified profiles.