Paul,
I post my site's TSO logon procedure.
//MDLPROC EXEC PGM=IKJEFT01,DYNAMNBR=175,PARM='%ISPFCL'
//SYSUADS DD DISP=SHR,DSN=SYS1.UADS
//SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST
//SYSHELP DD DISP=SHR,DSN=SYS1.HELP
// DD DISP=SHR,DSN= ISP.SISPHELP
//SYSPROC DD DISP=SHR,DSN=CENTER.CLIST
// DD DISP=SHR,DSN=ADCD.ZOSV14S.CLIST
// DD DISP=SHR,DSN=CENTER.PROCLIB
// DD DISP=SHR,DSN=ADCD.ZOSV14S.PROCLIB
// DD DISP=SHR,DSN= ISP.SISPCLIB
// DD DISP=SHR,DSN=ICQ.ICQCCLIB
// DD DISP=SHR,DSN=DSN710.SDSNCLST
//SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC
//ISPPLIB DD DISP=SHR,DSN=CENTER.ISPPLIB
// DD DISP=SHR,DSN=ADCD.ZOSV14S.ISPPLIB
// DD DISP=SHR,DSN=ISP.SISPPENU
// DD DISP=SHR,DSN=ICQ.ICQPLIB
// DD DISP=SHR,DSN=ISF.SISFPLIB
// DD DISP=SHR,DSN= DSN710.SDSNSPFP
// DD DISP=SHR,DSN=DSN710.SDSNPFPE
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
// DD DISP=SHR,DSN=ICQ.ICQMLIB
// DD DISP=SHR,DSN=ISF.SISFMLIB
// DD DISP=SHR,DSN= DSN710.SDSNSPFM
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB
// DD DISP=SHR,DSN=ISP.SISPSENU
// DD DISP=SHR,DSN=ISF.SISFSLIB
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU
// DD DISP=SHR,DSN= ICQ.ICQTABLS
// DD DISP=SHR,DSN=ISF.SISFTLIB
// DD DISP=SHR,DSN=DSN710.SDSNSPFT
ISPFCL is a clist.Here is its contents:
PROC 0 PANEL()
00010000
CONTROL NOFLUSH NOMSG MAIN
00140000
PROFILE MODE WTPMSG MSGID
00150000
FREE FILE(ISPPROF,ISPTABL)
00160000
SET &DSNAME = &SYSUID..ISPF.ISPPROF
00260000
ALLOC FI(ISPPROF) SHR DA('&DSNAME.')
00270000
IF &LASTCC ? 0 THEN +
00280000
DO
00290000
FREE FI(ISPCRTE)
00300000
CONTROL MSG
00310000
ATTRIB ISPCRTE DSORG(PO) RECFM(F B) LRECL(80) BLKSIZE(6160)
00320000
ALLOC DA('&DSNAME.') SP(4,2) TRACKS DIR(5) USING(ISPCRTE) +
00330001
FI(ISPPROF)
00340000
IF &LASTCC = 0 THEN +
00350000
WRITE *** ISPF PROFILE DATA SET '&DSNAME.' HAS BEEN CREATED
00360000
ELSE +
00370000
DO
00380000
WRITE *** UNABLE TO ALLOCATE ISPF PROFILE DATA SET '&DSNAME.'
00390000
FREE FI(ISPCRTE)
00400000
EXIT CODE(12)
00410000
END
00420000
FREE FI(ISPCRTE)
00430000
END
00440000
CONTROL MSG
00450000
ERROR EXIT
00460000
IF &PANEL = &STR() THEN +
00470000
SET &PNL = PANEL( [EMAIL PROTECTED])
00480000
ELSE +
00490000
SET &PNL = PANEL(&PANEL)
00500000
PDF &PNL
01010000
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
