Here is an extract from an EDIT macro that I wrote to generate DDDEF UCLIN from
*any* dataset that had the DATASET as the first word and then the VOLSER as the
2nd word (it uses the llq as the DDDEF name).
address ISREDIT "MACRO "
/*-------------------------------------------------------------------*/
/* Option 4 : SMP/E DDDEF Statements */
/*-------------------------------------------------------------------*/
address ISREDIT "(NUMLINES) = LINENUM .ZLAST"
i = 1
c = 1
do until c > numlines
address ISREDIT "(LINEDATA) = LINE "i
dsn = word(linedata,1)
vol = word(linedata,2)
unt = "SYSALLDA"
z = lastpos('.',dsn)
ddc = substr(dsn,z+1,8)
newline = " REP DDDEF ("ddc") "
address ISREDIT "LINE "i" = '"newline"'"
newline = " SHR ."
address ISREDIT "LINE_AFTER "i" = '"newline"'"
newline = " UNIT("unt") VOLUME("vol") "
address ISREDIT "LINE_AFTER "i" = '"newline"'"
newline = " DATASET("dsn") "
address ISREDIT "LINE_AFTER "i" = '"newline"'"
i = i + 4
c = c + 1
end
end
exit
Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark
Zelden
Sent: 07 November 2007 16:45
To: [email protected]
Subject: Re: SMP/E change volumes on DDDEF in new Target Zone
On Wed, 7 Nov 2007 10:40:47 -0600, Mark Zelden <[EMAIL PROTECTED]> wrote:
> UCLIN.
> REP DDDEF(nnnnnn) VOLUME(vvvvvv).
> ENDUCL.
>
Of course if you add volume you will need unit also.
UCLIN.
REP DDDEF(nnnnnn) VOLUME(vvvvvv) UNIT(SYSALLDA).
ENDUCL.
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead Zurich North America /
Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS 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
----------------------------------------------------------------------
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
