This is the 21st century. Programming w/o a base register on the code is possible. Programming w/o extraneous references to memory is possible. An CLC vs CLFHSI can possibly take 100s of TIMES longer. (Compares immediate halfword padded w/0s to storage fullword. How many RESP values exceed 65767? )
The new Cobol 5 has a code optimizer that uses the newer instructions. If one has the inclination and the time one can do as well in assembler. After 47 yrs of doing assembler, I have learned to enjoy it. It's part of the challenge that keeps the mind going into one's 70s. CICS List <[email protected]> wrote on 03/13/2014 12:01:14 PM: > From: "Chase, John" <[email protected]> > To: [email protected], > Date: 03/13/2014 12:02 PM > Subject: Re: [CICS-L] stupid CICS translator - cross posted > Sent by: CICS List <[email protected]> > > Your understanding of the CICS translator is incomplete. The > translator does nothing with Assembler opcodes; it "translates" only > EXEC CICS commands into CALLs with parameters, and when it > encounters DFHRESP(whatever), it substitutes the fullword numerical > value of DFHRESP(whatever) in the (unchanged) instruction. > > Thus, the translator didn't "fail", so IBM most likely would not > consider "fixing" it. If you don't want the substitution for > DFHRESP(whatever), your only choice is to define your own EQU > statement(s) as it appears you have done. Note that you can also > specify DFHRESP(whatever) as the operand of EQU; the translator will > make the substitution there. > > Just idle curiosity: What does CLFHSI do in this context that CLC does not? > > -jc- > > From: CICS List [mailto:[email protected]] On Behalf Of Kirk Talman > Sent: Thursday, March 13, 2014 10:31 AM > To: [email protected] > Subject: stupid CICS translator - cross posted > > 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 > Information contained in this e-mail message and in any attachments > thereto is confidential. If you are not the intended recipient, > please destroy this message, delete any copies held on your systems, > notify the sender immediately, and refrain from using or disclosing > all or any part of its content to any other person. ----------------------------------------- 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
