I you only need to find the decimal point, look at SRST, or use Ed Jaffee's
vector code

-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Dave Clark
Sent: Wednesday, 16 February 2022 17:13
To: [email protected]
Subject: Re: Interpretting Explicit Decimal Numbers

"IBM Mainframe Assembler List" <[email protected]> wrote on
02/16/2022 09:53:51 AM:
> On 2022-02-17 01:42, Dave Clark wrote:
> > Thanks for all the help so far.  Things are looking good.  I've 
> > reached the point, now, where I need to transform a zoned-decimal 
> > number with up to 31 digits of precision and up to 15 digits for 
> > scale with
an
> > external sign and an explicit decimal point into a packed number 
> > that is properly aligned.
> 
> The TRT instruction is useful in locating one or more specific 
> characters, such as a decimal point.


        Thanks.  Yes, that would eliminate the need for the initial loop. 
I already know the length of the string.  So, given the position of the
decimal point (if present) I can calculate the number of decimal places
needed and use MVC to adjust out the actual decimal point (if present).


Sincerely,

Dave Clark
--
Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio  45439  USA
(937) 294-5331




****************************************************************************
*****************
This email message and any attachments is for use only by the named 
addressee(s) and may contain confidential, privileged and/or proprietary 
information. If you have received this message in error, please 
immediately notify the sender and delete and destroy the message and all 
copies. All unauthorized direct or indirect use or disclosure of this 
message is strictly prohibited. No right to confidentiality or privilege 
is waived or lost by any error in transmission. 
****************************************************************************
*****************


-- 
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Reply via email to