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
 

 

Customized CICS startup procedure

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

New User


Joined: 20 Jan 2009
Posts: 15
Location: Chennai

PostPosted: Tue Mar 31, 2009 11:01 pm    Post subject: Customized CICS startup procedure
Reply with quote

This is the CICS startup procedure customized. The datasets reside in the PDS 'CICS9'. Already there are two CICS regions CICS5(CICSTS31.CICS) and CICS7. This procedures uses some of the datasets(load libraries) from CICS5 and CSD is of CICS7.The problem with this procedure is that it executes without errors, but after executing the procedure CICS9 is not loaded. Please go through the procedure and give me your suggestions.

Code:

//DFHSTART PROC START='INITIAL',                           
// REG='256M',                                             
// DUMPTR='YES',                                           
// RUNCICS='YES',                                         
// OUTC='*',                                               
// SIP=7                                                   
//CICSCNTL EXEC PGM=IDCAMS,REGION=1M                 
//SYSPRINT DD SYSOUT=*                               
//SYSIN    DD DISP=SHR,                             
// DSN=CICS9.CICS.SYSIN(DFHRC&RUNCICS)               
//DTCNTL   EXEC PGM=IDCAMS,REGION=1M                 
//SYSPRINT DD SYSOUT=*                               
//CICS    EXEC PGM=DFHSIP,REGION=&REG,TIME=1440,
//        COND=(1,NE,CICSCNTL),                 
//        PARM='START=&START,SYSIN'             
//SYSIN    DD DISP=SHR,                                       
// DSN=CICS9.CICS.SYSIN(DFH$SIP&SIP)                           
//DFHCMACD DD DSN=CICS9.CICS.DFHCMACD,DISP=SHR                 
//STEPLIB  DD DSN=CICSTS31.CICS.SDFHAUTH,DISP=SHR             
//         DD DSN=CICSTS31.CICS.SDFJAUTH,DISP=SHR             
//         DD DSN=CEE.SCEERUN2,DISP=SHR                       
//         DD DSN=CEE.SCEERUN,DISP=SHR                         
//DFHRPL   DD DSN=CICSTS31.CICS.SDFHLOAD,DISP=SHR   
//         DD DSN=CICSTS31.CICS.SDFHAUTH,DISP=SHR   
//         DD DSN=CICSTS31.CICS.SDFJAUTH,DISP=SHR   
//         DD DSN=CEE.SCEECICS,DISP=SHR             

//         DD DSN=CEE.SCEERUN2,DISP=SHR                 
//         DD DSN=CEE.SCEERUN,DISP=SHR                   
//DFHTEMP  DD DISP=SHR,                                 
//  DSN=CICS9.CNTL.CICS.DFHTEMP                         
//DFHINTRA DD DISP=SHR,                           
//  DSN=CICS9.CICS.DFHINTRA                       
//DFHAUXT  DD DISP=SHR,DCB=BUFNO=5,               
//  DSN=CICS9.CICS.DFHAUXT                       
//DFHBUXT  DD DISP=SHR,DCB=BUFNO=5,               
//  DSN=CICS9.CICS.DFHBUXT                       
//DFHLCD   DD DISP=SHR,                           
//  DSN=CICS9.CICS.DFHLCD                         
//DFHGCD   DD DISP=SHR,                           
//  DSN=CICS9.CICS.DFHGCD                         
//DFHLRQ   DD DISP=SHR,                                       
//  DSN=CICS9.CICS.DFHLRQ                                     
//DFHCXRF  DD SYSOUT=&OUTC                                   
//LOGUSR   DD SYSOUT=&OUTC,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
//MSGUSR   DD SYSOUT=&OUTC,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
//CEEMSG   DD SYSOUT=&OUTC                                   
//CEEOUT   DD SYSOUT=&OUTC                                   
//DFHDMPA  DD DISP=SHR,                                       
//  DSN=CICS9.CICS.DFHDMPA                                   
//DFHDMPB  DD DISP=SHR,                         
//  DSN=CICS9.CICS.DFHDMPB                     
//SYSABEND DD SYSOUT=&OUTC                     
//SYSPRINT DD SYSOUT=&OUTC                     
//PRINTER  DD SYSOUT=&OUTC,DCB=BLKSIZE=121     
//DFHCSD   DD DISP=SHR,                         
//   DSN=CICS7.CICS.DFHCSD                     
//SYSIN    DD DUMMY   
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Tue Mar 31, 2009 11:17 pm    Post subject: Reply to: Customized CICS startup procedure
Reply with quote

