>dcl sum fixed (7) init (-0.1);/* Packed Decimal? */
>for i = 1 to whatever;
> if a(i) >= 0 then
>sum = sum + a(i);
>
And there, at least I'd do:
> if a(i) > 0 then
>sum = sum + a(i);
>
as long as testing, why bother to add 0?
>if substr(unspec(sum), 25, 8) ^= '0d'b
>From memory, the PL/I compiler option 'LIST' should produce an assembler
listing and show 2 CLC's when using nested if's (else only 1 CLC). I
doubt that optimising the compiler could improve this, because the
generated machine code would(logically) stillhave to process the 2
nested if's.
On 04/08
It's been too long, would compiler OPT(2) make it better?
In a message dated 8/3/2017 9:14:44 P.M. Central Daylight Time,
ponce...@bcs.org.uk writes:
It is the unnecessary nested'if' that would degrade performance
--
For
It is the unnecessary nested'if' that would degrade performance:
for i = 1 to whatever;
if a(i) >= 0 then/* <-- if #1 */
if sum ^= -1 then /* <-- if #2 */
sum = sum + a(i);
else
sum = a(i);
end;
if substr(unspec(sum), 25, 8) ^= '0d'bx then
put data(sum)
> On Aug 3, 2017, at 1:24 AM, Elardus Engelbrecht
> wrote:
> SNIP
> I have seen that scenario a few times in my career. Something breaks or is
> causing high CPU, excessive memory usage and swapping or slow transaction
> response time. Result - everyo
> On Aug 3, 2017, at 8:58 AM, Charles Mills wrote:
>
>>> The following Christmas party I got brave and went over to the CEO and got
>>> into a conversation about the issue.
>
>> Wow! You're that brave!
>
> Liquid courage
>
> CM
Actually, no. I haven’t had a drink in over 30 years.
Ed
-
Certainly if one is looking to save a cycle or two then
if a(i) >= 0 then
sum = sum + a(i);
should be
if a(i) > 0 then
sum = sum + a(i);
because adding a(i) to sum when a(i) == 0 is a waste of a cycle or two.
Charles
-Original Message-
From: IBM Mainframe Discussion List
There has been no announcment, but we have said at SHARE that we would not end
support for COBOL V4.2 before 2020. We are now thinking that we might announce
an EOS date that is before 2020. We don't have a final plan, we are discussing.
I just wanted to give a heads up, it could be sooner than e
I think it is a fool's game guessing which bit of "tricky" source code will
compile into faster executing machine code. Modern machines are plenty fast,
but programmers are not getting any faster. Write maintainable code. Eschew
obfuscation.
Charles
-Original Message-
From: IBM Mainfr
It as elements of PL/I because of the DCL statement
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Paul Gilmartin
Sent: Thursday, August 3, 2017 3:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Someone just too smart for his or her o
On Thu, 3 Aug 2017 19:11:07 +, Robert Prins wrote:
>Just came across the following, and please don't come back with pedantic
>remarks about undeclared variables, the code is just to show what's there:
>
>dcl sum fixed (7) init (-0.1);
>
I don't know what language this is, and I'm probsbly not
Carlos -- Are you using the SCRT?
Steve
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Wednesday, August 2, 2017 10:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Software costs - CPU Replacement
You should re
Just came across the following, and please don't come back with pedantic
remarks about undeclared variables, the code is just to show what's there:
dcl sum fixed (7) init (-0.1);
for i = 1 to whatever;
if a(i) >= 0 then
sum = sum + a(i);
end;
if substr(unspec(sum), 25, 8) ^= '0d'bx then
I use FTP all the time. Some tricks:
1) The ip address has to be available from SE laptop in the cpu. If you
have the connections between the HMC and the SE on a isolated network,
then the ftp box has to also be on that same isolated network.
2) The 'case' for all items must be correct. Userid,
I was never successful in the past with FTP. Relied instead on a thumb drive,
which worked great but required physical access to the new box.
For our z13s, a colleague was able to get FTP to work. I'm fuzzy on how he did
it, but I think he piggybacked on some outbound but closely connected hard
[Default] On 3 Aug 2017 03:48:29 -0700, in bit.listserv.ibm-main
lionel.d...@va.gov (Dyck, Lionel B. , TRA) wrote:
>
>Martin - I would agree
This site says it is open source https://www.npmjs.com/package/b2h. An
HTML guide is here
>ftp://ftp.software.ibm.com/printers/products/dcf/samples/B2H.HT
>>The following Christmas party I got brave and went over to the CEO and got
>>into a conversation about the issue.
> Wow! You're that brave!
Liquid courage
CM
--
For IBM-MAIN subscribe / signoff / archive access instructions
Ping only proves the stack is up I think, not that the FTP server is up?
I've done this about a year ago when we upgraded to z13s, we loaded or had the
SE load the initial IOCP from a thumb drive, maybe you can try that, the only
successful ftp I've done was reloading (importing) the ICC configu
Listers,
I am having an issue attempting to use FTP to import the IOCP for a new
z13s machine. I can ping the z/OS box that the FTP server is running from
the HMC and the SE. But when I click " ", I get "File not found on remote
machine. Recheck the file name, and try again.
My only real complai
W dniu 2017-08-03 o 02:20, Paul Gilmartin pisze:
On Wed, 2 Aug 2017 18:08:24 -0500, Edward Gould wrote:
http://www.zdnet.com/article/ibms-world-record-330tb-uncompressed-data-on-a-palm-sized-tape-cartridge/?loc=newsletter_featured_related_listing&ftag=TRE-03-10aaa6b&bhid=27692896283679241297724
Martin - I would agree
--
Lionel B. Dyck
Mainframe Systems Programmer - TRA
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Martin Packer
Sent: Thursday, August
21 matches
Mail list logo