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

GDG Base Creation date
IBM Mainframe Forums -> JCL & VSAM
Post new topic   This topic is locked: you cannot edit posts or make replies. Quick References
View previous topic :: View next topic  
Author Message
mohitsaini
Warnings : 1
New User


Joined: 15 May 2006
Posts: 92
PostPosted: Thu Jul 30, 2009 9:59 am
 Reply with quote
Hi ALL,

Is there any way to figure out the GDG base creation date?

Actually our team is in a process to delete the unused GDGs and for that we also need to know their orignation date.

Any kind of help will be really appreciated.

Regards,
Back to top
View user's profile Send private message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida
PostPosted: Thu Jul 30, 2009 10:33 am
 Reply with quote
Did you try listcat ?

You can get creation date of base along with all present existing versions of gdg.
Back to top
View user's profile Send private message
mohitsaini
Warnings : 1
New User


Joined: 15 May 2006
Posts: 92
PostPosted: Thu Jul 30, 2009 10:41 am
 Reply with quote
Thanks hikaps14

I tried listcat ... but perhaps according to limited knowledge of LISTCAT I wasn't able to figure out ....

If you know anything then can you plz let me know.
Back to top
View user's profile Send private message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida
PostPosted: Thu Jul 30, 2009 11:02 am
 Reply with quote
Hi,

Did you try searching "Listcat" in this forum.

There are many topics on Listcat:
1)http://www.ibmmainframes.com/viewtopic.php?t=40597&highlight=listcat

There are many more, rather there are many with same topic name as yours.

Try Search and you should be able to get more help on this.

Thanks,
-Kapil.
Back to top
View user's profile Send private message
mohitsaini
Warnings : 1
New User


Joined: 15 May 2006
Posts: 92
PostPosted: Thu Jul 30, 2009 11:04 am
 Reply with quote
Hi Kapil,

I got to know this line:

Go to option 6

and type "LISTCAT ENTRIES('B5355.G5299.NIKE.DATA') ALL"

Will get the all the details.

Thanks so much for your help.

- Mohit
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
PostPosted: Thu Jul 30, 2009 9:52 pm
 Reply with quote
mohitsaini,

Use the following DFSORT jcl which will give you the desired results

Code:

//STEP0100 EXEC PGM=IKJEFT01                     
//SYSTSPRT DD DSN=&&L,                           
//            DISP=(,PASS),                     
//            SPACE=(CYL,(1,1),RLSE),           
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) 
//SYSTSIN  DD *                                 
  LISTCAT ENT('B5355.G5299.NIKE.DATA') ALL             
//*                                             
//STEP0200 EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                               
//SORTIN   DD DSN=&&L,DISP=(OLD,PASS)                               
//SORTOUT  DD SYSOUT=*                                               
//SYSIN    DD *                                                     
  INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR,                           
                04,7,CH,EQ,C'NONVSAM',OR,                           
                37,8,CH,EQ,C'CREATION')                             
                                                                     
  INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(81:17,44),               
  BEGIN=(1,8,CH,EQ,C'GDG BASE',OR,4,7,CH,EQ,C'NONVSAM'))             
  SORT FIELDS=COPY                                                   
                                                                     
  OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),
  IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))                 
  OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION'),                           
  BUILD=(81,44,C' IS CREATED ON : ',125,4,DT1,EDIT=(TTTT-TT-TT))     
//*


The output from the above job is

Code:

B5355.G5299.NIKE.DATA                              IS CREATED ON : 2008-02-25
B5355.G5299.NIKE.DATA.G0001V00                     IS CREATED ON : 2009-07-28
B5355.G5299.NIKE.DATA.G0002V00                     IS CREATED ON : 2009-07-29
B5355.G5299.NIKE.DATA.G0003V00                     IS CREATED ON : 2009-07-30       
Back to top
View user's profile Send private message
mohitsaini
Warnings : 1
New User


Joined: 15 May 2006
Posts: 92
PostPosted: Fri Jul 31, 2009 9:44 am
 Reply with quote
Thanks Skolusu,

This is excellent stuff.

Although, honestly, I am not well familiar with the syntax used in the Second step. Especially the IFTHEN part. But the whole JCL is working fine.

Will take some time for me to understand the second step completely.

Thanks again,
Mohit
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
PostPosted: Fri Jul 31, 2009 11:36 am
 Reply with quote
Why do you need to know the creation date of a GDG base to know if it is being used or not ?
Back to top
View user's profile Send private message
mohitsaini
Warnings : 1
New User


Joined: 15 May 2006
Posts: 92
PostPosted: Fri Jul 31, 2009 5:09 pm
 Reply with quote
