Re: ILR012W ALL LOCAL PAGING SPACE IS FULL OR BAD, ASM WAIT03C RSN=01

The “RSMDATA ADDRSPACE ALL” can also help and does a lot of the leg-work for you. Rob Scott Rocket Software From: IBM Mainframe Discussion List On Behalf Of Jim Mulder Sent: 04 September 2020 20:47 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ILR012W ALL LOCAL PAGING SPACE IS FULL OR BAD, ASM

Re: Constant Identifiers

On 2020-09-06 13:33, Paul Gilmartin wrote: On Sat, 5 Sep 2020 08:13:42 +1000, Robin Vowels wrote: As for writing formulas, I prefer to follow a well-known formula, thus: volume = 4/3 * 3.14159 * radius**3 Beware! Than might left-associate as: volume = ( 4/3 ) * 3.14159 * radius**3

Re: REXX true/false (was Constant Identifiers)

To expand, I had some code monitoring input data as it arrived, waiting for a fault condition that was in several parts, order unknown. So I used a few Rexx variables as Booleans, as they made the conditional code shorter and clearer. But someone will reuse my code another day (perhaps me), and

Re: Constant Identifiers

On Sun, 6 Sep 2020 17:25:45 +1000, Robin Vowels wrote: >>> >> Beware! Than might left-associate as: >> volume = ( 4/3 ) * 3.14159 * radius**3 >> ... and the quotient of integers, 4/3, is 1. > >No it's not. 4/3 yields 1.33.. to 15 digits in PL/I. >You're thinking of FORTRAN. > And

Re: Constant Identifiers

As I remember PL/1 from the 1980s (and very definitely pre-LE) the rules for implicit conversions were well-defined, but needed care. Simply adding parentheses would allow me to control the use of integer operations. I'll be watching for more recent (relevant) exerience :-) Rupert On Sun., Sep.

Re: Constant Identifiers

From: "Robert Prins" Sent: Monday, September 07, 2020 3:42 AM On 2020-09-06 13:07, Paul Gilmartin wrote: On Sun, 6 Sep 2020 17:25:45 +1000, Robin Vowels wrote: Beware! Than might left-associate as: volume = ( 4/3 ) * 3.14159 * radius**3 ... and the quotient of integers, 4/3, is 1.

Re: REXX true/false (was Constant Identifiers)

In the following example, TRUE = (1 - 1 = 0 & 1 ¬= 0) [or whatever is more appropriate], it is then sufficient e.g. to code: IF 4 ¬= 6 & TRUE THEN ELSE IF ¬TRUE THEN   I.e. TRUE can be defined as a Boolean '1'b in REXX, as per above. On 06/09/2020 20:43, Paul Gilmartin wrote: > On Sun, 6 Sep

Re: REXX true/false (was Constant Identifiers)

First, that code is highly obfuscated. Why would you ever want to write "IF foo & TRUE" instead of "IF foo"? Second, "ELSE IF ¬TRUE THEN foo" is dead code. Third, there are no booleans in REXX; the only data type is character string. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3

Re: Constant Identifiers

No: see https://www.ibm.com/support/knowledgecenter/SSY2V3_5.3.0/lr/resarithoprt.html#resarithoprt__fig16, Tables 3 and 4. For 4/3, the scale factor is 1, not 0. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion

Re: Constant Identifiers

4/3 yields 1.3, 04/3 yields 1332, ... However, DIVIDE(4,3,16,15) yields 1.3...2 to 15 digits -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Robin Vowels Sent: Sunday, September 6, 2020 7:58

Re: REXX true/false (was Constant Identifiers)

"ELSE IF ¬TRUE THEN " was just to demonstrate that "TRUE" is Boolean. On 07/09/2020 05:24, Seymour J Metz wrote: > First, that code is highly obfuscated. Why would you ever want to write "IF > foo & TRUE" instead of "IF foo"? > > Second, "ELSE IF ¬TRUE THEN foo" is dead code. > > Third,

Re: PL/I declarations (was: Constant Identifiers)

But if it quacks like a hippopotamus than it is not a duck. FIXED BIN(fo0,0) and FIXED DEC(foo,0) do not quack like an integer. Would you call 3.0E0 an integer? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion

Re: PL/I division (was: Constant Identifiers)

