Discussion:
Text Equivalence for EIBRESP
(too old to reply)
i***@winwholesale.com
2007-11-02 22:03:06 UTC
Permalink
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
(937) 294-5331
Rich Smrcina
2007-11-02 22:38:35 UTC
Permalink
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
(937) 294-5331
--
Rich Smrcina
VM Assist, Inc.
Phone: 414-491-6001
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
2007-11-03 01:02:58 UTC
Permalink
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..
2007-11-03 07:29:25 UTC
Permalink
Bob,

you don't like my good assembler code :-( -- okay here is COBOL-CODE
that runs on CICS/TS

01 DFHEITAB.
05 PIC X(24).
05 EIBTAB-PNTR POINTER.
05 EIBTAB-MAX PIC S9(5) BINARY.
01 EIBTAB.
05 OCCURS 1000.
10 EIBTAB-TEXT PIC X(12).
10 PIC XX.
88 EIBTAB-OKAY VALUE X'50C0'.
10 PIC XXXX.
10 EIBTAB-RESP PIC S9(4) BINARY.
10 PIC XX.


EXEC CICS LOAD PROGRAM('DFHEITAB')
SET(ADDRESS OF DFHEITAB)
END-EXEC

SET ADDRESS OF EIBTAB TO EIBTAB-PNTR
PERFORM VARYING INDX FROM 1 BY 1
UNTIL INDX > EIBTAB-MAX
OR ( EIBTAB-OKAY (INDX) AND
RESP-L = EIBTAB-RESP (INDX))
END-PERFORM
IF EIBTAB-OKAY (INDX) THEN
STRING ' EXEC LINK ERGAB: '
EIBTAB-TEXT (INDX) DELIMITED BY SIZE
INTO CFK-LINE (3)
END-IF
--
Martin
--
XML2PDF - the way to get all features of PDF into your documents
on mainframe or PC systems; more at http://www.pi-sysprog.de
i***@winwholesale.com
2007-11-03 18:04:52 UTC
Permalink
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
(937) 294-5331
R***@aol.com
2007-11-03 13:10:40 UTC
Permalink
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..
2007-11-03 13:23:19 UTC
Permalink
Bob,

cool down- I was joking. The frownie got lost in translation somehow.
--
Martin
--
XML2PDF - the way to get all features of PDF into your documents
on mainframe or PC systems; more at http://www.pi-sysprog.de
R***@aol.com
2007-11-03 16:50:54 UTC
Permalink
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
2007-11-03 19:49:02 UTC
Permalink
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
2007-11-05 15:22:13 UTC
Permalink
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
(937) 294-5331
i***@winwholesale.com
2007-11-05 15:44:27 UTC
Permalink
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
(937) 294-5331

Loading...