Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to find syscreate, size, changed date for a pds member

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Ghellar

New User


Joined: 01 Sep 2005
Posts: 12

PostPosted: Mon Mar 30, 2009 7:37 pm    Post subject: How to find syscreate, size, changed date for a pds member
Reply with quote

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
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Mon Mar 30, 2009 7:55 pm    Post subject: Reply to: How to find syscreate, size, changed date for a pd
Reply with quote

You've already posted the answer to your question, I think. I'm not sure I understand what you're asking.
Back to top
View user's profile Send private message
Ghellar

New User


Joined: 01 Sep 2005
Posts: 12

PostPosted: Mon Mar 30, 2009 8:03 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Mon Mar 30, 2009 8:23 pm    Post subject: Reply to: How to find syscreate, size, changed date for a pd
Reply with quote

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
View user's profile Send private message
Ghellar

New User


Joined: 01 Sep 2005
Posts: 12

PostPosted: Wed Apr 01, 2009 1:41 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us