Getting DB status code as XC

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Hi all,
We are having a load program whill load the IMS database(OSAM). The input is a flat file. When we execute the batch JCL we are getting DB status code as XC. Please help us to proceed. its a batch program.

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Can somebody please help me....

Sandy Zimmer · Posted: Fri Apr 11, 2008 7:02 pm

What does your PSB look like? I don't think you are using a "load" PSB. This status code is for message processing.

XC
Explanation:
The program inserted a message that has some bits in the Z1 field set. The Z1 field is reserved for IMS.

Programmer response:
Correct the program to prevent it from setting those bits.

publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=/com.ibm.ims9.doc.mc/p0hexpl.htm

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Thanx a lot for your reply can you tell me how a load PSB looks like..

This is how our psb looks like...:

PCB TYPE=DB,DBDNAME=YJEPU,PROCOPT=A,KEYLEN=23
SENSEG NAME=EPROOT,PARENT=0
PSBGEN LANG=COBOL,PSBNAME=YEPPSB,CMPAT=YES
END

Since we are new to ims we are finding this a lil difficult kindly guide us thru

Sandy Zimmer · Posted: Mon Apr 14, 2008 4:48 pm

Can you do some research? That is the best way to learn. But, first of all, for a load, the databases must be stopped - offline. The only processing option will be PROCOPT=L. Your flat file must be sorted.

Sandy Zimmer · Posted: Mon Apr 14, 2008 5:10 pm

TYPE=DB,DBDNAME=YJEPU,KEYLEN=23,PROCOPT=LS
SENSEG NAME=EPROOT,PARENT=0
PSBGEN PSBNAME=YEPPDB,LANG=COBOL
END

Here is an example - assuming that this is truly a root only database.

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Thank you for your reply SANDY We tried changing the PROCOPT too but in vain.....the sysout shows the following:

FUNC ISRT ISRT
DB-PCB-MASK
IN-EPROOT BUF 011as02cs060

SSA EPROOTU EPROOT *--
IN-EPROOT BUF 011as02cs060

DB STATUS CODEXC
PCB STATUS CODE XC YEPPSB
FUNC ISRT ISRT
DB-PCB-MASK XC
IN-EPROOT BUF 021sj02me007

SSA EPROOTU EPROOT *--
IN-EPROOT BUF 021sj02me007

We have done a lot of research but still unable to solve this...Please try to help us:)

Sandy Zimmer · Posted: Mon Apr 14, 2008 7:12 pm

Display the PSB - /dis pgm YEPPDB

Sandy Zimmer · Posted: Mon Apr 14, 2008 7:16 pm

Try searching the forum for a LOT of very helpful info......for instance...

ibmmainframes.com/about9880.html

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Sandy Zimmer · Posted: Tue Apr 15, 2008 6:28 pm

Your display of the database should indicate that it is stopped.

Compare what you have done with the procedure that works against the procedure that does not work.

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Sandy Zimmer · Posted: Wed Apr 16, 2008 6:55 pm

Are you sure that you recompiled your PSB? And, please read this.....

ibmmainframes.com/viewtopic.php?t=26538

Bitneuker · Posted: Thu Apr 17, 2008 2:14 am

I'm afraid TS only modified the PROCOPT but didn't remove the CMPAT=Y so the first PCB is still the IO/PCB.

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

enrico-sorichetti · Posted: Thu Apr 17, 2008 12:30 pm

Just my 2€ worth...
for what reason are You running the load as a BMP,
wouldn' t it be faster and safer to run it as a standalone batch IMS job.

I might be wrong, since it has been a long time since I played with IMS, but... meditate

Sandy Zimmer · Posted: Thu Apr 17, 2008 4:27 pm

You need to REMOVE the CMPAT=Y - recompile the PSB - stop the database.