MVC with 2nd operand length

[John Ehrman]

This macro uses the length attribute of the second operand as the length
value in the MVC:
        Macro
&Lab    MVC2  &Target,&Source
&Lab    CLC   0(0,0),&Source    X'D500 0000',S(&Source)
        Org   *-6               Back up to first byte of instruction
        LA    0,&Target.(0)     X'4100',S(&Target),S(&Source)
        Org   *-4               Back up to first byte of instruction
        DC    AL1(X'D2',L'&Source-1)  First 2 bytes of instruction
        Org   *+4               Step to next instruction
        MEnd

Just write
        MVC2  Target,=C'Whatever you like'

John Ehrman