The examples in Figure 1 and Figure 2 show a statement in a logon procedure
and an associated CLIST for use with BLSCLIBD.
Figure 1. TSO/E Logon Procedure for
Use with BLSCLIBD//*============ TSO/E LOGON PROCEDURE FOR USE WITH BLSCLIBD =========**
//PROC1 EXEC PGM=IKJEFT01,ROLL=(NO,NO),DYNAMNBR=100,
// PARM='EXEC 'IPCSU1.IPCS.CLIST(START1)'
//SYSPROC DD DSN=COMPCTR.CLIST,DISP=SHR Installation CLISTs
// DD DSN=ISR.V310.ISRCLIB,DISP=SHR ISPF Version 3 CLISTs
//ISPMLIB DD DSN=COMPCTR.ISPMLIB,DISP=SHR Installation messages
// DD DSN=ISR.V310.ISRMLIB,DISP=SHR ISPF Version 3 messages
//ISPPLIB DD DSN=COMPCTR.ISPPLIB,DISP=SHR Installation panels
// DD DSN=ISR.V310.ISRPLIB,DISP=SHR ISPF Version 3 panels
//ISPSLIB DD DSN=COMPCTR.ISPSLIB,DISP=SHR Installation skeletons
// DD DSN=ISR.V310.ISRSLIB,DISP=SHR ISPF Version 3 skeletons
//ISPTLIB DD DSN=COMPCTR.ISPTLIB,DISP=SHR Installation tables
// DD DSN=ISR.V310.ISRTLIB,DISP=SHR ISPF Version 3 tables
//SYSHELP DD DSN=COMPCTR.HELP,DISP=SHR Installation help text
// DD DSN=SYS1.HELP,DISP=SHR IBM-supplied help text
Figure 2. CLIST for use with PROC1 /* IPCSU1.IPCS.CLIST(START1) */
PROC 0
CONTROL LIST
ALTLIB ACTIVATE +
APPLICATION(CLIST) +
DA('SYS1.SBLSCLI0') /* CLISTS AND REXX EXECS */
ISPF /* START ISPF */
Note: The allocation to SYSHELP is not required to start the IPCS
dialog, but does provide IBM-supplied help text for users.
To make the procedure available to users, do the following:
- Add the procedure to a JCL procedure library from which JES2 or
JES3 retrieves TSO/E logon procedures.
- Have the TSO/E administrator for the installation authorize individuals
who require access to IPCS to use the logon procedure.
When the user logs on using PROC1, the logon procedure invokes
the CLIST in Figure 2. The CLIST then
concatenates SYS1.SBLSCLI0 to SYSPROC and starts ISPF. Thus, by logging
on with PROC1, the user is automatically placed in an ISPF session.
From that point, a user who wants to start IPCS can simply select
the IPCS option from the modified ISPF panel.