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- > [email protected]] On Behalf Of Elardus Engelbrecht > Sent: Monday, October 26, 2015 7:15 AM > To: [email protected] > Subject: Displaying port nr in decimal > > 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
