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
 

 

GDG Base Creation date

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mohitsaini
Warnings : 1

New User


Joined: 15 May 2006
Posts: 87

PostPosted: Thu Jul 30, 2009 9:59 am    Post subject: GDG Base Creation date
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    Post subject: Reply to: GDG Base Creation date
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: 87

PostPosted: Thu Jul 30, 2009 10:41 am    Post subject:
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    Post subject: Reply to: GDG Base Creation date
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: 87

PostPosted: Thu Jul 30, 2009 11:04 am    Post subject:
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    Post subject:
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: 87

PostPosted: Fri Jul 31, 2009 9:44 am    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 31, 2009 11:36 am    Post subject:
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: 87

PostPosted: Fri Jul 31, 2009 5:09 pm    Post subject:
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    Post subject:
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: 1238
Location: Richfield, MN, USA

PostPosted: Thu Aug 13, 2009 10:24 am    Post subject:
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    Post subject:
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: 1703
Location: Australia

PostPosted: Thu Aug 13, 2009 10:48 am    Post subject:
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    Post subject:
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: 1703
Location: Australia

PostPosted: Thu Aug 13, 2009 11:33 am    Post subject:
Reply with quote

Hi,

see http://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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Aug 13, 2009 12:38 pm    Post subject:
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    Post subject:
Reply with quote

Its not a new topic. Refer to page 1.
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Thu Aug 13, 2009 8:00 pm    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
This topic is locked: you cannot edit posts or make replies. Get correct date and time when curren... balaji81_k DB2 24 Fri Oct 14, 2016 10:40 pm
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm
No new posts Add system date inside of a PS file a... pramitdas DFSORT/ICETOOL 5 Sun Aug 28, 2016 12:06 am


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