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
 

 

Faccing issues while creating a GDG Version !!!!

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

New User


Joined: 29 Nov 2005
Posts: 8

PostPosted: Thu Jun 23, 2016 11:26 am    Post subject: Faccing issues while creating a GDG Version !!!!
Reply with quote

Hi,

I am facing a issue when deleting all versions of GDG and trying to create an empty Version.

Code:
PS010    EXEC PGM=SORT                                     
SYSPRINT DD SYSOUT=*                                       
SYSOUT   DD SYSOUT=*                                       
SYSUDUMP DD SYSOUT=*                                       
SORTIN   DD DSN=XXXX(0),DISP=SHR   
SORTOUT  DD DSN=XXXX.TEMP,         
            DISP=(NEW,CATLG,DELETE),                       
            SPACE=(CYL,(200,100),RLSE),                   
            VOL=(,,,99),                                   
            RECFM=FB,LRECL=7030,DSORG=PS                   
SYSIN    DD  DSN=&CCARD..CCARD(SRTCPY),                   
             DISP=SHR                                     

//**********************************************************************
//* PS020:  DELETE ALL GENRATIONS OF XXXX FILE                         
//**********************************************************************
//PS020  EXEC PGM=IEFBR14                                               
//DD01     DD DSN=XXXX,                         
//            DISP=(MOD,DELETE,DELETE),                                 
//            SPACE=(TRK,(1,1),RLSE)                                   
//*   
//**********************************************************************
//* PS030:  COPY TEMP FILE to XXXX +1             
//**********************************************************************
//*                                                                     
//PS030    EXEC PGM=SORT                                               
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SORTIN   DD DSN=TEMP,DISP=SHR           
//SORTOUT  DD DSN=XXXX(+1),                     
//            DISP=(NEW,CATLG,DELETE),                                 
//            SPACE=(CYL,(200,100),RLSE),                               
//            VOL=(,,,99),                                             
//            RECFM=FB,LRECL=7030,DSORG=PS                             
//SYSIN    DD  DSN=&CCARD..CCARD(SRTCPY),                               
//             DISP=SHR                               


It is executing successfully. But it is creating XXXX.G0005V00 version directly instead of creating XXXX.G0001V00

Please let me know how to rectify this.

Advance thanks.
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Thu Jun 23, 2016 11:48 am    Post subject:
Reply with quote

You need to understand the difference between generation and version
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jun 23, 2016 12:21 pm    Post subject:
Reply with quote

Have you tried a job break after the delete step. i.e. a NEW job to create the +1 GENERATION

I think you will find that the catalog entry for the current GENERATION will be kept until EOJ.

Remember, when you create a +1 within a job, it will always be referred to as +1 until the creating job has ended.
Back to top
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Thu Jun 23, 2016 2:59 pm    Post subject:
Reply with quote

Im also curious on this one and have tried it. Expat is correct, so in your case, you'll be able to meet your expectation if you run your step PS030 in a separate job.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1713
Location: UK

PostPosted: Thu Jun 23, 2016 3:07 pm    Post subject:
Reply with quote

Please use the code tags.After 11 years you should know how, and when, to use them.
Coded for you.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1609
Location: NY,USA

PostPosted: Thu Jun 23, 2016 6:07 pm    Post subject:
Reply with quote

Deleting and uncatloging GDG
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 ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm
No new posts COBOL Version 6.1 Virendra Shambharkar COBOL Programming 5 Tue Nov 01, 2016 11:24 am
No new posts Is there a time Version of DATEDIFF ? Bill Woodger DFSORT/ICETOOL 1 Wed Aug 17, 2016 7:06 pm
No new posts Syncsort version supporting FINDREP c... juares castro SYNCSORT 9 Tue Aug 09, 2016 6:54 pm
No new posts Creating an 'Enter' event with IMS MF... dileep chirasani Java & MQSeries 1 Sat Aug 06, 2016 2:23 am


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