TEMPNAME CLIST Command (Mainframe CLIST at Davar Web Site)

TEMPNAME CLIST Command

TEMPNAME CLIST command is used to setup a TSO/ISPF session environment so that programmer's REXX and CLIST commands could be recognized by name and get executed during this session. This is achieved by reallocating SYSEXEC and SYSPROC library concatenations with corresponding programmer's library (or multiple libraries) placed in front of existing concatenation. Such order ensures that in case of command (partition) name conflict, the command from the programmer's library will be executed.

Model command below also contains a setup of programmer's PANEL and LOAD libraries for use with ISPF Dialog Services (can be defined without TSO allocation) and several other commands for further environment customization.

TSO/ISPF environment setup with a single command is particularly useful for computer consultants by providing a quick way to make their productivity tools functional on any client site after uploading necessary libraries and performing a simple procedure described below.

Model TEMPNAME command should be customized to include REXX and CLIST libraries which are used on client's site (i.e. in the TSO/ISPF logon procedure). This customized TEMPNAME command should be executed at each LogOn in order to initialize TSO/ISPF session.

•	Determine site-specific SYSEXEC – REXX and SYSPROC – CLIST library lists (enter TSO ISRDDN command and page down using [PF8] to SYSEXEC and SYSPROC DDname lines).
•	Cut site-specific SYSEXEC/SYSPROC library lists and paste them to appropriate places into TEMPNAME command after lines with your personal REXX/CLIST libraries. E.g.: PGMR.REXX and PGMR.CLIST in the command text below.
•	Place TEMPNAME CLIST command text into &SYSUID..<Infix>.CLIST(TEMPNAME) library partition. E.g.: &SYSUID..PGMR.CLIST(TEMPNAME)
•	Enter TSO EX <Infix> command to setup TSO session environment (at Command field of any panel). This abbreviation takes advantage ot three TSO defaults for EX command: name (called here <Infix>) is prefixed by TSO PREFIX value (which is normally equals to &SYSUID. value), and is suffixed by CLIST, executing by default a CLIST from TEMPNAME partition of thus defined library. E.g.: Enter TSO EX PGMR to execute &SYSUID..PGMR.CLIST(TEMPNAME) library partition with TEMPNAME CLIST command; this will provide access to commands from &SYSUID..PGMR.REXX and &SYSUID..PGMR.CLIST libraries. Enter it normally as the very first command upon entering ISPF; better yet add it to your 3270 emulator logon macro to be executed at session start).

Note:

The name of the CLIST TEMPNAME is chosen to be a TSO default (for libray prefix and suffix and partition name) in order to simplify the TSO EX <Infix> command. However, any other name can be used by specifying both library and partition names,
E.g.: TSO EX PGMR.ANYLIB(ANYPART).

