How can I monitor TPX storage usage without manually doing D STOR and D STORXA displays from the TPXOPER session?

Document ID : KB000027220
Last Modified Date : 14/02/2018
Show Technical Document Details
D STOR/STORXA via OPENGATE
-------------------------- Instructions to setup an OPENGATE user to monitor TPX storage constantly. The displays from TPXOPER session will be printed into TPXlog. The interval can be set in the ACL/E program 'DSTORAGE'.
  1. Definitions in ACT
    In TPXDEMO ACT entry define OPENGATE user 'STORAGE'
    ----------------------------------------------------------------------------------
     
                       TPX Application Characteristics Detail Panel                 
                                                                 Panelid  - TEN0094 
      Command  ===>                                              Userid   - TPXADMIN
                                                                 Termid   - A55TU005
         Application Characteristics Table: EUNET                Date     - 03/09/03
         Applid:    TPXDEMO            * Substring:              Time     - 03:48:10
       * Sessionid:             * Label:     TPX Dummy Session                      
                                                                                    
     TPX options:                                                                   
     * Start ACL prior to CLSDST PASS:   N    * Outbound compression:     Y         
     * Suspend background application:   N      Inbound compression:      N         
     * Enforce CD protocol:              N    * Outbound stripping:       N         
     * Inform user of CD protocol error: N      OPENGATE Control User:    STORAGE   
     * Auto restart:                     N    * Maximum sessions:         00000     
     * Inquire on application status:    N    * Mode entry override:      ________  
       End-to-End option:                BB   * Timeout Minutes:          ______    
     * Ignore appl output for timeout:   N    * Signal session switch:    ________  
     * Disallow VIEWing on this appl:    N    * Pass Ticket prof name:    TPXDEMO   
       Readbuf Technique:                N    * TPX enhanced sec:         N         
       Screen even if readbuf technique: N    * Generate Pass Ticket:     N         
                                                                                    
     * Can be dynamically updated using Reload even if application is not quiesced  
                                                                                    
     PF1=Help  PF3=End  PF4=Return   PF7=Prev Page  Pf8=Next Page    "CANCEL" cancel
     
    ----------------------------------------------------------------------------------
    
  2. Define a static TPX user with userid 'STORAGE'

    Make sure that this user:
    - has Security system = 'NONE'
    - has no timeout values either in user definitions nor in session definitions
    - is authorized for the TPXOPER DISPLAY command (This is based upon the assigned Operator Cmd Cls.)

    Define 2 sessions with Start at signon = 'Y' for this user:


    - a session to TPXDEMO
    - a session to TPXOPER with startup ACL/E = 'DSTORAGE'
    ----------------------------------------------------------------------------------
     
                       TPX Userid Maintenance Detail Panel                          
                                                                 Panelid  - TEN0123 
      Command ===>                                               Userid   - TPXADMIN
                                                                 Termid   - A55TU005
     Userid:   STORAGE                                           Date     - 03/09/03
     UserName:                                                   Time     - 03:27:33
     Location:                         Phone:                                       
                                                                                    
                                      Profile defaults    System defaults           
     Command character:   _           _                   /                         
     Command key:         _______     _______             PF12                      
     Jump key:            _____       _____               NONE                      
     Menu key:            _____       _____               NONE                      
     Print key:           _____       _____               NONE                      
     Group name:          TPXGROUP                                                  
       Command class:     _           _                   P                         
       Operator Cmd Cls:  _           _                   P                         
       Update class:      _           _                   P                         
     Stage 1 timeout:     000000      ______              65535                     
     Stage 1 option:      __          __                  F                         
     Stage 2 timeout:     ______      ______              0                         
     Stage 2 option:      __          __                                            
                                                                                    
     PF1=Help    PF3=End    PF4=Return   PF8=Next Page       "CANCEL" cancel        
     
    -----------------------------------------------------------------------------------
     
                       TPX Userid Maintenance Detail Panel                          
                                                                 Panelid  - TEN0125 
      Command ===>                                               Userid   - TPXADMIN
                                                                 Termid   - A55TU005
     Userid:   STORAGE                                           Date     - 03/09/03
     UserName:                                                   Time     - 03:28:14
     Location:                         Phone:                                       
                                                                                    
                                      Profile defaults    System defaults           
     ACCESS:              ______      ______              MULTIPLE                  
     Language:            __          __                  EN                        
     Security system:     ____        ____                NONE                      
     Inactivate on:       _           _        (F=Signoff, K=Logoff)                
     Maximum sessions:    ____        ____                0                         
     Default printer:     ________    ________                                      
     ACB mask default:    ________    ________    ---------------------------       
     Propagate ACB:       _           _          |   Static user:       Y           
     Display menu:        _           _           ---------------------------       
     Transfer option:     NONE        ____       |   Suspend user:      N           
     Affinity applid:     ________    ________   |   Force new pswd:    N           
     Pass Ticket User:    _           _                                             
                                                                                    
                                                                                    
     PF1=Help    PF3=End    PF4=Return   PF7=Prev PF8=Next   "CANCEL" cancel        
     
    ------------------------------------------------------------------------------------
     
                       TPX Userid Maintenance Table Entry List                      
                                                                 Panelid  - TEN0122 
      Command ===>                                               Userid   - TPXADMIN
                                                                 Termid   - A55TU005
     Userid: STORAGE                Profile         System       Date     - 03/09/03
                                    Defaults        Defaults     Time     - 03:28:55
                                                                                    
     Command key:       _______     _______         PF12                            
     Jump key:          _____       _____           NONE                            
     Menu key:          _____       _____           NONE                            
     Print key:         _____       _____           NONE                            
                                                                                    
                          Applid      Profile     Sesskey   Profile  Menu    Profile
       Session            Override    Applid      Override  Sesskey  Order   Order  
       TPXDEMO            TPXDEMO     ________    PF __     PF __     ___     ___   
       TPXOPER            TPXOPER     ________    PF __     PF __     ___     ___   
     ******************************** BOTTOM OF DATA *******************************
     
    -----------------------------------------------------------------------------------
     
                       TPX Userid Maintenance Detail Panel                          
                                                                 Panelid  - TEN0124 
      Command ===>                                               Userid   - TPXADMIN
                                                                 Termid   - A55TU005
     Userid:   STORAGE            Session:  TPXDEMO              Date     - 03/09/03
                                                                 Time     - 03:29:38
                                    Profile       Application    System             
                                    Defaults      Defaults       Defaults           
     Applid:          TPXDEMO       ________                                        
     ACCESS=PASS:     _             _                            MULTIPLE           
     Timeout min.:    ______        ______        ______         999999             
     Modent name:     ________      ________      ________                          
     Sesskey:         PF __         __            __                                
     Start at signon: Y             _                                               
     Startup ACL:     ________      ________      ________                          
     ACL Userid:      ________      ________                                        
     ACL Password:    ________      ________                                        
     Term ACL:        ________      ________      ________                          
     ACB Mask:        ________      ________                                        
     KeepACB:         _             _             N                                 
     Invisible:       _             _                                               
     OV/MVS ACI:      _             _                                               
                                                                                    
     PF1=Help    PF3=End    PF4=Return   PF8=Next Page       "CANCEL" cancel        
     
    -----------------------------------------------------------------------------------
     
                       TPX Userid Maintenance Detail Panel                          
                                                                 Panelid  - TEN0124 
      Command ===>                                               Userid   - TPXADMIN
                                                                 Termid   - A55TU005
     Userid:   STORAGE            Session:  TPXOPER              Date     - 03/09/03
                                                                 Time     - 03:30:13
                                    Profile       Application    System             
                                    Defaults      Defaults       Defaults           
     Applid:          TPXOPER       ________                                        
     ACCESS=PASS:     _             _                            MULTIPLE           
     Timeout min.:    ______        ______        ______         999999             
     Modent name:     ________      ________      ________                          
     Sesskey:         PF __         __            __                                
     Start at signon: Y             _                                               
     Startup ACL:     DSTORAGE      ________      ________                          
     ACL Userid:      ________      ________                                        
     ACL Password:    ________      ________                                        
     Term ACL:        ________      ________      ________                          
     ACB Mask:        ________      ________                                        
     KeepACB:         _             _             N                                 
     Invisible:       _             _                                               
     OV/MVS ACI:      _             _                                               
                                                                                    
     PF1=Help    PF3=End    PF4=Return   PF8=Next Page       "CANCEL" cancel        
     
    ----------------------------------------------------------------------------------- 
     
    
  3. Store following two ACL/E programs into ACLLIB

    -----------------------------------------------------------------------------------
     
    Store this one with name : 'STORAGE'
     
    *                          
    *  OPENGATE CONTROL ACL/E  
    *                          
            OPTION    TIME,OFF 
            OPTION    TERM,OFF 
            OPTION    FLOW,OFF 
            OPTION    MAXI,0   
            STOP
     
    -----------------------------------------------------------------------------------
     
    Store this one with name : 'DSTORAGE'
     
    *                                                   
    *  OPENGATE'S USER STARTUP ACL/E FOR TPXOPER SESSION
    *                                                   
            OPTION    TIME,OFF                          
            OPTION    TERM,OFF                          
            OPTION    FLOW,OFF                          
            OPTION    MAXI,0                            
            WINP                                        
    *                                                   
    LOOP    NOP                                         
            SEARCH    '==>'                             
            BRANCH    EQ,KEYIN                          
            WAIT      5                                 
            BRANCH    ANY,LOOP                          
    *                                                   
    KEYIN   NOP                                         
    *                                                   
            KEY       'D U,SUMM'                        
            ENTER                                       
            WAIT      5                                 
            COMMAND   'P TPXOPER LOG'                   
            WAIT      5                                 
    *                                                   
            KEY       'D STOR'                          
            ENTER                                       
            WAIT      5                                 
            COMMAND   'P TPXOPER LOG'                   
            WAIT      5                                 
    *                                                   
            KEY       'D STORXA'                        
            ENTER                                       
            WAIT      5                                 
            COMMAND   'P TPXOPER LOG'
    *                   
    * HERE YOU SET THE INTERVAL BETWEEN THE SCREENCOPIES                               
    *  
           WAIT      1800              * WAIT HALF A HOUR
    *
            BRANCH    ANY,KEYIN                           
            STOP                                          
     
    -----------------------------------------------------------------------------------
    
  4. restart TPX

Attention:

The OPENGATE entry in TPXDEMO ACT, the OPENGATE userid and the OPENGATE control ACL/E must have the same name ( here 'STORAGE' ) !!!