On Tue, 1 May 2007 15:10:23 -0400, Knutson, Sam <[EMAIL PROTECTED]> wrote:
>Put this in a SYSPROC/SYSEXEC library and use it as a line command in
>3.4
>
<snip>
Looks *very* similar to mine:
/* REXX */
/* */
/* AUTHOR: Mark Zelden */
/* */
/* Create XMIT file */
/* */
/* Use via ISPF 3.4 - type next to dsn */
/* or specify DSN in quotes as a parm */
/* TSO %BLDXMI 'MY.DATA.SET' */
/* */
/* Output dsn is original dsn suffixed */
/* with ".XMI" */
/* */
Parse upper arg dsn
Address TSO
uid = sysvar('SYSUID')
odsn = Strip(dsn,'B',"'")
say 'Creating XMI file for' dsn
junk=msg(off)
"DELETE '" || odsn || ".XMI'"
junk=msg(on)
"XMIT LOCAL." || uid ,
"DA(" || dsn || ")",
"OUTDSN('" || odsn || ".XMI')",
"NOLOG",
"SYSOUT(H)"
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group: G-ITO
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
