Just take off the LIKE parameter. The GDG should have a model DSCB. Why make things so hard?
On Thu, Jun 22, 2017 at 12:03 PM, Steve Beaver <st...@stevebeaver.com> wrote: > Was it done in the same job? > > Steve > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Frank Swarbrick > Sent: Wednesday, June 21, 2017 4:11 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: VSAM file as GDS > > Developer did more testing and found that even though it successfully > created generation 1 when an attempt was made to create an additional > generation it failed. :-( > > IEF344I TESTREP STEP01 FILEOUT - ALLOCATION FAILED DUE TO DATA FACILITY > SYSTEM ERROR > > IGD17101I DATA SET PROD.CONNDEF.PATM.BKP.G0001V00 > > NOT DEFINED BECAUSE DUPLICATE NAME EXISTS IN CATALOG > > RETURN CODE IS 8 REASON CODE IS 38 IGG0CLEH > > IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET > > ________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf > of > Frank Swarbrick <frank.swarbr...@outlook.com> > Sent: Wednesday, June 21, 2017 2:24 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: VSAM file as GDS > > Learn something new every day. Another developer created a GDG > (PROD.CONNDEF.PATM.BKP) and then a job step that has the following: > //STEP02 EXEC PGM=IDCAMS,COND=(4,LT) > //FILEIN DD DSN=PROD.ONLINE.CONNDEF.PATM, > // DISP=SHR > //FILEOUT DD DSN=PROD.CONNDEF.PATM.BKP(+1), > // LIKE=PROD.ONLINE.CONNDEF.PATM, > // DISP=(NEW,CATLG,DELETE) > //SYSIN DD DSN=PROD.PARM(REPRO), > // DISP=SHR > //SYSPRINT DD SYSOUT=* > I though for sure this would not work, as PROD.ONLINE.CONNDEF.PATM is a > VSAM > KSDS. But it appears it in fact did work: > PROD.CONNDEF.PATM.BKP > PROD.CONNDEF.PATM.BKP.G0001V00 > PROD.CONNDEF.PATM.BKP.G0001V00.DATA > PROD.CONNDEF.PATM.BKP.G0001V00.INDEX > > > I'm not sure how comfortable I am with it, though. Any harm in doing this? > > Frank > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
