View previous topic :: View next topic
|
Author |
Message |
Ghellar
New User
Joined: 01 Sep 2005 Posts: 22
|
|
|
|
How to find syscreate, size, changed date for a pds member
Hi,
This rexx list syscreate, size, changed date for a pds member, and it works very well:
/* REXX */
/* LMMLIST - LIST A LIBRARY'S MEMBERS */
DATASET = 'T6201BTX.C6201.JOBINFO.CNTL'
ADDRESS ISPEXEC
TRACE R
"LMINIT DATAID(INPUT) DATASET('"DATASET"') ENQ(SHR)"
SAY ZERRLM
"LMOPEN DATAID("INPUT")"
SRCHPAT = 'F316223A'
"LMMLIST DATAID("INPUT") OPTION(SAVE)",
"PATTERN("SRCHPAT") GROUP(LMMLIST)"
SAY RC
"LMCLOSE DATAID("INPUT")"
"LMFREE DATAID("INPUT")"
but I need to list all syscreate, size, changed date for all members, how can I do?
Many thanks
Ghellar |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
You've already posted the answer to your question, I think. I'm not sure I understand what you're asking. |
|
Back to top |
|
|
Ghellar
New User
Joined: 01 Sep 2005 Posts: 22
|
|
|
|
Sorry for my English, I often use the rex that I posted, but now I have the problem of extracting a list of all members with their features. The rex posted that I do this for a single member.
Please can you help me.
Many Thanks |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
Let's see...
You've used the SAVE option:
Quote: |
SAVE The SAVE option writes all member names in a list specified by the data ID to a data set. The name of the data set is determined by the presence and value of the GROUP parameter.
|
and you've used GROUP too:
Quote: |
group This 8-character value specifies the group name of the data set that the LMMLIST service writes the member names list with the SAVE option. The entire data set name is <prefix>.<group>.MEMBERS. If you do not specify a group name the LMMLIST service writes to the ISPF LIST data set.
|
Now you should check what you have in file xxx.LMLIST.MEMBERS
Alternatively, you could use the LIST parameter (instead of SAVE) to receive members one by one in a loop. |
|
Back to top |
|
|
Ghellar
New User
Joined: 01 Sep 2005 Posts: 22
|
|
|
|
Hi Marso,
Many Thanks for your Reply....and information.
I solved by setting PATTERN(&PATTERN) instead of the PATTERN("SRCHPAT").
DATASET = 'USR58.PUN.JCL'
ADDRESS ISPEXEC
TRACE O
"LMINIT DATAID(INPUT) DATASET('"DATASET"') ENQ(SHR)"
SAY ZERRLM
"LMOPEN DATAID("INPUT")"
"LMMLIST DATAID("INPUT") OPTION(SAVE)",
"PATTERN(&PATTERN) GROUP(SUN)"
SAY RC
"LMCLOSE DATAID("INPUT")"
"LMFREE DATAID("INPUT")"
Many thanks Marso |
|
Back to top |
|
|
|