On 2/21/2014 8:26 AM, Steve Comstock wrote:
Well, according to Martin, it's your macro. So, what say
you? Is it required?
Others have written similar macros. Experimentation shows that mine
generates a bad instruction if the comma is not present:
MVC2 0(R4),QvsImgLogicalPartitionName
+ MVC 0(8R4),QvsImgLogicalPartitionName
versus:
MVC2 0(,R4),QvsImgLogicalPartitionName
+ MVC 0(8,R4),QvsImgLogicalPartitionName
MACRO ,
&LABEL MVC2 &TARGET,&SOURCE
PUSH PRINT,NOPRINT
PRINT OFF,NOPRINT
MVC &TARGET,&SOURCE
ORG *-6
POP PRINT,NOPRINT
&MVC2LEN SETA L'&SOURCE .Get source length
&I1 SETA INDEX('&TARGET','(') .Look for paren
AIF (&I1 GT 0).PAREN .Branch if paren
&LABEL MVC &TARGET.(&MVC2LEN),&SOURCE
MEXIT , .Exit
.PAREN ANOP ,
&C1 SETC '&TARGET'(1,&I1) .Get left side
&C2 SETC '&TARGET'(&I1+1,*) .Get right side
&LABEL MVC &C1.&MVC2LEN.&C2,&SOURCE
MEXIT , .Exit
MEND
--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/
