|
View previous topic :: View next topic
|
| Author |
Message |
ayansau
New User
Joined: 22 Jun 2007
Posts: 42
Location: Chennai
|
|
|
|
How can I extract detail information of all the members in a PDS?
Like date created, last modified, size, who modified etc..
This is about eache member NOT for the PDS which contains the members. |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
| Back to top |
|
|
ayansau
New User
Joined: 22 Jun 2007
Posts: 42
Location: Chennai
|
|
|
|
ISPEXEC LMDLIST LISTID(dslist-id)
[OPTION(LIST|FREE|SAVE|SAVEC)]
[DATASET(dataset-var)]
[STATS(YES|NO)]
[GROUP(group)]
in this what should be the LISTID?
| Code: |
/****************************** REXX *********************************/
DSNAME = 'XXXXXXX.SVCTOOL.EMSR.EXEC'
ADDRESS ISPEXEC
"LMDLIST LISTID(??) STATS(YES) DATASET(DSNAME) OPTION(LIST)"
|
|
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
| You have very obviously not bothered to actually read the linked-to pages... If you had done so you would know what to use in the LISTID. |
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
| Code: |
lvl="my.dataset.name"
"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)"
|
here is one sample.. apart from this
If STATS(YES) is specified, the following variables are returned to the variable pool:
(Thanks to Superk. I kept it copied in my notepad from one of his post with link I mentioned above... )
ZDLVOL
Volume serial.
ZDLDEV
Device type.
ZDLDSORG
Data set organization.
ZDLRECFM
Record format.
ZDLLRECL
Logical record length.
ZDLBLKSZ
Block size.
ZDLSIZE
Data set size in tracks.
ZDLSIZEX
Data set size in tracks, long format (12 bytes).
ZDLUSED
Percentage of used tracks or pages (PDSE).
ZDLEXT
Number of extents used.
ZDLEXTX
Number of extents used, long format (5 bytes).
ZDLCDATE
Creation date.
ZDLEDATE
Expiration date.
ZDLRDATE
Date last referenced.
ZDLMIGR
Whether the data set is migrated (YES or NO) based on the value of the VOLUME_OF_MIGRATED_DATA_SETS keyword in the ISPF configuration table. If the volume name of the data set matches the value of VOLUME_OF_MIGRATED_DATA_SETS, ZDLMIGR is set to YES, otherwise it is set to NO.
ZDLDSNTP
Dsname type (PDS, LIBRARY, or ' ').
ZDLSPACU
Space units.
ZUDMVOL
Whether the data set is multivolume (Y) or not (N). |
|
| Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007
Posts: 691
Location: Earth
|
|
|
|
Sambhaji,
IMHO Being helpful is good thing but as the saying goes- Give a man a fish and you feed him for a day. Teach a man to fish and you feed him for a lifetime.
OP was given necessary information by Enrico(Teaching to Fish).
Then you pitched in (Gave him fish for the day). (No offense meant.)
Then OP came back asking another question. (Maybe he didn't bother to cook the free fish he got. )
Now you are trying to cook the fish for him as well. 
(Next step- you will be required to chew the fish for him.  )
Jokes apart, I think you are making valuable contributions on forum and I hope to see more of you in quality discussions happening around. |
|
| Back to top |
|
|
ayansau
New User
Joined: 22 Jun 2007
Posts: 42
Location: Chennai
|
|
|
|
Thanks for the reply Sambhaji.
The code you mentioned is to extract PDS detail. LISTDSI also enough to extract those information.
I want extract member detail. Please see the screen attached.
| Code: |
VIEW XXXXXXX.SVCTOOL.EMSR.EXEC Row 00001 of 00013
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ EMAEXT 118 2009/11/25 2010/01/29 03:28:51 USTXI21
_________ EMAEXTV2 122 2009/11/25 2010/01/29 03:28:58 USTXI21
_________ EMAIL 324 2009/11/24 2010/01/06 02:44:48 ISDXU03
_________ EMFRQ 246 2009/12/23 2010/04/29 00:26:48 USTXI21
_________ EMHSTMT 373 2009/06/15 2010/01/29 03:25:14 USTXI21
_________ EMHSTMV2 389 2009/12/15 2010/02/17 10:37:18 ISDXR05
_________ EMSR 72 2009/11/24 2010/04/29 05:19:37 USTXI21
_________ EMSRCH 1183 2009/11/26 2010/01/28 04:48:10 USTXI21
_________ EMSRCHV2 1225 2009/12/16 2010/01/28 05:17:31 USTXI21
_________ EMSTMT 638 2009/10/08 2010/01/29 03:31:06 USTXI21
_________ EMSTMTV2 707 2009/12/14 2010/03/30 01:33:07 ISDXU03
_________ EMSTMTV3 787 2009/12/18 2010/04/15 00:16:46 ISDXU03
_________ EMSTMT1 666 2009/10/08 2009/12/10 06:09:42 ISDXU03
|
Please let me know is it possible to retrieve these information?? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
| Back to top |
|
|
ayansau
New User
Joined: 22 Jun 2007
Posts: 42
Location: Chennai
|
|
|
|
Hi,
I got the solution from PDSMAN utility.
Thanks a lot for your help.
Ayan |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| ayansau wrote: |
| I got the solution from PDSMAN utility. |
which reveals the obvious:
3/4's of the questions on this board are based on the lack of familiarity
of the software available at one's own site.
Instead of looking around where they work,
asking their support groups,
asking their peers,
these topics are opened by people
who do not have the initiative to learn about their environment. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| If the language you want to use is REXX, there is an alternative method to find this information posted here. I've used this code myself. |
|
| Back to top |
|
|
|
|
