RE: editc and leading minus sign

Thanks for all the ideas and code. I had to do a quick and dirty today, but
I like Gene's service program.

I used Joe's suggestion and came up with this ...
If        VlContamt > 0
eval      workamt =
                  %trim(%editw(vlcontamt: '0       '))
else
eval      workamt  =
                   %trim(%editw(vlcontamt: '0       '))
eval      %subst(workamt:1:1) = '-'
endif

pos amt = 9999999
neg amt = -999999

The vendor used to require over punches for negative amounts, but now they
require a minus sign on the left with leading zeros.
Below is an extract from the file specifications.
Employee Elective Deferrals   7     numeric      Source 1; Format 0000000-
no decimals or dollar signs

I hope no one contributes more than 9999.99 dollars per pay period...

Thanks, Bob