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
 

 

Any chance to install a CICS group via a CICS COBOL pgm ?

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

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Thu Jan 26, 2012 7:04 pm    Post subject: Any chance to install a CICS group via a CICS COBOL pgm ?
Reply with quote

I want to automate most of the additional steps which developers of CICS programs have to perform to make their modules available.
I've already written a CICS program which issues "SET PROGRAM(...) PHASEIN". This program is invoked via the CICS SupportPac CA1D using the EXCI LINK interface in a batch step which follows the compile/linkedit process.

The problem is that my program does not work when the application program is new to CICS. I have to ensure that a new program is defined and installed in a group instead of being "refreshed" by PHASEIN.

I haven't found any SPI commands available to COBOL which do these things.

Any idea on how to accomplish this task?
Back to top
View user's profile Send private message

Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 995
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Thu Jan 26, 2012 8:00 pm    Post subject:
Reply with quote

If you have program autoinstall specified in the SIT, you might try to just EXEC CICS LOAD the new program which would dynamically create a PPT entry. There'd be no need to then NEWCOPY as the program is unknown to CICS.

So, potentially, INQUIRE on the program and if present NEWCOPY else LOAD.

Garry.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Jan 26, 2012 8:00 pm    Post subject: Reply to: Any chance to install a CICS group via a CICS COBO
Reply with quote

Stefan,

CEDA Installs can be done two ways -

01) Via the CEDA transaction (you probably know this)
02) Via the CEDA/CICS Interface module "DFHEDAP"

I have two Assembler programs, one EXCI/Assembler (Client) and the other a Server (regular CICS/Assembler).

The Client program is fed the actual CEDA command via SYSIN cards in a Batch JOB and passes it to the Server program (via an EXCI-DPL), who then issues a LINK-API to "DFHEDAP" and performs the INSTALL.

The IBM Batch-Interface to CEDA "DFHCSDUP" is recommended for use other than "INSTALLS", which it can't perform.

Contact me privately if you like a copy of these programs along with the JCL.

Mr. Bill
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Jan 26, 2012 8:11 pm    Post subject: Reply to: Any chance to install a CICS group via a CICS COBO
Reply with quote

Quote:
I have to ensure that a new program is defined and installed in a group instead of being "refreshed" by PHASEIN.


IIRC the refresh will fail anyway if a program has never been used,
when used for the first time CICS will use the latest object

for the test regions my suggestion is to autoinstall the programs to lessen the admministrative burden
Back to top
View user's profile Send private message
Jose Mateo

Active User


Joined: 29 Oct 2010
Posts: 110
Location: Puerto Rico

PostPosted: Thu Jan 26, 2012 8:13 pm    Post subject:
Reply with quote

Hi, Stefan!
I think problem is that the new program was define thru RDO which is not define permanently in the CICS tables. Your 'SET PROGRAM (...) PHASIN' searches in the CICS table for the program address in order to do the load.
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Fri Jan 27, 2012 6:53 pm    Post subject:
Reply with quote

Hi guys,

many thanks for your quick responses. icon_exclaim.gif
Meanwhile I've found a solution published in Xephon Update issue 165 (dated august 1999). It consists of a CICS assembler program calling DFHEDAP (the program behind CEDA), a REXX programm calling that assembler program using the same EXCI interface I've already mentioned in my original post above, and an ISPF panel to enter any valid CEDA command and show the results.
It'll be no rocket science to integrate this into my batch processing sequence.

@Bill - Thank you for offering your solution. I assume your asm module will not diverge substantially from the one I've found.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Fri Jan 27, 2012 8:31 pm    Post subject:
Reply with quote

You need to consider a product like BatchCICS-Connect that can execute and interact with any CICS transaction from within a batch program's logic (including CEDA).

www.batchcics.com
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 XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm


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