mvs icon indicating copy to clipboard operation
mvs copied to clipboard

TK5 working example of creating a GDG and then adding a new generation

Open gkspranger opened this issue 1 year ago • 0 comments

first of all, thanks for being an advocate for the MF community and TK5

in TK5 -- i am trying to create a GDG, and add a new generation to it .. for the life of me i cannot figure it out, because i keep getting JCL errors related to IEF218I A4GDGGEN STEP01 DD01 - PATTERN DSCB RECORD NOT FOUND IN VTOC

here is how i create the GDG

 000001 //A4GDGCR8    JOB ,
 000002 //            CLASS=A,
 000003 //            MSGCLASS=Q,
 000004 //            NOTIFY=&SYSUID,
 000005 //            PRTY=15
 000006 //* CREATE VTOC ENTRY
 000007 //STEP01      EXEC PGM=IDCAMS
 000008 //*
 000009 //GDGMOD      DD DSN=HERC01.GDG11,
 000010 //            DISP=(NEW,CATLG,KEEP),
 000011 //            SPACE=(TRK,(0)),
 000012 //            DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PS),
 000013 //            UNIT=3390
 000014 //*
 000015 //SYSIN       DD *
 000016      DEFINE GENERATIONDATAGROUP( -
 000017             NAME(HERC01.GDG11) -
 000018             LIMIT(12) -
 000019             EMPTY -
 000020             NOSCRATCH)
 000021 /*
 000022 //SYSPRINT    DD SYSOUT=*
 000023 //SYSOUT      DD SYSOUT=*
 000024 /*

it gets created AOK (rc=0000), i see it when i go =3.4

i run into issue when i am trying to actually create a generation (see JCL below) .. no matter what, it is the same error over and over again -- related to that PATTERN DSCB RECORD NOT FOUND IN VTOC

i dug around and found this stackoverflow and IBM article, but again, no success in TK5

https://stackoverflow.com/questions/75834639/mvs-3-8-pattern-dscb-record-not-found-in-vtoc

https://www.ibm.com/docs/en/zos/2.4.0?topic=dge-define-generation-data-group-generation-data-set-within-it-non-sms-case-example-1

any help would be greatly appreciated .. i did do

 000001 //A4GDGGEN    JOB ,
 000002 //            CLASS=A,
 000003 //            MSGCLASS=Q,
 000004 //            NOTIFY=&SYSUID,
 000005 //            PRTY=15
 000006 //* CREATE GDG GENERATION
 000007 //STEP01      EXEC PGM=IEFBR14
 000008 //*
 000009 //DD01        DD DSN=HERC01.GDG11(+1),
 000010 //            DISP=(NEW,CATLG),
 000011 //            DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PS),
 000012 //            SPACE=(TRK,(10,10)),
 000013 //            UNIT=3390
 000014 //*
 000015 //SYSIN       DD *
 000016 /*
 000017 //SYSOUT      DD SYSOUT=*
 000018 //SYSPRINT    DD SYSOUT=*
 000019 //SYSDUMP     DD SYSOUT=*
 000020 /*

gkspranger avatar Jun 05 '24 16:06 gkspranger