Re: Any "standard" way to access the values of the COBOL PROGRAM-ID, COPYRIGHT and/or SERVICE strings?

Replying to my own post, I have found some pieces that I may be able to use after a more thorough reading of the LE Vendor Interfaces manual. Newer COBOL-only features like the COPYRIGHT option are not covered, but there are clues there to get to the SERVICE option value as well as the PPA

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

On 22/04/2024 10:09 am, Seymour J Metz wrote: It shortens expressions, upper cases automatically and, IMHO, is more readable. Was that a reply about the usefulness of the default value being the variable name, uppercase? If so, I still don't see it. Can you give an example of how you would

Re: REXX vs other languages -- EXECIO intuitiveness

Oh, Unix. Sorry, you did say "OMVS", I just didn't pay attention. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* The sad thing for us rationalists is that the vast majority of the human race would rather be told that "two and two is five and make no mistake about it" than "I

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

I was referring to 'I once found CMS ISPF to reauire "address isredit 'isredit '". Otherwise the command went to ISPEXEC.', which clearly is b0rk3n. My apologies for not making that clear. As for "LEAVE = 'date'; LEAVE", it's perfectly valid but don't ever hand that in for a class I'm grading

Rexx and DSFS

Can a Rexx Rexx exec usefully reside in a DSFS? It would need to be marked as executable. The following doesn't make it clear: Is there better information in the DSFS User's Guide? -- gil

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

On Sun, 21 Apr 2024 23:02:56 +, Seymour J Metz wrote: >Unclean! Did you report it as a bug? > I suspect it's WAD (BAD!) o LEAVE as the target of an assignment is a variable name. o Otherwise, LEAVE as the first token of an instruction is a keywod (LEAVE NAME) o Otherwise, LEAVE is a symbol

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

It shortens expressions, upper cases automatically and, IMHO, is more readable. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Andrew Rowley

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

On 22/04/2024 1:19 am, Seymour J Metz wrote: 2. There is a decades-long argument about NOVALUE. I am in the camp that believes the default behavior to be too useful to give up; others believe that it is dangerous. Genuine curiosity: what is the use of the default behaviour? I have

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

Unclean! Did you report it as a bug? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Paul Gilmartin

Re: REXX vs other languages

I've seen code that does. I would never bless it in a code review. To me the big advantage is that adding language features doesn't break existing code. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר

Re: REXX vs other languages -- EXECIO intuitiveness

Only in a EUnix environment. I don't know if syscalls is enough or if you actually have t be running under the shell. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

There are languages with a covention that method names end in ain a question mark iff they are Boolean. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on

Re: REXX vs other languages -- EXECIO intuitiveness

I am looking at going OOREXX or NETREXX to make interfacing easier. I'm still researching how to proceed in the best way. I have Regina Rexx on both W11 and Suse LEAP 15.x I've been struggling with I/O because I'm too used to DSN type file systems as opposed to char streams. So I have to

Re: Value in SDWAEC1

Peter I am moving my code to the CBT shortly The point of the code is the analysis of is when SDWAEC1 and SDWAEC2 are different the relevant registers and PSW are those associated with SDWEC2 the one that called SDWAEC1 I could not have done this without your help Thank you I know If you

Re: Value in SDWAEC1

if I don't find a RB in the RB chain I do a CSVQUERY in the asid of SDWAPRIM if not I do NUCKLKUP Please be more complete in describing what you are truly doing (and trying to accomplish). For example, suppose you do find an RB for which RBOPSW matches SDWAEC1. In what way does that help

Re: REXX vs other languages -- EXECIO intuitiveness

On Sun, 21 Apr 2024 14:54:33 -0400, Bob Bridges wrote: >Wait, what? Are you saying TSO-REXX has LINEIN, CHAROUT and so on? > Not exactly: >...Although I do think EXECIO is nicely flexible. Still, I find myself >looking up the

Re: REXX vs other languages -- EXECIO intuitiveness

Wait, what? Are you saying TSO-REXX has LINEIN, CHAROUT and so on? ...Although I do think EXECIO is nicely flexible. Still, I find myself looking up the syntax occasionally when doing something unusual. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* [Hitler] has grasped the

Re: REXX vs other languages -- EXECIO intuitiveness

Long before I started using ooRexx, before I even knew it existed in fact, I talked my boss at one company into letting me install a copy of Regina on my company workstation in order to save him some work. It turned out to be an interesting project. Apparently until then someone would

Re: REXX vs other languages

On 2024-04-22 02:13, Paul Gilmartin wrote: On Mon, 22 Apr 2024 01:52:14 +1000, Robin Vowels wrote:o ... One would not use as variable such common keywords as mentioned above. The real advantage is that one doesn't need to keep in mind all those uncommonly-used words that might be used as

Re: Big LPAR vs small LPAR and DataSharing.

200 processors in a CEC? A couple of production sysplexes with fully configured internal CFs and some test LPARS+CF to use any spare capacity (capacity which could be used in production should it be needed) and you could easily get to 200 processors. One customer I knew, had a test sysplex

Re: REXX vs other languages

On Mon, 22 Apr 2024 01:52:14 +1000, Robin Vowels wrote:o >... >One would not use as variable such common keywords as mentioned above. > >The real advantage is that one doesn't need to keep in mind >all those uncommonly-used words that might be used as variable names, > somewhat the opposite.

Re: REXX vs other languages