are You sure You coded correctly the COND...

from Your attachment the cics step was not executed because of the condition codes

the CICSCNTL ended with a RC 0

the cics step has COND=(1,NE,CICSCNTL) which
IIRC means do not execute if the RC of CICSCNTL is not 1


IIRC If I remember correctly
Back to top
View user's profile Send private message
pramodcmenon

New User


Joined: 20 Jan 2009
Posts: 15
Location: Chennai

PostPosted: Wed Apr 01, 2009 3:03 pm    Post subject:
Reply with quote

Hi,

But what would be the reason for the response code 0. Is it because of any errors in programs?

I have one more doubt. Already CICS5 is running and I referenced the SDFHLOAD and SDFHAUTH DSN of CICS5 in this procedure for new CICS region CICS5. Will it make any problems?

Thanks
Pramod
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Wed Apr 01, 2009 4:32 pm    Post subject: Reply to: Customized CICS startup procedure
Reply with quote

Quote:
But what would be the reason for the response code 0. Is it because of any errors in programs?


this You must resolve by Yourself,
You did not post the sysin content
Back to top
View user's profile Send private message
pramodcmenon

New User


Joined: 20 Jan 2009
Posts: 15
Location: Chennai

PostPosted: Wed Apr 01, 2009 4:42 pm    Post subject:
Reply with quote

pramodcmenon wrote:
Hi,

I have one more doubt. Already CICS5 is running and I referenced the SDFHLOAD and SDFHAUTH DSN of CICS5 in this procedure for new CICS region CICS5. Will it make any problems?

Thanks
Pramod


What about this question?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Wed Apr 01, 2009 4:46 pm    Post subject: Reply to: Customized CICS startup procedure
Reply with quote

SDFHLOAD and SDFHAUTH are installation libraries,
it' s normal to have them in each and every cics startup
Back to top
View user's profile Send private message
pramodcmenon

New User


Joined: 20 Jan 2009
Posts: 15
Location: Chennai

PostPosted: Wed Apr 01, 2009 5:06 pm    Post subject:
Reply with quote

//CICS EXEC PGM=DFHSIP,REGION=&REG,TIME=1440,
// COND=(1,NE,CICSCNTL),
// PARM='START=&START,SYSIN'



Can you just explain the meaning of this piece of code?. Does it mean do not execute if the RC of CICSCNTL is not 1 ot the reverse?
Back to top
View user's profile Send private message
Garry Carroll

Active Member


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

PostPosted: Wed Apr 01, 2009 7:49 pm    Post subject:
Reply with quote

It means BYPASS/DON'T EXECUTE this step if 1 is not equal to the cond code returned by CICSCNTL

Garry.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1239
Location: Richfield, MN, USA

PostPosted: Wed Apr 01, 2009 9:48 pm    Post subject:
Reply with quote

pramodcmenon wrote:
//CICS EXEC PGM=DFHSIP,REGION=&REG,TIME=1440,
// COND=(1,NE,CICSCNTL),
// PARM='START=&START,SYSIN'



Can you just explain the meaning of this piece of code?. Does it mean do not execute if the RC of CICSCNTL is not 1 ot the reverse?
This confusion about "reverse" logic is exactly why most folks prefer the newer and recommended IF/THEN/ELSE/ENDIF construct. See MVS JCL Reference manual.
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 CICS transaction slow response time vasanthz All Other Mainframe Topics 1 Thu Jan 19, 2017 1:31 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


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