Try XC DWORD,DWORD
Efforts and courage are not enough without purpose and direction. - John F. Kennedy Fasten your seat belts, it's going to be a bumpy ride. - Bette Davis (as character Margo Channing) _All About Eve_1950 Furious activity is no substitute for understanding. - H. H. Williams Our greatest danger in life is in permitting the urgent things to crowd out the important. - Charles E. Hummel Quidquid latine dictum sit, altum videtur. IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> wrote on 10/26/2015 05:27:58 PM: > From: retired mainframer <retired-mainfra...@q.com> > The first MVC does not clear DWORD. It copies 8 bytes from location > 11 (X'0B') to DWORD. > > -----Original Message----- > > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > > l...@listserv.uga.edu] On Behalf Of Elardus Engelbrecht > > To all, > > My oh my, I can't believe my Assembler skills are that rusty! > > But here is the challenge. With this snippet, I could show the > Remote Port from SMF record > > type 118 in decimal. > > I'm feeling my code, while working as designed, is not that > optimal, especially usage of > > R11, Double Word and too long edit field. > > SLR R11,R11 CLEAR > > MVC DWORD,R11 CLEAR DWORD > <---------------------------OOPS > > MVC DWORD+2(2),SMF118TRP .MOVE PORT > > L R11,DWORD . > > CVD R11,DWORD .CONVERT TO DECIMAL > > MVC EDWORK2,EDMASK2 > > ED EDWORK2,DWORD+2 > > MVC OUTTRP,EDWORK2 .MOVE REMOTE PORT > > * > > DWORD DS D > > EDWORK2 DC XL12'00' > > EDMASK2 DC XL12'202020202020202020202020' > > * > > OUTTRP DS XL12 .REMOTE PORT NUMBER > > * > > SMF118TRP DS XL2 .REMOTE PORT NUMBER ----------------------------------------- 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. The information may also constitute a legally privileged confidential communication. 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
