Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

File Aid Batch To List PDS Members

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Sat Oct 20, 2012 3:07 am    Post subject: File Aid Batch To List PDS Members
Reply with quote

I'm using File Aid 9.3.1.

Using the online panels, I can go into Entended Utilities (Option 3), Library Utilitiy (Option 1) and leaving the panel Option blank, get an excellent list of all the members in the PDS, along with the Create/Last Modified Dates, Size, ID, etc.

However, when I try to use the batch option on the Library Utility (Process Option = B), it will not accept blank as a valid entry (or, actually, any of its listed options), because this is a PDS of source code (COBOL, Assembler, etc.).

I read through the Batch manual and played with some variations on LIST and LMODDIR to no avail. These are great if I want a listing of the contents of the PDS members - all I want is this:


Code:
------------------------------------------------------------------------------
 S  NAME    RENAME   VV.MM  CREATED  LAST MODIFIED   SIZE  INIT   MOD   ID     
   CYO500            08.01 98/09/23 12/09/04 15:59    652  3914     1 TSO6077 
   CZS951            03.06 96/10/08 07/04/24 15:32    478   368     0 TSOPJC   
   HAB501            64.80 99/05/04 07/04/13 08:21    973   973     0 TSOPJC   
   HAB502            64.75 98/01/19 07/04/03 14:05   1148   959     0 TSOPJC   
   HAE000            64.77 98/10/02 07/04/24 15:32    400   400     0 TSOPJC   
   HAE010            64.72 98/04/14 07/04/24 15:32   1395  1395     0 TSOPJC   
   HAE020            64.73 98/04/14 07/04/24 15:32   1473  1473     0 TSOPJC   
   HAE021            64.72 98/04/14 07/04/24 15:32   1842  1842     0 TSOPJC   
   HAE030            64.72 98/04/14 07/04/24 15:32    430   430     0 TSOPJC   
   HAE031            64.72 98/04/14 07/04/24 15:32   1890  1890     0 TSOPJC   


...in a dataset so I can move it to the PC for a report I am working on. No, screen printing to a file isn't going to cut the mustard: there are over 300 PDS files with thousands and thousands of programs.

Any suggestions?
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sat Oct 20, 2012 4:24 am    Post subject:
Reply with quote

ever thought of using SAVE <listname> while in a standard ISPF member display,
instead of having to learn how to use a tool that
though your company
paid money for the rights of use
never bothered to train the personnel that use it.
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Sat Oct 20, 2012 5:14 am    Post subject: Reply to: File Aid Batch To List PDS Members
Reply with quote

Ouch!

Of course there is no training! That would require a "training budget"!

I'll give the "save" a try and report back.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sat Oct 20, 2012 6:02 am    Post subject:
Reply with quote

300 PDS, sorry missed that. manual will not suffice.

usually I use IEBPTPCH to print directories, followed by a sort to reformat the output.

i set it up as a proc,
and then invoke the proc for each pds.
i take a list of all the pds's,
format the pds dsn as a symbolic on an exec statement,
then run the job.

output of sort is always mod'ed onto the last output.

here is a link to EIBPTPCH
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2u111/9.7.8?SHELF=EZ2ZO108&DT=20020722161259&CASE=

hope that solves your issue, and sorry about the pain that i inflicted.
I have to admit, that your's was the last of several,
'i can not make this work, and google will not find the answer'.
so, i apologize for my lack of manners,
though it does make sense to have some type of training.....
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 982
Location: Oostende, Belgium

PostPosted: Sat Oct 20, 2012 3:23 pm    Post subject:
Reply with quote

Try invoking mlrexx.txt by Doug Nadel in batch. You may have to update it to handle extended statistics.
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Mon Oct 22, 2012 8:17 pm    Post subject:
Reply with quote

I tried the IEBPTPCH utility and basically got output similar to the File-Aid job: a listing of every program line - not just the directory information.

So I stumbled into the REXX suggestion (I don't know REXX from succotash!) from Prino and finally was able to generate the listing I wanted, but only on PDS libraries with my HLQ.

So far, this is the most workable solution, so I'll keep stabbing at the REXX code.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Oct 22, 2012 8:30 pm    Post subject:
Reply with quote

Quote:
a listing of every program line - not just the directory information.

to only get directory info, the dcb for the pds must be correct,
and the typorg=ps must be there in the sysin.

i have used this a million times and know that it works.

but, for over 300 pds, would make a job exceed the allowable number of steps,
thus making it a 2 job utility.

have fun with the rexx, which in the case of so many pds's
would probably the easier solution, once you have rexx conquered.


Code:
       //PRINTDIR JOB  ...
       //STEP1    EXEC PGM=IEBPTPCH
       //SYSPRINT DD  SYSOUT=A
       //SYSUT1   DD  DSNAME=MAIN.PDS,
       //             DISP=(OLD,KEEP),DCB=(RECFM=U,BLKSIZE=256)
       //SYSUT2   DD  SYSOUT=A
       //SYSIN    DD  *
          PRINT   TYPORG=PS,TOTCONV=XE
          TITLE   ITEM=('PRINT PARTITIONED DIRECTORY OF PDS',10)
          TITLE   ITEM=('FIRST TWO BYTES SHOW NUM OF USED BYTES',10)
         LABELS   DATA=NO
       /*
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7908
Location: Bellevue, IA

PostPosted: Mon Oct 22, 2012 9:00 pm    Post subject: Reply to: File Aid Batch To List PDS Members
Reply with quote

See this new topic in the COBOL area of this forum: Batch printing of ISPF statistics
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Mon Oct 22, 2012 9:29 pm    Post subject: Reply to: File Aid Batch To List PDS Members
Reply with quote

Thanks Robert.
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Tue Oct 23, 2012 6:22 pm    Post subject:
Reply with quote

The REXX JCL needed triple single-quote marks (''') on each side of the PDS name due to the parser.

Works great now!
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us