Bobby,
Here is a simple code fragment to take a binary return code loaded into R1
and to convert it into a 4 digit decimal character string (also in R1) --
CVD R1,20(,R13) Convert to packed decimal
UNPK20(5,R13),25(3,R13) Convert to zoned de
Or like so:
HEX2CHAR DC 256AL1(*-HEX2CHAR)
Keven
-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On
Behalf Of Steve Smith
Sent: Thursday, August 09, 2012 11:48 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Printing a return code
Us
Many many years ago, a Famous Assembler Programmer at Prodigy Services (Fread
Veasley) gave me this routine to externalize a Return Code. I have been using
it for some time and I cant recall Having a problem with it.
I thought I would share it.
