开云体育

CMS cashed during an HX of a REXX program

Bertram Moshier All Messages By This Member #5090 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? ? ? ? ? ? ? ? ? ? ? ?? ?
Joe Monk All Messages By This Member #5091 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 toggle quoted message Show quoted text 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? ? ? ? ? ? ? ? ? ? ? ?? ?
Dennis Boone All Messages By This Member #5092 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' Er, so, REXX tried to allocate storage for that, and it apparently failed to get it, but didn't notice, then tried to return the storage? De
Bertram Moshier All Messages By This Member #5093 You have a good point about the numeric digits 10000, but should it cause CMS to abend bad enough to stop completely? Bert toggle quoted message Show quoted text 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? ? ? ? ? ? ? ? ? ? ? ?? ?
Bertram Moshier All Messages By This Member #5094 Yeah, but should CMS die so badly it can't continue?? If REXX incorrectly maintained its allocated memory, shouldn't it be REXX to die and not all of CMS? I see two issues:? REXX has an allocation of memory issue and CMS shouldn't let a REXX program crash it. Bert toggle quoted message Show quoted text On Thu, Apr 13, 2023, 10:34 Dennis Boone <drb@...> wrote: ?> 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' Er, so, REXX tried to allocate storage for that, and it apparently failed to get it, but didn't notice, then tried to return the storage? De
Dave Wade All Messages By This Member #5095 开云体育 Folks, From what I remember, and its been a while, whilst BREXX accepts NUMERIC DIGITS statements but anything above 16 is ignored. Dave ? toggle quoted message Show quoted text From: [email protected] <[email protected]> On Behalf Of Bertram Moshier Sent: Friday, April 14, 2023 9:37 AM To: [email protected] Subject: Re: [h390-vm] CMS cashed during an HX of a REXX program ? Yeah, but should CMS die so badly it can't continue?? If REXX incorrectly maintained its allocated memory, shouldn't it be REXX to die and not all of CMS? ? I see two issues:? REXX has an allocation of memory issue and CMS shouldn't let a REXX program crash it. ? Bert On Thu, Apr 13, 2023, 10:34 Dennis Boone <drb@...> wrote: ?> 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' Er, so, REXX tried to allocate storage for that, and it apparently failed to get it, but didn't notice, then tried to return the storage? De

Previous Topic Next Topic