On Wed, 16 Jul 2014 08:52:32 -0600, Steve Comstock wrote: >Actually, some improvements / corrections are included below >> 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, Data_out+6 will always be c'-'. The only values that have any significance for EDIT and EDMK are X'20', X'21' and X'22'. Any other value is a Message byte and will be left undisturbed with the edit mask that you have defined. With your initial edit mask it might have been replaced with the fill character. -- Tom Marchant
