On 7/16/2014 6:46 AM, Frank M. Ramaekers wrote:
Please excuse my inexperience, I need an EDIT mask for a floating minus
sign.
Value (hex) ED/EDMK
00123C 123
00123D -123
00001C 1
00001D -1
Frank M. Ramaekers Jr. | Systems Programmer | Information Technology |
American Income Life Insurance Company | 254-761-6649
There is no pattern that will do that simply: it takes some
code. Given your input looks like three bytes packed, lets
set up some fields:
Data_in ds PL3
Data_out ds CL7
Edpat dc x'40202020202060'
Then your code might look something like this:
mvc Data_out,Edpat
la 1,Data_out+4
edmk Data_out,Data_in
cli Data_out+6,c'-'
je positive
bctr R1,0
mvi 0(R1),c'-'
mvi Data_out+6,c' '
positive ds 0h
-Steve Comstock
