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
 
Program usage statistics?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
John Poulakos

New User


Joined: 13 Jun 2012
Posts: 75
Location: United States

PostPosted: Wed May 16, 2018 2:22 am    Post subject: Program usage statistics?
Reply with quote

I need a convenient way to identify programs that aren't being used in CICS. I know I can use 'CEMT I PROG USECOUNT(0)'. But that shows me 9 programs at a time and I need to look at about 900. This is for an ongoing test, so I will need to do this a number of times.

I seem to recall a report that showed use counts, but that was years ago and I'm old, so my memory isn't that good!
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8361
Location: Dubuque, Iowa, USA

PostPosted: Wed May 16, 2018 2:26 am    Post subject: Reply to: Program usage statistics?
Reply with quote

You may be thinking of the CICS statistics utility program DFHSTUP: https://www.ibm.com/support/knowledgecenter/en/SSGMCP_5.3.0/com.ibm.cics.ts.doc/dfha6/topics/dfha62i.html is a reference for it.
Back to top
View user's profile Send private message
John Poulakos

New User


Joined: 13 Jun 2012
Posts: 75
Location: United States

PostPosted: Wed May 16, 2018 2:39 am    Post subject: Reply to: Program usage statistics?
Reply with quote

Thanks Robert,

That should help!
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1577
Location: Chennai

PostPosted: Wed May 16, 2018 3:14 am    Post subject:
Reply with quote

Hi,
Have you tried issuing the command "CEMT I PROG USECOUNT(0)" from SDSF or console? something like

Code:
/F CICSREGN,CEMT I PROG USECOUNT(0)


Tried out a REXX to invoke the CEMT command and it works in getting all the program details in a single file.

Code:
/*REXX*/                                                 
"ALLOC F(OUTFILE) DS('"WELLS.CONSOLE.OUTPUT"') MOD REUSE"      <--- OUTPUT FILE PS, FB, 133.
TRACE  "O"                                               
PARSE SOURCE _SYS _HOW _CMD .                             
PARSE ARG ARGS                                           
DEBUG = 1                                                 
ISFRC = ISFCALLS("ON")                                   
IF ISFRC ¬= 0 THEN DO                                     
    SAY "ISFCALLS RC" ISFRC                               
    EXIT                                                 
END                                                       
CMD = "/F CICSREG1,CEMT I PROG USECOUNT(0)"                     <--- CICS REGION NAME 1     
CALL CONSOLEGET                                           
DROP ISFULOG.                                             
CMD = "/F CICSREG2,CEMT I PROG USECOUNT(0)"                     <--- CICS REGION NAME 2               
CALL CONSOLEGET                                           
DROP ISFULOG.                                             
"FREE DD(OUTFILE)"                                       
CALL  ISFCALLS "OFF"                                     
EXIT                                                     
                                                         
CONSOLEGET :                                             
ISFDELAY=30                                                     <--- WAIT 30 SECONDS FOR REPLIES
ADDRESS SDSF "ISFEXEC '" || CMD || "'"                   
IF RC ¬= 0 THEN DO                                       
    SAY "ISFEXEC  RC" RC                                 
    SAY ISFMSG                                           
    DO  IM = 1 TO ISFMSG2.0                               
        SAY ISFMSG2.IM                                   
    END                                                   
    EXIT                                                 
END                                                       
 "EXECIO * DISKW OUTFILE (STEM ISFULOG. FINIS"           
RETURN                                                   


Hope it helps.
Vasanth.S
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8697
Location: Back in jolly old England

PostPosted: Wed May 16, 2018 11:26 am    Post subject:
Reply with quote

Do your performance and capacity people do a good job ?

When I worked in that area we did have a list of all of the programs / transactions that WERE uses, so I guess by going back 13 or so months - annual thingies - you could potentially eliminate which are being used and leaving those that aren't.
Back to top
View user's profile Send private message
John Poulakos

New User


Joined: 13 Jun 2012
Posts: 75
Location: United States

PostPosted: Wed May 16, 2018 9:06 pm    Post subject:
Reply with quote

vasanthz wrote:
Hi,
Have you tried issuing the command "CEMT I PROG USECOUNT(0)" from SDSF or console? something like

Code:
/F CICSREGN,CEMT I PROG USECOUNT(0)


Tried out a REXX to invoke the CEMT command and it works in getting all the program details in a single file.

Code:
/*REXX*/                                                 
"ALLOC F(OUTFILE) DS('"WELLS.CONSOLE.OUTPUT"') MOD REUSE"      <--- OUTPUT FILE PS, FB, 133.
TRACE  "O"                                               
PARSE SOURCE _SYS _HOW _CMD .                             
PARSE ARG ARGS                                           
DEBUG = 1                                                 
ISFRC = ISFCALLS("ON")                                   
IF ISFRC ¬= 0 THEN DO                                     
    SAY "ISFCALLS RC" ISFRC                               
    EXIT                                                 
END                                                       
CMD = "/F CICSREG1,CEMT I PROG USECOUNT(0)"                     <--- CICS REGION NAME 1     
CALL CONSOLEGET                                           
DROP ISFULOG.                                             
CMD = "/F CICSREG2,CEMT I PROG USECOUNT(0)"                     <--- CICS REGION NAME 2               
CALL CONSOLEGET                                           
DROP ISFULOG.                                             
"FREE DD(OUTFILE)"                                       
CALL  ISFCALLS "OFF"                                     
EXIT                                                     
                                                         
CONSOLEGET :                                             
ISFDELAY=30                                                     <--- WAIT 30 SECONDS FOR REPLIES
ADDRESS SDSF "ISFEXEC '" || CMD || "'"                   
IF RC ¬= 0 THEN DO                                       
    SAY "ISFEXEC  RC" RC                                 
    SAY ISFMSG                                           
    DO  IM = 1 TO ISFMSG2.0                               
        SAY ISFMSG2.IM                                   
    END                                                   
    EXIT                                                 
END                                                       
 "EXECIO * DISKW OUTFILE (STEM ISFULOG. FINIS"           
RETURN                                                   


Hope it helps.
Vasanth.S


Thanks a lot!
I will give it a try.
Back to top
View user's profile Send private message
John Poulakos

New User


Joined: 13 Jun 2012
Posts: 75
Location: United States

PostPosted: Wed May 16, 2018 9:15 pm    Post subject:
Reply with quote

expat wrote:
Do your performance and capacity people do a good job ?



Unfortunately, that would be me... by default. I am one of a very small group of developers/technicians (6) attempting to convert a 25 year old financial system to run on current z/OS mainframe hardware and software.
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Error while initiation CICS program f... Ashishpanpaliya CICS 3 Mon Jul 16, 2018 5:12 pm
No new posts In which program the FILE CONTROL wil... Poha Eater COBOL Programming 2 Thu Jun 28, 2018 9:02 pm
No new posts Varying List Select SQL Query In DB2 ... NikhilGuptaGaya DB2 5 Wed Jun 27, 2018 11:01 pm
This topic is locked: you cannot edit posts or make replies. Need help - DB2 Dynamic SQL Program e... NikhilGuptaGaya DB2 6 Sat Jun 23, 2018 1:58 pm
No new posts Usage/Utiliy of Plan in DB2 arijitS DB2 4 Thu Jun 21, 2018 8:16 pm

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