View previous topic :: View next topic
|
Author |
Message |
niveditamukherjee1602
New User
Joined: 08 Mar 2010 Posts: 5 Location: Kolkata
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
Back to top |
|
|
niveditamukherjee1602
New User
Joined: 08 Mar 2010 Posts: 5 Location: Kolkata
|
|
|
|
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 |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
|
|
Hi,
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 |
|
|
niveditamukherjee1602
New User
Joined: 08 Mar 2010 Posts: 5 Location: Kolkata
|
|
|
|
I am really sorry for my mistake...I asked for version creation date. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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. . .
Just so we are all in sync - there is no date recorded that is the "version creation date". |
|
Back to top |
|
|
niveditamukherjee1602
New User
Joined: 08 Mar 2010 Posts: 5 Location: Kolkata
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
|
|
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 |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 |
|
|
niveditamukherjee1602
New User
Joined: 08 Mar 2010 Posts: 5 Location: Kolkata
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
|
|
Code: |
DSN1='XXXXXXX.XXXXX.XXXXXXX.XXXXX'||'.'||'G'||DIFF||'V00'
LVL = DSN1
I = LISTDSI(LVL)
/* followed by rest of your code */
|
|
|
Back to top |
|
|
|