Wouldn't this be simpler still?
MACRO
&LAB MVC2 &TARGET,&SOURCE
DS 0H
&LAB DC X'D2',AL1(L'SOURCE-1),S(&TARGET),S(&SOURCE)
MEND
Chuck
Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
[email protected]
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On
Behalf Of John Ehrman
Sent: Thursday, May 17, 2012 5:08 PM
To: [email protected]
Subject: Re: MVC with 2nd operand length
Ray Mansell provided this tidier version:
>So then this simpler variation ought to work:
>
> Macro
>&Lab MVC2 &Target,&Source
>&Lab MVC &Target(0),&Source X'D200',S(&Target),S(&Source)
> Org *-5 Back up to length field
> DC AL1(L'&Source-1) Overlay source length (-1)
> Org *+4 Step to next instruction
> MEnd
Thanks!
John Ehrman
