it all started when I coded

CLFHSI EIBRESP,DFHRESP(DUPREC)

which gave me

CLFHSI EIBRESP,=F'14'

meaning the translator did not know the opcode and used its MVC logic.  I 
tried the version below in error.  I was in a hurry and did not notice 
that the first argument of CLFI is a register.  I wanted CLFSI or CLFFSI 
which don't exist.

I have decided to use

DFHRESP_DUPREC EQU 14              fix translator fail
         CLFHSI EIBRESP,DFHRESP_DUPREC

so it goes.  I am applications not tech support and can't complain to IBM 
support.  There are places where CICS and assembler are alive and well and 
being used with modern opcodes.

CICS List <[email protected]> wrote on 03/13/2014 11:07:46 AM:

> From: Graham Clark <[email protected]>

> What's wrong with that? DFHRESP(DUPREC) does equal 14. 
> 
> Cheers 
> Graham 
> 
> Graham Clark 
> ZWAS, CICS (and MQ) Specialist 
> United Kingdom
> Mobile +44 7502 347 957
> e-mail: [email protected] 
> 
> 
> 
> From:        Kirk Talman <[email protected]> 

> In an assembler program, this statement: 
> 
> CLFI EIBRESP,DFHRESP(DUPREC) 
> 
> was translated as 
> 
> CLFI EIBRESP,=F'14' 
> 
> Is there a trick to avoid this, other than hardcode of magic number?
> The manual is not helpful. 
> 
> 3.8.2.1.3  Use of DFHRESP in assembler        © Copyright IBM Corp. 
1989, 2007
>                                                       Topic lines 1 to 5 
of 5
> 
>   An example of a test for the RESP value in assembler language is: 
> 
>       CLC   xxx,DFHRESP(NOSPACE) 
>       BE    ... -----------------------------------------


-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. If the reader of this message is not the intended
recipient or an agent responsible for delivering it to the intended
recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying,
or unauthorized use of this information, or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this communication in error,
please notify us immediately by e-mail, and delete the original
message. Thank you

Reply via email to