On 2024-04-22 00:05, Seymour J Metz wrote: While PL/I has no reserved words, it is considered bad form to use a keyword as an entry or variable name. The same principle applies to Rexx; using, e.g., DO, ELSE, END, EXIT, IF, ITERATE, OTHERWISE, PROCEDURE, THEN, WHEN, as a variable name can make

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

On Sun, 21 Apr 2024 15:19:40 +, Seymour J Metz wrote: >A few comments. > > 1. It's best to avoid names that a,e, or are similar to, keywords. > Astonishment factor with such as "LEAVE = 'date'; LEAVE". No Rexx syntax error, but unexpected result. > 2. There is a decades-long argument about

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

A few comments. 1. It's best to avoid names that are, or are similar to, keywords. 2. There is a decades-long argument about NOVALUE. I am in the camp that believes the default behavior to be too useful to give up; others believe that it is dangerous. 3. The default environment for

Re: REXX vs other languages -- EXECIO intuitiveness

On Sun, 21 Apr 2024 14:40:26 +, Seymour J Metz wrote: >Given that REXX in an OMVS environment supports ANSI stream I/O, why use >EXECIO? > OMVS stream I/O doesn't support CKD /PO/PS data sets. What about DSFS? Does the DSFS User's Guide mention any restrictions with Rexx stream I/O? --

Re: REXX vs other languages -- EXECIO intuitiveness

Many platforms support ooRexx and Regina, whiinclude ANSI stream I/O. EXECIO is nice when portability is an issue, but otherwise I use stream. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

I frequently use single letter control variables in short DO loops. But my primary criterion is legibility. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List

Re: S0c4 creation

There are certain virtual storage addresses that are made read-only (by default) on purpose , protected even from programs running key0. Including in this list is zero and areas such as PLPA. Another guaranteed bad address for reference 0c4 is 7BAD and this explicit value is used on

Re: REXX vs other languages -- EXECIO intuitiveness

Given that REXX in an OMVS environment supports ANSI stream I/O, why use EXECIO? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Paul

Re: S0c4 creation

Do you need to distinguish among possible reasons? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Peter

Re: S0c4 creation

There are addresses guarantied to never be valid. I would suggest using one of them rather than relinking a nonrefreshable program into an APF library as RENT. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר

Re: REXX vs other languages

While PL/I has no reserved words, it is considered bad form to use a keyword as an entry or variable name. The same principle applies to Rexx; using, e.g., DO, ELSE, END, EXIT, IF, ITERATE, OTHERWISE, PROCEDURE, THEN, WHEN, as a variable name can make the code hard to read. -- Shmuel (Seymour

Re: Big LPAR vs small LPAR and DataSharing.

In short, giant LPARs can definitely be problematic. Similarly, too small LPARs can be problematic. Somewhere in the middle is ideal, but where that is will depend. First off, the most significant impact is you don't want LPARs whose processor count is so high that it crosses drawers. (In

Re: S0c4 creation

I'd suggest to be very careful with such codings; a co-worker some years ago did this and - by accident - the code ran privileged, which caused the whole LPAR to hang. Same goes for ST at address zero, which was suggested by another poster. Maybe it would be better to write protect your own

Re: S0c4 creation

Try to store something at address zero will get you 0c4-4 Rob Scott Sent from Samsung Mobile on O2 Sent from Outlook for Android From: IBM Mainframe Discussion List on behalf of Peter <05e4a8a0a03d-dmarc-requ...@listserv.ua.edu>

Re: S0c4 creation

It's a sandbox system Any sample JCL to relink a module from non rent to rent ? On Sun, Apr 21, 2024, 1:21 PM Rupert Reynolds wrote: > If it's your STC, then include something dirty like > > BANG NC16(4,R0),16(R0) AND CVT pointer with itself--should fail > > although I should say that

Re: S0c4 creation

If it's your STC, then include something dirty like BANG NC16(4,R0),16(R0) AND CVT pointer with itself--should fail although I should say that might raise eyebrows on a production system ;-) Roops On Sun, 21 Apr 2024, 08:45 Peter, < 05e4a8a0a03d-dmarc-requ...@listserv.ua.edu>

Re: REXX vs other languages

On 2024-04-21 04:22, Paul Gilmartin wrote: On Sat, 20 Apr 2024 19:50:56 +0200, Rony G. Flatscher wrote: ... There are *no* reserved words in Rexx like in many other languages. (This alleviates one to have to learn them by heart. But more importantly, should the language get additional

Re: S0c4 creation

The easiest way that I know is to link a non re-entrant program as re-entrant into an APF authorized library and have the STC execute that program. Easy S0C4 when it modifies itself. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key -

Re: REXX vs other languages WAS: Rexx numeric digits and scientific notation question

On 2024-04-21 15:38, Paul Gilmartin wrote: On Sat, 20 Apr 2024 23:58:18 -0500, Bruce Hewson wrote: I use "cnt" for my loop counters. I stopped using FORTRAN style single character variable names when I started coding in REXX. I thought FORTRAN allowed six. It did. Now it allows many

S0c4 creation

Hello Good morning Is there any sample Jobs or I can enforce a s0c4 abend in a Started task ? I am trying to teach SLIP trap to a rookie..Is there any other efficient way to do this? Peter -- For IBM-MAIN subscribe / signoff

Re: Big LPAR vs small LPAR and DataSharing.

I found a youtube video of the GSE presentation: https://www.youtube.com/watch?v=WAjMr4q4lUk Slide 10 contains the topic. It's not fully clear what "system does mean". Refer is to the multiprocessor factor that should be related to CEC configuration and at the same time talks about adding a