Re: edmk instruction

2017-11-01 Thread Sokolsky, Hayim Z. 
Just a try of the top of my head ...

   MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
   EDMK OUTPUT(15),NUMBER 


The first character in the output field is the "fill" character. In this case 
it's a C'0'. So even though all the x'20' characters prior to the x'21' get 
replaced by fill, it's zero anyhow. The only difference between ED and EDMK is 
pointing R1 to the first significant digit. 


Hayim Sokolsky
Director, Senior Mainframe Security Architect
Security Architecture and Technology
Technology Risk Management
DTCC Tampa
Direct: +1 813 470-2177 | hsokol...@dtcc.com



Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
To learn about career opportunities at DTCC, please visit dtcc.com/careers.

Classification:  DTCC Public (WHITE)

The views I have expressed in this email are my own personal views, and are not 
endorsed or supported by, and do not necessarily express or reflect, the views, 
positions or strategies of my employer.
-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Greg Gray
Sent: Wednesday, November 01, 2017 15:07
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: edmk instruction

I have a field PL7 that contains a number (dollar amount) and I have to output 
that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
0012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

Re: edmk instruction

2017-11-01 Thread Steve Smith 
Yes, probably thousands have.  "No success" is rather vague.

MVC CL15,x'f0f0202020202020202020202020202020'
EDCL15,PL7

UNPK CL15,PL7 would also accomplish this task, as you're not really
using any of ED's power.


On Wed, Nov 1, 2017 at 3:07 PM, Greg Gray  wrote:
> I have a field PL7 that contains a number (dollar amount) and I have to 
> output that amount into a CL15 output field.  The customer would like for the 
> remaining characters other than the digits for the amount to be zeros, i.e., 
> 0012391.  I am trying to code a EDMK pattern with no success, has 
> anyone ever completed such a task?



-- 
sas

Re: edmk instruction

2017-11-01 Thread Pieter Wiid 
If you have a x'21' in the edit pattern, you may as well use ED instead of EDMK.

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Sokolsky, Hayim Z.
Sent: 01 November 2017 21:29
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

Just a try of the top of my head ...

   MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
   EDMK OUTPUT(15),NUMBER


The first character in the output field is the "fill" character. In this case 
it's a C'0'. So even though all the x'20' characters prior to the x'21' get 
replaced by fill, it's zero anyhow. The only difference between ED and EDMK is 
pointing R1 to the first significant digit.


Hayim Sokolsky
Director, Senior Mainframe Security Architect Security Architecture and 
Technology Technology Risk Management DTCC Tampa
Direct: +1 813 470-2177 | hsokol...@dtcc.com



Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
To learn about career opportunities at DTCC, please visit dtcc.com/careers.

Classification:  DTCC Public (WHITE)

The views I have expressed in this email are my own personal views, and are not 
endorsed or supported by, and do not necessarily express or reflect, the views, 
positions or strategies of my employer.
-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Greg Gray
Sent: Wednesday, November 01, 2017 15:07
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: edmk instruction

I have a field PL7 that contains a number (dollar amount) and I have to output 
that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
0012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-01 Thread Steve Smith 
Maybe for you, but not in general.

On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> If you have a x'21' in the edit pattern, you may as well use ED instead of 
> EDMK.
>

Re: edmk instruction

2017-11-01 Thread David Woolbright 
Check out this link for general info about EDMK with examples:
http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf

On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:

> Maybe for you, but not in general.
>
> On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> > If you have a x'21' in the edit pattern, you may as well use ED instead
> of EDMK.
> >
>



-- 
Dr.David E. Woolbright
Professor of Computer Science
TSYS School of Computer Science
Columbus State University
4225 University Avenue
Columbus, Georgia 31907-5645
(706) 580-9863
woolbright_da...@columbusstate.edu

Re: edmk instruction

2017-11-01 Thread Steve Thompson 

Does the customer really want something like 0$10245670 ?

Because with EDMK and the mask you have specified that is pretty 
much how this is going to work (as least the first three looks I 
took at this trying to figure out why the edit mask was written 
the way it is).


Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:

