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

Customized CICS startup procedure


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Mar 31, 2009 11:17 pm
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Apr 01, 2009 4:32 pm
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Apr 01, 2009 4:46 pm
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
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

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Wed Apr 01, 2009 7:49 pm
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: 1249
Location: Richfield, MN, USA

PostPosted: Wed Apr 01, 2009 9:48 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Calling an Open C library function in... CICS 1
No new posts How to 'Ping' a CICS region in JCL CICS 2
No new posts Parallelization in CICS to reduce res... CICS 4
No new posts How to avoid duplicating a CICS Web S... CICS 0
Search our Forums:

Back to Top