|
View previous topic :: View next topic
|
| Author |
Message |
Csongor
New User
Joined: 23 Apr 2015
Posts: 20
Location: Hungary
|
|
|
|
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 |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
| 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 |
|
|
Csongor
New User
Joined: 23 Apr 2015
Posts: 20
Location: Hungary
|
|
|
|
Oh hallo Jörg 
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley
|
|
|
|
| Perhaps another step that reads TEMP.OUTPUT and examines the command response and sets a return code for the third step. |
|
| Back to top |
|
|
Csongor
New User
Joined: 23 Apr 2015
Posts: 20
Location: Hungary
|
|
|
|
| If I have to examine the TEMP.OUTPUT this means a Rexx will be the solution. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
| It is not necessarily a REXX, SORT and ISRSUPC will also do. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2593
Location: Silicon Valley
|
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
| 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 |
|
|
Csongor
New User
Joined: 23 Apr 2015
Posts: 20
Location: Hungary
|
|
|
|
| Thank you for the answers. |
|
| Back to top |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 730
Location: Denmark
|
|
|
|
| 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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
| Back to top |
|
|
|
|