Just a try of the top of my head ...

MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
EDMK OUTPUT(15),NUMBER


The first character in the output field is the "fill" character. In this case 
it's a C'0'. So even though all the x'20' characters prior to the x'21' get replaced by 
fill, it's zero anyhow. The only difference between ED and EDMK is pointing R1 to the 
first significant digit.


Hayim Sokolsky
Director, Senior Mainframe Security Architect
Security Architecture and Technology
Technology Risk Management
DTCC Tampa
Direct: +1 813 470-2177 | hsokol...@dtcc.com



Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
To learn about career opportunities at DTCC, please visit dtcc.com/careers.

Classification:  DTCC Public (WHITE)

The views I have expressed in this email are my own personal views, and are not 
endorsed or supported by, and do not necessarily express or reflect, the views, 
positions or strategies of my employer.
-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Greg Gray
Sent: Wednesday, November 01, 2017 15:07
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: edmk instruction

I have a field PL7 that contains a number (dollar amount) and I have to output 
that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
0012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

Re: edmk instruction

2017-11-01 Thread Charles Mills 
EDMK is used when you want a "floating" (just before the first significant 
digit) dollar sign or similar. You back up R1 by 1 and that is where your 
dollar sign goes.

I think there are ED and EDMK examples in the PoOp, no? Read them carefully. 
Read them very carefully. ED and EDMK are powerful but there is a price in 
complexity for that power.

Pay attention to that fill character and "significance."

Charles


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Steve Thompson
Sent: Wednesday, November 1, 2017 2:44 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

Does the customer really want something like 0$10245670 ?

Because with EDMK and the mask you have specified that is pretty much how this 
is going to work (as least the first three looks I took at this trying to 
figure out why the edit mask was written the way it is).

Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:
> Just a try of the top of my head ...
> 
> MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
> EDMK OUTPUT(15),NUMBER
> 
> 
> The first character in the output field is the "fill" character. In this case 
> it's a C'0'. So even though all the x'20' characters prior to the x'21' get 
> replaced by fill, it's zero anyhow. The only difference between ED and EDMK 
> is pointing R1 to the first significant digit.
> 
> 
> Hayim Sokolsky
> Director, Senior Mainframe Security Architect Security Architecture 
> and Technology Technology Risk Management DTCC Tampa
> Direct: +1 813 470-2177 | hsokol...@dtcc.com
> 
> 
> 
> Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
> To learn about career opportunities at DTCC, please visit dtcc.com/careers.
> 
> Classification:  DTCC Public (WHITE)
> 
> The views I have expressed in this email are my own personal views, and are 
> not endorsed or supported by, and do not necessarily express or reflect, the 
> views, positions or strategies of my employer.
> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] 
> On Behalf Of Greg Gray
> Sent: Wednesday, November 01, 2017 15:07
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: edmk instruction
> 
> I have a field PL7 that contains a number (dollar amount) and I have to 
> output that amount into a CL15 output field.  The customer would like for the 
> remaining characters other than the digits for the amount to be zeros, i.e., 
> 0012391.  I am trying to code a EDMK pattern with no success, has 
> anyone ever completed such a task?
> DTCC DISCLAIMER: This email and any files transmitted with it are 
> confidential and intended solely for the use of the individual or entity to 
> whom they are addressed. If you have received this email in error, please 
> notify us immediately and delete the email and any attachments from your 
> system. The recipient should check this email and any attachments for the 
> presence of viruses.  The company accepts no liability for any damage caused 
> by any virus transmitted by this email.
>

Re: edmk instruction

2017-11-01 Thread Steve Thompson 

On 11/01/2017 06:00 PM, Charles Mills wrote:
Charles, forgive me but not only do I agree with you, I think 
your two points are worth drawing a lot of attention to.





Pay attention to that fill character and "significance."
  ^^  




-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Steve Thompson
Sent: Wednesday, November 1, 2017 2:44 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

Does the customer really want something like 0$10245670 ?

