| View previous topic :: View next topic |
| Author |
Message |
shash_modi
Beginner
Joined: 22 Apr 2008
Posts: 26
Topics: 9
Location: Mumbai
|
 Posted: Tue Jul 22, 2008 10:58 am Post subject: Process GDG that are created today using REXX. |
 |
|
Hi,
I have GDG base name as 'HQTSM.PROD.TS30015D.GDG', now when my job TS30015D runs it creates the GDG version as showm below:
HQTSM.PROD.TS30015D.GDG.G0001V00
HQTSM.PROD.TS30015D.GDG.G0002V00
HQTSM.PROD.TS30015D.GDG.G0003V00
My requiremnet is pick up only GDG generations using REXX that are created today only considering that TS30015D can run multiple times in a day? |
|
| Back to top |
|
 |
Martin
Beginner
Joined: 20 Mar 2006
Posts: 133
Topics: 58
|
| Posted: Mon Feb 01, 2010 6:08 pm Post subject: |
|
|
Hi All,
I am in similar situation wherein I need to copy the GDG versions which are created before given time ( thru a sort card). Is there a way to achieve this?
Thanks,
Martin |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
s_shivaraj
Beginner
Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
|
| Posted: Tue Feb 02, 2010 12:45 am Post subject: |
|
|
shash_modi,
Here is a rexx routine which will list all the generations created on a particular date.
| Code: | Parse arg gdg crdate
CALL OUTTRAP GDGlIST.
"LISTCAT Level("gdg") ALL"
Do I = 1 TO GDGLIST.0
If SUBSTR(GDGlIST.I,1,07) = 'NONVSAM' Then
Do
K = I + 3
IF SUBSTR(GDGlIST.K,53,10) = crdate then
Say SUBSTR(GDGlIST.I,17,40)
End
End |
Arguments are GDGbase name and date in yyyy.ddd format.
But i am not sure how to check whether these GDG's are created only by that particular job.. 
_________________
Cheers
Sivaraj S
'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Last edited by s_shivaraj on Sun Feb 07, 2010 11:46 pm; edited 1 time in total |
|
| Back to top |
|
|
papadi
Supermod
Joined: 20 Oct 2009
Posts: 594
Topics: 1
|
| Posted: Tue Feb 02, 2010 3:06 pm Post subject: |
|
|
| Quote: | | will list all the versions created on a particular date. |
Nothing in this topic has anything to do with versions. . .
_________________
All the best,
di |
|
| Back to top |
|
|
Anuj Dhawan
Intermediate
Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India
|
| Posted: Thu Feb 04, 2010 9:41 am Post subject: |
|
|
| papadi wrote: | | Nothing in this topic has anything to do with versions. . . |
I'm pretty sure that OP meant "Generations" and not "versions" - on these boards, I usually see, these terms being used interchangeably quite often...but that's the world we live in.
_________________
Regards,
Anuj |
|
| Back to top |
|
|
Bill Dennis
Advanced
Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA
|
| Posted: Thu Feb 04, 2010 10:22 am Post subject: |
|
|
If you UNCATLG the generations when processing them then you can easily retrieve all current generations each run. This method exploits the usefulness of the GDG concept.
_________________
Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
| Back to top |
|
|
papadi
Supermod
Joined: 20 Oct 2009
Posts: 594
Topics: 1
|
| Posted: Thu Feb 04, 2010 3:14 pm Post subject: |
|
|
| Quote: | | but that's the world we live in. |
Only if we choose to tolerate this 
Fortunately, there are still many professionals who find this unacceptable (and some of us even say so).
I've often wondered just how the misuse of version began. These are after all Generation Data Sets (not Version Data Sets). . . 
_________________
All the best,
di |
|
| Back to top |
|
|
s_shivaraj
Beginner
Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
|
| Posted: Sun Feb 07, 2010 11:47 pm Post subject: |
|
|
papadi, Thanks for correcting that, what i meant was generation. Corrected my posting now.
_________________
Cheers
Sivaraj S
'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity' |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
