> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Richbourg, Claude
> Sent: Wednesday, May 21, 2008 10:27 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: SMP/E question on merging DDDEF entries.
>
> Good morning all,
>
> The system is z/OS 1.9 and my old nemesis SMP/E.
> I am trying to build a new TARGET zone. What I want to do is copy ALL
> the DDDEF information from one TARGET zone to another new TARGET zone.
> At this point all I want is the DDDEF information, including
> the volser.
>
> I have tried this command:
> SET BDY(MVST200) .
> ZMRG (MVST100)
> INTO(MVST200)
> DEFINITION .
>
> And it copies everything BUT the volume information. Confused here.
> I ran a list command from the old TARGET zone and have that output
> including the volume information. Does someone have a REXX or
> utility to
> take that and form it up into UCLIN statements?
>
> Or is there a better way to copy the volume information from
> one zone to
> another. Please let me know your ideas.
>
> Regards,
> Claude
Do an UNLOAD DDDEF.
//S1 EXEC PGM=GIMSMP,
// PARM='PROCESS=WAIT',
// DYNAMNBR=120
//*
//SMPCSI DD DISP=SHR,DSN='SMPE18.GLOBAL.CSI'
//SMPPUNCH DD DSN=TSH009.SMPE.DDDEF.SMPE18.ZZZZZZZZ,
// DISP=(NEW,CATLG),SPACE=(TRK,(100,10),RLSE),
// RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS
//*
//SMPCNTL DD *
SET BOUNDARY (oldtarg)
.
UNLOAD
DDDEF
.
/*
//
Replace "oldtarg" with your source zone name. Change other DSNs as
needed. Edit output DSN if necessary. Run the step:
//S2 EXEC PGM=GIMSMP,
// PARM='PROCESS=WAIT',
// DYNAMNBR=120
//SMPCSI DD DSN=SMPE18.GLOBAL.CSI,
// DISP=SHR
//*
//*
//SMPPTFIN DD DUMMY,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32720)
//SMPHOLD DD DUMMY,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32720)
//SMPCNTL DD *
SET BOUNDARY ( newtarg) .
// DD DISP=SHR,DSN=TSH009.SMPE.DDDEF.SMPE18.ZZZZZZZZ
--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology
The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.
----------------------------------------------------------------------
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
