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
 

 

Emptying the Last generation of GDG

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
pattabhiram_c

New User


Joined: 17 Apr 2007
Posts: 3
Location: Hyderabad

PostPosted: Fri Jun 01, 2007 11:03 am    Post subject: Emptying the Last generation of GDG
Reply with quote

Is is there any way emptying the last generation of GDG using REXX code?
Back to top
View user's profile Send private message

agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 685
Location: Earth

PostPosted: Fri Jun 01, 2007 11:59 am    Post subject:
Reply with quote

What do you mean by last version? latest version?
What do you mean by emptying? deleting all records? or Deleting dataset itself?
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: Fri Jun 01, 2007 12:53 pm    Post subject:
Reply with quote

If you mean that the 0 gen is a null file, then just define a +1 gen with IEBGENER, using SYSUT1 DD DUMMY.

Then after the job finishes the current 0 version will be empty.
Back to top
View user's profile Send private message
pattabhiram_c

New User


Joined: 17 Apr 2007
Posts: 3
Location: Hyderabad

PostPosted: Fri Jun 01, 2007 1:42 pm    Post subject: Re: Emptying the Last version of GDG
Reply with quote

Need to delete the records in the version which is created first
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Fri Jun 01, 2007 2:34 pm    Post subject: Re: Emptying the Last generation of GDG
Reply with quote

"EXECIO 0 DISKW ddname (FINIS"

ought to do what you want in REXX code.

My preference is to use DFSORT with SORTIN and SORTOUT using the same dataset with two control statements:

Code:

  OPTION COPY
  OMIT COND=ALL
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Random Password (in string format) ge... ezhavendhan COBOL Programming 10 Mon Aug 29, 2016 3:18 pm
No new posts alphanumeric sequence generation sivaprasad.gadhi COBOL Programming 6 Wed Mar 30, 2016 3:03 am
No new posts alphanumeric sequence generation sivaprasad.gadhi DFSORT/ICETOOL 8 Mon Mar 21, 2016 1:09 am
No new posts Report generation senthamizh DFSORT/ICETOOL 1 Sat Jun 20, 2015 2:01 pm
No new posts Reading 0th Generation of GDG in REX S0C7 CLIST & REXX 8 Sat May 31, 2014 3:29 am


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