DFHRESP 12

[Jsadas]

I am getting an error DFHRESP 12 while writing to ESDS VSAM file in CICS program.

I am not able to trace what this response code means. The FCT entry is created, file is Open in CICS region.

Any help is highly appreciated.

 

[stevexff]

Assuming we are talking decimal 12, it's a FILENOTFOUND. Which means it's NOT defined in the FCT. Have you checked that the FILE(name) in your program is the same as the one in the FCT?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[Jsadas]

Yes Steve.
I had checked it using CEMT option and file is Open and Enabled. I am referring to the same file in the program, but still getting that error.

Is there any specific syntax for handling ESDS files?

EXEC CICS WRITE
DATASET (MQINPUT)
FROM (WS-MQINPUT-REC)
RIDFLD (WS-MQINPUT-KEY)
LENGTH (LENGTH OF WS-MQINPUT-REC)
RESP (WS-RESP)
END-EXEC

 

[stevexff]

Can we go back to basics for a moment? You have a file identified as MQINPUT. According to CEMT it's open and enabled, but when you run your program you get a FILENOTFOUND.

You say it's an ESDS, which means that it is the VSAM equivalent of a sequential file. So it doesn't have keys, and the RIDFLD option should point to a fullword binary [PIC S9(8) COMP] field in WS that isn't part of WS-MQINPUT-REC to hold the returned relative byte address. If you leave off the LENGTH option, the translator will insert LENGTH OF WS-MQINPUT-REC on its own, so unless you want to specify something other than this, don't use the LENGTH parameter. If you are going to use RESP then use RESP2 as well, to get a better analysis of the failure.

So sort out the RIDFLD, lose the LENGTH, and add in a RESP2. Give it a try and see what happens.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[stevexff]

You might need to specify the RBA option on the WRITE, too...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]