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.
|
/* 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
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 ----------------------------- |
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 *** |
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 *** |
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 |
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 |