Anne,
Assume R0 contained 4095.
After the ED instruction M1CC has X'F4F0F9F5'
Now you AND it and M1CC contains X'04050905'
and youTRanslate it back to X'F4F0F9F5'
If what you want printed is X'0FFF' you need code similar to the
following:
ST R0,IN
UNPK OUT(9),IN(5)
MVZ OUT(8),OUT-1
TR OUT(8),=C'0123456789ABCDEF'
Anne Crabtree <[EMAIL PROTECTED]>
Sent by: IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>
10/24/2006 15:25
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>
To
IBM-MAIN@BAMA.UA.EDU
cc
Subject
Re: Assembler question
I didn't "place" anything in it. I assumed the EDit command put something
there. Is that wrong?
>>> [EMAIL PROTECTED] 10/24/2006 4:21 PM >>>
On Tue, 24 Oct 2006 16:11:26 -0400 Anne Crabtree <[EMAIL PROTECTED]>
wrote:
:>Working on the IEFACTRT routine and it has the following assembler
statements for getting return code ready to print on hasp:
:>CVD R0,RWORK GET ADDRESS OF COND FIELD
:>MVC M1CC-1(L'M1CC+1),=X'402120202020' MOVE IN EDIT MASK
:>ED M1CC-1(L'M1CC+1),RWORK+5 CONVERT RET CODE TO CHAR
:>However, I want the return code to print as hexidecimal instead of
decimal. I tried the following after these prior 3 statements:
:>NC M1CC+1(4),=4X'0F'
:>TR M1CC+1(4),=C'0123456789ABCDEF'
:>(I don't understand exactly how this works but it is how it is coded in
our old exit which used the SMF type 4 records).
:>Why is it not translating the decimal to hexadecimal???
--
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