/* TEMPNAME Setup TSO/ISPF Session Environment 09/02/1993–12/16/1998 /* -------------------------------------------------------------------- /* Copyright (C) 1993–1998 by Vladimir Veytsel www.davar.net /* Cut-n-Paste site-specific library lists from the TSO ISRDDN output /* Enter TSO EX <infix> to setup TSO session. E.g.: TSO EX PGMR to /* get access to &SYSUID..PGMR.REXX and &SYSUID..PGMR.CLIST commands /* (normally as the very first command upon entering ISPF; better yet /* add it to your 3270 emulator logon macro to be run at session start) ALLOCATE FILE (SYSEXEC) + DATASET(PGMR.REXX + 'SYS1.REXX' + 'SYS1.QMF.REXX' + 'SYS1.USER.REXX' + )REUSE,SHR ALLOCATE FILE (SYSPROC) + DATASET(PGMR.CLIST + 'SYS1.CLIST' + 'SYS1.USER.CLIST' + )REUSE,SHR ISPEXEC LIBDEF ISPPLIB DATASET ID(PGMR.PANEL) ISPEXEC LIBDEF ISPLLIB DATASET ID(PGMR.LOAD) %SC S /* Set customized commands for ISPF sessions %SK /* Set standard and customized PF key commands %SS /* Start multiple ISPF logical sessions

Example of TSO ISRDDN command output:

Current Data Set Allocations Line 47 of 69 Command ===> ________________________________________________ Scroll ===> PAGE Volume Disposition Act DDname Data Set Name List Actions: B E V F C I Q TSO003 SHR,KEEP > _ ISPPROF MYUSERID.ISPF.PROFILE MVS002 SHR,KEEP > _ ISPSLIB SYS1.SKEL USR003 SHR,KEEP > _ SYS1.USER.SKEL MVS001 SHR,KEEP > _ SYS1.ISRSLIB MVS002 SHR,KEEP > _ ISPTLIB SYS1.TABLE USR008 SHR,KEEP > _ SYS1.USER.TABLE USR012 SHR,KEEP > _ SYS2.USER.TABLE MVS001 SHR,KEEP > _ SYS1.ISRTLIB TSO001 SHR,KEEP > _ SYSEXEC MYUSERID.PGMR.REXX MVS003 SHR,KEEP > _ SYS1.REXX TSO007 SHR,KEEP > _ SYS1.QMF.REXX USR004 SHR,KEEP > _ SYS1.USER.REXX MVS001 SHR,KEEP > _ SYSHELP SYS1.HELP NEW,DEL > _ SYSIN ---------- Allocated to the terminal ------- MVS001 SHR,KEEP > _ SYSLBC SYS1.BRODCAST NEW,DEL > _ SYSPRINT ---------- Allocated to the terminal ------- TSO005 SHR,KEEP > _ SYSPROC MYUSERID.PGMR.CLIST MVS002 SHR,KEEP > _ SYS1.CLIST USR001 SHR,KEEP > _ SYS1.USER.CLIST NEW,DEL > _ SYSTERM ---------- Allocated to the terminal ------- -------------------------- End of Allocation List -----------------------------

Possible problem with TSO/ISPF session setup:

Menu Utilities Compilers Options Status Help ------------------------------------------------------------------------------ ISPF Primary Option Menu Option ===> TSO EX PGMR_______________________________________________________ More: + 0 ISPF PARMS User ID : MYUSERID 1 VIEW Time : 14:32 2 EDIT Terminal : 3278 3 IBM UTILITIES Screen : 1 4 FOREGROUND Language : ENGLISH 5 BATCH Appl ID : ISP 6 COMMAND TSO logon : $ISPF 7 DIALOG TEST TSO prefix: 8 LM UTILITIES 9 IBM PRODUCTS +----------------------------------------------+ | Licensed Materials - Property of IBM | | 5647-A01 (C) Copyright IBM Corp. 1980, 1997. | | All rights reserved. | | US Government Users Restricted Rights - | DATA SET PGMR.CLIST NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED ***

Profile request shows that no prefix is specified for data set names:

Menu Utilities Compilers Options Status Help ------------------------------------------------------------------------------ ISPF Primary Option Menu Option ===> TSO PROFILE_______________________________________________________ More: + 0 ISPF PARMS User ID : MYUSERID 1 VIEW Time : 14:32 2 EDIT Terminal : 3278 3 IBM UTILITIES Screen : 1 4 FOREGROUND Language : ENGLISH 5 BATCH Appl ID : ISP 6 COMMAND TSO logon : $ISPF 7 DIALOG TEST TSO prefix: 8 LM UTILITIES 9 IBM PRODUCTS W WORKPLACE C CHANGES T TUTORIAL X EXIT S SDSF CHAR(0) LINE(0) PROMPT INTERCOM NOPAUSE NOMSGID NOMODE NOWTPMSG NORECO VER NOPREFIX PLANGUAGE(ENU) SLANGUAGE(ENU) DEFAULT LINE/CHARACTER DELETE CHARACTERS IN EFFECT FOR THIS TERMINAL ***

Problem can be fixed by setting (just once) prefix value (normally equal to user ID):

Menu Utilities Compilers Options Status Help ------------------------------------------------------------------------------ ISPF Primary Option Menu Option ===> TSO PROFILE PREFIX(MYUSERID)_______________________________________ More: + 0 ISPF PARMS User ID : MYUSERID 1 VIEW Time : 14:32 2 EDIT Terminal : 3278 3 IBM UTILITIES Screen : 1 4 FOREGROUND Language : ENGLISH 5 BATCH Appl ID : ISP 6 COMMAND TSO logon : $ISPF 7 DIALOG TEST TSO prefix: 8 LM UTILITIES 9 IBM PRODUCTS W WORKPLACE C CHANGES T TUTORIAL X EXIT S SDSF J JOBSCAN D DB2I Enter X to Terminate using log/list defaults

Profile request shows that prefix for data set names is set up; it also could be seen as "TSO prefix" field value:

Menu Utilities Compilers Options Status Help ------------------------------------------------------------------------------ ISPF Primary Option Menu Option ===> TSO PROFILE_______________________________________________________ More: + 0 ISPF PARMS User ID : MYUSERID 1 VIEW Time : 14:32 2 EDIT Terminal : 3278 3 IBM UTILITIES Screen : 1 4 FOREGROUND Language : ENGLISH 5 BATCH Appl ID : ISP 6 COMMAND TSO logon : $ISPF 7 DIALOG TEST TSO prefix: MYUSERID 8 LM UTILITIES 9 IBM PRODUCTS W WORKPLACE C CHANGES T TUTORIAL X EXIT S SDSF CHAR(0) LINE(0) PROMPT INTERCOM NOPAUSE NOMSGID NOMODE NOWTPMSG NORECO VER PREFIX(MYUSERID) PLANGUAGE(ENU) SLANGUAGE(ENU) DEFAULT LINE/CHARACTER DELETE CHARACTERS IN EFFECT FOR THIS TERMINAL ***

It is possible to enter EX PGMR command in the "Command" field of the TSO/E LOGON screen as it is shown on the screen below. Unfortunately it is useful only if this command will be executed before the ISPF session. If it will be executed after it, it is useless. Since TSO/ISPF user has no control over Command execution time, adding TSO EX PGMR command to your 3270 emulator logon macro is generally a better way, which doesn't depend on the TSO logon procedure setup and can be used consistently on any client site.

------------------------------- TSO/E LOGON ----------------------------------- Enter LOGON parameters below: RACF LOGON parameters: Userid ===> MYUSERID Password ===> New Password ===> Procedure ===> $ISPF Group Ident ===> Acct Nmbr ===> HOST Size ===> 100000 Perform ===> Command ===> EX PGMR Enter an 'S' before each option desired below: -Nomail -Nonotice S -Reconnect -OIDcard PF1/PF13 ==> Help PF3/PF15 ==> Logoff PA1 ==> Attention PA2 ==> Reshow You may request specific help information by entering a '?' in any entry field