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

Products

• TPX - Session Management
• Vman Session Management for z/OS

Issue/Introduction

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

Environment

Release: NVINAM00200-5.4-TPX-Session Management-Access Management package
Component:

Resolution

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  A01ITSO                             

C               USER02            A02ITSO                             

C                                                                     

EXTRACT GIVING(EXTFIL2) USER    AND MATCHING SESSIONS                 

    (UIDXNAME(USER001                                                 

              USER02  )                                               

     UENTAPPL(A01ITSO                                                 

              A02ITSO ))                                              

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 A01ITSO           

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  A01ITSO                            

TPBL1000 01/13/17.013 17:06:21.92 C               USER02            A02ITSO                            

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(A01ITSO                                                

TPBL1000 01/13/17.013 17:06:21.92               A02ITSO ))                                             

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 TSO01    UPDATed                                            

TPBL1033 01/13/17.013 17:06:22.11 UUSER001 TXO02    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  TSO01    UPDATed                                            

TPBL1033 01/13/17.013 17:06:22.17 UUSER02  TXO02    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

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

 

Profile Variables

PIDXPTIX	Pass Ticket User	PIDXPTIX specifies whether the user is using a non-qualified Pass ticket to log in to TPX.
PIDXQTIX	Qualified PTick User	User PIDXQTIX specifies whether the user is using a qualified Pass ticket to log in to TPX.

 

User Session variables

UENTPTIX	Generate Pass Ticket	UENTPTIX indicates that a pass ticket is generated for this application during session initiation.
UENTQTIX	Gen Qualified Pass Ticket	UENTQTIX indicates a Pass Ticket is generated based on ACF2 or TOP SECRET qualified profiles.

 

Profile Session Variables

PENTPTIX	Generate Pass Ticket	PENTPTIX indicates that a pass ticket is generated for this application during session initiation.
PENTQTIX	Gen Qualified Pass Ticket	PENTQTIX indicates a Pass Ticket is generated based on ACF2 or TOP SECRET qualified profiles.