Because with EDMK and the mask you have specified that is pretty much how this 
is going to work (as least the first three looks I took at this trying to 
figure out why the edit mask was written the way it is).

Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:

Just a try of the top of my head ...

 MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
 EDMK OUTPUT(15),NUMBER


The first character in the output field is the "fill" character. In this case 
it's a C'0'. So even though all the x'20' characters prior to the x'21' get replaced by 
fill, it's zero anyhow. The only difference between ED and EDMK is pointing R1 to the 
first significant digit.


Hayim Sokolsky
Director, Senior Mainframe Security Architect Security Architecture
and Technology Technology Risk Management DTCC Tampa
Direct: +1 813 470-2177 | hsokol...@dtcc.com



Visit us at www.dtcc.com or follow us on Twitter @The_DTCC  and on LinkedIn.
To learn about career opportunities at DTCC, please visit dtcc.com/careers.

Classification:  DTCC Public (WHITE)

The views I have expressed in this email are my own personal views, and are not 
endorsed or supported by, and do not necessarily express or reflect, the views, 
positions or strategies of my employer.
-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Greg Gray
Sent: Wednesday, November 01, 2017 15:07
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: edmk instruction

I have a field PL7 that contains a number (dollar amount) and I have to output 
that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
0012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

Re: edmk instruction

2017-11-01 Thread retired mainframer 
Where did the $ come from?

> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-
> l...@listserv.uga.edu] On Behalf Of Steve Thompson
> Sent: Wednesday, November 01, 2017 2:44 PM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: edmk instruction
> 
> Does the customer really want something like 0$10245670 ?
> 
> Because with EDMK and the mask you have specified that is pretty
> much how this is going to work (as least the first three looks I
> took at this trying to figure out why the edit mask was written
> the way it is).
> 
> Regards,
> Steve Thompson
> 
> 
> On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:
> > Just a try of the top of my head ...
> >
> > MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
> > EDMK OUTPUT(15),NUMBER

Re: edmk instruction

2017-11-01 Thread Gray Gregory 
Great link, thanks but my question is, is there a fill character that will pad 
the pattern with zeros.  I've even tried X'F0', and X'00' as the first 
character in the pattern.



from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On 
Behalf Of David Woolbright
Sent: Wednesday, November 01, 2017 4:57 PM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

Check out this link for general info about EDMK with examples:
http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf

On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:

> Maybe for you, but not in general.
>
> On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> > If you have a x'21' in the edit pattern, you may as well use ED instead
> of EDMK.
> >
>



-- 
Dr.David E. Woolbright
Professor of Computer Science
TSYS School of Computer Science
Columbus State University
4225 University Avenue
Columbus, Georgia 31907-5645
(706) 580-9863
woolbright_da...@columbusstate.edu

Re: edmk instruction

2017-11-01 Thread Gray Gregory 
The customer doesn’t want any special characters i.e, comma, dollars signs, in 
the output field just the total amount in the output  ds  cl15 field: example: 
3589342. 



from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On 
Behalf Of retired mainframer
Sent: Wednesday, November 01, 2017 8:33 PM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

Where did the $ come from?

> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER- 
> l...@listserv.uga.edu] On Behalf Of Steve Thompson
> Sent: Wednesday, November 01, 2017 2:44 PM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: edmk instruction
> 
> Does the customer really want something like 0$10245670 ?
> 
> Because with EDMK and the mask you have specified that is pretty much 
> how this is going to work (as least the first three looks I took at 
> this trying to figure out why the edit mask was written the way it 
> is).
> 
> Regards,
> Steve Thompson
> 
> 
> On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:
> > Just a try of the top of my head ...
> >
> > MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
> > EDMK OUTPUT(15),NUMBER

Re: edmk instruction

2017-11-02 Thread retired mainframer 
Since the X'F0' fill character should have done what you wanted, you need to 
show us what you did with it.  We need the relevant parts of the program 
source, the original contents of the two operand areas, and the final contents 
of the pattern area.

> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-
> l...@listserv.uga.edu] On Behalf Of Gray Gregory
> Sent: Wednesday, November 01, 2017 10:57 PM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: edmk instruction
> 
> Great link, thanks but my question is, is there a fill character that will 
> pad the pattern with
> zeros.  I've even tried X'F0', and X'00' as the first character in the 
> pattern.
> 
> from Greg Gray
> gregory.g...@irs.gov
> 2406131660
> 
> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On
> Behalf Of David Woolbright
> Sent: Wednesday, November 01, 2017 4:57 PM
> To: ASSEMBLER-LIST@listserv.uga.edu
> Subject: Re: edmk instruction
> 
> Check out this link for general info about EDMK with examples:
> http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf
> 
> On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:
> 
> > Maybe for you, but not in general.
> >
> > On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> > > If you have a x'21' in the edit pattern, you may as well use ED instead
> > of EDMK.

Re: edmk instruction

2017-11-02 Thread Binyamin Dissen 
On Wed, 1 Nov 2017 15:07:06 -0400 Greg Gray  wrote:

:>I have a field PL7 that contains a number (dollar amount) and I have to 
output that amount into a CL15 output field.  The customer would like for the 
remaining characters other than the digits for the amount to be zeros, i.e., 
0012391.  I am trying to code a EDMK pattern with no success, has 
anyone ever completed such a task?

Well, first of all, a PL7 will have 13 digits, not 15.

But if you want all leading zeroes (and two extras?) included, EDMK is the
wrong tool.


   UNPK  ZFIELD,PFIELD
   OI  ZFIELD+L'ZFIELD-1,X'F0'fix sign

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

Re: edmk instruction

2017-11-02 Thread Gray Gregory 
True and this way is simpler to bad there isn't a fill character for padding 
with zeros



from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On 
Behalf Of Peter Hunkeler
Sent: Thursday, November 02, 2017 2:14 AM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: AW: Re: edmk instruction

>UNPK CL15,PL7 would also accomplish this task, as you're not really using any 
>of ED's power.


The rightmost byte in the CL15 field will have the "sign" in the left nibble. 
So an additional instruction after the UNPK is needed:
OI  CL15+14,X'F0'   


-- 
Peter Hunkeler

Re: edmk instruction

2017-11-02 Thread Steve Smith 
Prove it.

On Thu, Nov 2, 2017 at 8:44 AM, Gray Gregory  wrote:
> True and this way is simpler to bad there isn't a fill character for padding 
> with zeros
>
>
>
> from Greg Gray
> gregory.g...@irs.gov
> 2406131660
>

Re: edmk instruction

2017-11-02 Thread Pieter Wiid 

On 02/11/2017 14:55, Steve Smith wrote:

Prove it.

On Thu, Nov 2, 2017 at 8:44 AM, Gray Gregory  wrote:

True and this way is simpler to bad there isn't a fill character for padding 
with zeros



from Greg Gray
gregory.g...@irs.gov
2406131660


I can prove that it DOES work for fill char x'F0':

F872D160C276  2  ZAP    0352(08,R13),0630(03,R12) (0001A160) 
0012345C   (8276) 12345C

1711  8  XR R01,R01     
D209D100C26C  8  MVC    0256(010,R13),0620(R12) (0001A100) 
F0206B2020206B202120
DF09D100D164  2  EDMK   0256(010,R13),0356(R13) (0001A100) 
F0F0F0F0F1F26BF3F4 (0001A164) 0012345C00

R01=0001A104
D609D100D100  4  OC 0256(010,R13),0256(R13) (0001A100) 
F0F0F0F0F1F26BF3F4F5

Re: edmk instruction

2017-11-02 Thread Robin Vowels 

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 11:44 PM



True and this way is simpler to bad there isn't a fill character for padding 
with zeros


The fill character to pad with zeros was given to you: "F0"

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-02 Thread Robin Vowels 

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 11:44 PM



True and this way is simpler to bad there isn't a fill character for padding 
with zeros


P.S. The fill character must be the first in the pattern.

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-02 Thread Charles Mills 
I believe the fill character may be any character whatsoever.

