MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

GdG version Create Date without recalling

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
misi
Beginner


Joined: 14 Apr 2004
Posts: 13
Topics: 10
PostPosted: Tue Apr 20, 2004 10:43 am    Post subject: GdG version Create Date without recalling Reply with quote
Is there a way to know when the gdg versions are created? We have a gdg base with 100 generations. Most of the generations are in migrated status and it takes a long time to recall them to see the creation date in 3.4. I want to know the creation date without recalling the generations.

Thanks

Misi
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5
PostPosted: Tue Apr 20, 2004 10:53 am    Post subject: Reply with quote
LISTCAT does not recall the dataset.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Tue Apr 20, 2004 11:19 am    Post subject: Reply with quote
Misi,

The following DFSORT/ICETOOL JCL will give you the desired results. If you have syncsort at your shop then change the pgm name to synctool in step0200.

A brief explanation of the job. step0100 is used to issue listcat command against the gdg base.

Step0200 takes in the listcat input and formats to get the creation dates of the versions and the base also.

Code:

//STEP0100 EXEC PGM=IKJEFT01                       
//SYSTSPRT DD DSN=&L,                             
//            DISP=(,PASS),                       
//            SPACE=(CYL,(5,5),RLSE),           
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)   
//SYSTSIN  DD *                                   
  LISTCAT ENT('USERID.GDGBASE') ALL   
//*   
//STEP0200 EXEC PGM=ICETOOL                               
//TOOLMSG  DD SYSOUT=*                                   
//DFSMSG   DD SYSOUT=*                                   
//IN       DD DSN=&L,DISP=(OLD,PASS)                     
//T1       DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)
//T2       DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)
//CON      DD DSN=&T1,DISP=OLD,VOL=REF=*.T1               
//         DD DSN=&T2,DISP=OLD,VOL=REF=*.T2   
//OUT      DD SYSOUT=*
//TOOLIN   DD *                                                     
   COPY FROM(IN)  USING(CTL1)                                       
   SORT FROM(CON) USING(CTL2)                                       
//CTL1CNTL DD *                                                     
   OUTFIL FNAMES=T1,                                                 
   INCLUDE=(4,7,CH,EQ,C'NONVSAM',OR,1,8,CH,EQ,C'GDG BASE'),         
   OUTREC=(17,44,5X,7C'0',80:X,SEQNUM,8,ZD)                         
   OUTFIL FNAMES=T2,STARTREC=2,INCLUDE=(37,8,CH,EQ,C'CREATION'),     
   OUTREC=(49X,53,4,58,3,80:X,SEQNUM,8,ZD)                           
//CTL2CNTL DD *                                                     
   OPTION EQUALS
   INREC FIELDS=(1,49,50,2,CHANGE=(1,C'19',C'0',                     
                                     C'20',C'1',                     
                                     C'21',C'2'),NOMATCH=(C'0'),     
                 52,5,80:X,81,8)                                     
   SORT FIELDS=(81,8,ZD,A)                                           
   SUM FIELDS=(50,6,ZD)                                             
   OUTREC FIELDS=(1,49,50,6,ZD,PD,LENGTH=4,80:X)                     
   OUTFIL FNAMES=OUT,                                               
   OUTREC=(1,44,C' IS CREATED ON: ',50,4,DT1,EDIT=(TTTT-TT-TT),80:X)
/*                                                                   


The output from this job is :

Code:

USERID.GDGBASE                  IS CREATED ON: 1999-07-23
USERID.GDGBASE.G0001V00         IS CREATED ON: 1999-07-24
.....
USERID.GDGBASE.G1232V00         IS CREATED ON: 2004-04-20


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Last edited by kolusu on Wed Apr 06, 2005 1:38 pm; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail Visit poster's website
krk123
Beginner


Joined: 03 Jun 2003
Posts: 58
Topics: 19
PostPosted: Tue May 04, 2004 1:50 pm    Post subject: Reply with quote
Hi,
Try using ISMF. Use option 1: Dataset. do 2-3 PF11's you can see the creation date.

Regards,
KRK123
Back to top
View user's profile Send private message
Maton_Man
Beginner


Joined: 30 Jan 2004
Posts: 123
Topics: 0
PostPosted: Thu Jun 24, 2004 11:08 pm    Post subject: Reply with quote
HLIST will give you the last referenced date. You can specify a dataset to write the output of the HLIST command to as a parameter rather than trying to outtrap it in rexx which won't work.
_________________
My opinions are exactly that.
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Fri Jun 25, 2004 12:51 am    Post subject: Reply with quote
But, Kolusu, superk said above, "LISTCAT does not recall the dataset."
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Fri Jun 25, 2004 5:02 am    Post subject: Reply with quote
Cogito,

what exactly did you want to say?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Sat Jun 26, 2004 5:31 am    Post subject: Reply with quote
Kolusu,
I think, I am seeing counter-statements here.

Your example uses a LISTCAT and superk said that LISTCAT does not recall a dataset. So, I was wondering if your job would work when couple of generations are migrated.

I am not sure, if I can easily find out a base with generations migrated. So, I could not test your job.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Mon Jun 28, 2004 5:13 am    Post subject: Reply with quote
Cogito,

Listcat gets the information from the catalog(VTOC) , so it does not matter if the GDG versions are migrated. Superk also mentioned the same , that the poster can run a Listcat command on the GDGbase , so that he can get the create date of the versions.

Hope this is clear

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group