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
 

 

Batch printing of ISPF statistics

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Robert Sample

Global Moderator


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

PostPosted: Mon Oct 22, 2012 8:58 pm    Post subject: Batch printing of ISPF statistics
Reply with quote

Attached is a program written in Enterprise COBOL that will print ISPF statistics for a PDS or PDSE in batch. The program is source code and must be compiled. The source code has execution JCL included as comments. Note that even though the JCL specifies RECFM=U,LRECL=256,BLKSIZE=256 for the PDS/PDSE, the actual DCB can be anything -- the U/256/256 is to allow COBOL to read the directory, not the PDS members.

Also note that this program will NOT work on load libraries, which do not have ISPF statistics anyway.

Update: Per request, program has been updated to read a file of data set names, dynamically allocate each one, and print its members with ISPF statistics (if any). Program starts each data listing on a new page.
Back to top
View user's profile Send private message

prino

Active Member


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

PostPosted: Mon Oct 22, 2012 10:07 pm    Post subject:
Reply with quote

Should this not be in the TSO/ISPF forum?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Mon Oct 22, 2012 10:14 pm    Post subject:
Reply with quote

Well, since it IS a COBOL program, and I'm moderating the COBOL forum I placed it here. But a case could be made for placing it in the TSO/ISPF forum, too.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Oct 23, 2012 1:02 am    Post subject:
Reply with quote

i don't want to sound like an ungreatful shit
(though many of my ex-wives will probably testify to the fact that I always am)
and
since I don't currently have mainframe access,
could you,
in your spare time (?where you will get spare time, i have no idea),

modify the COBOL module to read a file of PDS names,
and use dynamic allocation to read the directories?

that would solve the problem, currently plaguing Socker-dad.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Oct 23, 2012 1:04 am    Post subject: Reply to: Batch printing of ISPF statistics
Reply with quote

would You be satisfied if it was a REXX script ? icon_cool.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Oct 23, 2012 1:18 am    Post subject: Re: Reply to: Batch printing of ISPF statistics
Reply with quote

enrico-sorichetti wrote:
would You be satisfied if it was a REXX script ? icon_cool.gif


nah, I can do it in rexx, and the link that Don gave
provides a REXX that can do it (or be easily modified to do so).

Just thought that a COBOL module that
reads multiple pds directories thru implementation of dynamic allocation
would be a hot sticky.
(any future questions about input dynamic allocation could be linked directly)

no more of the:
"we can't use REXX in production, etc..."
"there are so many PDS's, that the number of steps exceeds that allowed".

Of course, the PDS name will need to be put on each detail line,
so that member names can be properly sorted.


can't really think of anything else right now,
but if prompted,
i imagine i can come up with something else.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Tue Oct 23, 2012 1:20 am    Post subject:
Reply with quote

I'll give it some thought (when I get the time LOL).
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Oct 23, 2012 8:08 pm    Post subject:
Reply with quote

Robert,
thanks for the update.

I realize that the basic theme was 'print pds directory',
but i think that the dynamic allocation code
is a tremendous contribution to this board's 'code repository',
and will aid in future questions from members.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
This topic is locked: you cannot edit posts or make replies. MIPS reduction for Batch job Virendra Shambharkar All Other Mainframe Topics 8 Mon Nov 07, 2016 4:02 pm
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts How to show message using batch jobs madprasy TSO/ISPF 7 Fri Sep 09, 2016 6:55 pm


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