Text Equivalence for EIBRESP

[i***@winwholesale.com]

Under CICS/VSE I had a COBOL program which queried DFHEITAB for the
equivalent text to EIBRESP values. This program doesn't work under
CICS/TS. I'm looking at the new DFHEITAB and see quite a bit of
difference. Has anybody already worked out these new requirements? ...or,
is there a supplied method for obtaining this equivalent text in CICS/TS?
Thanks.

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]

[Rich Smrcina]

If you're using NORESP on your EXEC CICS API commands checking the
responses is the same:

IF RESPONSE-CODE = DFHRESP(NOTFND)

where RESPONSE-CODE is where the RESP field puts the EIBRESP value in
the EXEC CICS command.

Post by i***@winwholesale.com
Under CICS/VSE I had a COBOL program which queried DFHEITAB for the
equivalent text to EIBRESP values. This program doesn't work under
CICS/TS. I'm looking at the new DFHEITAB and see quite a bit of
difference. Has anybody already worked out these new requirements? ...or,
is there a supplied method for obtaining this equivalent text in CICS/TS?
Thanks.
Sincerely,
Dave Clark
WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]

--
Rich Smrcina
VM Assist, Inc.
Phone: [phone]
Ans Service: 360-715-2467
rich.smrcina at vmassist.com
http://www.linkedin.com/in/richsmrcina

Catch the WAVV! http://www.wavv.org
WAVV 2008 - Chattanooga - April 18-22, 2008

[R***@aol.com]

I believe I'm using the same program you sent me (DFHDECDE) which you
converted to COBOL/VSE from an assembler program written by Martin. I'm not having
any problems. Are you trying to convert the EIBFN too?



************************************** See what's new at http://www.aol.com

[Martin T2..]

This post might be inappropriate. Click to display it.

[i***@winwholesale.com]

I believe I'm using the same program you sent me (DFHDECDE) which
you converted to COBOL/VSE from an assembler program written by
Martin. I'm not having any problems. Are you trying to convert the
EIBFN too?

Perhaps you got that from someone else. Mine is called DFHRESPX.
;-) Those this seems to look much like what Martin posted, it is not
working in CICS/TS for me.

* CICS EI LITERALS TABLE
01 DFHEITAB-AREA.
03 PIC X(24).
03 RESPTAB-ADDR POINTER.
03 RESPTAB-COUNT PIC S9(09) BINARY.

* EIBRESP LITERALS TABLE
01 EIBRESP-TABLE.
03 EIBRESP-ENTRY OCCURS 1 TO 1500
DEPENDING ON RESPTAB-COUNT.
05 EIBRESP-TEXT PIC X(12).
05 EIBRESP-FLAGS PIC X(02).
88 EIBRESP-TYPE VALUE X'50C0'.
05 PIC X(04).
05 EIBRESP-VALUE PIC S9(04) BINARY.
05 EIBRESP-TXLEN PIC S9(04) BINARY.

EXEC CICS LOAD
PROGRAM(DFHEITAB)
SET(ADDRESS OF DFHEITAB-AREA)
HOLD
END-EXEC
SET ADDRESS OF EIBRESP-TABLE TO RESPTAB-ADDR
PERFORM WITH TEST BEFORE
VARYING SB FROM 1 BY 1
UNTIL SB > RESPTAB-COUNT
OR EIBRESP-TYPE(SB)
AND EIBRESP-VALUE(SB) = COMM-RESP
END-PERFORM
IF SB > RESPTAB-COUNT
MOVE '@NOTFND' TO COMM-RESPX
ELSE
MOVE EIBRESP-TEXT(SB) TO COMM-RESPX
END-IF
EXEC CICS RELEASE
PROGRAM(DFHEITAB)
END-EXEC

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]

[R***@aol.com]

Martin,

<<you don't like my good assembler code >>

That wasn't what I said, I don't think. I have your original version of
DFHDECDE which you wrote, in assembler, on Nov 25, 2005. I think Dave posted a
version in COBOL/VSE which I dl'ed and am using. At the time I dl'ed it I added
the following:

* THIS PROGRAM WAS CONVERTED BY DAVE CLARK FROM AN ASSEMBLER
* PROGRAM WRITTEN BY MARTIN TRUBNER WHO POSTED IT ON VSE-L.
* MANY THANKS TO BOTH.

My reasons for using Daves COBOL/VSE one were NOT because I didn't like your
assembler one and, in fact, are unknown to me. It would be like asking me
what clothes I wore 2 weeks ago.



************************************** See what's new at http://www.aol.com

[Martin T2..]

Bob,

cool down- I was joking. The frownie got lost in translation somehow.

[R***@aol.com]

Martin,

<<cool down- I was joking>>

I'm cool. I knew you were joking. I just wanted to explain it, is all.



************************************** See what's new at http://www.aol.com

[R***@aol.com]

Dave,


<< Perhaps you got that from someone else. Mine is called DFHRESPX.>>

No, I sometimes change the names of program/s I get from this list. When I
do I always put a comment in the code referencing where I got it from. I do
that for two reasons:

1). It helps me to know WHO I got it from.
2). I don't take credit for something I didn't write. Even if I modify the
crap out of the code I received I still put the comment in, but I mention that
it was modified by me.

<<;-) Those this seems to look much like what Martin posted, it is not
working in CICS/TS for me.>>

Although you didn't post ALL the code what you did post is 99.99% similar to
what I have, after allowing for code I added. I don't know why it's NOT
working for you. Are you getting an error or is it NOT returning the meaning of
the EIBRESP value?

About ALL I can do is send you what I have. See attached.

PS: I only use this program in ONE program I have. Since I rarely get an
error in this program I had to FUDGE it to invoke DFHDECDE, which I did by
forcing a EXEC CICS READQ TS error in CEDF by overtyping the RESPONSE: NORMAL with
QIDERR. The result was the following:

EXEC CICS LINK
PROGRAM ('DFHDECDE')
COMMAREA ('....QIDERR ')
LENGTH (16)
NOHANDLE

The above was AFTER the link to DFHDECDE.



************************************** See what's new at http://www.aol.com

[i***@winwholesale.com]

Post by R***@aol.com
Are you getting an error or is it
NOT returning the meaning of the EIBRESP value?

I'm getting other data back -- not the text value.

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]

[i***@winwholesale.com]

Sorry. False alarm. I was displaying the content of the wrong data
name. Oops. ;-)

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]