¿ªÔÆÌåÓý

  1. H390-Vm
  2. Messages
Single Messages Topics Expanded Polls

Re: CMS cashed during an HX of a REXX program

 

You have a good point about the numeric digits 10000, but should it cause CMS to abend bad enough to stop completely?

Bert

On Thu, Apr 13, 2023, 10:17 Joe Monk <joemonk64@...> wrote:
Of course its going to crash.

numeric digits 10000? really? you want 10000 places of?precision? the normal setting is 9.

so this statement "IF A//1000 = 0 THEN DO" causes a math calculation with 10000 places behind the decimal point.Why?

Joe

On Thu, Apr 13, 2023 at 10:05?AM Bertram Moshier <herc370390vm@...> wrote:
Hello,

I got the DMS error messages:

hx ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
DMSFRE161T INVALID DMSFRET CALL FROM F9041A, ERROR NUMBER 6. ? ? ? ?
DMSABN152T SYSTEM ABEND 0F8 CALLED FROM F9041A WHILE 'UFDBUSY' = 02.
CP ENTERED; DISABLED WAIT PSW '00020000 60F8F730' ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
CP? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

This is the REXX program:

/* */ ? ? ? ? ? ? ? ? ? ? ?
NUMERIC DIGITS 10000 ? ? ?
A = 0 ? ? ? ? ? ? ? ? ? ? ?
B = 0 ? ? ? ? ? ? ? ? ? ? ?
DO FOREVER ? ? ? ? ? ? ? ?
? A = A + 1 ? ? ? ? ? ? ? ?
? IF A//1000 = 0 THEN DO ?
? ? SAY TIME() '-' A ? ? ?
? ? B = B + 1 ? ? ? ? ? ? ?
? ? IF B//20 = 0 THEN DO ?
? ? ? 'CLS' ? ? ? ? ? ? ? ?
? ? ? B = 0 ? ? ? ? ? ? ? ?
? ? ? END ? ? ? ? ? ? ? ? ?
? ?END ? ? ? ? ? ? ? ? ? ?
END? ? ? ? ? ? ? ? ? ? ? ??


?
Join [email protected] to automatically receive all group messages.