Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login




Remember Me
Forgot Password?
Join Us!

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.
Jobs from Indeed

Link To This Forum!

Partner Button
Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

Jsadas (Programmer) (OP)
8 Feb 08 14:15
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 (Programmer)
8 Feb 08 15:03
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

"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::PerlDesignPatterns)

Jsadas (Programmer) (OP)
8 Feb 08 15:35
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 (Programmer)
11 Feb 08 7:44
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

"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::PerlDesignPatterns)

stevexff (Programmer)
11 Feb 08 7:51
You might need to specify the RBA option on the WRITE, too...

Steve

"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::PerlDesignPatterns)

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close