"IBM Mainframe Assembler List" <[email protected]> wrote on
02/11/2022 01:40:42 PM:
> What do you want to do if it is /not/ FACEBD?
I'm asking this question because I have to turn an ostensibly
zoned-decimal field with an internal right sign (an "overpunch") into a
string of digits with an external left sign. I did finally find
statements on the Internet which indicate that B and D zones are
considered negative while A, C, E, and F zones are considered positive.
Thus, for "positive" numbers I will just leave the external sign off but
for "negative" numbers I have to prefix the string of digits with the dash
character.
So, I'm looking for the shortest way to validate whether the last
byte in the zoned-decimal field has a B or D zone and consider all other
zones to be positive. At that point I plan to just force the zone to an F
and position an external left negative sign if needed. Therefore, I don't
really care if the last byte has an invalid zone or not.
The data is normally generated by an RPG or COBOL program. So if
invalid data is otherwise being forced into a zoned-decimal field then
I'll just have to let the pieces fall where they may.
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.
*********************************************************************************************
