Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to create GDG version?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
crm

New User


Joined: 14 Nov 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 1:44 pm    Post subject: how to create GDG version?
Reply with quote

hai
how to create GDG version?
Back to top
View user's profile Send private message

bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Wed Nov 23, 2005 1:49 pm    Post subject:
Reply with quote

1. use IDCAMS. refer some JCL material for the correct JCL.
2. Use file tools like Filemarvel/Fileaid if available in your mainframe.
Back to top
View user's profile Send private message
Sangameshwar N

New User


Joined: 18 Nov 2005
Posts: 14
Location: Mumbai

PostPosted: Wed Nov 23, 2005 2:03 pm    Post subject:
Reply with quote

Hi
GDGs can be created using file-aid 3.2 in that use "G - Define generation data group" in option to allocate the base and then using "A" to allocate a generation.

Regards
Sangameshwar N
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 2:37 pm    Post subject:
Reply with quote

crm,

You can also do that using ISPF option 3.2, then choose VSAM utilities 'V' - (Most of us are not aware of this - since its listed under VSAM)

1. Go to ISPF 3.2 panel.
2. Choose option 'V' (VSAM Utilities)
3. Choose '1' (define) under Process Request and '4' (Generation data Group) under Data Type and follow the screens.

Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
khamarutheen

Active Member


Joined: 23 Aug 2005
Posts: 680
Location: NJ

PostPosted: Wed Nov 23, 2005 2:46 pm    Post subject: GDG
Reply with quote

hi frnd,
Try this JCL

Code:

//JOB1   JOB A50, 'IBM'
//STEP   EXEC PGM=IDCAMS
//SYSIN DD *
  ----this creates the index for GDG----
   DEFINE GDG(NAME(ACCOUNTS.MONTHLY)-
                       LIMIT(5)-
                       NOEMPTY-
                       SCRATCH)
//STEP2 EXEC=IEFBR14
---this creas the model----------
//MODEL1  DD DSN=ACCOUNTS.MONTHLY(+1),
//                   DISP=(NEW,KEEP,DELETE),
//                   UNIT=SYSDA, SPACE=(TRK,0),
//                   DCB=LRECL=80,RECFM=FB,BLKSIZE=800)
---this creats ur GDG---
//STEP3 EXEC PGM=GDG1,COND=(0,EQ,STEP2)
//FILE1 DD DSN=ACCOUNTS.MONTHLY(+1),
//              DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//              DCB=(MODEL.DCB,RECFM=FB,LRECL=80,BLKSIZE=800)



hope works. may be some mistake.. try to resolve it and execute...
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 4:12 pm    Post subject:
Reply with quote

khamarutheen,

Whenever you post any code, please encode the code within the BBTags {code} & {/code}.

Note: You actually need to use '[' & ']' instead of '{' & '}' above.

This make it more legible to read and understand.

Thanks,
Phantom
Back to top
View user's profile Send private message
khamarutheen

Active Member


Joined: 23 Aug 2005
Posts: 680
Location: NJ

PostPosted: Wed Nov 23, 2005 4:34 pm    Post subject: Re: how to create GDG version?
Reply with quote

hi frnd,
i really agree ur point. let me do the thing from the next time. i m sorry for this happening and i assure u that it will not happen any more.
Back to top
View user's profile Send private message
crm

New User


Joined: 14 Nov 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 5:03 pm    Post subject: Re: how to create GDG version?
Reply with quote

thanks for ur answers.
i have one doubt

CREATE GDG ?
CREATE GDG VERSION ?

these both queries lead to the same answer?
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 5:19 pm    Post subject:
Reply with quote

crm,

Actually Khamarutheen has given you the required solution. Look at his code.

1. This piece of code creates the GDG Base for you.
Code:

//JOB1 JOB A50, 'IBM'
//STEP EXEC PGM=IDCAMS
//SYSIN DD *
----this creates the index for GDG----
DEFINE GDG(NAME(ACCOUNTS.MONTHLY)-
LIMIT(5)-
NOEMPTY-
SCRATCH)



2. This piece of code creates the Model to be used for all versions. Not necessary though.
Code:

//STEP2 EXEC=IEFBR14
---this creas the model----------
//MODEL1 DD DSN=ACCOUNTS.MONTHLY(+1),
// DISP=(NEW,KEEP,DELETE),
// UNIT=SYSDA, SPACE=(TRK,0),
// DCB=LRECL=80,RECFM=FB,BLKSIZE=800)


3. And this piece of code creates new versions under the GDG base.
Code:

---this creats ur GDG---
//STEP3 EXEC PGM=GDG1,COND=(0,EQ,STEP2)
//FILE1 DD DSN=ACCOUNTS.MONTHLY(+1),
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// DCB=(MODEL.DCB,RECFM=FB,LRECL=80,BLKSIZE=800)


Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
sonipankaj

New User


Joined: 23 Nov 2005
Posts: 10

PostPosted: Wed Nov 23, 2005 9:27 pm    Post subject: Re: how to create GDG version?
Reply with quote

Use the below command to create the base of the GDG :

"DEFINE GDG(NAME('"NAME"') NOEMPTY LIMIT("LMT") SCRATCH)"

NAME : Name of the GDG base
LMT : Limit of the GDG.

To create the New generation give 'NAME(+1)' with the DISP=(new,catlg,delete).
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Thu Nov 24, 2005 1:08 am    Post subject: Re: how to create GDG version?
Reply with quote

Creating a new GDG version. All three examples assume that you wish to update the current version of the GDG 'HLQ.MY.GDG.G0003V00' from V00 to V01:

JCL Copy method:

Code:

//STEP0001 EXEC PGM=IEBGENER                                           
//SYSUT1   DD   DISP=SHR,DSN=HLQ.MY.GDG.G0003V00                   
//SYSUT2   DD   DSN=HLQ.MY.GDG.G0003V01,                           
//         DISP=(,CATLG,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)       
//SYSPRINT DD   SYSOUT=*                                               
//SYSIN    DD   DUMMY                                                   


IDCAMS Alter method:

Code:

//STEP0001 EXEC PGM=IDCAMS                                             
//SYSPRINT DD   SYSOUT=*                                               
//SYSIN    DD   *                                                     
  ALTER 'HLQ.MY.GDG.G0003V00' NEWNAME('HLQ.MY.GDG.G0003V01')   
/*                                                                     


TSO Rename method:

Code:

//STEP0001 EXEC PGM=IKJEFT01                                     
//SYSTSPRT DD   SYSOUT=*                                         
//SYSTSIN  DD   *                                               
RENAME 'HLQ.MY.GDG.G0003V00' 'HLQ.MY.GDG.G0003V01'       
/*                                                               


Please note that this can also be handled in TSO/ISPF via the normal R (Rename) line command.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am
No new posts GDG version number PANDU1 JCL & VSAM 4 Sat Mar 04, 2017 8:28 pm
No new posts COBOL Version 6.1 Virendra Shambharkar COBOL Programming 15 Tue Nov 01, 2016 11:24 am
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us