That would work. However, unless you're planning to have decimal positions later or change between leading zeros and leading blanks, you can drop ED and the mask and just use UNPK. Using ED in your case is just making more work for yourself.
OREXXMan Q: What do you call the residence of the ungulate with the largest antlers? A: A moose pad. :-D Would you rather pass data in move mode (*nix piping) or locate mode (Pipes) or via disk (JCL)? Why do you think you rarely see *nix commands with more than a dozen filters, while Pipelines specifications are commonly over 100s of stages, and 1000s of stages are not uncommon. REXX is the new C. On Thu, Mar 10, 2022 at 8:47 AM Dave Clark <dlcl...@winsupplyinc.com> wrote: > If I have a 3-byte packed decimal field (and let's say 0 decimals > for simplicity), I might normally go with the following edit mask if I > didn't want to retain leading zeros but leave one zero for a value of > zero. > > x'40202020212060' > > But if I wanted to retain leading zeros, would you simply change > the fill byte to x'F0'? ...or would you do something else? > > Sincerely, > > Dave Clark > -- > int.ext: 91078 > direct: (937) 531-6378 > home: (937) 751-3300 > > Winsupply Group Services > 3110 Kettering Boulevard > Dayton, Ohio 45439 USA > (937) 294-5331 > > > > > ********************************************************************************************* > This email message and any attachments is for use only by the named > addressee(s) and may contain confidential, privileged and/or proprietary > information. If you have received this message in error, please > immediately notify the sender and delete and destroy the message and all > copies. All unauthorized direct or indirect use or disclosure of this > message is strictly prohibited. No right to confidentiality or privilege > is waived or lost by any error in transmission. > > ********************************************************************************************* >