Good Question ... even I was also wondering when I got that kind of requirement ... but I guess it may help in deciding whether to go ahead with deleting the unused GDGs.
Back to top
View user's profile Send private message
loga_nathan_m

New User


Joined: 07 Jun 2007
Posts: 40
Location: India
PostPosted: Thu Aug 13, 2009 10:11 am
 Reply with quote
Hi mohitsaini/Skolusu,

i tried the same code but getting abend.
If says the INREC statement has syntax error. i referred to the syntax in other sites and its fine. Please guide me

Code:

SYSIN :                                                                   
  INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR,                               
                04,7,CH,EQ,C'NONVSAM',OR,                                 
                37,8,CH,EQ,C'CREATION')                                   
                                                                         
  INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(81:17,44),                     
                     *                                                   
  BEGIN=(1,8,CH,EQ,C'GDG BASE',OR,4,7,CH,EQ,C'NONVSAM'))                 
  SORT FIELDS=COPY                                                       
                                                                         
  OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),     
  IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))                       
  OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION'),                               
  BUILD=(81,44,C' IS CREATED ON : ',125,4,DT1,EDIT=(TTTT-TT-TT))         
WER268A  INREC STATEMENT   : SYNTAX ERROR                                 
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                             
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                             
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1248
Location: Richfield, MN, USA
PostPosted: Thu Aug 13, 2009 10:24 am
 Reply with quote
You are using SYNCSORT; Kolusu's solution is DFSORT.
Back to top
View user's profile Send private message
loga_nathan_m

New User


Joined: 07 Jun 2007
Posts: 40
Location: India
PostPosted: Thu Aug 13, 2009 10:30 am
 Reply with quote
i tried both, initially i tried SORT only, since it was not working i changed to SYNCSORT
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Thu Aug 13, 2009 10:48 am
 Reply with quote
Hi,

your problem is you are not using the current version of Syncsort.


Gerry
Back to top
View user's profile Send private message
loga_nathan_m

New User


Joined: 07 Jun 2007
Posts: 40
Location: India
PostPosted: Thu Aug 13, 2009 11:10 am
 Reply with quote
can u suggest me a solution for the problem. Are u aware of what version syncsort the program needs. should i change the PGM= something else
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Thu Aug 13, 2009 11:33 am
 Reply with quote
Hi,

see ibmmainframes.com/viewtopic.php?t=38889


Gerry
Back to top
View user's profile Send private message
loga_nathan_m

New User


Joined: 07 Jun 2007
Posts: 40
Location: India
PostPosted: Thu Aug 13, 2009 12:22 pm
 Reply with quote
hi,

i'm using SYNCSORT FOR Z/OS 1.3.0.2R version.
can some one suggest how to modify the above code to meet version mismatch
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
PostPosted: Thu Aug 13, 2009 12:38 pm
 Reply with quote
1) Is this a new topic
2) What is a version mismatch
Back to top
View user's profile Send private message
loga_nathan_m

New User


Joined: 07 Jun 2007
Posts: 40
Location: India
PostPosted: Thu Aug 13, 2009 2:17 pm
 Reply with quote
Its not a new topic. Refer to page 1.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
PostPosted: Thu Aug 13, 2009 8:00 pm
 Reply with quote
Hello,

Quote:
how to modify the above code to meet version mismatch
Rather - have the product upgraded to the current release that supports this syntax. . .
Back to top
View user's profile Send private message
Venkichaitu

New User


Joined: 23 Aug 2014
Posts: 6
Location: india
PostPosted: Wed Aug 23, 2017 5:19 am
 Reply with quote
Hi Guys,

I am looking for Get All the GDG Versions Created for a Day. We have one proc which is running in different Job and creating the different versions in one day and some time it will create 10 versions and another time it will create 5 based on the transactions . I want to know that how many version created for the day and these all are needs to go to another job for the process end of the day and need to exclude the previous days versions . Is there any way to identify that .. If you have any sample JCL can you please share it ..
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)
PostPosted: Wed Aug 23, 2017 6:10 am
 Reply with quote
Suggest you start a new topic and not resurrect an 8 year old thread.
Back to top
View user's profile Send private message
Phrzby Phil

Senior Member


Joined: 31 Oct 2006
Posts: 1049
Location: Richmond, Virginia
PostPosted: Wed Aug 23, 2017 9:05 am
 Reply with quote
And let me be the nth person to tell you to find out the difference between a generation and a version.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts GDG generation name to GDG Base name ... DFSORT/ICETOOL 3
No new posts Date format correction using dfsort DFSORT/ICETOOL 3
No new posts Sorting Date Field DFSORT/ICETOOL 4
No new posts CONVERT a given date from UTC TO BST CICS 0
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us