On Sat, 16 Aug 2014 16:26:52 +0200 Peter Hunkeler <[email protected]> wrote:
:>> If you could post your current code, that could be helpful.
:>Here is a snipped that might help to illustrate what I need:
:> J WTX&K&SYSNDX.A
:>WTX&K&SYSNDX WTO '&IDB&WTOTEXT(&K)',
:> ROUTCDE=&ROUTCDE,DESC=&DESC,MF=L
:>WTX&K&SYSNDX.L EQU *-WTX&K&SYSNDX
:>WTX&K&SYSNDX.A DS 0H
:> MVC &WTOP.(WTX&K&SYSNDX.L),WTX&K&SYSNDX
:>My macro generates code to move the varying length code generated by the WTO.
The symbol generated by WTX&K&SYSNDX.L represents this value. I'd need this
value for the macro code to substract it from the lenght value indicated by a
macro invocation parm (WORKL= in my orignal post) and check it does notbecome
negative.
I typically use
0S(expression)
which will cause an assembly error if the value is negative. It will also
cause an assembly error if the value is more than 4095, but that is never an
issue in my uses.
--
Binyamin Dissen <[email protected]>
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.
