On 11/01/2017 06:00 PM, Charles Mills wrote:
Charles, forgive me but not only do I agree with you, I think your two points are worth drawing a lot of attention to.

<snippage>

Pay attention to that fill character and "significance."
                      ^^^^^^^^^^^^^^      ^^^^^^^^^^^^
<Snippage>

-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On 
Behalf Of Steve Thompson
Sent: Wednesday, November 1, 2017 2:44 PM
To: [email protected]
Subject: Re: edmk instruction

Does the customer really want something like 00000$10245670 ?

Because with EDMK and the mask you have specified that is pretty much how this 
is going to work (as least the first three looks I took at this trying to 
figure out why the edit mask was written the way it is).

Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:
Just a try of the top of my head ...

         MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
         EDMK OUTPUT(15),NUMBER


The first character in the output field is the "fill" character. In this case 
it's a C'0'. So even though all the x'20' characters prior to the x'21' get replaced by 
fill, it's zero anyhow. The only difference between ED and EDMK is pointing R1 to the 
first significant digit.


Hayim Sokolsky
Director, Senior Mainframe Security Architect Security Architecture
and Technology Technology Risk Management DTCC Tampa
Direct: +1 813 470-2177 | [email protected]



Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
To learn about career opportunities at DTCC, please visit dtcc.com/careers.

Classification:  DTCC Public (WHITE)

The views I have expressed in this email are my own personal views, and are not 
endorsed or supported by, and do not necessarily express or reflect, the views, 
positions or strategies of my employer.
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On 
Behalf Of Greg Gray
Sent: Wednesday, November 01, 2017 15:07
To: [email protected]
Subject: edmk instruction

I have a field PL7 that contains a number (dollar amount) and I have to output 
that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
000000000012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


Reply via email to