On 2012-05-23 16:42, John Ehrman wrote:
Paul Gilmartin asked:
So, I wonder: If I code:
MVC X+OFFSET,=C'string'
is the implied length as:
MVC X+OFFSET(L'X),=C'string'<-- This one!
or:
MVC X+OFFSET(L'X-OFFSET),=C'string'
Implied lengths are always taken from the first term in the operand. Thus,
the implied length of (X+1) is L'X, while the implied length of (1+X) is
L'1, or 1.
This is a feature I use often when building variable WTO texts and using
EQUates for the relative positions into the TEXT= work area. Stick the
length in the second operand, something like this incredibly snipped example
with stuff not necessarily in the order where I'd code it (professionals at
work, do not attempt this at home, too lazy to invoke fixed-width fonts,
yeah I'm coding this off the top of my head so there are better ways but I
'm trying to explain the principle...):
WTOTEXT DS AL2,CL119 in a DSECT
MSG0001I DC AL2(L'MSG0001IT)
MSG0001IT DC C'Job XXXXXXXX produced this name'
MSG0001I_JOBN EQU 2+4,L'TIOCNJOB,C'C'
MVC WTOTEXT(2+L'MSG0001IT),MSG0001I
MVC MSG0001I_JOBN+WTOTEXT,TIOCNJOB
The above can be tweaked with the MVC2 stuff to make it even better, but
it's past 5...
--
M. Ray Mullins
Roseville, CA, USA
http://www.catherdersoftware.com/
German is essentially a form of assembly language consisting entirely of far
calls heavily accented with throaty guttural sounds. ---ilvi
French is essentially German with messed-up pronunciation and spelling.
--Robert B Wilson
English is essentially French converted to 7-bit ASCII. ---Christophe Pierret
[for Alain LaBonté]
