On Fri, 6 Jan 2023, at 02:48, Bertram Moshier wrote:
Hello,
I'm getting DMSIPT143T on a very simple REXX program.
DMSIPT143T ADDESSING EXCEPTION OCCURRED AT F2A6FC IN SYSTEM ROUTINE EXEC,
RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
I've read the later replies on this thread, but couldn't help thinking that
it would have been useful if you'd told us if the program actually ran
at all, and if so, how far it got.
Wouldn't one at least possibly expect this program to fail at some
point, when a exceeds the maximum value of an integer at whatever
the "numeric digits" value is?
Also, I question the wisdom of
rc = syssleep(1)
as it conflates the normal use of "rc" (to represent the return
code from an issued command) with the returned value from
a function.
The REXX program is:
/* */
if RxFuncQuery( 'SysLoadFuncs' ) <> 0 then
do
call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
call SysLoadFuncs
end
a = 0
do forever
a = a + 1
say a
if a//20 = 0 then do
'cls'
rc = syssleep(1)
end
end
--
Jeremy Nicoll - my opinions are my own.
Jeremy Nicoll