Charles


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
On Behalf Of Robin Vowels
Sent: Thursday, November 2, 2017 6:49 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 11:44 PM


> True and this way is simpler to bad there isn't a fill character for
padding with zeros

P.S. The fill character must be the first in the pattern.

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-02 Thread Charles Mills 
You must have mucked up something else. Either will "work" (in the sense that 
they will fill the output, although x'00' is not printable; you want x'F0').

Charles


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Gray Gregory
Sent: Wednesday, November 1, 2017 10:57 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

Great link, thanks but my question is, is there a fill character that will pad 
the pattern with zeros.  I've even tried X'F0', and X'00' as the first 
character in the pattern.



from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On 
Behalf Of David Woolbright
Sent: Wednesday, November 01, 2017 4:57 PM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

Check out this link for general info about EDMK with examples:
http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf

On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:

> Maybe for you, but not in general.
>
> On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> > If you have a x'21' in the edit pattern, you may as well use ED instead
> of EDMK.
> >
>



-- 
Dr.David E. Woolbright
Professor of Computer Science
TSYS School of Computer Science
Columbus State University
4225 University Avenue
Columbus, Georgia 31907-5645
(706) 580-9863
woolbright_da...@columbusstate.edu

Re: edmk instruction

2017-11-02 Thread Gray Gregory 
What does your edit pattern looks like, I tried it with the X'F0' but the job 
abend with a S0C7



from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On 
Behalf Of Pieter Wiid
Sent: Thursday, November 02, 2017 9:08 AM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

On 02/11/2017 14:55, Steve Smith wrote:
> Prove it.
>
> On Thu, Nov 2, 2017 at 8:44 AM, Gray Gregory  wrote:
>> True and this way is simpler to bad there isn't a fill character for 
>> padding with zeros
>>
>>
>>
>> from Greg Gray
>> gregory.g...@irs.gov
>> 2406131660
>>
I can prove that it DOES work for fill char x'F0':

F872D160C276  2  ZAP    0352(08,R13),0630(03,R12) (0001A160) 
0012345C   (8276) 12345C
1711  8  XR R01,R01      D209D100C26C  8  MVC   
 0256(010,R13),0620(R12) (0001A100)
F0206B2020206B202120
DF09D100D164  2  EDMK   0256(010,R13),0356(R13) (0001A100)
F0F0F0F0F1F26BF3F4 (0001A164) 0012345C00
R01=0001A104
D609D100D100  4  OC 0256(010,R13),0256(R13) (0001A100)
F0F0F0F0F1F26BF3F4F5

Re: EDMK instruction

2017-11-02 Thread Robin Vowels 

From: "Gray Gregory" 
Sent: Friday, November 03, 2017 2:22 AM



What does your edit pattern looks like, I tried it with the X'F0' but the job 
abend with a S0C7


You were given several EDMK patterns.

It's time you showed your code including the pattern.

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: EDMK instruction

2017-11-02 Thread Robin Vowels 

From: "Charles Mills" 
Sent: Friday, November 03, 2017 1:03 AM



I believe the fill character may be any character whatsoever.


It can be any character.

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: EDMK instruction

2017-11-02 Thread Gary Weinhold 

A S0C7 would probably be that your edit pattern did not have exactly the same 
number of x'20' and x'21' bytes as the input packed field has digits (e.g, 13 
for a PL7).

You might want to review this: 
http://computer-programming-forum.com/10-asm370/9229bb76d676b7d7.htm

which seems to be a good explanation of how to use ED and EDMK.

Gary Weinhold
Senior Application Architect

DATAKINETICS | Data Performance & Optimization

Phone:  +1.613.523.5500 x216
Email:  weinh...@dkl.com

