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: 10256
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
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm


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