We had to redo all our CICS HANDLE CONDITION code for CICS 5.1 since 5.1 doesn't support HANDLE CONDITION for AMODE=64 programs, and I ran into the same issue (except I was trying to use CLIJE). Ended up defining my own set of equates for all the response codes because I couldn't wait around for IBM to provide us with an "official" set of equates.
Robert Ngan CSC Financial Services Group IBM Mainframe Assembler List <[email protected]> wrote on 2014/03/13 10:31:26: > From: Kirk Talman <[email protected]> > To: [email protected] > Date: 2014/03/13 10:33 > Subject: [CICS-L] stupid CICS translator - cross posted > Sent by: IBM Mainframe Assembler List <[email protected]> > > 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
