Page 1 of 1

PCB address in BMP

Posted: Wed Aug 17, 2011 2:35 pm
by mehi1353
Hi all,

In running a BMP program, I encoutered U0476 abend.
I think the problem is "INVALID PCB ADDRESS"

I want to know,how i can pass the pcb number to my cobol program?
my psb just have 1 pcb:

PRINT NOGEN
* PCB NO. 1
PCB TYPE=DB,DBDNAME=RETDTRAN, *
PROCOPT=G,KEYLEN=33
SENSEG NAME=TRANACCT,PARENT=0
SENSEG NAME=TRANNORM,PARENT=TRANACCT
*
PSBGEN LANG=COBOL,PSBNAME=FCSBT888,CMPAT=YES
END

all the best,
Mehrdad

Posted: Wed Aug 17, 2011 11:56 pm
by DikDude
Your duplicate post in the "other" forum has been locked.

Do not post the same topic/question in multiple forums.

I would have preferred to lock this one, but i'm not a moderator here. . .

dd

Posted: Thu Aug 18, 2011 2:53 pm
by Anuj Dhawan
It depends on how you are invoking IMS - if you are using DFSRRC00 then U0476 menas, a DL/I call does not include a valid PCB address as you also have said. The PCB address in the DL/I call (second parameter or third, if count is the first parameter) is not one of the PCB addresses passed to the application program at its entry point.

I'm not sure if you've looked for it or not, however for such a generic question I'd say, the DFSRRC00 Parameters differ depending from the execution environment (BMP, DBB, JMP, ...). The symbols in the JCL might be different at different sites, but the meaning remains the same.

Please have a look at the IMS Installation Guide Volume 2: System Definition and Tailering. You can use the following link to get there -

http://publib.boulder.ibm.com/infocente ... /index.jsp

Look for the procedure descriptions, e.g. IMSBATCH is the name for the BMP. Right after the sample JCL in section IMSBATCH Procedure Parameters is a list of all applicable DFSRRC00 symbols for this execution environment, for which the meaning can be looked up in section Parameter Description in the same book.

This applies to IMS V9 or earlier.

Posted: Wed Jan 15, 2014 8:56 am
by payilagamch
Hi,

As you are sing CMPAT=YES in PSBGEN, DLI will internally use one PCB for checkpoint restart. You have to have two pcbs in linkage section. First one should be IO-PCB. Seocnd one is the pcb for your DB RETDTRAN. Similary you have to use these two pcbs in DLITCBL or PROCEDURE DIVISION USING IO-PCB,RETDTRAN-PCB statement. If you dont want IO-PCB, remove CMPAT=YES in PSBGEN. Hope this explains

Thanks
Payilagam

Topic deleted by Admin

Posted: Sat Jan 30, 2016 10:25 pm
by academyindia4
<< Content deleted By Admin >>