"IBM Mainframe Assembler List" 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
On Mon, 14 Feb 2022 12:36:34 -0500, Dave Clark wrote:
>"IBM Mainframe Assembler List" wrote on
>02/14/2022 12:05:20 PM:
>Why would I get S0C7 due to an invalid sign when I'm using PKA
>(not PACK) which ignores the original sign altogether and forces a
>standard positive sign on output?
Here is another table based scheme which combines sign validation,
sign classification (i.e., the sign is negative or positive) and
recognition of the preferred sign values.
LLC R14,BYTE Fetch the rightmost byte
* of the Zoned
"IBM Mainframe Assembler List" wrote on
02/14/2022 12:05:20 PM:
> I would consider using TP to verify the signs and protect yourself from
> S0C7 on the subsequent handling of the packed number
Why would I get S0C7 due to an invalid sign when I'm using PKA
(not PACK) which ignores the
to be processed like a
zero. That works with NUMPROC(NOPFD) but not with preferred signs!
-Original Message-
From: IBM Mainframe Assembler List On Behalf
Of Binyamin Dissen
Sent: Monday, February 14, 2022 6:16 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
O
rocessed like a
zero. That works with NUMPROC(NOPFD) but not with preferred signs!
-Original Message-
From: IBM Mainframe Assembler List On Behalf
Of Binyamin Dissen
Sent: Monday, February 14, 2022 6:16 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On F
Dave,
I would consider using TP to verify the signs and protect yourself from
S0C7 on the subsequent handling of the packed number
also
I would not do anything against the number (no MHI or so)
- just EDMK it and place the sign(depending on the results of the
previous tests) where ever
"IBM Mainframe Assembler List" wrote on
02/12/2022 10:11:13 PM:
> You could PACK the field, or just the last byte (which is just a
> nibble-swap), and CP to =P'0'. The cond. code tells you what you want
to
> know.
I have to use PKA instead of PACK because the zoned data can be up
to
-
:>From: IBM Mainframe Assembler List On
Behalf Of Dave Clark
:>Sent: Friday, February 11, 2022 12:01 PM
:>To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
:>Subject: Rules for Zoned Overpunch
:>I know that x'F1' and x'C1' are positive and that x'D1' is
:>negative. But what if I f
Mainframe Assembler List [ASSEMBLER-LIST@LISTSERV.UGA.EDU] on behalf
of Dave Clark [dlcl...@winsupplyinc.com]
Sent: Friday, February 11, 2022 1:00 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Rules for Zoned Overpunch
I know that x'F1' and x'C1' are positive and that x'D1' is
negative
On 2/13/2022 7:37 AM, Seymour J Metz wrote:
That translates, but it doesn't validate. Drop the NILL and use a 16 byte
literal: =C'?? - - '
I was under the impression he did not care about invalid values and was
merely looking for a quick way of handling positive vs negative. As
[edja...@phoenixsoftware.com]
Sent: Saturday, February 12, 2022 11:24 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On 2/11/2022 10:00 AM, Dave Clark wrote:
> I know that x'F1' and x'C1' are positive and that x'D1' is
> negative. But what if I fin
, 2022 12:10 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On 2022-02-13 12:21, Seymour J Metz wrote:
> Why not CVB/LTR/BC?
Nice suggestion, but it's a huge sledgehammer!
>
> Shmuel (Seymour J.) Metz
>
>
> F
Regardless of pathlength or bytes for instructions - I like this most
Maybe add a comment to show that F becomes 7 and so on
and that invalid signs (0 thru 9 in left nibble) become ?
Am 13.02.22 um 05:24 schrieb Ed Jaffe:
Shortest? Who knows?
| LLC Rx,LASTBYTE Get last byte
-dmarc-requ...@listserv.uga.edu]
Sent: Friday, February 11, 2022 1:14 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On Feb 11, 2022, at 11:00:58, Dave Clark wrote:
I know that x'F1' and x'C1' are positive and that x'D1' is
negative. But what if I find x'A1
On 2/11/2022 10:00 AM, Dave Clark wrote:
I know that x'F1' and x'C1' are positive and that x'D1' is
negative. But what if I find x'A1', x'B1', or x'E1' for overpunch values?
What is the shortest way (in terms of assembler instructions) to validate
these into just two classes --
You could use TRT to test the last byte, after some tedious coding of the
table. N.B. I mean using the table codes to identify +/0/-/invalid; not
just the 0/non-0 typical use.
You could PACK the field, or just the last byte (which is just a
nibble-swap), and CP to =P'0'. The cond. code tells
On Feb 12, 2022, at 18:47:45, Seymour J Metz wrote:
>
> I read "validate these into just two classes" as validate that the zone - not
> 0-9 and transform A-F appropriately into either C or D.
>
How about Compare Packed to a packed zero?
But doesn't "just two classes" overlook a third class,
MBLER-LIST@LISTSERV.UGA.EDU] on behalf
of Paul Gilmartin [0014e0e4a59b-dmarc-requ...@listserv.uga.edu]
Sent: Saturday, February 12, 2022 8:40 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On Feb 12, 2022, at 18:21:59, Seymour J Metz wrote:
>
> Why not CVB/LTR/
On Feb 12, 2022, at 18:21:59, Seymour J Metz wrote:
>
> Why not CVB/LTR/BC?
>
It appears that the OP wants to "validate"; detect and
report the non-modal sign codes.
If the original is zoned it might require:
PACK; CVB; CVD; UNPK; CLC
>
> From:
, 2022 1:14 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
On Feb 11, 2022, at 11:00:58, Dave Clark wrote:
>
>I know that x'F1' and x'C1' are positive and that x'D1' is
> negative. But what if I find x'A1', x'B1', or x'E1' for overpunch value
- Original Message -
From: "Dave Clark"
To:
Sent: Saturday, February 12, 2022 5:00 AM
Subject: Rules for Zoned Overpunch
I know that x'F1' and x'C1' are positive and that x'D1' is
negative. But what if I find x'A1', x'B1', or x'E1' for overpunch values?
What is th
iginal Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
On Behalf Of Dave Clark
Sent: Friday, February 11, 2022 11:51 AM
To:ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
"IBM Mainframe Assembler List" wrote on
02/11/2022 02
al Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
On Behalf Of Dave Clark
Sent: Friday, February 11, 2022 11:51 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Rules for Zoned Overpunch
"IBM Mainframe Assembler List" wrote on
02/11/2022 02
"IBM Mainframe Assembler List" wrote on
02/11/2022 02:24:38 PM:
> Doesn't PACK + CVB + EDMK pretty much just do this for you?
Well, in the first place I am allowing the incoming zoned-decimal
field to be up to 31 bytes. PACK won't handle that -- although that is
not insurmountable
for Zoned Overpunch
"IBM Mainframe Assembler List" 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") i
"IBM Mainframe Assembler List" 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
rame Assembler List On Behalf
Of Dave Clark
Sent: Friday, February 11, 2022 12:01 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Rules for Zoned Overpunch
I know that x'F1' and x'C1' are positive and that x'D1' is
negative. But what if I find x'A1', x'B1', or x'E1' for overpunch values?
What
On Feb 11, 2022, at 11:00:58, Dave Clark wrote:
>
>I know that x'F1' and x'C1' are positive and that x'D1' is
> negative. But what if I find x'A1', x'B1', or x'E1' for overpunch values?
> What is the shortest way (in terms of assembler instructions) to validate
> these into just two
29 matches
Mail list logo