On 2/13/2018 8:57 AM, Jake Anderson wrote:
Hi
Does anyone have a sample copy of ISPFCL ?
Jake
Jake,
From my Dynamic ISPF session:
/* Rexx */
/* trace i */
msgsave = msg()
x = msg('OFF')
address tso "ALLOC FI(ISPPROF) DA('"userid()".ISPF.ISPPROF') OLD"
if rc <> 0 then
do
profdsn = userid().ISPF.ISPPROF
x = msg('ON')
address tso "ALLOC FI(ISPPROF) DA('"profdsn"') NEW CATALOG",
"CYLINDERS SPACE(1 1) DIR(45) DSORG(PO) RECFM(F B)",
"LRECL(80) BLKSIZE(0)"
if rc = 0 then
say "ISPF profile dataset'"profdsn"'created"
else
say "Unable to allocate ISPF profile dataset'"profdsn"'"
end
x = msg(msgsave)
/* queue “TSOLIB ACT DA(‘tsolib dsn’)” Put TSOLIB ACT here if needed */
queue "ISPF NOLOGO"
/* queue “TSOLIB DEACT” Put TSOLIB DEACT here if needed */
Regards,
Tom Conley
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN