Doesn't exist.
You can RYO program / exec / clist (yuck) using the LMDLIST service
with creating the list as part of the program. You could pass
the "3.4 dsn mask" and the command to the program.
SMOP.
/* REXX */
/* */
/* AUTHOR: Mark Zelden */
/* */
/************************************************************/
/* CMD34 - process commands against an ISPF 3.4 type DSLIST */
/* */
/* SYNTAX: TSO %CMD34 DSN_LVL COMMAND */
/* */
/* Example: TSO %CMD34 SYS2.OLD.PRODUCT.HLQ HMIG */
/************************************************************/
Arg lvl cmd
If lvl = '' | cmd = '' then do
Say 'Missing DSN_LVL or COMMAND to execute.'
Say ' '
Say 'SYNTAX: TSO %CMD34 DSN_LVL COMMAND'
exit 12
End
/* */
/* Quick ISPF save of data set names. This is much quicker */
/* than using OPT 3.4, because it does not do an obtain */
/* for each data set in the list because of STATS(NO). */
/* The dsn created will be userid.CMD34.DATASETS */
/* */
Address ISPEXEC "CONTROL ERRORS RETURN"
Address ISPEXEC "LMDINIT LISTID(LISTID) LEVEL("lvl")"
Address ISPEXEC ,
"LMDLIST LISTID("listid") OPTION(SAVE) STATS(NO) GROUP(CMD34)"
Address ISPEXEC "LMDFREE LISTID("listid")"
uid = sysvar('SYSUID')
/* allocate dsn list file and read it */
"ALLOC FI(INPUT) DA('" || uid || ".CMD34.DATASETS') SHR REUSE"
"EXECIO * DISKR INPUT (STEM INREC. FINIS"
Do I = 1 to INREC.0
dsn = word(inrec.i,1)
Address TSO cmd dsn
End
junk = msg(off)
"DELETE '" || uid || ".CMD34.DATASETS'"
junk = msg(on)
Exit 0
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - GITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
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