[http://www.dkl.com/wp-content/uploads/2015/07/dkl_logo.png]

Visit us online at www.DKL.com

[http://www.dkl.com/wp-content/uploads/2015/08/banner.png]

E-mail Notification: The information contained in this email and any 
attachments is confidential and may be subject to copyright or other 
intellectual property protection. If you are not the intended recipient, you 
are not authorized to use or disclose this information, and we request that you 
notify us by reply mail or telephone and delete the original message from your 
mail system.



__
On 2017-11-02 11:32, Robin Vowels wrote:
From: "Gray Gregory" 
Sent: Friday, November 03, 2017 2:22 AM


What does your edit pattern looks like, I tried it with the X'F0' but the job 
abend with a S0C7

You were given several EDMK patterns.

It's time you showed your code including the pattern.

Re: edmk instruction

2017-11-02 Thread David Woolbright 
ZAP the packed field to a field that is one byte larger. Edit that with an
edit word that starts x'402021'.  Reference the result without the
first 3 bytes.  I'm on the road and can't write the code, but that will
work. Let me know if I misinterpreted what you need.

On Nov 2, 2017 1:57 AM, "Gray Gregory"  wrote:

> Great link, thanks but my question is, is there a fill character that will
> pad the pattern with zeros.  I've even tried X'F0', and X'00' as the first
> character in the pattern.
>
>
>
> from Greg Gray
> gregory.g...@irs.gov
> 2406131660
>
> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu]
> On Behalf Of David Woolbright
> Sent: Wednesday, November 01, 2017 4:57 PM
> To: ASSEMBLER-LIST@listserv.uga.edu
> Subject: Re: edmk instruction
>
> Check out this link for general info about EDMK with examples:
> http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf
>
> On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:
>
> > Maybe for you, but not in general.
> >
> > On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> > > If you have a x'21' in the edit pattern, you may as well use ED instead
> > of EDMK.
> > >
> >
>
>
>
> --
> Dr.David E. Woolbright
> Professor of Computer Science
> TSYS School of Computer Science
> Columbus State University
> 4225 University Avenue
> Columbus, Georgia 31907-5645
> (706) 580-9863
> woolbright_da...@columbusstate.edu
>

Re: edmk instruction

2017-11-02 Thread Steve Thompson 

On 11/01/2017 08:33 PM, retired mainframer wrote:

Where did the $ come from?


"Does the customer really want something like 0$10245670 ?"

EDMK is for "floating" in a character, typically in the US, a "$".

So I used that example result to attempt to demonstrate what the 
results might look like using EDMK with the edit pattern being 
given.


Now we know s/he really doesn't want an edit pattern, so I do not 
understand why the EDMK or ED instruction. But s/he may have 
other things going on with this program that they may not be at 
liberty to discuss.


Regards,
Steve Thompson




-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-
l...@listserv.uga.edu] On Behalf Of Steve Thompson
Sent: Wednesday, November 01, 2017 2:44 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: edmk instruction

Does the customer really want something like 0$10245670 ?

Because with EDMK and the mask you have specified that is pretty
much how this is going to work (as least the first three looks I
took at this trying to figure out why the edit mask was written
the way it is).

Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:

Just a try of the top of my head ...

 MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
 EDMK OUTPUT(15),NUMBER

Re: edmk instruction

2017-11-02 Thread Gary Weinhold 

The biggest problem he has is that he wants to fill 15 bytes with a PL7 field 
and he really wants to use EDMK.  A suggestions has been made on how to convert 
the field to PL8 and use UNPK and OI.  One assumption we've made is that if the 
packed field is negative, he still wants the result to be positive.

I believe that an edit field of X'F0F021202020202020202020202020' (X'F0F021' 
,12X'20') would work with ED/EDMK.

Gary Weinhold
Senior Application Architect

DATAKINETICS | Data Performance & Optimization

Phone:  +1.613.523.5500 x216
Email:  weinh...@dkl.com<mailto:weinh...@dkl.com>