Yeah, I misread the table. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Robin Vowels Sent: Monday, September 7, 2020 1:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PL/I division (was:

Re: Constant Identifiers

From: "Paul Gilmartin" <000433f07816-dmarc-requ...@listserv.ua.edu> To: Sent: Sunday, September 06, 2020 1:33 PM On Sat, 5 Sep 2020 08:13:42 +1000, Robin Vowels wrote: As for writing formulas, I prefer to follow a well-known formula, thus: volume = 4/3 * 3.14159 * radius**3 Beware!

Re: Constant Identifiers

From: "Bob Bridges" Sent: Monday, September 07, 2020 8:29 AM To tell you the truth, I haven't written for a compiler in long enough that I don't have any idea which ones do what. I wouldn't trust REXX, CLIST or VBA to do it; I try to assume the worst, and make such things explicit. Actually

Re: REXX true/false (was Constant Identifiers)

On Mon, 7 Sep 2020 02:31:33 +0100, CM Poncelet wrote: >In the following example, >TRUE = (1 - 1 = 0 & 1 ¬= 0) [or whatever is more appropriate], >it is then sufficient e.g. to code: >IF 4 ¬= 6 & TRUE THEN >ELSE IF ¬TRUE THEN >  >I.e. TRUE can be defined as a Boolean '1'b in REXX, as per above.

Re: REXX true/false (was Constant Identifiers)

ARG DEBUG IF DEBUG = 'DEBUG' THEN ,   TRACE I TRUE = (1-1=0 & 4¬=6) TVAL = '0011'||X2B(D2X(TRUE)) SAY 'TRUE = 'TRUE SAY 'TVAL = 'TVAL IF TRUE THEN SAY 'TRUE' IF TVAL THEN SAY 'TVAL' IF ¬TRUE THEN SAY 'NOT TRUE' IF ¬TVAL THEN SAY 'NOT TVAL' EXIT 0   gives (in ASCII):   TRUE = 1 TVAL = 00110001 TRUE

Re: Constant Identifiers

On 2020-09-07 13:05, Joe Monk wrote: "No it isn't. 4/3 yields 1.33... to 15 digits, and is of precision (15,14)" Depends on RULES(IBM) or RULES(ANS). If its RULES(IBM) it will never be integer division. It doesn't depend on whether IBM rules or ANS rules are in force. What I said it

Re: PL/I division (was: Constant Identifiers)

On 2020-09-07 14:56, Seymour J Metz wrote: No: see https://www.ibm.com/support/knowledgecenter/SSY2V3_5.3.0 /lr/resarithoprt.html#resarithoprt__fig16, Tables 3 and 4. For 4/3, the scale factor is 1, not 0. 4 is FIXED DECIMAL (1,0). 3 IS fixed decimal (1,0). 4/3 is fixed decimal (15,14).* See

Re: REXX true/false (was Constant Identifiers)

It isn't boolean; everything in REXX is a character string. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of CM Poncelet Sent: Monday, September 7, 2020 1:30 AM To: IBM-MAIN@LISTSERV.UA.EDU

Re: ILR012W ALL LOCAL PAGING SPACE IS FULL OR BAD, ASM WAIT03C RSN=01

> ASSBNVSC and ASSBVSC tell you the number of slots each address space is >using. You can look at those in the dump. To make that easier, use the IPCS 'hidden' panels, specifically 2.6i (that's the level2 toolkit). Use SLOTCNT, it will do the math for you and you'll see the who gobbled up

Re: Ransoming a mainframe disk farm

NO, but you can very easily IPL those utilities from virtual tape. In fact, one of the first things I do when I enter a site to maintain it is create a single pack IPL volume of their running system and DFdss it to virtual tape and I make (several) copies of the various IPLable utilities on

Re: PL/I declarations (was: Constant Identifiers)

On 2020-09-07 15:15, Seymour J Metz wrote: No, FIXED BIN(15,0) is not an integer, and the precision rules can be very annoying to those with a Fortran mindset. If it looks like a duck and quacks like a duck, it probably is a duck. An integer is a whole number. FIXED BINARY (15) and FIXED

Re: Ransoming a mainframe disk farm

If it's on the network then you know someone can find a way in, and once they are in then all bets are off. Given the newer technology that has been, and is being, developed to crack passwords it is only a matter of when and not if. Are WORMs really protected if they are in a virtual storage

Re: REXX true/false (was Constant Identifiers)

Loss of Internet access would have been sheer luxury! (insert The Four Yorkshiremen sketch here) as this was the 1980s :-) The Internet was there, but nobody had heard of it unless he was the sort of geek who soldered his own modem cable, and WWW was probably not even a twinkle in timbl's eye

Re: REXX true/false (was Constant Identifiers)

You didn't read The World According to ARPA? As for the WWW, I'd rather we had stuck to Gopher. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Rupert Reynolds Sent: Sunday, September 6, 2020

Re: Constant Identifiers

Ah, that makes more sense than my first guess. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Logic is an organized way of going wrong with confidence. -Kettering's Law, quoted in _The Number of the Beast_ by Robert A Heinlein. */ -Original Message- From: IBM Mainframe

Re: Constant Identifiers

"Seymour J Metz" wrote in message news:bl0pr05mb5156591ed17d7bddfaee695299...@bl0pr05mb5156.namprd05.prod.outlook.com... The default type for 3 and 4 is FIXED BINARY. No it's not. Constants have the type and precision of the constant. Thus, 3 and 4 are both FIXED DECIMAL (1) > PL/I does not

Re: Constant Identifiers

- Original Message - From: "Paul Gilmartin" <000433f07816-dmarc-requ...@listserv.ua.edu> Sent: Sunday, September 06, 2020 11:07 PM On Sun, 6 Sep 2020 17:25:45 +1000, Robin Vowels wrote: And C: 662 $ cat typetest.c #include int main() { printf( "%10.6f\n", 4/3 * 3.14159 );

Re: Constant Identifiers

On 2020-09-07 09:35, Joe Monk wrote: "PL/I doesn't have integers." Sorry Shmuel, youre incorrect. FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4 byte integer. "The ratiio 4/3 is FIXED BIN," No, its FIXED DECIMAL (1,0)... No it isn't. 4/3 yields 1.33... to 15

Re: Constant Identifiers

Whoops, I misread the chart. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Seymour J Metz Sent: Monday, September 7, 2020 1:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Constant

Re: Constant Identifiers

"No it isn't. 4/3 yields 1.33... to 15 digits, and is of precision (15,14)" Depends on RULES(IBM) or RULES(ANS). If its RULES(IBM) it will never be integer division. If its RULES(ANS) and the operands are unscaled, then it will be integer division. Joe On Sun, Sep 6, 2020 at 7:34 PM Robin

Re: REXX true/false (was Constant Identifiers)

Because I wasn't paying attention, I guess. Maybe I did do it that way in the past, but just now the below is what I remembered. Absent of me. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* God's never been disappointed in me, because he never had any illusions about me. -Clay

Re: Ransoming a mainframe disk farm

Or you just write protect all of your backups on virtual tape. Brian On Sat, 5 Sep 2020 15:38:04 +, Russell Witt wrote: >John, >But what happens if the virtual tape environment itself was over-written? That >is where the concept of "virtual WORM" devices can help. A virtual WORM volume

Re: Constant Identifiers

No, FIXED BIN(15,0) is not an integer, and the precision rules can be very annoying to those with a Fortran mindset. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Joe Monk Sent: Sunday,

Re: REXX true/false (was Constant Identifiers)

Yes, you can count on the truth values of 0 and 1 in REXX never changing. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Rupert Reynolds Sent: Sunday, September 6, 2020 8:12 AM To:

ZIGI Version 3.02 Released

The z/OS ISPF Git Interface version 3 release 02 has just been released. See https://zigi.rocks for more info and to clone get it here at https://github.com/wizardofzos/zigi If you haven't installed Git on z/OS then go to https://github.com/wizardofzos/zigi/wiki/0.-Installing-GIT for a

Re: Simple JES2 spool offload question

See Tuning work selection criteria about 2/3 of the way down the page it talks about using JOBNAME to the left or right of the slash in more detail. --Roger On Fri, Sep 4,

Re: Constant Identifiers

First, things that you do to trick a compiler into generating more efficient code can result in less efficient code. Second, comments may be essential but so are good names and maintainable code. If you want to have the people who update your code to bless you, use names instead of magic

SMF 119 sub-type 6 (interface Stats)

If anyone has experience with these records, I have a question. There are 2 section with this sub-type aside from the ID section. In the sample SMF files provided to me, I haven't seen a non-zero count for section 2. I have seen the count for section be 2. Can I assume that if the count for

Re: REXX true/false (was Constant Identifiers)

A simple true=1;false=0 should suffice for clarity. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Rupert Reynolds Sent: Sunday, September 6, 2020 12:43 PM To: IBM-MAIN@LISTSERV.UA.EDU

Re: REXX true/false (was Constant Identifiers)

Why? I don't even see why it would work, and it certainly does add clarity. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of scott Ford Sent: Sunday, September 6, 2020 12:03 PM To:

Re: Constant Identifiers

PL/I doesn't have integers. The ratiio 4/3 is FIXED BIN, with some number of bits after the binary point. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Paul Gilmartin

Re: REXX true/false (was Constant Identifiers)

Hindsight is a wonderful thing :-) On Sun, 6 Sep 2020 at 21:55, Seymour J Metz wrote: > You didn't read The World According to ARPA? As for the WWW, I'd rather we > had stuck to Gopher. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > >

Re: Constant Identifiers

"PL/I doesn't have integers." Sorry Shmuel, youre incorrect. FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4 byte integer. "The ratiio 4/3 is FIXED BIN," No, its FIXED DECIMAL (1,0)... Joe On Sun, Sep 6, 2020 at 2:33 PM Seymour J Metz wrote: > PL/I doesn't have

Re: REXX true/false (was Constant Identifiers)

I have done things like true =‘Y’ and then If true .. end Scott On Sun, Sep 6, 2020 at 8:11 AM Rupert Reynolds wrote: > To expand, I had some code monitoring input data as it arrived, waiting for > > a fault condition that was in several parts, order unknown. > > > > So I used a few

Re: Constant Identifiers

The default type for 3 and 4 is FIXED BINARY. PL/I does not have an integer type, but the DIVIDE() BIF can be used to do an integer divide, and assigning a quotient to a FIXED BIN(foo,0) variable may do what you want, depending on precision issues. -- Shmuel (Seymour J.) Metz

Re: Constant Identifiers

On 2020-09-06 13:07, Paul Gilmartin wrote: On Sun, 6 Sep 2020 17:25:45 +1000, Robin Vowels wrote: Beware! Than might left-associate as: volume = ( 4/3 ) * 3.14159 * radius**3 ... and the quotient of integers, 4/3, is 1. No it's not. 4/3 yields 1.33.. to 15 digits in PL/I.

