This is very nice.
I find it perplexing, though, that there is apparently no field in a load 
module PDS that indicates when a member was created and/or last updated.  Why 
is it there for non-load module PDSs but not for load module PDSs?
-- 

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO  USA
P: 303-235-1403


On 5/19/2010 at 5:50 PM, in message
<of9089f4f4.460a3c10-on85257728.0081666f-85257728.0082f...@us.ibm.com>, Paul
Strauss <[email protected]> wrote:
> Hi Kriss,
> 
> Another person replied and suggested using the free PDS tool from the
> CBTTAPE web site. That should do what you want. I made a copy of
> SYS1.CMDLIB and ran PDS85 (the name on my system) in batch to get the
> following report:
> 
> NAME        ALIASOF     CREATED  SIZE SSI      ATTRIBUTES
> AKJLKL01                10/02/08 17832 01119368 RENT, REUS, REFR
> ARCBDEL                       10/02/08 34016 01118183 RENT, REUS
> ARCRMDS                       10/04/12  176K 01111158 RENT, REUS
> CBRUTIL                       10/04/12 12112 01110829 RANY, A31, RENT,
> REUS, REFR
> HBACK       ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HBACKDS     ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HBDEL       ARCBDEL     10/02/08 34016 01118183 RENT, REUS
> HBDELETE    ARCBDEL     10/02/08 34016 01118183 RENT, REUS
> HDEL        ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HDELETE     ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HMIG        ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HMIGRATE    ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HRECA       ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HRECALL     ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HRECOV      ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> HRECOVER    ARCRMDS     10/04/12  176K 01111158 RENT, REUS
> IKJLKL01    AKJLKL01    10/02/08 17832 01119368 RENT, REUS, REFR
> OAMUTIL     CBRUTIL     10/04/12 12112 01110829 RANY, A31, RENT, REUS, REFR
> 
> I created the above report using the following JCL:
> 
> //TSO  EXEC PGM=IKJEFT01
> //STEPLIB   DD DSN=SYS4.PDS.V8R5M0.LOAD,DISP=SHR
> //SYSPRINT DD SYSOUT=*
> //SYSTSPRT DD SYSOUT=*
> //SYSTSIN  DD *
>  PDS85 'tsoid.SYS1.CMDLIB'
>  IF : LAST(120)
>  END
> //
> 
> For the test above I made a copy of SYS1.CMDLIB in tsoid.SYS1.CMDLIB. This
> load library had 295 members.
> 
> The IF : LAST(120) above is telling PDS85 to list out the members (the :
> says all members in the dataset are included) that were linked over the
> last 120 days before today (or what ever day it was run). You wanted to run
> the type of report above going back three days but tsoid.SYS1.CMDLIB  did
> not have any load modules linked over the last 3 days which resulted in the
> job getting putting out this message 'NO MATCHING ATTRIBUTES WERE FOUND '.
> That's why I ran it with LAST(120). You should be able to get the product
> above from web site www.cbttape.org if you don't have it.
> 
> There are many other keywords for PDS. You could use CHANGED
> (1/1/10:3/15/10) instead of LAST if you need a range.       (Untested)
> 
> Good Luck.
> 
> Thank You,
> 
> Paul Strauss
> 
> Integrated Technology Delivery, Global Services, IBM
> L0DB z/OS MVS/Program Products/Security
> 150 Kettletown Rd.
> Southbury, CT 06488
> (203) 272-2758
> [email protected] 
> 
> 
>                                                                              
>                                                  
>   From:       "Davis, Kriss" <[email protected]>                              
>  
>                                                
>                                                                              
>                                                  
>   To:         [email protected]                                            
>                                                 
>                                                                              
>                                                  
>   Date:       05/19/2010 06:15 PM                                            
>                                                  
>                                                                              
>                                                  
>   Subject:    Getting "BIND/LINK" date out of load module members            
>                                                  
>                                                                              
>                                                  
>   Sent by:    IBM Mainframe Discussion List <[email protected]>            
>   
>                                               
>                                                                              
>                                                  
> 
> 
> 
> 
> 
> I am working on process to monitor/audit load libraries for new/replaced
> members during a date range.  I have a working version that uses AMBLIST
> with a SYSIN of LISTIDR.  I run the REPORT OUTPUT created by this to a
> disk dataset for a given load library.
> 
> Then in the next step, I parse the REPORT output looking for the member
> name and BIND date.  If the BIND date is less than 3 days old, I output
> the member name on the report.
> 
> The AMBLIST step (unloading all the member data to the report) takes
> quite awhile for some of our larger LOAD libraries.  And of course,
> outputs a lot more info than I need.  I just need the member name and
> the BIND date.
> 
> Is there another IBM utility (or a different parameter for AMBLIST) that
> would unload a LOAD library of its members and dates more efficiently?
> 
> I only run this once a day, so it is not a big deal that it runs quite a
> while, but it would help testing new features if I could get the
> "AMBLIST" part to run faster.
> 
> Thanks in advance!
> 
> Kriss
> 
> 
> Kriss Davis
> Manager
> Illinois State University
> [email protected] 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html

>>> 

The information contained in this electronic communication and any document 
attached hereto or transmitted herewith is confidential and intended for the 
exclusive use of the individual or entity named above.  If the reader of this 
message is not the intended recipient or the employee or agent responsible for 
delivering it to the intended recipient, you are hereby notified that any 
examination, use, dissemination, distribution or copying of this communication 
or any part thereof is strictly prohibited.  If you have received this 
communication in error, please immediately notify the sender by reply e-mail 
and destroy this communication.  Thank you.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to