[http://www.dkl.com/wp-content/uploads/2015/07/dkl_logo.png]<http://www.dkl.com/>

Visit us online at www.DKL.com<http://www.dkl.com/>

[http://www.dkl.com/wp-content/uploads/2015/08/banner.png]<http://www.dkl.com/mailsig>

E-mail Notification: The information contained in this email and any 
attachments is confidential and may be subject to copyright or other 
intellectual property protection. If you are not the intended recipient, you 
are not authorized to use or disclose this information, and we request that you 
notify us by reply mail or telephone and delete the original message from your 
mail system.



__
On 2017-11-02 13:31, Steve Thompson wrote:
On 11/01/2017 08:33 PM, retired mainframer wrote:
Where did the $ come from?

"Does the customer really want something like 0$10245670 ?"

EDMK is for "floating" in a character, typically in the US, a "$".

So I used that example result to attempt to demonstrate what the results might 
look like using EDMK with the edit pattern being given.

Now we know s/he really doesn't want an edit pattern, so I do not understand 
why the EDMK or ED instruction. But s/he may have other things going on with 
this program that they may not be at liberty to discuss.

Regards,
Steve Thompson


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-
l...@listserv.uga.edu<mailto:l...@listserv.uga.edu>] On Behalf Of Steve Thompson
Sent: Wednesday, November 01, 2017 2:44 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU<mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Subject: Re: edmk instruction

Does the customer really want something like 0$10245670 ?

Because with EDMK and the mask you have specified that is pretty
much how this is going to work (as least the first three looks I
took at this trying to figure out why the edit mask was written
the way it is).

Regards,
Steve Thompson


On 11/01/2017 03:29 PM, Sokolsky, Hayim Z. wrote:
Just a try of the top of my head ...

MVC   OUTPUT(15),=X'F0202020202020202020202020202120'
EDMK OUTPUT(15),NUMBER

Re: edmk instruction

2017-11-08 Thread Robin Vowels 

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 11:44 PM


True and this way is simpler to bad there isn't a fill character for padding 
with zeros

The fill character for padding with zeros is 'F0', that is, zero.

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-08 Thread Robin Vowels 

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 4:56 PM


Great link, thanks but my question is, is there a fill character that will pad the pattern with 
zeros.  I've even tried X'F0', and X'00' as the first character in the pattern.


'00' can't do it because it is not a printable character.

'F0' as a fill character (the first in the pattern) will do it. You need to have
the digit force character '21' as the second character in the pattern.

To make this go, you will need a receiving field of length 2 more bytes than 
you want,
and then ignore the first two bytes.


from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@listserv.uga.edu] On Behalf Of David 
Woolbright

Sent: Wednesday, November 01, 2017 4:57 PM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

Check out this link for general info about EDMK with examples:
http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf

On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:


Maybe for you, but not in general.

On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> If you have a x'21' in the edit pattern, you may as well use ED instead
of EDMK.

--
Dr.David E. Woolbright
Professor of Computer Science
TSYS School of Computer Science
Columbus State University
4225 University Avenue
Columbus, Georgia 31907-5645
(706) 580-9863
woolbright_da...@columbusstate.edu




---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: EDMK instruction

2017-11-08 Thread Robin Vowels 

From: "Steve Smith" 
Sent: Thursday, November 02, 2017 7:24 AM



Maybe for you, but not in general.


For the OP's purpose, ED is sufficient.


On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:

If you have a x'21' in the edit pattern, you may as well use ED instead of EDMK.


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: edmk instruction

2017-11-08 Thread Pieter Wiid 
If the digit force is the second character, I found that GPR1 is not set 
(can prove it with traces).

Thus, just use ED, or plain UNPK and OI the last byte with X'F0'

On 08/11/2017 14:02, Robin Vowels wrote:

From: "Gray Gregory" 
Sent: Thursday, November 02, 2017 4:56 PM


Great link, thanks but my question is, is there a fill character that 
will pad the pattern with zeros. I've even tried X'F0', and X'00' as 
the first character in the pattern.


'00' can't do it because it is not a printable character.

'F0' as a fill character (the first in the pattern) will do it. You 
need to have

the digit force character '21' as the second character in the pattern.

To make this go, you will need a receiving field of length 2 more 
bytes than you want,

and then ignore the first two bytes.


from Greg Gray
gregory.g...@irs.gov
2406131660

-Original Message-
From: IBM Mainframe Assembler List 
[mailto:ASSEMBLER-LIST@listserv.uga.edu] On Behalf Of David Woolbright