Re: REXX true/false (was Constant Identifiers)

I don't see any advantage in 'Y', because then you have to code IF or WHEN variable = 'Y'. The advantage of Boolean is clarity in something like:- /* Rexx */ TRUE = (1=1) ... SELECT WHEN logmode = "D4A32782" & (GotASCII & GotVBMrecord) THEN do (from a similar exec I found in archives, not the

Re: REXX true/false (was Constant Identifiers)

It almost boils down to a matter of style, I suppose. The only thing against that is that I had no access to any sort of docs, as I said. I had no way of knowing whether 1 always represents Boolean true, or whether it's implementation dependent. TRUE = (1=1) acts as a reminder. /Now/ I have

Re: REXX true/false (was Constant Identifiers)

All REXX implementations use 0 and 1 for false and true. But I agree that loss of Internet access is crippling. May this be the last time. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of

Re: Constant Identifiers

To tell you the truth, I haven't written for a compiler in long enough that I don't have any idea which ones do what. I wouldn't trust REXX, CLIST or VBA to do it; I try to assume the worst, and make such things explicit. Actually I might not trust a compiler to do it, either, even if I knew

Re: Constant Identifiers

- Original Message - From: "Seymour J Metz" To: Sent: Monday, September 07, 2020 5:33 AM PL/I doesn't have integers. PL/I has always had integers. The ratiio 4/3 is FIXED BIN, No it not. It is FIXED DECIMAL -- as I said a few days ago. And it hasn't changed since. with some

Re: REXX true/false (was Constant Identifiers)

On Sun, 6 Sep 2020 12:03:18 -0400, scott Ford wrote: >I have done things like true =‘Y’ and then > >If true > .. >end > What language? That would certainly be a syntax error in Rexx. And why? You could just omit the "if true" and code: do .. end n Sun, 6 Sep