MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Cobol Program daily execution count

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
manu
Beginner


Joined: 26 Dec 2002
Posts: 47
Topics: 19

PostPosted: Thu May 21, 2020 4:03 pm    Post subject: Cobol Program daily execution count Reply with quote

Hello,
In my organization,there is a Cobol program which gets executed in several batch processes and CICS transactions. There are so many processes(in hundreds) which call this Cobol program and we are trying to determine the number of times(approx...) this program get executed everyday. I am posting here to get an idea of the different ways in which we can try to get this information. I guess this information should be available in SMF and will explore it.Please let me know if anyone has any other ideas or additional comments/information which may be helpful for this. Thanks.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose

PostPosted: Fri May 22, 2020 9:21 am    Post subject: Reply with quote

manu,

Look in SMF-30 records identification section for the field SMF30PGM and it contains Program name (taken from PGM= parameter on EXEC card). If a backward reference was used, this field contains PGM=*.DD.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
manu
Beginner


Joined: 26 Dec 2002
Posts: 47
Topics: 19

PostPosted: Tue May 26, 2020 7:11 am    Post subject: Reply with quote

Hello Kolusu,

Thanks for your inputs.I will check SMF.
Back to top
View user's profile Send private message
rsantosh
Beginner


Joined: 20 Dec 2014
Posts: 38
Topics: 9

PostPosted: Wed Dec 09, 2020 8:07 am    Post subject: Reply with quote

Hello Kolusu,

Is there any way to find out if sub programs are getting executed? Recently we archived one subprogram thinking it is obsolete(we searched for the program name in the source library) but found out that there is one monthly program which still calls the subprogram.

Regards
Santosh
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose

PostPosted: Wed Dec 09, 2020 5:12 pm    Post subject: Reply with quote

rsantosh wrote:
Hello Kolusu,

Is there any way to find out if sub programs are getting executed? Recently we archived one subprogram thinking it is obsolete(we searched for the program name in the source library) but found out that there is one monthly program which still calls the subprogram.

Regards
Santosh


rsanthosh,

Subprograms are tough to track. However there are ways.

Option 1. You can use RACF to do the monitoring. You enable logging and then you can look at RACF SMF records to find out the user and job executing the module.

Code:

RDEFINE PROGRAM pgmxxx ADDMEM('Your.loadlib'//NOPADCHK) UACCC(READ) AUDIT(ALL)


This allows anyone to access the program pgmxxx from library Your.loadlib, and audits everything (i.e. writes an SMF Type 80 record). You can even use masks (e.g. PGM* for any program beginning with PGM) in this command. Don’t forget to refresh the PROGRAM class (SETROPTS WHEN(PROGRAM) REFRESH), and read up carefully about program control to avoid affecting other security processing.

PS: This will not work for CICS programs.

Option 2. Peter Relson from IBM offers a free "as is, no warranty" tool to monitor program fetch activity: the Module Fetch Monitor. Contact Peter directly at relson@us.ibm.com to get a copy and use that to monitor your program fetch activity.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
rsantosh
Beginner


Joined: 20 Dec 2014
Posts: 38
Topics: 9

PostPosted: Wed Dec 16, 2020 7:00 am    Post subject: Reply with quote

Thank you Kolusu.

Regards,
Santosh
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group