Sent: Wednesday, November 01, 2017 4:57 PM
To: ASSEMBLER-LIST@listserv.uga.edu
Subject: Re: edmk instruction

Check out this link for general info about EDMK with examples:
http://csc.columbusstate.edu/woolbright/Instructions/EDMK.pdf

On Wed, Nov 1, 2017 at 4:24 PM, Steve Smith  wrote:


Maybe for you, but not in general.

On Wed, Nov 1, 2017 at 4:05 PM, Pieter Wiid  wrote:
> If you have a x'21' in the edit pattern, you may as well use ED 
instead

of EDMK.

--
Dr.David E. Woolbright
Professor of Computer Science
TSYS School of Computer Science
Columbus State University
4225 University Avenue
Columbus, Georgia 31907-5645
(706) 580-9863
woolbright_da...@columbusstate.edu




---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: EDMK instruction

2017-11-08 Thread Robin Vowels 

From: "Steve Smith" 
Sent: Thursday, November 02, 2017 6:30 AM


Yes, probably thousands have.  "No success" is rather vague.


MVC CL15,x'f0f0202020202020202020202020202020'
EDCL15,PL7


Haven't checked, but you might need a X'21'  character as well or
instead of the second X'F0'


UNPK CL15,PL7 would also accomplish this task, as you're not really
using any of ED's power.


You'll also need to zap the least significant byte to produce a zone code of 
X'F'.

On Wed, Nov 1, 2017 at 3:07 PM, Greg Gray  wrote:
I have a field PL7 that contains a number (dollar amount) and I have to output that amount into a 
CL15 output field.  The customer would like for the remaining characters other than the digits for 
the amount to be zeros, i.e., 0012391.  I am trying to code a EDMK pattern with no 
success, has anyone ever completed such a task?




--
sas 



---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: EDMK instruction

2017-11-08 Thread Steve Smith 
See below:

On Wed, Nov 8, 2017 at 7:09 AM, Robin Vowels  wrote:
> From: "Steve Smith" 
> Sent: Thursday, November 02, 2017 6:30 AM
>
>
> Yes, probably thousands have.  "No success" is rather vague.
>
>> MVC CL15,x'f0f0202020202020202020202020202020'
>> EDCL15,PL7
>
>
> Haven't checked, but you might need a X'21'  character as well or
> instead of the second X'F0'

I did check.  The second x'F0' is to pad the length up to 15
characters, per OP's spec.
Using '0' as the pad character is something of a special case; but it
fits the question asked.

>
>> UNPK CL15,PL7 would also accomplish this task, as you're not really
>> using any of ED's power.
>
>
> You'll also need to zap the least significant byte to produce a zone code of
> X'F'.
>

Only if UNPK is used.  ED/EDMK will take care of it.

> On Wed, Nov 1, 2017 at 3:07 PM, Greg Gray  wrote:
>>
>> I have a field PL7 that contains a number (dollar amount) and I have to
>> output that amount into a CL15 output field.  The customer would like for
>> the remaining characters other than the digits for the amount to be zeros,
>> i.e., 0012391.  I am trying to code a EDMK pattern with no success,
>> has anyone ever completed such a task?
>
-- 
sas

Re: edmk instruction

2017-11-08 Thread Steve Smith 
ED & EDMK are completely documented (of course) in the Principles of
Operation, including the rules for when and how EDMK sets (or doesn't
set) R1.  It behooves you to understand those rules completely if you
use EDMK.

Actually trying it is good too.

sas

On Wed, Nov 8, 2017 at 7:03 AM, Pieter Wiid  wrote:
> If the digit force is the second character, I found that GPR1 is not set
> (can prove it with traces).

AW: Re: edmk instruction

2017-11-01 Thread Peter Hunkeler 
>UNPK CL15,PL7 would also accomplish this task, as you're not really using any 
>of ED's power.


The rightmost byte in the CL15 field will have the "sign" in the left nibble. 
So an additional instruction after the UNPK is needed:
OI  CL15+14,X'F0'


--
Peter Hunkeler