The biggest problem he has is that he wants to fill 15 bytes with a PL7 field and he really wants to use EDMK. A suggestions has been made on how to convert the field to PL8 and use UNPK and OI. One assumption we've made is that if the packed field is negative, he still wants the result to be positive.
I believe that an edit field of X'F0F021202020202020202020202020' (X'F0F021' ,12X'20') would work with ED/EDMK. Gary Weinhold Senior Application Architect DATAKINETICS | Data Performance & Optimization Phone: +1.613.523.5500 x216<tel:+1.613.523.5500%20x216> Email: weinh...@dkl.com<mailto:weinh...@dkl.com> [http://www.dkl.com/wp-content/uploads/2015/07/dkl_logo.png]<http://www.dkl.com/> Visit us online at www.DKL.com<http://www.dkl.com/> [http://www.dkl.com/wp-content/uploads/2015/08/banner.png]<http://www.dkl.com/mailsig> E-mail Notification: The information contained in this email and any attachments is confidential and may be subject to copyright or other intellectual property protection. If you are not the intended recipient, you are not authorized to use or disclose this information, and we request that you notify us by reply mail or telephone and delete the original message from your mail system. __________ On 2017-11-02 13:31, Steve Thompson wrote: On 11/01/2017 08:33 PM, retired mainframer wrote: Where did the $ come from? "Does the customer really want something like 00000$10245670 ?" EDMK is for "floating" in a character, typically in the US, a "$". So I used that example result to attempt to demonstrate what the results might look like using EDMK with the edit pattern being given. Now we know s/he really doesn't want an edit pattern, so I do not understand why the EDMK or ED instruction. But s/he may have other things going on with this program that they may not be at liberty to discuss. Regards, Steve Thompson -----Original Message----- From: IBM Mainframe Assembler List [mailto:ASSEMBLER- l...@listserv.uga.edu<mailto:l...@listserv.uga.edu>] On Behalf Of Steve Thompson Sent: Wednesday, November 01, 2017 2:44 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU<mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU> 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
