IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Check if CICS is online in JCL


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Csongor

New User


Joined: 23 Apr 2015
Posts: 20
Location: Hungary

PostPosted: Tue Jul 09, 2024 7:01 pm
Reply with quote

Hi!

There is an application for modul rollout in our shop, that does the Newcopy in CICS. We removed a utility program from our LPARs that altered return Codes, and now in certain situations -> when a cics is offline the software for modul rollouts stops at the newcopy step, whereas previously the RC has been altered. This can be of course easily corrected manually, but my goal is to create the same behaviour.
Therefore I need to check whether the CICS is online first and build this extra step in front of the Newcopy.
I have a few criteria: since the Sw for rollout builds its JCL from skeletons and variables I want to have a clear and short solution in JCL if this is possible, not REXX.
I want to have the RC result based: If it is online than possibly C000, if not than something else than C000.
I tried so far SYSCMD in JCL with the command CEMT I Conn, which tells wonderfully if the CICS is online or not, but it does that with C000 in any case.
Do you know any JCL solution to check whether a CICS is online with an interpretable RC? Or my only solution is to work Rexx?
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1295
Location: Bamberg, Germany

PostPosted: Tue Jul 09, 2024 8:02 pm
Reply with quote

I assume when you use two steps instead of only the CMD, it will work. I can think of two ways at the moment.
Back to top
View user's profile Send private message
Csongor

New User


Joined: 23 Apr 2015
Posts: 20
Location: Hungary

PostPosted: Tue Jul 09, 2024 9:28 pm
Reply with quote

Oh hallo Jörg icon_smile.gif

I am not sure what you mean. I have one newcopy step with CICS EXCI call and I want to check before that whether the CICS is online.
Sofar I tried the following:
Code:

//NEWC     EXEC PGM=SYSCMD                             
//SCPPRINT DD DISP=SHR,DSN=TEMP.OUTPTUT       
//SYSIN    DD  *                                       
  F CICSNAME,CEMT I CONN                                 


Which gives back the result in the TEMP.OUTPUT, but the RC is always 0.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2569
Location: Silicon Valley

PostPosted: Tue Jul 09, 2024 10:33 pm
Reply with quote

Perhaps another step that reads TEMP.OUTPUT and examines the command response and sets a return code for the third step.
Back to top
View user's profile Send private message
Csongor

New User


Joined: 23 Apr 2015
Posts: 20
Location: Hungary

PostPosted: Wed Jul 10, 2024 1:27 am
Reply with quote

If I have to examine the TEMP.OUTPUT this means a Rexx will be the solution.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1295
Location: Bamberg, Germany

PostPosted: Wed Jul 10, 2024 9:16 am
Reply with quote

It is not necessarily a REXX, SORT and ISRSUPC will also do.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2569
Location: Silicon Valley

PostPosted: Thu Jul 11, 2024 3:34 am
Reply with quote

fyi. CICS seems to have an API for using rexx to issue commands. Instead of running your SYSCMD step and a rexx step, I suggest a single step to run rexx to issue commands and to check the response.


www.ibm.com/docs/en/cics-ts/6.x?topic=program-accessing-api-environment
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1295
Location: Bamberg, Germany

PostPosted: Thu Jul 11, 2024 7:34 am
Reply with quote

Pedro wrote:
fyi. CICS seems to have an API for using rexx to issue commands. Instead of running your SYSCMD step and a rexx step, I suggest a single step to run rexx to issue commands and to check the response.

Not all of the time these REXX packages are installed (and usable) by default.
Back to top
View user's profile Send private message
Csongor

New User


Joined: 23 Apr 2015
Posts: 20
Location: Hungary

PostPosted: Thu Jul 11, 2024 9:39 pm
Reply with quote

Thank you for the answers.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 720
Location: Denmark

PostPosted: Thu Jul 11, 2024 11:37 pm
Reply with quote

Does the "F CICSNAME,CEMT I CONN" command return retrievable data if you issue it from the SDSF REXX API , or the TSO CONSOLE with the CART parameter?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10877
Location: italy

PostPosted: Fri Jul 12, 2024 12:54 am
Reply with quote

Quote:
Not all of the time these REXX packages are installed (and usable) by default.


but if they are available and are likely to satisfy a business need there is nothing wrong in suggesting to consider them

www.ibm.com/docs/en/cics-ts/6.x?topic=fundamentals-cicsplex-sm-overview
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using Multiple IFTHEN and WHEN condit... SYNCSORT 12
No new posts Using API Gateway from CICS program CICS 0
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
No new posts Calling an Open C library function in... CICS 1
Search our Forums:

Back to Top