I profiled the C++ code using APA. It's spending all it's time bit
twiddling and doing mod division. The Java version uses a much more
efficient implementation that uses an array of boolean's which isn't
initialized to turn the bits on.
On 25/06/2021 1:01 pm, Andrew Rowley wrote:
On
On 25/06/2021 2:34 pm, David Crayford wrote:
If you've got the XLC 2.4.1 it will will be installed in the
/usr/lpp/cbc/xlclang/exe directory. It's 64-bit only. We use this
compiler exclusively now. It's really cool and has neat features such
as type checking printf() format flags at compile
On 25/06/2021 12:44 pm, Ed Jaffe wrote:
On 6/24/2021 9:34 PM, David Crayford wrote:
If you've got the XLC 2.4.1 it will will be installed in the
/usr/lpp/cbc/xlclang/exe directory. It's 64-bit only. We use this
compiler exclusively now. It's really cool and has neat features such
as type
On 6/24/2021 9:34 PM, David Crayford wrote:
If you've got the XLC 2.4.1 it will will be installed in the
/usr/lpp/cbc/xlclang/exe directory. It's 64-bit only. We use this
compiler exclusively now. It's really cool and has neat features such
as type checking printf() format flags at compile
If you've got the XLC 2.4.1 it will will be installed in the
/usr/lpp/cbc/xlclang/exe directory. It's 64-bit only. We use this
compiler exclusively now. It's really cool and has neat features such as
type checking printf() format flags at compile time.
On 25/06/2021 12:22 pm, Andrew Rowley
On 25/06/2021 1:45 pm, David Crayford wrote:
Interesting! Try compiling using xlclang++ instead of xlc and see how
you go. xlclang++ has a far superior standard library.
I'm not sure whether it is installed on my system. I tried it and it
fails, I think it is looking for module CLCDRVR. Any
Assuming that novalue is not active, you can use a symbol anywhere that allows
an expression;
foo = ISPEXEC
ADDRESS VALUE foo
The basic form of ADDRESS does not allow an expression for the environment,
hence an unquoted name is just uppercased.
--
Shmuel (Seymour J.) Metz
No, by multi-line string I mean a string literal split across multiple lines of
the source code, whether or not it contains CR, LF or NEL. In, e.g., HLASM you
can split a string across multiple lines, although the syntax is ugly.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
Interesting! Try compiling using xlclang++ instead of xlc and see how
you go. xlclang++ has a far superior standard library.
Nothing matches the speed of C :)
mckoss-c830;14259;5.0;1;algorithm=wheel,faithful=yes,bits=1
On 25/06/2021 10:22 am, Andrew Rowley wrote:
Dave Plummer has a series of
The REXX language doesn't support callback; the API does. When an application
calls IRXINIT, each of MODNAMET, SUBCOMTB and PACKTB can specify call-back
routines.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion
Thank you Lisa, please do keep posting direct links like this as these happen.
It's about time we stop signing up for marketing and "research", before we can
get to content.
- KB
‐‐‐ Original Message ‐‐‐
On Thursday, June 24th, 2021 at 10:13 PM, Lisa Gundy wrote:
> If you are new to
Dave Plummer has a series of Software Drag Racing videos, using a
program to search for prime numbers as a simple speed test for different
languages and/or hardware. The "drag race" description acknowledges that
it isn't a comprehensive benchmark, just a test of speed at one
particular simple
On 24/06/2021 9:33 pm, Seymour J Metz wrote:
That wiki article describes exactly the mechanism I was referring to.
That's interesting. REXX doesn't support functions as first class
objects so how can it support callbacks? I can image some monstrous
concoction using "interpret". Maybe there
On 24/06/2021 9:44 pm, Jeremy Nicoll wrote:
On Thu, 24 Jun 2021, at 01:57, David Crayford wrote:
For example, to create and ISPF in Lua you instantiate and ISPF object
and then communicate with it by calling methods
https://lua4z.github.io/Lua4z/modules/ispf.html.
That shows eg that you can
On 25/06/2021 6:37 am, Seymour J Metz wrote:
What else?
Stack and attention handling. Supporting existing REXX-aware code. Possibly
rxapi. Address size issues.
Would a build of OoRexx without fopen() be useful?
Presumably David found it useful.
I value languages that support the MVS file
It's not DFSORT. It's code that does a character compare against some literal
to see if the RACF level is at least 'x' (that presumably supports some
particular function or behavior).
Level = sysvar('SYSLRACF')
If Level > '7730' ... /* support is available ... */
That compare will be false for
Ah, I see; by "multi-line string" you mean, I guess, a string with something
like an ASCII CRLF embedded in it. But isn't that a limitation not of REXX but
of EBCDIC? Or have I still misunderstood you?
---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
/* Unable to locate coffee.
That brings up an interesting question (by which I mean "a question about
which any answers y'all might provide will interest me, at least"). I quote
most constants in REXX, depending as little as possible on REXX's
interpretation of uninitialized variables. Like so:
address ISPEXEC 'VGET '
The first time I wrote a 200-line program in REXX (a nightly update for
ACF2), I wondered whether I should feel guilty about it. But that was two
decades ago.
---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
/* If God had wanted me to touch my toes, he would have put them on my
knees.
> What else?
Stack and attention handling. Supporting existing REXX-aware code. Possibly
rxapi. Address size issues.
> Would a build of OoRexx without fopen() be useful?
Presumably David found it useful.
> Would a port of OoRexx readily support ADDRESS SYSCALL, ADDRESS SDSF,
> ADDRESS
> No, that's a single-linee string.
No, it's the concatenation of two strings with a separating blank.
> The loop setup, iteration, and termination should be part of the DO,
In a C for statement, not in general.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
It causes an ENDREQ.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, June 24, 2021 5:12
In the days of cards you didn't need no stinking /*EOF
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Gibney, Dave [gib...@wsu.edu]
Sent: Thursday, June 24, 2021 5:21
The obvious problem here is that the manuals specify that SYSLRACF
returns the RACF level [as a character string], but give zero guidance
about valid ways to interpret or use the value. If this will always be
the suffix of an FMID AND the rules for RACF FMID assignment guarantee
that comparing as
If you are using an ACB for job submission it terminates the stream, thus
generating a job number, without closing the file. So you can keep the file
open for further job submission. Strangely enough, although /*EOF is not a JES3
JECL statement, it works on JES3 as well.
Lennie
In the days of cards, when your //SYSIN DD * might be the last file in the
current deck on the reader
> -Original Message-
> From: IBM Mainframe Discussion List On
> Behalf Of Paul Gilmartin
> Sent: Thursday, June 24, 2021 2:12 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ISPF Edit:
Like war, absolutely nothin'
On Thu, Jun 24, 2021 at 5:12 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> On Thu, 24 Jun 2021 12:28:18 +, Seymour J Metz wrote:
> >
> >It is easy to copy some or all of the data to an internal reader,
> followed by a '/*EOF'. ...
On Thu, 24 Jun 2021 12:28:18 +, Seymour J Metz wrote:
>
>It is easy to copy some or all of the data to an internal reader, followed by
>a '/*EOF'. ...
>
I've never needed a '/*EOF'. What's it good for?
-- gil
--
For
How about an option to set either value (PTFs to swap values) and make
it a hold option for the user to test first?
On Thu, Jun 24, 2021 at 2:38 PM Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> On Mon, 21 Jun 2021 14:35:46 -0700, Charles Mills wrote:
>
> >Did you
On Tue, 22 Jun 2021 18:39:19 -0400, Bob Bridges wrote:
>Gil, I don't follow what you mean about multi-line strings. I know you can't
>mean this, which REXX handles just fine:
>
> Longstr='blah blah blah blah blah blah blah blah',
> 'blah blah blah blah blah blah blah blah blah'
>
No,
On Tue, 22 Jun 2021 11:23:41 +, Seymour J Metz wrote:
>Yes, I know that TSO support requires heavy lifting, and not just for fopen().
>
What else?
Would a build of OoRexx without fopen() be useful?
(bI've long wished that catalogued data sets could routinely be mounted
via NFS so open()
On Mon, 21 Jun 2021 14:35:46 -0700, Charles Mills wrote:
>Did you read the doc? They are concerned because 77A0 will character compare
>low to 7790 and mess up peoples' logic. Seems to me if you do character
>compares on hex data you get what you deserve, but I don't make up the rules.
>
Errr
It appears to me that the way the ISPF SUBMIT command works is that it
writes the member (with current updates) to ISPCTL0, then invokes the TSO
SUBMIT command for that dataset. Oddly enough, this works even for a
temporary dataset.
sas
No, I'm saying that *if* IBM ships an ISRCMDS table that means that EDIT lets
ISPF look up the command.
Are you referring to "ISPEXEC foo""? That goes through TSO command processing
before handing foo off to ISPF, while ADDRESS ISPEXEC "oo" hads of foo dirctly
to ISPF.
BTW, the text in the
What kind of PLIST does the program expect? What was the full message?
Are you saying that an entry of SELECT CMD($MD) called SUB? What was the table
name?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List
If you are new to DFSMS or have employees that are looking for DFSMS basic
information, refer them to the recordings from our November 2020 DFSMS Academy
event. It was a 3 day event that offered several sessions on DFSMS topics.
The link to those recordings are here:
Hi R'Shmuel AMV"SH,
I tried PGM(foo) and got ABEND 66D Code 02.
I tried CMD(foo), but, that gave me the TSO "version" of SUBMIT,
including a prompt for DSNAME.
What I really want is to invoke foo the same way that ISPF
EDIT/VIEW/BROWSE invokes SUBMIT. That is, it SUBMITs what the user is
On Thu, 24 Jun 2021, at 16:38, Seymour J Metz wrote:
> Is there an ISRCMDS tables? If so, that's how EDIT recognizes its
> command.
Are you sure? You're saying that ispf edit presents the panel then
doesn't immediately process the command line to parse its own
valid commands?
Or does it (if
> I need help to figure out how to add a new Primary Command to ISPF Edit,
> so that I can test a RYO SUBMIT Command written in Assembler.
David,
Define your own command table using the ISPF Command Table Utility aka 3.9
Is there an ISRCMDS tables? If so, that's how EDIT recognizes its command. Also
it's valid to specify SELECT PGM(foo) in a command table.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List
Mr Scott,
Thank you for the tips.It solved my problem.
Best Regards
Ituriel do Nascimento Neto z/OS System Programmer
Em quinta-feira, 24 de junho de 2021 09:54:04 BRT, Rob Scott
escreveu:
This is what I have coded in the past :
(o) Setting up CSIFIELD
CSIFILTK Your
On Thu, 24 Jun 2021, at 14:55, David Spiegel wrote:
> Hi Jeremy,
> I have an existing RYO SUBMIT Assembler program.
> (Also, without Control Block chasing, I have not a way to access RPLRBAR
> (for Job Number).)
I should have added to my previous answer:
- depending on how you've written your
On Thu, 24 Jun 2021, at 14:55, David Spiegel wrote:
> Hi Jeremy,
> I have an existing RYO SUBMIT Assembler program.
> (Also, without Control Block chasing, I have not a way to access RPLRBAR
> (for Job Number).)
How does that answer my question?
Why would you not wrap your existing code in just
Hi Jeremy,
I have an existing RYO SUBMIT Assembler program.
(Also, without Control Block chasing, I have not a way to access RPLRBAR
(for Job Number).)
Regards,
David
On 2021-06-24 09:50, Jeremy Nicoll wrote:
On Thu, 24 Jun 2021, at 03:25, David Spiegel wrote:
Hi,
I need help to figure out
On Thu, 24 Jun 2021, at 03:25, David Spiegel wrote:
> Hi,
> I need help to figure out how to add a new Primary Command to ISPF Edit,
> so that I can test a RYO SUBMIT Command written in Assembler.
> Let's assume that my module is called $UBMIT (with an ALIAS of $UB).
> I do not want to write an
On Thu, 24 Jun 2021, at 01:57, David Crayford wrote:
> For example, to create and ISPF in Lua you instantiate and ISPF object
> and then communicate with it by calling methods
> https://lua4z.github.io/Lua4z/modules/ispf.html.
That shows eg that you can invoke ispf edit via lua. But can you
That wiki article describes exactly the mechanism I was referring to.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
David Crayford [dcrayf...@gmail.com]
Sent:
On 24/06/2021 8:51 pm, Seymour J Metz wrote:
The only meaning that I'm familiar with is the one that I get on a search for
'callback definition programming'. Or were you thinking of a non-computer
contest?
Callback is is a well known pattern
W dniu 24.06.2021 o 06:48, Peter pisze:
Hello
When I added virtual volume in RMM, I don't see the TCDB getting updated.
Is there any parameter I need to change?
zOS 2.4
1. Is it IBM library?
2. How did you check volume entry? Did you remember about V?
--
Radoslaw Skorupka
Lodz, Poland
No, I'm saying that the second script is a more expensive version of the first.
'ADDRESS foo bar' evaluates bar and passes it to the foo environment. If you
omit the command, then 'ADDRESS foo' just sets the default environment to foo.
Commands in the ISPEXEC and ISREDIT environments go to ISPF
Why would it require authorization? Just adding it to the ISPF command table or
to SELECT on relevant panels should be enough.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
This is what I have coded in the past :
(o) Setting up CSIFIELD
CSIFILTKYour usercat name
CSICATNM Your mastercat name
CSIOPTNS"F" for fullword values
CSIS1CAT "Y" just one catalog
CSINUMEN Set to 1 field
CSIENTS
The only meaning that I'm familiar with is the one that I get on a search for
'callback definition programming'. Or were you thinking of a non-computer
contest?
The ,array class goes all the way back to OREXX in OS/2. 5.0 adds a regex
class, but it doesn't support captures, and I rely on them
Hi R'Shmuel AMV"SH,
I am aware that ISPF EDIT calls SUBMIT.
I want to be able to call a pre-existing Assembler program (which is in
a PDS ahead of SYS1.CMDLIB and will be renamed to $UBMIT (thereby
"exposing" the IBM SUBMIT)) by changing one character of the ISPF
Primary Command, so that for
Hi all,
I'm coding a new program that will get information from Usercatalogs using
IGGCSI00 API,but i'm stuck trying to reproduce IDCAMS command LISTCAT ENT(UCAT)
ALL.
Actually, i am interested in obtaining the number of ALIAS a specific UCAT has,
and this IDCAMS commandshows that information,
Bob
Please check that you have the PTFs for APAR PH18546 installed as this
addressed a situation similar to what you describe.
If you still experience the problem with that PTF installed, please report to
IBM via your normal support process.
Rob Scott
Rocket Software
-Original
ISPF EDIT SUBMIT calls TSO SUBMIT. Did you mean that you want to RYO?
It is easy to copy some or all of the data to an internal reader, followed by a
'/*EOF'. If you need to capture the jobid, a small assembler program can do
that using the ACB/RPL interface.
--
Shmuel (Seymour J.) Metz
I don't see where the OP is asking for the job number. If he doesn't need it,
then there's no need for any assembler code.
If he does need the job number, then OUTTRAP won't help, since he doesn't want
to use SUBMIT. In that case, a small program using ACB/RPL can copy to the
internal reader
In this case I would write a small rexx program to call the assembler. As
it is rexx, the name typed assumed to be a macro. BTW, the problem can
easily be solved by rexx OUTTRAP (to capture the job number).
ITschak
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous
>
>
>
If I read this right, OP is asking for a replacement for the edit SUB
command, which does some alternative processing before the job is
submitted, but is basically quite similar to the original SUB.
If a Rexx EDIT macro is not acceptable, my first instinct is to look for a
zOS exit that
We are in the middle of a first time site switch test where we used CBU to
increase the MSU capacity of the box to match our production environment. It
was discovered that Group Capacity had not been set on the box at the alternate
site, so I rectified that using SAVE and CHANGE running system.
What you are trying to do is effectively an ISPF Edit Macro that you call $UB,
and it will work with Edit and View. You can code an edit macro in assembler.
It is just a load module that would reside in ISPLLIB (or steplib or linklist).
Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
So write an edit macro to copy the all the lines onto a Rexx stack and use
"SUBMIT * END(//)" (or similar) to submit it! You can then use OUTTRAP() to
capture the message from SUBMIT and stop the screen breaking up.
Robin
-Original Message-
From: IBM Mainframe Discussion List On
Hi Brian,
I am familiar with the Command Table. I want to set up a command to do
an ISPF Edit SUBMIT, not a TSO SUBMIT. That also means no for
DSNAME.
That is, SUBMIT what is being EDITd/BROWSEd/VIEWd.
Thanks and regards,
David
On 2021-06-24 02:36, Brian Westerman wrote:
You can call you
On 24/06/2021 9:23 am, Seymour J Metz wrote:
You invoke ISPF. You call a REXX script for ISPF. The script does ADDRESS
ISPEXEC foo and ISPF gets control back. It's well documented in the TSO/E REXX
Reference, and other implementations have essentially the same API. Basically,
when a
You can call you program anything you want and create a command table entry for
it. That way you can leave IBM's submit where it was/is is SYS1.CMDLIB.
i.e. (look in option 3.9 of ISPF) and add
YourCMD SELECT PGM(yourPGM PRM('')) NEWAPPL(anything)
Then when the user types
Have a look at ISPF 3.9 (COMMAND). This is the command table where you
define new primary commands to ISPF. At end, copy table ISPCMDS (or ISRCMDS
depending on your APPL id) to the first dataset in ISPTLIB concatanation to
make it public to all users.
As per your second question, There are
67 matches
Mail list logo