Actually, some improvements / corrections are included below
Sorry about the haste, but I am retired :-)
-Steve
On 7/16/2014 7:10 AM, Steve Comstock wrote:
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'
Edpat dc x'40202020212060'
~~
Then your code might look something like this:
mvc Data_out,Edpat
* la 1,Data_out+4
la R1,Data_out+5
~
edmk Data_out,Data_in
cli Data_out+6,c'-'
* je positive
jne positive
~~~
bctr R1,0
mvi 0(R1),c'-'
mvi Data_out+6,c' '
positive ds 0h
-Steve Comstock
