View previous topic :: View next topic
Author
Message
pramodcmenon New User Joined: 20 Jan 2009Posts: 15 Location: Chennai
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=®,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
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10872 Location: italy
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
pramodcmenon New User Joined: 20 Jan 2009Posts: 15 Location: Chennai
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
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10872 Location: italy
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
pramodcmenon New User Joined: 20 Jan 2009Posts: 15 Location: Chennai
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
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10872 Location: italy
SDFHLOAD and SDFHAUTH are installation libraries,
it' s normal to have them in each and every cics startup
Back to top
pramodcmenon New User Joined: 20 Jan 2009Posts: 15 Location: Chennai
//CICS EXEC PGM=DFHSIP,REGION=®,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
Garry Carroll Senior Member Joined: 08 May 2006Posts: 1193 Location: Dublin, Ireland
It means BYPASS/DON'T EXECUTE this step if 1 is not equal to the cond code returned by CICSCNTL
Garry.
Back to top
Terry Heinze JCL Moderator Joined: 14 Jul 2008Posts: 1249 Location: Richfield, MN, USA
pramodcmenon wrote:
//CICS EXEC PGM=DFHSIP,REGION=®,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
Please enable JavaScript!