How to implement Session Numbers on the TPX menu

Products

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

Issue/Introduction

Use this procedure to implement  Session numbers on the TPX menu. This will allow the Session number or Session ID to be used to activate sessions.

For example: if TSO is the third session in the menu, you could enter '3' or 'TSO' on the command line.

Environment

Release: 5.4
Component: TPX for Z/OS

Resolution

This can be achieved by using modified versions of panels TEN0041 and TEN0010 as well as a customized TPX Command exit, TPXUCMND.

Samples are included with TPX 5.4 Published Solution SO01585  - TITLE: CA TPX MIGRATION - NEW SAMPLES

• Panel TEN0041 - See hilvl.CB0VSRC
• Panel TEN0010 - See hilvl CB0VSRC
• User Command exit TPXUSES#

The enhancement to the panels uses the TPX Internal row number variable as session numbers, while the User Command Exit is used to interpret row numbers to activate the application session selected. 

To implement session numbers on the TPX main menu:

1. Place a copy of CB0VSRC members TEN0041 & TEN0010 into a library concatenated ahead of the delivered panel libraries (CB0VP*) that you are using in your TPX proc PANELS DD statement.
   
   • If you use other languages than 'EN' you must change your Txx0041 and Txx0010 panels according to the changes in TEN0041 and TEN0010.
2. Assemble CB0VSRC member TPXUSES# and link as TPXUCMND.  Place this executable member in a library concatenated ahead of the delivered CB0VLOAD libraries.

This should result in a TPX menu that looks similar to this where you can specify the session number on the command line:

                      TPX MENU FOR      USER001            Panelid  - TEN0041 
                                                           Terminal - 
Cmdkey=PF22       Jump=PF23      Menu=PF24                 Model    - 
Print=NONE        Cmdchar=#                                System   - 
                                                                              
    # Sessid      Sesskey       Session Description            Status         
                                                                              
 _ 01 CICS1       PF            CICS ABC                         O/P          
 _ 02 CICS2       PF            CICS XYZ                         N/A        
 _ 03 TSO1        PF            TSO1                   
 _ 04 TSO2        PF            TSO2
 ...
Command ===> 3                                                            
PF1=Help  PF7/19=Up  PF8/20=Down  PF10/22=Left  PF11/23=Right  H =Cmd Help

 

Additional Information

A) You can also find these samples as part of our CA VMAN to TPX conversion package.
    This code was developed to help customers converting from VMAN to TPX. In VMAN it was possible to start a session by its number on the menu.

Use members from yourHLQ.TPX.Rxxx.CAI.V2TCNTL. (This is created by UNZIPJCL in ISHELL from the pax.z file.)  This data set contains 4 members:

• Modified TPX menu panels TEN0041 and TEN0010  
• TPXUCMND exit code - The attached TPXUCMND contains the code to work with the modified panels.
• CONVERT - You will not use this JCL unless you are actually converting VMAN data to TPX.

B) You can find JCL to assemble user exits in CB0VSRC(ASMUXIT).  See  How does one implement a CA-TPX user exit?