Need to change the LRECL for the GDG

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi,

I have one GDG which I am using for some time. Now I want to Increase its length by some bytes without changing the GDG base. Can any one let me know how we can implement this.

regards,
rupesh gupta

ksk · Posted: Tue Mar 31, 2009 2:41 pm

Refer the following link. It might be useful for your requirment.

www.ibmmainframes.com/about20225.html

expat · Posted: Tue Mar 31, 2009 2:50 pm

You do not need to change the base

Anuj Dhawan · Posted: Tue Mar 31, 2009 2:56 pm

Hi,

Just code the new LRECL in DCB of next generation in JCL to create the new record length . . .(and I believe your site is SMS managed)

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Anuj,

That means if i am using say rg$z1e5.test.g0345v00 gdg and now i want to change its lrecl i will be using this as i/p and create another GDG
rg$z1e5.test.g0346v00 with new lrecl

can you share some code for this.

regards,
rupesh

mkk157 · Active User Joined: 17 May 2006 Posts: 310

Hi rupesh,

For GDG base, There is no length.

The LRECL is there only for its Generations. And in case of a GDG, we can have different LRECL versions. I mean,
GDG Base: PROD.GDG.BASE
Version 1 : PROD.GDG.BASE.G001V00 LRECL = 100
Version 2 : PROD.GDG.BASE.G002V00 LRECL = 120
Version 3 : PROD.GDG.BASE.G003V00 LRECL = 50

This is possible with the help of DCB statement,

//GDGDD1 DD DSN=PROD.GDG.BASE(+1),
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=10000)

//GDGDD2 DD DSN=PROD.GDG.BASE(+1),
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=120,BLKSIZE=12000)

//GDGDD3 DD DSN=PROD.GDG.BASE(+1),
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=5000)

Anuj Dhawan · Posted: Tue Mar 31, 2009 3:09 pm

Hi,

No - before I show you some code, please post the scrap from the code where this GDG is getting created . . .

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

I got it ..thank you all for help.

regards,
rupesh

mkk157 · Active User Joined: 17 May 2006 Posts: 310

I assumed that rg$z1e5.test.g0345v00 is the current gneration of the GDG. And the new LRECL of the next generation of the GDG is 50

//GDGIN DD DSN=rg$z1e5.test(0),
// DISP=SHR
//SYSUT2 DD DSN=rg$z1e5.test(+1),
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=5000)