On Wed, 1 Nov 2017 15:07:06 -0400 Greg Gray <[email protected]> wrote:
:>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?
Well, first of all, a PL7 will have 13 digits, not 15.
But if you want all leading zeroes (and two extras?) included, EDMK is the
wrong tool.
UNPK ZFIELD,PFIELD
OI ZFIELD+L'ZFIELD-1,X'F0' fix sign
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
