On Sun, 7 Dec 2008 18:40:03 -0600, Reza Heydarpour <[EMAIL PROTECTED]> wrote:
>Hi,
>
>Trying to create ONEPACK system, DFDSS copy job, using
> CONVERT(PDS(**)) -
> DS(INC( -
> SYS1.SIEALNKE -
> )) -
> NSC -
> BYPASSACS(**) -
>
>gets:
>
>IGW01207E BINDER DETECTED AN ERROR WHILE PROCESSING MEMBER
>GLDDB2PW
>. BINDER RETURN CODE = X'0000000C' REASON CODE = X'83000422'
>
>Archive says:
>
>>>IGW01207E BINDER DETECTED AN ERROR WHILE PROCESSING MEMBER
>DSNAOTRX
>>> BINDER RETURN CODE = X'0000000C' REASON CODE = X'83000422'
>>>
>>> while converting a PDSE to PDS using IEBCOPY.
>>>
>> You can't do that. Program object DSNAOTRX can't be in a PDS.
>
>
>Mark Z's onepack uses:
>
>//COPY6 EXEC PGM=FDRCOPY,...
>...
>//SYSIN DD *
> COPY TYPE=DSF,DSNENQ=NONE,ENQERR=NO
>...
> SELECT
>CATDSN=SYS1.SIEALNKE,NEWI=+TARGSYS,NVOL=SYS1PK,
> STORCLAS=SCNONSMS
>
>So it seems FDR did the copy to non-SMS?
>Is this right?
>
>What's the solution with DFDSS?
>
What makes you think you can convert an IBM supplied PDSE to a PDS?
DFSMSdss isn't as easy as FDR, but you would use something like this
(with all the data sets of course):
//STEP1 EXEC PGM=ADRDSSU,REGION=2M
//*
//SYSPRINT DD SYSOUT=*
//OUT DD VOL=SER=SYS1PK,UNIT=SYSDA,DISP=OLD
//SYSIN DD *
COPY DATASET -
(INCLUDE( -
SYS1.ISF.SISFEXEC -
SYS1.ISF.SISFLINK -
SYS1.ISF.SISFLOAD -
)) -
OUTDDNAME(OUT) -
RENAMEUNCONDITIONAL -
( -
(SYS1.ISF.SISFEXEC, -
TARGSYS.SYS1.ISF.SISFEXEC) -
(SYS1.ISF.SISFLINK, -
TARGSYS.SYS1.ISF.SISFLINK) -
(SYS1.ISF.SISFLOAD, -
TARGSYS.SYS1.ISF.SISFLOAD) -
) -
CATALOG -
SHARE TOL(ENQF) ALLD(*) REPLACE SPHERE ALLE PROCESS(SYS1) FORCE
/*
--
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
