|
View previous topic :: View next topic
|
| Author |
Message |
mohitsaini
Warnings : 1
New User
Joined: 15 May 2006
Posts: 92
|
|
|
|
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 |
|
 |
hikaps14
Active User
Joined: 02 Sep 2005
Posts: 189
Location: Noida
|
|
|
|
Did you try listcat ?
You can get creation date of base along with all present existing versions of gdg. |
|
| Back to top |
|
|
mohitsaini
Warnings : 1
New User
Joined: 15 May 2006
Posts: 92
|
|
|
|
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 |
|
|
hikaps14
Active User
Joined: 02 Sep 2005
Posts: 189
Location: Noida
|
|
|
|
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 |
|
|
mohitsaini
Warnings : 1
New User
Joined: 15 May 2006
Posts: 92
|
|
|
|
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 |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
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 |
|
|
mohitsaini
Warnings : 1
New User
Joined: 15 May 2006
Posts: 92
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| 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 |
|
|
mohitsaini
Warnings : 1
New User
Joined: 15 May 2006
Posts: 92
|
|
|
|
| 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 |
|
|
loga_nathan_m
New User
Joined: 07 Jun 2007
Posts: 40
Location: India
|
|
|
|
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 |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1248
Location: Richfield, MN, USA
|
|
|
|
| You are using SYNCSORT; Kolusu's solution is DFSORT. |
|
| Back to top |
|
|
loga_nathan_m
New User
Joined: 07 Jun 2007
Posts: 40
Location: India
|
|
|
|
| i tried both, initially i tried SORT only, since it was not working i changed to SYNCSORT |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
your problem is you are not using the current version of Syncsort.
Gerry |
|
| Back to top |
|
|
loga_nathan_m
New User
Joined: 07 Jun 2007
Posts: 40
Location: India
|
|
|
|
| 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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
| Back to top |
|
|
loga_nathan_m
New User
Joined: 07 Jun 2007
Posts: 40
Location: India
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
1) Is this a new topic
2) What is a version mismatch |
|
| Back to top |
|
|
loga_nathan_m
New User
Joined: 07 Jun 2007
Posts: 40
Location: India
|
|
|
|
| Its not a new topic. Refer to page 1. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
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 |
|
|
Venkichaitu
New User
Joined: 23 Aug 2014
Posts: 6
Location: india
|
|
|
|
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 |
|
|
dneufarth
Active User
Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)
|
|
|
|
| Suggest you start a new topic and not resurrect an 8 year old thread. |
|
| Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1054
Location: Richmond, Virginia
|
|
|
|
| And let me be the nth person to tell you to find out the difference between a generation and a version. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
