"IBM Mainframe Assembler List" <[email protected]> wrote on
02/14/2022 03:00:31 PM:
> >> - just EDMK it and place the sign(depending on the results of the
> >> previous tests) where ever it needs to be.
> >
> > I can't do that because I'm using a generic, reusable routine
to
> >convert binary to zoned and it can't see the original record data. It
> >only sees the data I pass to it in a 64-bit register. So the passed
data
> >has to already have the correct sign.
>
> I'm confused. Are you passing zoned data in a register? Or the
> address of zoned data? Or perhaps a binary number?
It is a generic, reusable routine I wrote to convert a binary
number in a 64-bit register to zoned output with a floating left sign and
option floating decimal point. It returns the result left-justified with
or without the optional left zeros. So, internally (naturally), the
routine must first convert the binary number to a 16-byte packed number
before using EDMK to convert it into an up to a 31-digit zoned output with
an external sign and optional explicit decimal point.
But possibly what is confusing is that this thread of questioning
is about zoned input which is only indirectly related to the zoned output
of the routine I just mentioned. I have to parse the content of a file
record and return the parsed data to the caller without the benefit of any
language to interpret the format of that record. Thus, the caller passes
me data definitions and I pass back the requested data in a format the
caller can more easily handle -- which is only character data (numeric or
otherwise). I have to handle the data going in the other direction, too.
Sincerely,
Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300
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.
*********************************************************************************************
