And from another sample I found searching on EDIT MASK ASSEMBLER INSTRUCTION
To simplify maintenance of the program, I like to "document" the print masks by
showing a character representation of the hex fields used in the mask. I use a
B to indicate a blank as the leading fill character, a Z to indicate digit
positions where leading zeroes will be suppressed, and a 9 to indicate digit
positions where leading zeroes will not be suppressed. For example, I would
document the print masks which we have used thus far as:
MASK DC X'4020202020202020' BZZZZZZZ
MASK2 DC X'402020202020' BZZZZZ
MASK3 DC X'402020202120' BZZZZ9
MASK4 DC X'402021204B2020' BZZ9.99
MASK5 DC X'402021204B202060' BZZ9.99-
CR DC X'402021204B2020C3D9' BZZ9.99CR
DB DC X'402021204B2020C4C2' BZZ9.99DB
CHKA DC X'5C20206B2021204B2020' ***,**9.99
CHKB DC X'5C2021204B2020' ***9.99
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]]
> On Behalf Of Janet Graff
> Sent: Thursday, June 11, 2015 4:57 PM
> To: [email protected]
> Subject: Re: STCK question
>
> Ooh I am liking the ED instruction. But I'm missing something.
>
> My pattern is this
>
> =XL15'20207A20207A20204B202020202020'
>
> My data is this
>
> =XL8'0000003082080000'
>
> And the result I'm getting is this
>
> ' 308208'
>
> What I want is this
>
> ' 0.308208'
>
> What can I do to the pattern mask to force the decimal point, and at the least
> the zeros between the decimal and the first significant digit, and maybe one
> zero before the decimal point?
>
> Janet
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
