Why not.... > edmk Data_out,Data_in > jp positive
IBM Mainframe Assembler List <[email protected]> wrote on 07/16/2014 09:46:11 AM: > From: Steve Comstock <[email protected]> > To: [email protected] > Date: 07/16/2014 09:46 AM > Subject: Re: EDit mask for floating minus (negative) > Sent by: IBM Mainframe Assembler List <[email protected]> > > Whoops! > > See correction below. > > > 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' > > > > 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 > jne positive > > bctr R1,0 > > mvi 0(R1),c'-' > > mvi Data_out+6,c' ' > > positive ds 0h > > > > > > -Steve Comstock > >
