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

GDG version creation date


IBM Mainframe Forums -> CLIST & REXX
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
niveditamukherjee1602

New User


Joined: 08 Mar 2010
Posts: 5
Location: Kolkata

PostPosted: Mon Mar 08, 2010 12:36 pm
Reply with quote

HI!!!

Need few helps regarding REXX as I am just new to this.

1. I wish to know the creation date of a GDG version and check whether
it is same with the input date
2. The number of GDG versions present.
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Mon Mar 08, 2010 1:04 pm
Reply with quote

Hi,

This link might help you.
www.ibmmainframes.com/about16234.html

Or

LISTDSI and with SYSCREATE
Back to top
View user's profile Send private message
niveditamukherjee1602

New User


Joined: 08 Mar 2010
Posts: 5
Location: Kolkata

PostPosted: Mon Mar 08, 2010 2:50 pm
Reply with quote

Thanks a lOT!!!

But it would be a gr8 help if you elaborate it a bit to me. I am just a novice in this matter.

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

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Mon Mar 08, 2010 3:12 pm
Reply with quote

niveditamukherjee1602 wrote:
Thanks a lOT!!!

But it would be a gr8 help if you elaborate it a bit to me. I am just a novice in this matter.

Thanks again,

Below code snippet will give you generation creation date
Code:

lvl="MY.GDG.BASE.BKP(0)"                                       
"ISPEXEC LMDINIT LISTID(TMPID) LEVEL("LVL")"                           
I=0                                                                     
Do Forever                                                             
"ISPEXEC LMDLIST LISTID("TMPID") OPTION(LIST) DATASET(DSVAR) STATS(YES)"
   If rc = 0 Then DO                                                   
   SAY ZDLCDATE                                                         
   END                                                                 
   Else Leave                                                           
End                                                                     
"ISPEXEC LMDLIST LISTID("TMPID") OPTION(FREE)"                         
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Mon Mar 08, 2010 3:13 pm
Reply with quote

Hi,
Quote:
GDG version

You meant GDG generation here?. Please use correct terminlogy while referring GDG stuffs. Generations and Versions are valid terms with GDG.

LMDLIST is explained here (and in above mentioned thread too). LMDLIST - List Data Sets

This is using LISTDSI.
Code:
DS_NAME="'DS_NAME'"             
dsinfo=LISTDSI(DS_NAME)                           
IF  DSINFO == 0 THEN                                                                                 
  SAY 'Data Set Created :' SYSCREATE       
ELSE                         
DO                           
  SAY DSINFO                 
  SAY 'Data Set Is Not Found!' 
END


Please refer the REXX User Guide & Language Reference by clicking "IBM Manuals" link on top of the page if you need any clarification.
Back to top
View user's profile Send private message
niveditamukherjee1602

New User


Joined: 08 Mar 2010
Posts: 5
Location: Kolkata

PostPosted: Tue Mar 09, 2010 11:24 am
Reply with quote

I am really sorry for my mistake...I asked for version creation date.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Tue Mar 09, 2010 11:29 am
Reply with quote

Hello,
Quote:
I am really sorry for my mistake...I asked for version creation date.
From your reply it is not clear if there is still a question. . . icon_confused.gif

Just so we are all in sync - there is no date recorded that is the "version creation date".
Back to top
View user's profile Send private message
niveditamukherjee1602

New User


Joined: 08 Mar 2010
Posts: 5
Location: Kolkata

PostPosted: Tue Mar 09, 2010 11:34 am
Reply with quote

What i wish to do through rexx is to view the same date that we see whener we do a "cd" command beside any GDG version.

That was my question.
I hope i am a bit clear in explaining my query........Thanks...Regards
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Tue Mar 09, 2010 11:38 am
Reply with quote

Quote:
cd" command beside any GDG version

Perhaps specific to your site? What date would you get with that command? The GDG Generation creation date???
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Tue Mar 09, 2010 11:39 am
Reply with quote

Quote:
we see whener we do a "cd" command beside any GDG version.

You are stil not on track..

And CD looks your inhouse command..
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Tue Mar 09, 2010 11:40 am
Reply with quote

Hello,

Quote:
view the same date that we see whener we do a "cd" command beside any GDG version
Sounds like something site-specific. From which screen/list is the "cd" entered?
Back to top
View user's profile Send private message
niveditamukherjee1602

New User


Joined: 08 Mar 2010
Posts: 5
Location: Kolkata

PostPosted: Fri Mar 12, 2010 1:24 pm
Reply with quote

Sorry a little change in preveous query...

I am getting the creation date using SYSCREATE command as an e.g->

LVL ="'XXXXXXX.XX.XXXXXX.XXX.G0005V00'"
I = LISTDSI(LVL)
SAY I
IF I == 0 THEN DO
DAT= SYSCREATE
SAY DAT
END


if I wish to make it dynamic say,I am creating my DSN like,
DSN1='XXXXXXX.XXXXX.XXXXXXX.XXXXX'||'.'||'G'||DIFF||'V00'

Then how to know the creation date
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Fri Mar 12, 2010 8:24 pm
Reply with quote

Code:
DSN1='XXXXXXX.XXXXX.XXXXXXX.XXXXX'||'.'||'G'||DIFF||'V00'
LVL = DSN1
I = LISTDSI(LVL)
/* followed by rest of your code */
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 -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Replacing 'YYMMDD' with date, varying... SYNCSORT 3
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Need help to append a date&tsp at... DFSORT/ICETOOL 9
Search our Forums:

Back to Top