If you have a x'21' in the edit pattern, you may as well use ED instead of EDMK.
-----Original Message----- From: IBM Mainframe Assembler List [mailto:[email protected]] On Behalf Of Sokolsky, Hayim Z. Sent: 01 November 2017 21:29 To: [email protected] Subject: Re: edmk instruction 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. --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus
