IBM Mainframe Forum

[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

[NicC]

We need to see your COBOL code - in particular the LINKAGE and USING.

[Ed Goodman]

Also, make double-sure that you have the DLITCBL entry statement linked in your compile/link JCL. 9 times out of 10, that's what causes this error at my shop. People use their "normal" JCL to compile link something that used IMS, but forget about the DLITCBL entry in the link step.

But still, post the LINKAGE/USING of the called program, and the CALL of the calling program.

Also, also, see that "CMPAT=YES" at teh bottom of the PSB definition? That adds an I-O PCB to the top. So you really have TWO PCBs in the generated PSB.

[dick scherrer]

Hello,

Posting the same question in multiple forums is not acceptable. . .

This topic is being locked.