IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Reading all generations of GDG


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Mon Mar 22, 2010 10:08 pm
Reply with quote

We have a process that copies (using IDCAMS) all generations of a GDG to a sequential file.

It deletes all generations as part of the process, using:
DISP=(OLD,DELETE,KEEP)

If there are no generations to process, we get a JCL error:

Code:

IEF212I ACPBINDF COPYCARD DD1 - DATA SET NOT FOUND
IEF272I ACPBINDF COPYCARD - STEP WAS NOT EXECUTED.


To get around this we create an empty (+1) generation in the prior step to ensure at least one generation exists.

My question: is there another way to handle this situation?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon Mar 22, 2010 10:17 pm
Reply with quote

Hello,

What you have done is done the same way many places use to make sure there is at least one generation to process.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon Mar 22, 2010 11:24 pm
Reply with quote

I'll go with Dick on that one. It's the way that I have always handled that situation.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
No new posts Find the size of a PS file before rea... COBOL Programming 13
No new posts Rexx program reading a DSN then write... CLIST & REXX 4
No new posts Rexx to list generations of GDGs and ... CLIST & REXX 3
No new posts Reading subsequent rows in a query. DB2 12
Search our Forums:

Back to Top