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: IBM-MAIN@BAMA.UA.EDU 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