In this scenario, there is a need to determine which Users and Profiles have a Stage 1 Timeout value of 99. This value should be 600 and needs to be updated.
Release : 5.4
The following reports can be used to determine which Users and Profiles have a value of '99' for the Stage 1 Timeout value.
Once this is determined an Update statement can be used to change or remove the value. In the examples below the job end '//' is
included and the UPDATE is commented out 'C'. It is recommended the UPDATE be tested on 1 user or profile first.
1. User Report (notice the variables start with a 'U')
//EXTFILE DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//RPTFILE DD SYSOUT=*
//SYSIN DD *
C USER LEVEL REPORT
EXTRACT GIVING(EXTFILE) USER AND NO SESSIONS
(UIDXTOU1(99))
C
SET RTITLE1 'USER LEVEL STAGE1 TIMEOUT'
SET RTITLE2
' USERID STG1-MIN STG1-OPT '
SET RTITLE3
' ======= ======== ========='
REPORT GIVING(RPTFILE) USING(EXTFILE)
(( '0&UIDXNAME' ' &UIDXTOU1' ' &UIDXOP1' ))
//
C
C UPDATE THE TIMEOUT VALUE USING THE EXTFILE
C
C UPDATE USING(EXTFILE) (UIDXTOU1( )) <<<< This updates the Stage 1 timeout at the USER level.
2. Profile Report (notice the variables start with a 'P')
//EXTFILE DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(MOD)
//RPTFILE DD SYSOUT=*
//SYSIN DD *
C
C Report of profiles with a STAGE 1 Timeout of 99
C
EXTRACT GIVING(EXTFILE) PROFILE AND NO SESSIONS
(PIDXTOU1(99))
SET RTITLE1
' STAGE1 TIMEOUT AT THE PROFILE LEVEL:'
SET RTITLE2
' Profile STG1-MIN STG1-OPT'
SET RTITLE3
' ======== ========== ========'
REPORT GIVING(RPTFILE) USING(EXTFILE)
(( ' &PIDXNAME' ' &PIDXTOU1 ' ' &PIDXTOP1')) << PIDXTOP1 is the timeout option
//
C
C UPDATE THE PROFILE STAGE1 ON THE RECORDS FROM THE EXTRACT
C
C UPDATE USING(EXTFILE) (PIDXTOU1( )) <<<< This updates the Stage 1 timeout at the PROFILE level.
//
Helpful Documentation:
The reports above are referencing the User and Profile Variables.