Error in a simple COBOL program

[Bill Woodger]

I can't directly use the link to look at the RFE, but COBOL V5+ already uses 
DFP instructions (I don't know if that should be "at least some") with OPT 1 or 
2 and ARCH(10) or higher. Their uses is mentioned in the COBOL tuning guides, 
which are PDFs which can be linked from the presentation of the documentation 
for Enterprise COBOL in the KnowledgeCentre (or search-engineing COBPF51.pdf 
and COBPF61.pdf).

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Andy,

The S0C1 with that exact set-up does not "normally" happen in COBOL (by which I 
mean, by COBOL running in batch).

COBOL programs are not "normally" run under TSO.

There is an explicit run-time message which explains the issue.

The S0C1 is unexpected. It is some artefact of running that program under TSO. 
It was easy to miss not through ignoring it because it always happens, but 
through not hunting for something additional when you hit a message stating the 
exact cause. Maybe the program even S0C1s once the direct problem is fixed 
(SYSIN assinged), who knows?

It should be raised with IBM if it can be reproduced, and if such reproduction 
confirms that it is not a user-error.

Going back to the original compile-and-go, the go part is redundant if the 
intention is to run the program under TSO. Cameron needs to sit down with 
someone, if possible, and go through the process that was attempted.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Mainframe Testing

[David Crayford]

On 13/07/2016 1:29 PM, Wayne Bickerdike wrote:

Does anyone on the list use Workload Simulator for testing, load testing,
regression testing?


Wayne,

You might want to ping your old landlord Alan offline. He's our expert 
on the floor. He's globe trotting around Europe with

his family at the mo.


I've been asked to possibly run a course and develop coursework on WSIM.

Since IBM outsourced all their training, it appears that this one isn't
covered.

Was there ever a formal training course for this product?

On Tue, Feb 7, 2012 at 11:10 AM, Mitch  wrote:


Folks:

What you want is an automated tool that can modify the batch executables
"on the fly" for each environment.  If you have a change control tool like
ISPW, SYSChange, Endevor or ChangeMan, it is pretty straightforward to set
up rules through an automated JCL management tool such as J-Man from
Visiant Arcares (www.visiantarcares.com).  Through an easy to define set
of rules, the user can cause the batch processes (even the automated
updating of the scheduling nets when moving to production) to mirror the
appropriate libraries, naming conventions, test environments, etc.  And, as
Chris says, "what ever runs in production, you're going to need a copy of
it in testing."  This can also be automated if you have one of the change
tools described above and the appropriate JCL management solutions, such as
J-Man.

Chris, this could be a way to multiply yourself!:o)


Mitch



-Original Message-
From: Cris Hernandez #9 
To: IBM-MAIN 
Sent: Mon, Feb 6, 2012 2:29 pm
Subject: Re: Mainframe Testing


well, whatever runs in production, you're going to need a copy of it in
esting.
sually means a lot of batch and then testing the onlines/applications' user
ccess.
  found it always helped to keep a testbed of data for batch/db's, then
write an
utomated batch job scheduler that edits all the JCL and control cards so
that
hey point to testing libraries/files instead of production, plus remove
all the
roc steps that you don't want to run (emails, data xfers, etc.).
adly, there aren't enough of me to go around...

-- On Sun, 2/5/12, Mohd Rizwan  wrote:
From: Mohd Rizwan 
ubject: Mainframe Testing
o: ibm-m...@bama.ua.edu
ate: Sunday, February 5, 2012, 11:47 PM
Hi Friends,
Can anybody tell me about Mainframe testing, what are the tools are used
or Mainframe system testing
--
Mohd Rizwan
538451750*
--
or IBM-MAIN subscribe / signoff / archive access instructions,
end email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
--
or IBM-MAIN subscribe / signoff / archive access instructions,
end email to lists...@bama.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Steve, I'm not sure what was difficult about the question. The intent behind it 
is "if when next I see reference to a non-COBOL PIC, if it happens to be 11, I 
know whether it means 11 or 17". Is it somehow a question which can only be 
asked when the answer is needed? "Hey, it's 0-9, who gives a rats' toenail what 
base it is in". 

I would think that the presumption that the question was about the magnitude of 
"1" would lie solely in the domain of some esoteric branch of higher 
mathematics. No, add some subset of sysprogs to that as well. I had one, 
fortunately only one, all others I've encountered have been extremely helpful, 
who would only answer "yes", "no" or smile to a question (that's how he treated 
contractors). Meant you needed to know the answer to your own question before 
asking. After trying this once, my only further involvement was to "bait" him a 
couple of times, until he caught on.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Mainframe Testing

[Wayne Bickerdike]

Does anyone on the list use Workload Simulator for testing, load testing,
regression testing?

I've been asked to possibly run a course and develop coursework on WSIM.

Since IBM outsourced all their training, it appears that this one isn't
covered.

Was there ever a formal training course for this product?

On Tue, Feb 7, 2012 at 11:10 AM, Mitch  wrote:

> Folks:
>
> What you want is an automated tool that can modify the batch executables
> "on the fly" for each environment.  If you have a change control tool like
> ISPW, SYSChange, Endevor or ChangeMan, it is pretty straightforward to set
> up rules through an automated JCL management tool such as J-Man from
> Visiant Arcares (www.visiantarcares.com).  Through an easy to define set
> of rules, the user can cause the batch processes (even the automated
> updating of the scheduling nets when moving to production) to mirror the
> appropriate libraries, naming conventions, test environments, etc.  And, as
> Chris says, "what ever runs in production, you're going to need a copy of
> it in testing."  This can also be automated if you have one of the change
> tools described above and the appropriate JCL management solutions, such as
> J-Man.
>
> Chris, this could be a way to multiply yourself!:o)
>
>
> Mitch
>
>
>
> -Original Message-
> From: Cris Hernandez #9 
> To: IBM-MAIN 
> Sent: Mon, Feb 6, 2012 2:29 pm
> Subject: Re: Mainframe Testing
>
>
> well, whatever runs in production, you're going to need a copy of it in
> esting.
> sually means a lot of batch and then testing the onlines/applications' user
> ccess.
>  found it always helped to keep a testbed of data for batch/db's, then
> write an
> utomated batch job scheduler that edits all the JCL and control cards so
> that
> hey point to testing libraries/files instead of production, plus remove
> all the
> roc steps that you don't want to run (emails, data xfers, etc.).
> adly, there aren't enough of me to go around...
>
> -- On Sun, 2/5/12, Mohd Rizwan  wrote:
> From: Mohd Rizwan 
> ubject: Mainframe Testing
> o: ibm-m...@bama.ua.edu
> ate: Sunday, February 5, 2012, 11:47 PM
> Hi Friends,
> Can anybody tell me about Mainframe testing, what are the tools are used
> or Mainframe system testing
> --
> Mohd Rizwan
> 538451750*
> --
> or IBM-MAIN subscribe / signoff / archive access instructions,
> end email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> --
> or IBM-MAIN subscribe / signoff / archive access instructions,
> end email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Wayne V. Bickerdike

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Edward Gould]

Do you really want the operators involved in this?
They have enough work to do.
Consider cancelling the job period.

Ed

> On Jul 11, 2016, at 11:41 PM, Munif Sadek  wrote:
> 
> Hi 
> 
> 
> We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N ?)  
> if a job is submitted by surrogate Batch Id in a specific JOB class of a 
> specific LPAR.
> 
> We are plex and this job class is JES2 initiator  (not shared, non WLM)  and  
> WTOR is required only if JOB is scheduled to run in a particular LPAR - Job 
> class. 
> 
> Can some one please provided pointer in the  right direction. Can RACF  help?
> 
> regards Munif
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Cheryl Watson]

Hi Peter,

Bill Klein actually submitted a SHARE requirement for Decimal Floating Point, 
and it's now an 'Uncommitted candidate' on the RFE system - 
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=89952, so 
it's actually closer than you might think.

Cheryl Watson

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Tuesday, July 12, 2016 6:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Error in a simple COBOL program

Write it in assembler and call it from COBOL.  Or bribe the IBM COBOL team to 
slip in support for Decimal Floating Point variables next year whether it is 
profitable to IBM or not.

Oh, and BIT variables would be cool too.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Tuesday, July 12, 2016 6:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Error in a simple COBOL program

The PoP gets me wondering how to create a "Simulated Quantum Exception" from 
COBOL...

--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMF type 89 records reporting RMF usage

[Patrick Falcone]

Somehow we got dinged on this, maybe it was MULC. We had recently done a CMF 
conversion and it kept showing up in one of the usage reports but the task(s) 
were not active. I'm fairly certain that we had RMF enabled in IFA and had CMF 
also running but no RMF tasks active.


  From: Al Sherkow 
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Tuesday, July 12, 2016 9:40 PM
 Subject: Re: SMF type 89 records reporting RMF usage
  
SCRT only reports on products. It does not report features of products. AND 
SCRT only reports on products it knows to be IBM Sub-Capacity products. So SCRT 
does not report on RMF, just as SCRT does not report on IMS TM or IMS DB. It 
only reports IMS as a product. 

As Cheryl wrote if you invoice shows RMF, then IBM's license data needs to be 
corrected.

Al Sherkow, I/S Management Strategies, Ltd.
Consulting Expertise on IBM Workload License Charges (WLC),
LPARs and LCS Software
Seminars on IBM Mainframe Software Pricing
+1 414 332-3062
www.sherkow.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
   

Re: SMF type 89 records reporting RMF usage

[Al Sherkow]

SCRT only reports on products. It does not report features of products. AND 
SCRT only reports on products it knows to be IBM Sub-Capacity products. So SCRT 
does not report on RMF, just as SCRT does not report on IMS TM or IMS DB. It 
only reports IMS as a product. 

As Cheryl wrote if you invoice shows RMF, then IBM's license data needs to be 
corrected.

Al Sherkow, I/S Management Strategies, Ltd.
Consulting Expertise on IBM Workload License Charges (WLC),
LPARs and LCS Software
Seminars on IBM Mainframe Software Pricing
+1 414 332-3062
www.sherkow.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Steve Thompson]

On 07/12/2016 05:27 PM, Bill Woodger wrote:

Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I 
now know it to be base 16. I think.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Forgive me but even if it were octal, it would still be 1.

However, truth be told, for the IBM type Mainframes, it is a 
"register" within the machine that gets reflected to PSA as a 
program interrupt code (see the Principles of Op -- and the 
latest has more than the S/370-ESA version). This is all done as 
part of the Program Interrupt processing.


HTH
Steve Thompson

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Andy Wood]

On Tue, 12 Jul 2016 00:04:15 -0500, Bill Woodger  wrote:

. . .
>
>There are no S0C1s from COBOL IO. 
>

For the reason that I explained previously, a missing DD statement can cause 
S0C1. As far as I am concerned, that should never happen, but I know it is an 
easy mistake to make in assembly code, where one has to explicitly check that 
the OPEN worked. Some OPEN errors cause Sx13 abends, but OPEN does not issue an 
abend for a missing DD.

I don't expect the same S0C1 from Cobol, and I pointed out that Cobol obviously 
does check that OPENs work, because it produced a message saying that the OPEN 
was unsuccessful. So, if that did not cause the S0C1, what did?

I guess I was just wondering if everybody was so conditioned to seeing a 
missing DD statement cause S0C1 that they no longer question it.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Considering Enterprise COBOL 5.2 "exit" enhancements

[Frank Swarbrick]

Hi, it's me.


My general thoughts are:

- This type of syntax is supported in a host of other programming languages. 
(see below for examples)

- Is it really confusing?  For me its more confusing doing all the things that 
I've done up to this point because COBOL (prior to the 2002 standard) did not 
allow me to do what I really wanted.

- I also think the elimination of procedure division SECTIONS and the 
"performing" of multiple paragraphs (PERFORM...THRU) by using these new 
features can be quite a benefit, rather than an issue.  Now will some people 
use/misuse these constructs within the context of sections and PERFORM THRU.  
Certainly.  But any programming language syntax can be misused.  That doesn't 
mean they should be eliminated (well, except for the ALTER statement, perhaps!).

- In the end, to me these new language features *enhance* structured 
programming.


https://www.rosettacode.org/wiki/Loops/Break

break: C and its followers (C++, Java, C#), Delphi, JavaScript, Ruby, Python

leave: PL/I and REXX

last: Perl

exit: Ada

EXIT PERFORM: COBOL

https://www.rosettacode.org/wiki/Loops/Continue
continue: C and its followers (C++, Java, C#), Delphi, JavaScript, Python
iterate: PL/I and REXX
next: Perl, Ruby
[not supported]: Ada
EXIT PERFORM CYCLE: COBOL


I can't find a Rosetta Code page for early exit/return from a 
procedure/function, but I believe the following are true:

return: C and its followers (C++, Java, C#), Delphi, JavaScript, Ruby, Python, 
PL/I, Rexx, Perl

EXIT PARAGRAPH / EXIT SECTION: COBOL


Should COBOL have added new keywords instead of co-opting/enhancing EXIT?  I 
don't think so.  Really, EXIT as COBOL defines it should never have existed.  
If they wanted a word to represent the end of a procedure they should have used 
the work END!  (And they did in the 85 standard support END PROGRAM, so why not 
END PARAGRAPH (too wordy, but...) and END SECTION.  Oh well!)


One of my favorite examples of the use of EXIT PERFORM is the "elimination" of 
"priming reads".  It's bugged me for 20 years (my COBOL lifetime).  To me, the 
following is ideal


PERFORM UNTIL EXIT *> Not currently part of the COBOL standard!!!  :-(

READ MY-FILE INTO MY-RECORD

AT END

EXIT PERFORM

NOT AT END

PERFORM PROCESS-MY-RECORD

END-READ

END-PERFORM


Here you have a read/process loop until such time as the read "fails", 
whereupon you exit/terminate the loop.

Unfortunately "PERFORM UNTIL EXIT" is not part of the COBOL standard (though it 
is supported as an extension by some implementations), so you have to come up 
with a dummy field that will "never be true" (in which case the compiler can 
optimize away the check), or your code can "check it twice" (once after the 
read and once at the top of the loop), which is redundant.


Those are my thoughts for now.  I have plenty more if anyone is interested.

:-)

Frank


From: IBM Mainframe Discussion List  on behalf of 
Bill Woodger 
Sent: Tuesday, July 12, 2016 1:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Considering Enterprise COBOL 5.2 "exit" enhancements

Recently, Frank Swarbrick and I have been discussing this down at the COBOL 
Cafe (how cool does that sound when you say it out loud?).

The nub of the topic is the new Formats of the EXIT statement which have been 
introduced to Enterprise COBOL with V5.2. These are EXIT PERFORM, EXIT PERFORM 
CYCLE, EXIT PARAGRAPH and EXIT SECTION. These were introduced to the COBOL 
Standard in 2002, now superseded by COBOL 2014.

On discovering these a few years ago, my first question was "why even more 
overloading of EXIT?". EXIT, the original and without qualification, is a NOP. 
All the other Formats of EXIT "do things". Answer from someone in the know was 
"so we don't break existing code by picking a new word". To me that is a slack 
reason, as we were always told "never use a single word for a name, because one 
day they may want to use it for the compiler". If the unthinking had been 
bitten, I don't really care. OK, some big companies may... can't fight City 
Hall.

That aside, what do these new Formats of EXIT do?

In reverse order:

EXIT SECTION, if executed, branches to an implied CONTINUE (also a NOP) after 
the code generated for the last source statement (which generates code) in the 
SECTION. You don't have to be PERFORMing the SECTION at the time of execution.

EXIT PARAGRAPH, if executed, branches to an implied CONTINUE after the code 
generated for the last source statement (which generates code) in the 
paragraph. You don't have to be PERFORMing the paragraph at the time of 
execution.

EXIT PERFORM CYCLE, branches to a the point (could be another implied CONTINUE, 
but, seriously, since it is a NOP, there is no code (not even an Assembler NOP) 
in an inline PERFORM which starts the next iteration.

EXIT PERFORM, branches to after the inline PERFORM (got tired of even 

Error in a simple COBOL program

[Bill Woodger]

Good-oh. ARCH(10) and ARCH(11) use DFP. Perhaps more so in V6, but the Tuning 
Guides are good on that. May see a question about it yet, then :-)

May I expect some Higgs boson could be produced, they are something to do with 
quantum exceptions? Rats. That's "quantum excitation". Never mind.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Farley, Peter x23353]

Write it in assembler and call it from COBOL.  Or bribe the IBM COBOL team to 
slip in support for Decimal Floating Point variables next year whether it is 
profitable to IBM or not.

Oh, and BIT variables would be cool too.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Tuesday, July 12, 2016 6:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Error in a simple COBOL program

The PoP gets me wondering how to create a "Simulated Quantum Exception" from 
COBOL...

--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

The PoP gets me wondering how to create a "Simulated Quantum Exception" from 
COBOL...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Yes, Ed. That was the reason for me needing to ask which base it was. If it had 
said PIC C, I'd have wildly assumed it was base 16 (given the two presumed 
choices).

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Ed Jaffe]

On 7/12/2016 2:27 PM, Bill Woodger wrote:

Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I 
now know it to be base 16. I think.


LOL. One is one in all bases. No?

PIC codes are normally expressed in hex. So, a PIC 39 
(region-first-translation exception) is shorthand for PIC x'039'


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Mike Schwab]

Program Interrupt generally end up as S0Cx abends.
Virtual memory interrupts often assign more memory or recall the page
from dasd to a memory frame.
I/O interrupts handle the completed I/O.
etc.

On Tue, Jul 12, 2016 at 3:32 PM, Bill Woodger  wrote:
> Thanks Mike, and now Steve as well. It's all knowledge. Now, is that 1 
> decimal, or hexadecimal? Is a PIC (non-PICture) a subset of abend-codes (does 
> it include SB37, S222)? I should find something to read. OK, got it. Hex, and 
> "10 and above - Program checks associated with system-related interrupts."
>
>
> On Tuesday, 12 July 2016 22:19:52 UTC+2, Mike Schwab  wrote:
>> I believe that is the Program Interrupt Code 1 as System 360+ hardware
>> defines it.  z/OS translates it to Abend S0C1 abend.
>>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I 
now know it to be base 16. I think.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Charles Mills]

The op code is not a "hex value." Hex is a way of representing binary values 
for easy-to-grasp human consumption: X'D2' is more compact and easier to grasp 
than 11010010 and a better representation for some purposes than 210. The op 
code is a value in storage and it simply is what it is. Some opcodes are in 
fact a printable EBCDIC code point -- MVC = X'D2' = 'K' comes to mind -- and an 
invalid op code might certainly represent a printable character -- or not. But 
it's just a binary byte in any event, not hex.

So the PoOp simply says "An operation exception is recognized when the CPU 
attempts to execute an instruction with an invalid operation code." No "hex" in 
there. The CPU knows nothing about hex. To paraphrase the advertising slogan, 
hex is for people.



Just a "thing" of mine.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Thompson
Sent: Tuesday, July 12, 2016 1:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Error in a simple COBOL program

PIC 1 == Program Interrupt Code 1. Occurs when one attempts to execute a Hex 
value that is not an instruction. Example: X''. 
If executable code falls into that (or branches to it, or jumps to it) one will 
get a PIC 1.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Tom Marchant]

On Tue, 12 Jul 2016 15:32:07 -0500, Bill Woodger wrote:

>Thanks Mike, and now Steve as well. It's all knowledge. Now, is that 1 
>decimal, or hexadecimal? Is a PIC (non-PICture) a subset of abend-codes (does 
>it include SB37, S222)?

Kind of. MVS turns some program interrupts into S0Cx abends. e.g. a data 
exception (PIC 7) becomes a S0C7. PIC 10 is commonly called a page fault. If 
the page is not allocated, MVS treats that similarly to a protection exception 
and issues a S0C4 abend.

>I should find something to read.

That would be the Principles of Operation. The section on Program 
Interruptions. These are detected by the processor as instructions are executed.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMF type 89 records reporting RMF usage

[patrickfalcone7]

Sorry... didn't see Peters original ... check ifa member in parmlib to ensure 
you don't have the rmf enabled



Sent from my Verizon Wireless 4G LTE smartphone

 Original message 
From: Cheryl Watson  
Date: 07/12/2016  4:20 PM  (GMT-05:00) 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: SMF type 89 records reporting RMF usage 

Hi Peter,

Usually, RMF does NOT show up on the SCRT report that you create to send IBM.  
It will show up, however, on their bill coming back (also in Excel format).  
Where are you seeing it?  If it's on the bill, then here is what is happening:

1.  When you sign a license for z/OS, you also indicate which other 
entitlements come with that, such as RMF, DFSORT, and similar tools.  If you 
have alternative products, such as CMF or SYNCSORT, then you would remove those 
entitlements during the license signing.

2.  IBM keeps that information in their license database.

3.  You run an SRCT report that shows all of the LPARs where z/OS runs.  IBM 
bills you for every entitlement in every LPAR where z/OS runs, whether you run 
the component or not.  Therefore, if RMF is an entitlement in your license, 
then RMF will show up in every LPAR.

So EITHER you should have removed RMF as an entitlement once you installed CMF, 
OR you are running RMF in at least one LPAR and you're getting charged for all 
LPARs (but there's nothing you can do about that - it's the way it works).

Is this the situation in your case?

Best regards,
Cheryl


Cheryl Watson
Watson & Walker, Inc.
100 Central Ave, Suite 1013
Sarasota, FL 34236
P-941-924-6565, F-941-924-4892
www.watsonwalker.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Ten Eyck
Sent: Tuesday, July 12, 2016 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMF type 89 records reporting RMF usage

Our SCRT reporting for IBM showed type 89 records that indicted that RMF was 
used. We do not run RMF, we run CMF. I am looking back at syslogs and SMF data; 
I am trying to determine what caused that (RMF usage) type 89 record to get 
cut. It does not appear that the RMF STC was started… wondering what else could 
be the cause.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Thanks Mike, and now Steve as well. It's all knowledge. Now, is that 1 decimal, 
or hexadecimal? Is a PIC (non-PICture) a subset of abend-codes (does it include 
SB37, S222)? I should find something to read. OK, got it. Hex, and "10 and 
above - Program checks associated with system-related interrupts."


On Tuesday, 12 July 2016 22:19:52 UTC+2, Mike Schwab  wrote:
> I believe that is the Program Interrupt Code 1 as System 360+ hardware
> defines it.  z/OS translates it to Abend S0C1 abend.
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Steve Thompson]

PIC 1 == Program Interrupt Code 1. Occurs when one attempts to 
execute a Hex value that is not an instruction. Example: X''. 
If executable code falls into that (or branches to it, or jumps 
to it) one will get a PIC 1.


This then gets converted to a S0C1 on a MVS system (or z/OS for 
today).


HTH
Steve Thompson



On 07/12/2016 03:48 PM, Bill Woodger wrote:

Just to add, I have absolutely no clue (outside of ICL COBOL) what PIC 1 is. 
I'm just an applications person. The world of sysprogs is beyond me, and whilst 
I always enjoy the conversations here, mostly it is metres above my head :-)

In ICL COBOL, PIC 1 defines a bit. PIC 1(3) is three bits, etc. You may also have to define it as 
COMP-5, but it is not "our" COMP-5. One of those COBOL things. "COMPUTATIONAL" 
means a numeric definition, implementor-defined. Fortunately up as far as COMP-3, there is general 
agreement. Mostly.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMF type 89 records reporting RMF usage

[Cheryl Watson]

Hi Peter,

Usually, RMF does NOT show up on the SCRT report that you create to send IBM.  
It will show up, however, on their bill coming back (also in Excel format).  
Where are you seeing it?  If it's on the bill, then here is what is happening:

1.  When you sign a license for z/OS, you also indicate which other 
entitlements come with that, such as RMF, DFSORT, and similar tools.  If you 
have alternative products, such as CMF or SYNCSORT, then you would remove those 
entitlements during the license signing.

2.  IBM keeps that information in their license database.

3.  You run an SRCT report that shows all of the LPARs where z/OS runs.  IBM 
bills you for every entitlement in every LPAR where z/OS runs, whether you run 
the component or not.  Therefore, if RMF is an entitlement in your license, 
then RMF will show up in every LPAR.

So EITHER you should have removed RMF as an entitlement once you installed CMF, 
OR you are running RMF in at least one LPAR and you're getting charged for all 
LPARs (but there's nothing you can do about that - it's the way it works).

Is this the situation in your case?

Best regards,
Cheryl


Cheryl Watson
Watson & Walker, Inc.
100 Central Ave, Suite 1013
Sarasota, FL 34236
P-941-924-6565, F-941-924-4892
www.watsonwalker.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Ten Eyck
Sent: Tuesday, July 12, 2016 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMF type 89 records reporting RMF usage

Our SCRT reporting for IBM showed type 89 records that indicted that RMF was 
used. We do not run RMF, we run CMF. I am looking back at syslogs and SMF data; 
I am trying to determine what caused that (RMF usage) type 89 record to get 
cut. It does not appear that the RMF STC was started… wondering what else could 
be the cause.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Mike Schwab]

I believe that is the Program Interrupt Code 1 as System 360+ hardware
defines it.  z/OS translates it to Abend S0C1 abend.

On Tue, Jul 12, 2016 at 2:48 PM, Bill Woodger  wrote:
> Just to add, I have absolutely no clue (outside of ICL COBOL) what PIC 1 is. 
> I'm just an applications person. The world of sysprogs is beyond me, and 
> whilst I always enjoy the conversations here, mostly it is metres above my 
> head :-)
>
> In ICL COBOL, PIC 1 defines a bit. PIC 1(3) is three bits, etc. You may also 
> have to define it as COMP-5, but it is not "our" COMP-5. One of those COBOL 
> things. "COMPUTATIONAL" means a numeric definition, implementor-defined. 
> Fortunately up as far as COMP-3, there is general agreement. Mostly.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

STORAGE OBTAIN with ADDR= does not set ALET???

[Binyamin Dissen]

SYSSTATE ASCENV=AR,AMODE64=YES

STORAGE OBTAIN ,ALET=1,ADDR=(Rx)

generates

 LGR  Rx,R1

rather than the expected

 LAE  Rx,0(,R1)

Very annoying 

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

Just to add, I have absolutely no clue (outside of ICL COBOL) what PIC 1 is. 
I'm just an applications person. The world of sysprogs is beyond me, and whilst 
I always enjoy the conversations here, mostly it is metres above my head :-)

In ICL COBOL, PIC 1 defines a bit. PIC 1(3) is three bits, etc. You may also 
have to define it as COMP-5, but it is not "our" COMP-5. One of those COBOL 
things. "COMPUTATIONAL" means a numeric definition, implementor-defined. 
Fortunately up as far as COMP-3, there is general agreement. Mostly.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

No, that is not so. COBOL will not attempt a "get" if the file is not open. It 
will: return the file-status field, or do what is indicated in DECLARATIVES, or 
give the U4038, depending on the presence or otherwise of FILE STATUS and 
DECLARATIVES.

TRAP(ON) or TRAP(OFF), no S0C1.

Someone kindly pointed out the "classic" S0C1 in COBOL. A "static" CALL 
unresolved. If you don't have the correct LE library in the linkedit/binder 
step, you can get LE to give you a S0C1.

If you delete the IO routines from the LE library, you'd get a S0C1 for IO. If 
you linkedit/binderer an old LE library, you may well get a S0C1 (or something 
else). If you overwrite the executable code, you may get a S0C1.

You can't get a S0C1 (without intent to do exactly that) from COBOL IO. 
(Enterprise COBOL, anyway).

I can keep denying the possibility forever. Why doesn't someone attempt to do 
it, rather than assert? I've tried, recently (not with V5+, but I strongly 
doubt it has changed, and its a bug if it has). I can't do it (except with 
deliberation) so feel free to try and report back. Just saying "it does" 
doesn't (shouldn't) cut ice anywhere.

On Tuesday, 12 July 2016 20:42:01 UTC+2, Tom Marchant  wrote:
> On Tue, 12 Jul 2016 11:40:22 -0500, Bill Woodger wrote:
> 
> >This may be true in Assembler, unless you code otherwise, but it is not true 
> >in COBOL, where the compiler generates the code for you (and uses its 
> >own/LE/"system" routines).
> 
> The PIC 1 still occurs when a COBOL (or other LE enabled) program tries to 
> read when the DCB isn't open, whether because the open failed, was never 
> issued, or the DCB was closed. The LE  ESPIE exit will intercept that PIC 1 
> and convert it to a U4038.
> 
> >
> >A simple test is to READ a file which is has not been successfully OPENed, 
> >or WRITE (a record to) a file which has not been successfully OPENed.
> >
> >There will be no S0C1.
> 
> That depends on your LE options. IIRC, if you have TRAP(OFF), you will get 
> the S0C1
> 
> 
> >On Tuesday, 12 July 2016 14:59:20 UTC+2, Tom Marchant  wrote:
> >> 
> >> Yes. The address of the GET or PUT routine has not been filled in. as a 
> >> result, 
> >> that location contains zero. Branch to location zero causes a S0C1.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM sold TWS (IWS) ???

[Mitch Mccluhan]

 Folks,

I have heard through the grapevine that only the development team was sold off. 
 The sales and services arm are still within the IBM TWS group.

Regards,

 

Mitch McCluhan
mitc...@aol.com

 

 

-Original Message-
From: zMan 
To: IBM-MAIN 
Sent: Tue, Jul 12, 2016 9:07 am
Subject: Re: IBM sold TWS (IWS) ???

For example, the Optim products were quietly sold to Unicom last year. No
sign of it on IBM, who can still sell them. So no apparent change for
users, just unhappy employees (well, maybe -- some are probably glad to be
at a company that's interested in their product).

On Sun, Jul 10, 2016 at 8:30 PM, Dana Mitchell  wrote:

> The following was posted on the 'Watching IBM' Facebook group page on July
> 6:
>
> Sent to Watching IBM: "Hi and thanks for your contributions in sharing
> information about IBM across countries. Please, as usual keep me anonymous.
> Today IBM Italia announced to employee of IBM Tivoli Workload Scheduler
> (formerly known as TWS) a sale of business of its product development and
> support to an indian company. 75 employees affected at the Rome Software
> lab will be transferred to another company with no choice, even if based in
> the same location (at least for now). Probably the first step to the
> dismission of the whole italian lab, founded in 1978, and according to
> Wikipedia is one of the largest software laboratory in the European Union."
>
>
> Dana
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Considering Enterprise COBOL 5.2 "exit" enhancements

[Bill Woodger]

Recently, Frank Swarbrick and I have been discussing this down at the COBOL 
Cafe (how cool does that sound when you say it out loud?).

The nub of the topic is the new Formats of the EXIT statement which have been 
introduced to Enterprise COBOL with V5.2. These are EXIT PERFORM, EXIT PERFORM 
CYCLE, EXIT PARAGRAPH and EXIT SECTION. These were introduced to the COBOL 
Standard in 2002, now superseded by COBOL 2014.

On discovering these a few years ago, my first question was "why even more 
overloading of EXIT?". EXIT, the original and without qualification, is a NOP. 
All the other Formats of EXIT "do things". Answer from someone in the know was 
"so we don't break existing code by picking a new word". To me that is a slack 
reason, as we were always told "never use a single word for a name, because one 
day they may want to use it for the compiler". If the unthinking had been 
bitten, I don't really care. OK, some big companies may... can't fight City 
Hall.

That aside, what do these new Formats of EXIT do?

In reverse order: 

EXIT SECTION, if executed, branches to an implied CONTINUE (also a NOP) after 
the code generated for the last source statement (which generates code) in the 
SECTION. You don't have to be PERFORMing the SECTION at the time of execution.

EXIT PARAGRAPH, if executed, branches to an implied CONTINUE after the code 
generated for the last source statement (which generates code) in the 
paragraph. You don't have to be PERFORMing the paragraph at the time of 
execution.

EXIT PERFORM CYCLE, branches to a the point (could be another implied CONTINUE, 
but, seriously, since it is a NOP, there is no code (not even an Assembler NOP) 
in an inline PERFORM which starts the next iteration.

EXIT PERFORM, branches to after the inline PERFORM (got tired of even pasting).

My concerns are: they are secret GO TOs - NEXT SENTENCE is bad enough, do we 
need more?; they are not intuitive - EXIT PERFORM and its cousin clearly 
operate within a PERFORM (although not so clear that it is only within an 
inline PERFORM), EXIT PARAGRAPH and EXIT SECTION don't care whether or not a 
PERFORM is active, they're just going to GO TO where they want, which isn't 
always clear (no label); because they seem a bit "structured" someone can use 
them for "spaghetti" and still claim to be writing "structured code, I never 
use GO TO".

An example:

PERFORM A THRU C

A.
...
IF some-condition
EXIT PARAGRAPH
END-IF
...

B.
...
C.
EXIT *> old-style, NOP

Where does the EXIT PARAGRAPH "go to"? A point immediately before B. Is that 
the desired and intended result? What happens if you want to insert another 
paragraph between A and B (I wasn't very foresightful with my naming)?

An EXIT SECTION seems less problematic, but bear in mind that nothing stops you 
having EXIT PARAGRAPH in a SECTION (perhaps Frank can confirm if it works even 
without a paragraph name in the SECTION?). And whether the SECTION is 
fallen-into, or GO TO'd, or PERFORMed, EXIT SECTION does the same thing, 
perhaps not what people imagine. Same with EXIT PARAGRAPH, if you just pretend 
I mentioned it back there.

On the one hand the above is "good", as it finally indicates that PERFORM ... 
THRU ... is for the birds. At least with the PERFORM of a single paragraph, 
there is no confusion about where EXIT PARAGRAPH "go tos".

On the other hand, all existing GO TOs in a program could be eliminated by 
adding using EXIT PARAGRAPH, if the GO TO is going "downwards" and not going 
more than one paragraph away. The program is still as "bad" as before, but now 
has nice shiny instructions to be equally bad with.

I don't use GO TOs, unless the client insists, and unless they are needed for 
extreme performance (with severe reduction in program-legibility), which 
fortunately is not often needed.

I don't have a problem with people using GO TOs in sensible ways, which very 
many experienced programmers do.

I do have a problem with the introduction of an ill-defined secret GO TO 
disguised as a "structured" thing which I fear will be abused (as in used 
incorrectly) if for no other reason than a lack of knowledge of what it does, 
let alone the "one more hack and the program'll be working" school of 
classroom-/self-taught programming.

I think we can wait for Frank to contribute a piece and then... Discuss...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Tom Marchant]

On Tue, 12 Jul 2016 11:40:22 -0500, Bill Woodger wrote:

>This may be true in Assembler, unless you code otherwise, but it is not true 
>in COBOL, where the compiler generates the code for you (and uses its 
>own/LE/"system" routines).

The PIC 1 still occurs when a COBOL (or other LE enabled) program tries to read 
when the DCB isn't open, whether because the open failed, was never issued, or 
the DCB was closed. The LE  ESPIE exit will intercept that PIC 1 and convert it 
to a U4038.

>
>A simple test is to READ a file which is has not been successfully OPENed, or 
>WRITE (a record to) a file which has not been successfully OPENed.
>
>There will be no S0C1.

That depends on your LE options. IIRC, if you have TRAP(OFF), you will get the 
S0C1


>On Tuesday, 12 July 2016 14:59:20 UTC+2, Tom Marchant  wrote:
>> 
>> Yes. The address of the GET or PUT routine has not been filled in. as a 
>> result, 
>> that location contains zero. Branch to location zero causes a S0C1.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Knowledge Centre

[Susan Shumway]

Strange! Well, good to know that it's merely buggy, not completely 
busted. There's hope yet!


On 07/12/16 11:52 AM, Styles, Andy , SD EP zPlatform wrote:

Funny - this week, the icon has magically appeared :-)


Andy Styles
z/Series Systems Programmer


--
Sue Shumway
z/OS Product Documentation Lead
IBM Poughkeepsie
chale...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

OPEN with no FILE STATUS for the file, and no DECLARATIVES for the file, will 
get a U4038 if it fails, a Language Environment abend. 

Yes, having defined a FILE STATUS it should *always* be checked. The 
consequences of not checking far outweigh any "saving".

FILE STATUS cannot prevent/identify the "file full" stuff. Without system 
software to "deal" with an X37, that's just the X37 abend. 

You can code an LE Abend Handler to identify the X37s (and lots of other 
things).

On Tuesday, 12 July 2016 15:51:17 UTC+2, Clark Morris  wrote:
> That depends on whether a status code field is defined for the file.
> If no status code is defined for a file, a failed OPEN will cause an
> abend of some type.  Note that if a status code is defined for a file,
> it must be checked after ALL I-O statements for the file.  Otherwise
> interesting problems could occur such as ignoring B37 and D37 type
> failures on output.  One client's programs actually only checked the
> OPEN statements.  Without the status code I-O failures such as READ
> past end of file and B37/D37 conditions will cause abends.
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

[Bill Woodger]

This may be true in Assembler, unless you code otherwise, but it is not true in 
COBOL, where the compiler generates the code for you (and uses its 
own/LE/"system" routines). 

A simple test is to READ a file which is has not been successfully OPENed, or 
WRITE (a record to) a file which has not been successfully OPENed.

There will be no S0C1.

This is COBOL. Any "puts" or "gets" are done beyond our control, and are done 
only when it is logically possible to do them. A READ (or WRITE) with a file 
that is not successfully open will just get a status code (if FILE STATUS has 
been coded on the SELECT in the program) or will be actioned in the 
DECLARATIVES if used (not seen much of that) or will simply get a User Abend 
(U4038, not to be confused with U4083). There will be no S0C1.

Referencing "data" from an area "under" an FD will get a S0C4 if the file is 
not currently open (and if it is not subject to APPLY WRITE-ONLY, or compiler 
option AWO, or SAME RECORD AREA, or a VSAM file). No S0C1, nowhere, unless your 
procedure code happens to get overwritten and that happens to give you a S0C1.


On Tuesday, 12 July 2016 14:59:20 UTC+2, Tom Marchant  wrote:
> On Tue, 12 Jul 2016 00:29:08 +, Jesse 1 Robinson wrote:
> 
> >Unsuccessful open is not necessarily the end of the world...
>  
> >In my experience, S0C1 is the most likely consequence, I presume because 
> >some location that should contain a valid instruction after open does not.
> 
> Yes. The address of the GET or PUT routine has not been filled in. as a 
> result, 
> that location contains zero. Branch to location zero causes a S0C1.
> 
> -- 
> Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Itschak Mugzach]

Just to add to Charles ideas, making your operators decision makers isn't a
good idea. Are they better than racf who allowed the aurrogation? Get an
smf exit to inform you that user a used user's b authority. Corrlog has an
agent that does that.

Best
ITschak.
בתאריך 12 ביול 2016 18:43,‏ "Charles Mills"  כתב:

> > The WTOR is highly problematic for many system tasks.
>
> Better a programmed "rule" (in a generic sense of the word; not lobbying
> for some particular product or technique) than a WTOR. Those pesky humans
> are slow and unreliable.
>
> Charles
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Jesse 1 Robinson
> Sent: Tuesday, July 12, 2016 8:27 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: issue WTOR if surrogat ID submits a job
>
> My first thought for validity verification is Exit 6, which we use a lot.
> However, that runs in JES2 Main Task. I don't think you can issue WTOR
> there: all of JES2 would wait for the reply. In looking through the JES2
> exit table
>
>
> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm
>
> I don't see anything promising other than 52 and 54 (statement scan),
> which run in JES2 User environment. The scan exits run only at submit time,
> so you would have no control over a job that is later moved to a different
> LPAR or job class.
>
> The WTOR is highly problematic for many system tasks.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Leonardo Vaz]

I agree with Charles, you can simply use the SURROGATE class or reinvent the 
wheel and issue a RACROUTE on exit 52. Also, I believe a WTOR on exit 52 will 
hold the submitter's TSO session until it's replied. 

What I may also suggest is to enforce a HOLD on any job with USER= (in exit 52) 
and send an alert to release the job via a $WTO so the job can be released by 
the proper person.

Regards,
Leo


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, July 12, 2016 11:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: issue WTOR if surrogat ID submits a job

> The WTOR is highly problematic for many system tasks.

Better a programmed "rule" (in a generic sense of the word; not lobbying for 
some particular product or technique) than a WTOR. Those pesky humans are slow 
and unreliable.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Tuesday, July 12, 2016 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: issue WTOR if surrogat ID submits a job

My first thought for validity verification is Exit 6, which we use a lot. 
However, that runs in JES2 Main Task. I don't think you can issue WTOR there: 
all of JES2 would wait for the reply. In looking through the JES2 exit table

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm

I don't see anything promising other than 52 and 54 (statement scan), which run 
in JES2 User environment. The scan exits run only at submit time, so you would 
have no control over a job that is later moved to a different LPAR or job 
class. 

The WTOR is highly problematic for many system tasks. 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Elardus Engelbrecht]

Skip Robinson  wrote:

>My first thought for validity verification is Exit 6, which we use a lot. 
>However, that runs in JES2 Main Task. I don't think you can issue WTOR there: 
>all of JES2 would wait for the reply. In looking through the JES2 exit table 
 
>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm
> 

Oh, yes, thanks for filling in it for me, I got at last a change to look at 
that table. 
 

>I don't see anything promising other than 52 and 54 (statement scan), which 
>run in JES2 User environment. The scan exits run only at submit time, so you 
>would have no control over a job that is later moved to a different LPAR or 
>job class.  

Agreed. I have missed these two initially even when the OP said exit 5x. I was 
indeed thinking about scanning/validating of statements.
 

>The WTOR is highly problematic for many system tasks.  
 
Yes, it is! If you have a lot of such WTORs your system may grind to a halt if 
your operators are not watching the console. That is if you don't have 
automation software.

Groete / Greetings 
Elardus Engelbrecht 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Knowledge Centre

[Styles, Andy (SD EP zPlatform)]

Funny - this week, the icon has magically appeared :-)


Andy Styles 
z/Series Systems Programmer
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Styles, Andy (SD EP zPlatform)
Sent: 07 July 2016 16:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM Knowledge Centre

-- This email has reached the Bank via an external source --
 

It's not visible - if I mouse over the place I know it to be, a tool tip pops 
up to tell me that it expands/hides the TOC. 

Andy Styles
z/Series Systems Programmer 
 
 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sue Shumway
Sent: 07 July 2016 15:53
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM Knowledge Centre

-- This email has reached the Bank via an external source --
 

Are you saying that the icon isn't visible at all on IE, or just as easy to 
miss as on any other browser? I opened 
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2/en/homepage.html
 in both FF and IE, and they look technically the same on both, though I 
certainly realize that individual circumstances differ.

Per https://kdp.amazon.com/help?topicId=A2GF0UFHIYG9VQ , Kindles currently 
support unzipped and validated ePubs and only those Mobis that are created with 
Amazon tools such as KindleGen. So, I believe that your Kindle, if you were in 
a pinch and had to use it, would be able to read a z/OS book in ePub format. 
It's a pretty widely-accepted format, and similar (even superior) to PDFs in 
many respects as long as you have a good reader.
--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. 
Registered in Scotland no. SC95000. Telephone: 0131 225 4555. Lloyds Bank plc. 
Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England 
and Wales no. 2065. Telephone 0207626 1500. Bank of Scotland plc. Registered 
Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland no. SC327000. 
Telephone: 03457 801 801. Cheltenham & Gloucester plc. Registered Office: 
Barnett Way, Gloucester GL4 3RL. Registered in England and Wales 2299428. 
Telephone: 0345 603 1637

Lloyds Bank plc, Bank of Scotland plc are authorised by the Prudential 
Regulation Authority and regulated by the Financial Conduct Authority and 
Prudential Regulation Authority.

Cheltenham & Gloucester plc is authorised and regulated by the Financial 
Conduct Authority.

Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings 
is a division of Lloyds Bank plc.

HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in 
Scotland no. SC218813.

This e-mail (including any attachments) is private and confidential and may 
contain privileged material. If you have received this e-mail in error, please 
notify the sender and delete it (including any attachments) immediately. You 
must not copy, distribute, disclose or use any of the information in it or any 
attachments. Telephone calls may be monitored or recorded.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. 
Registered in Scotland no. SC95000. Telephone: 0131 225 4555. Lloyds Bank plc. 
Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England 
and Wales no. 2065. Telephone 0207626 1500. Bank of Scotland plc. Registered 
Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland no. SC327000. 
Telephone: 03457 801 801. Cheltenham & Gloucester plc. Registered Office: 
Barnett Way, Gloucester GL4 3RL. Registered in England and Wales 2299428. 
Telephone: 0345 603 1637

Lloyds Bank plc, Bank of Scotland plc are authorised by the Prudential 
Regulation Authority and regulated by the Financial Conduct Authority and 
Prudential Regulation Authority.

Cheltenham & Gloucester plc is authorised and regulated by the Financial 
Conduct Authority.

Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings 
is a division of Lloyds Bank plc.

HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in 
Scotland no. SC218813.

This e-mail (including any attachments) is private and confidential and may 
contain privileged material. If you have received this e-mail in error, please 
notify the sender and delete it (including any attachments) immediately. You 
must not copy, distribute, disclose or use any of the information in it or any 
attachments. Telephone calls may be monitored or recorded.


--
For IBM-MAIN subscribe / 

Re: IBM sold TWS (IWS) ???

[Ed Jaffe]

On 7/12/2016 7:07 AM, zMan wrote:

For example, the Optim products were quietly sold to Unicom last year. No
sign of it on IBM, who can still sell them. So no apparent change for
users, just unhappy employees (well, maybe -- some are probably glad to be
at a company that's interested in their product).


I believe this to be another of those IPLA arrangements I described in 
my earlier post to this thread.


IBM claims these "partnerships" allow them to control price (which 
sounds benevolent). Yet, in at least one well-known case, a _staggering_ 
20% price increase went into effect January 2016 -- just six months 
after the deal was formalized.


Everyone's gotta get paid...

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Charles Mills]

> The WTOR is highly problematic for many system tasks.

Better a programmed "rule" (in a generic sense of the word; not lobbying for 
some particular product or technique) than a WTOR. Those pesky humans are slow 
and unreliable.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Tuesday, July 12, 2016 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: issue WTOR if surrogat ID submits a job

My first thought for validity verification is Exit 6, which we use a lot. 
However, that runs in JES2 Main Task. I don't think you can issue WTOR there: 
all of JES2 would wait for the reply. In looking through the JES2 exit table

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm

I don't see anything promising other than 52 and 54 (statement scan), which run 
in JES2 User environment. The scan exits run only at submit time, so you would 
have no control over a job that is later moved to a different LPAR or job 
class. 

The WTOR is highly problematic for many system tasks. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Jesse 1 Robinson]

My first thought for validity verification is Exit 6, which we use a lot. 
However, that runs in JES2 Main Task. I don't think you can issue WTOR there: 
all of JES2 would wait for the reply. In looking through the JES2 exit table

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm

I don't see anything promising other than 52 and 54 (statement scan), which run 
in JES2 User environment. The scan exits run only at submit time, so you would 
have no control over a job that is later moved to a different LPAR or job 
class. 

The WTOR is highly problematic for many system tasks. 

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Tuesday, July 12, 2016 3:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: issue WTOR if surrogat ID submits a job

Itschak Mugzach wrote:

>May be a job with a user= in the jobcard that is not the submiter id. I 
>believe jes exits 5x can do that.

Yes, a JES2 exit (nr 5 I think) which scans the JCL statements and when 
discovering a USER=??? statement, can issue a WTOR. That is *if* you may issue 
a WTOR in the environment where that exit is running.


Munif Sadek wrote:

>"We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N?)  
>if a job is submitted by surrogate Batch Id in a specific JOB class of a 
>specific LPAR."

Use automation to catch that job and issue a WTOR. (Control-O has this clause 
'ON-JOB-ARRIVAL'.)


>"Can RACF help?"

With SURROGAT Class yes. But still no WTOR, just a NOTIFY which may be picked 
up many minutes/hours/days later.

Groete / Greetings
Elardus Engelbrecht


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: subscribing options

[John Eells]

The browser I use prepends partial URLs with http://www when what you 
type does not get resolved, and my newsreader does not render that 
partial URL as a link.  I guess that's not true of everyone's toolset!


John McKown wrote:

On Tue, Jul 12, 2016 at 8:05 AM, John Eells  wrote:


So, consider:

  - SET NOMAIL, and use a newsreader (e.g., Thunderbird or Outlook)
  - SET NOMAIL, and follow it in Google Groups or via the web interface
  - Get the daily DIGEST instead of all the posts

In all three cases, don't forget to forward the e-mail to the list server
if you want everyone to see it.  If you choose the first (which I
personally find most convenient), there are free NNTP servers like this
one: eternal-september.org



​The above link did not work for me on Chrome on Windows 7 Professional (at
work). But, curiously, this one did: http://www.eternal-september.org/​






--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: subscribing options

[John McKown]

On Tue, Jul 12, 2016 at 8:05 AM, John Eells  wrote:

> So, consider:
>
>  - SET NOMAIL, and use a newsreader (e.g., Thunderbird or Outlook)
>  - SET NOMAIL, and follow it in Google Groups or via the web interface
>  - Get the daily DIGEST instead of all the posts
>
> In all three cases, don't forget to forward the e-mail to the list server
> if you want everyone to see it.  If you choose the first (which I
> personally find most convenient), there are free NNTP servers like this
> one: eternal-september.org
>
>
​The above link did not work for me on Chrome on Windows 7 Professional (at
work). But, curiously, this one did: http://www.eternal-september.org/​



-- 
"Pessimism is a admirable quality in an engineer. Pessimistic people check
their work three times, because they're sure that something won't be right.
Optimistic people check once, trust in Solis-de to keep the ship safe, then
blow everyone up."
"I think you're mistaking the word optimistic for inept."
"They've got a similar ring to my ear."

>From "Star Nomad" by Lindsay Buroker:

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM sold TWS (IWS) ???

[zMan]

For example, the Optim products were quietly sold to Unicom last year. No
sign of it on IBM, who can still sell them. So no apparent change for
users, just unhappy employees (well, maybe -- some are probably glad to be
at a company that's interested in their product).

On Sun, Jul 10, 2016 at 8:30 PM, Dana Mitchell  wrote:

> The following was posted on the 'Watching IBM' Facebook group page on July
> 6:
>
> Sent to Watching IBM: "Hi and thanks for your contributions in sharing
> information about IBM across countries. Please, as usual keep me anonymous.
> Today IBM Italia announced to employee of IBM Tivoli Workload Scheduler
> (formerly known as TWS) a sale of business of its product development and
> support to an indian company. 75 employees affected at the Rome Software
> lab will be transferred to another company with no choice, even if based in
> the same location (at least for now). Probably the first step to the
> dismission of the whole italian lab, founded in 1978, and according to
> Wikipedia is one of the largest software laboratory in the European Union."
>
>
> Dana
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMF type 89 records reporting RMF usage

[Peter Ten Eyck]

Our SCRT reporting for IBM showed type 89 records that indicted that RMF was 
used. We do not run RMF, we run CMF. I am looking back at syslogs and SMF data; 
I am trying to determine what caused that (RMF usage) type 89 record to get 
cut. It does not appear that the RMF STC was started… wondering what else could 
be the cause.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: subscribing options

[John Eells]

So, consider:

 - SET NOMAIL, and use a newsreader (e.g., Thunderbird or Outlook)
 - SET NOMAIL, and follow it in Google Groups or via the web interface
 - Get the daily DIGEST instead of all the posts

In all three cases, don't forget to forward the e-mail to the list 
server if you want everyone to see it.  If you choose the first (which I 
personally find most convenient), there are free NNTP servers like this 
one: eternal-september.org


Joe Reichman wrote:

You are right it was just because it was my work e-mail thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Tuesday, July 12, 2016 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: subscribing options

On Tue, Jul 12, 2016 at 6:58 AM, Joe Reichman  wrote:


Hi



I would like to subscribe to IBM-MAIN on my Work Email but since its
work I would only like to receive messages that I have posted to as
opposed to my personal e-mail where I receive all messages

Can anyone point me in the direction



​I think this list is "all or nothing". You cannot receive only messages which ​you yourself posted and their replies (i.e. a 
"thread"). You can do a "digest" - all emails for the day, sent at the end of the day; "normal" - receive 
individual messages during the day; "nomail" - don't receive any messages at all (like ur on vacation). I don't know of any 
mailing list which has a "solicited only" (threads in which I participated) selection. I can envision setting up such a thing, 
but I don't think anyone has.

As an aside, this might be considered a bit "silly". Supposed everybody set such an option? The discussion 
would be very limited because nobody would ever receive an original email. Some might even consider it to be a bit 
"rude" - "I can talk to you at any time, but don't talk to me without my permission." . I'm sure 
that's not your intent. I wanted something like this way back when too. Now, I just use a gmail account which I access 
via http://mail.google.com instead of "local delivery".




--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Error in a simple COBOL program

[Tom Marchant]

On Tue, 12 Jul 2016 00:29:08 +, Jesse 1 Robinson wrote:

>Unsuccessful open is not necessarily the end of the world...
 
>In my experience, S0C1 is the most likely consequence, I presume because 
>some location that should contain a valid instruction after open does not.

Yes. The address of the GET or PUT routine has not been filled in. as a result, 
that location contains zero. Branch to location zero causes a S0C1.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: retrieving last commands

[Robert Prins]

On 2016-07-12 11:04, Andreas Fischer wrote:

is it possible to retrieve the last ispf command within an edit macro written
in rexx? i had a brief look in ibm's documentation but didn't found anything
helpful. since you can use the retrieve command in panel dialogs the data
must be stored somewhere...


Andi, all,

I've got something using control block chasing which works, well at least sort
of - it was written AD 2007, and although I still use it, it no longer seems to
find all executed commands, maybe someone else can have a look at it and create
a version that works better. It comes from the now defunct mvshelp.net site and 
I changed it to make it completely self contained:


/* REXX exec to read the ISPF command stack   */
/*** trace ?r * \| *
*   (C) Copyright Rainer Bartosch, 2007-2009   *

*  --  *
* | Date   | By   | Remarks  | *
* |+--+--| *
* ||  |  | *
* |+--+--| *
* | 2009-09-16 | RAHP | Modify panel | *
* |+--+--| *
* | 2009-03-16 | RAHP | Replace LISTDSI by BXPWDYN   | *
* |+--+--| *
* | 2007-09-24 | RAHP | Remove call to 'GETTEMP' | *
* |+--+--| *
* | 2007-09-04 | RAHP | Enclose URL in '<..>'| *
* |+--+--| *
* | 2007-06-05 | RAHP | Add panel to source  | *
* |+--+--| *
* | 2007-06-04 | RB   | Initial version  | *
* |+--+--| *

* CMDSTACK is a REXX exec to read the ISPF command stack into a table  *
* and display it.  *
*  *
* Source:  *
***/
parse source source
parse value source with . . moi .

"ispexec control errors return"

call load_dynlib

"ispexec libdef ispplib library id("dynlib") stack"

tcb  = ptr(132 + ptr(540))
tld  = ptr(ptr(24 + ptr(112 + tcb))) /* tld of current screen */
tld  = tld + 56
tld1 = d2x(x2d(c2x(storage(d2x(tld), 4))) + 292) /* addr of cmd stack */
size = c2d(right(storage(c2x(storage(tld1, 4)), 40), 4))

cmdstack = storage(c2x(storage(tld1, 4)), size)

if left(cmdstack, 24) <> '** ISPF COMMAND STACK **' then
  exit 12

cmds = substr(cmdstack, 84)/* addr of 1st command */
c.   = 1

do while cmds \= ''
  parse var cmds '00'x cmds/*  ???*/
  parse var cmds l 2 cmds  /* length of following command */
  l = c2d(l)
  if l = 0 then
leave

  parse var cmds cmd +(l) cmds
  if c.cmd then,
do
  call fill cmd
  c.cmd = 0
end
end

"ispexec tbcreate #cmdtab replace nowrite keys(cmd# cmd) names(sel)"
"ispexec tbsort   #cmdtab fields(cmd#,n,d)" /* sort commands lifo */
if rc \= 0 then
  exit 12

sel   = ''
lines = cmd.0

do cmd# = 1 to lines
  cmd = cmd.cmd#
  "ispexec tbadd #cmdtab order"
end

"ispexec tbtop #cmdtab"

do forever
  "ispexec tbdispl #cmdtab panel(cmdstack)"
  if rc > 4 then
call execute_command

  if zcmd \= '' then
call execute_command cmd.zcmd
  else
if ztdsels > 0 then
  if sel \= '' | cmd \= cmd.cmd# then
call execute_command cmd
end

execute_command:
  "ispexec tbend #cmdtab"

  if arg(1) \= '' then,
do
  zcmd = ';'arg(1)
  "ispexec control nondispl end"
  "ispexec display panel(cmdstack)"
end

"ispexec libdef ispplib"

"free f("dynlib")"
exit

/* --- Set Pointer  */
ptr: return c2d(storage(d2x(arg(1)),4))

/* --- Filling Routine  */
fill:
  if ^datatype(cmd.0, 'W') then
cmd.0 = 0

  parse value cmd.0+1 arg(1) with $z cmd.$z 1 cmd.0 .
return

/***
* LOAD_DYNLIB: *
*  *
* This procedure loads the via EPANQ generated panel, message and  *
* skeleton code into a library. Note 

Re: subscribing options

[Joe Reichman]

You are right it was just because it was my work e-mail thanks
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Tuesday, July 12, 2016 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: subscribing options

On Tue, Jul 12, 2016 at 6:58 AM, Joe Reichman  wrote:

> Hi
>
>
>
> I would like to subscribe to IBM-MAIN on my Work Email but since its 
> work I would only like to receive messages that I have posted to as 
> opposed to my personal e-mail where I receive all messages
>
> Can anyone point me in the direction
>
>
​I think this list is "all or nothing". You cannot receive only messages which 
​you yourself posted and their replies (i.e. a "thread"). You can do a "digest" 
- all emails for the day, sent at the end of the day; "normal" - receive 
individual messages during the day; "nomail" - don't receive any messages at 
all (like ur on vacation). I don't know of any mailing list which has a 
"solicited only" (threads in which I participated) selection. I can envision 
setting up such a thing, but I don't think anyone has.

As an aside, this might be considered a bit "silly". Supposed everybody set 
such an option? The discussion would be very limited because nobody would ever 
receive an original email. Some might even consider it to be a bit "rude" - "I 
can talk to you at any time, but don't talk to me without my permission." . I'm 
sure that's not your intent. I wanted something like this way back when too. 
Now, I just use a gmail account which I access via http://mail.google.com 
instead of "local delivery".


> Thanks
>

--
"Pessimism is a admirable quality in an engineer. Pessimistic people check 
their work three times, because they're sure that something won't be right.
Optimistic people check once, trust in Solis-de to keep the ship safe, then 
blow everyone up."
"I think you're mistaking the word optimistic for inept."
"They've got a similar ring to my ear."

>From "Star Nomad" by Lindsay Buroker:

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: subscribing options

[John McKown]

On Tue, Jul 12, 2016 at 6:58 AM, Joe Reichman  wrote:

> Hi
>
>
>
> I would like to subscribe to IBM-MAIN on my Work Email but since its work I
> would only like to receive messages that I have posted to as opposed to my
> personal e-mail where I receive all messages
>
> Can anyone point me in the direction
>
>
​I think this list is "all or nothing". You cannot receive only messages
which ​you yourself posted and their replies (i.e. a "thread"). You can do
a "digest" - all emails for the day, sent at the end of the day; "normal" -
receive individual messages during the day; "nomail" - don't receive any
messages at all (like ur on vacation). I don't know of any mailing list
which has a "solicited only" (threads in which I participated) selection. I
can envision setting up such a thing, but I don't think anyone has.

As an aside, this might be considered a bit "silly". Supposed everybody set
such an option? The discussion would be very limited because nobody would
ever receive an original email. Some might even consider it to be a bit
"rude" - "I can talk to you at any time, but don't talk to me without my
permission." . I'm sure that's not your intent. I wanted something like
this way back when too. Now, I just use a gmail account which I access via
http://mail.google.com instead of "local delivery".


> Thanks
>

-- 
"Pessimism is a admirable quality in an engineer. Pessimistic people check
their work three times, because they're sure that something won't be right.
Optimistic people check once, trust in Solis-de to keep the ship safe, then
blow everyone up."
"I think you're mistaking the word optimistic for inept."
"They've got a similar ring to my ear."

>From "Star Nomad" by Lindsay Buroker:

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMF type 89 records reporting RMF usage

[Martin Packer]

RMF is NOT involved in the cutting of SMF 89, just like it isn't in the 30s.

(I mention 30s only because they're another source of Usage information.)

Cheers, Martin

Sent from my iPad

> On 11 Jul 2016, at 21:53, Roach, Dennis  wrote:
> 
> What makes you think it is part of RMF? 
> Did you look at the SMF manual?
> 
> It is product usage for capacity level billing.
> 
> 
> Dennis Roach, CISSP, PMP
> AIG
> IAM Access Administration – Consumer | Identy & Access Management
> 
> 2929 Allen Parkway, America Building, 3rd Floor | Houston, TX 77019
> Phone:  713-831-8799
> 
> dennis.ro...@aig.com | www.aig.com 
> 
> All opinions expressed by me are mine and may not agree with my employer or 
> any person, company, or thing, living or dead, on or near this or any other 
> planet, moon, asteroid, or other spatial object, natural or manufactured, 
> since the beginning of time.
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Peter Ten Eyck
> Sent: Monday, July 11, 2016 3:15 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMF type 89 records reporting RMF usage
> 
> Can anyone think of how a SMF type 89 record reporting RMF usage would be 
> generated without running the RMF STC?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

subscribing options

[Joe Reichman]

Hi

 

I would like to subscribe to IBM-MAIN on my Work Email but since its work I
would only like to receive messages that I have posted to as opposed to my
personal e-mail where I receive all messages

Can anyone point me in the direction 

 

Thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Size default in CEEPRMxx V5R1

[Jorge Garcia]

Thanks Gonzalo.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Size default in CEEPRMxx V5R1

[Gonzalo Cengotita]

hi,

In the "Programming guide" it says SIZE is an option in the compiler JCL
Example: specifying compiler options using JCL
The following example shows how to specify compiler options under z/OS using
JCL.
...
//STEP1 EXEC PGM=IGYCRCTL,
// PARM=’LIST,NOCOMPILE(S),OBJECT,FLAG(E,E)’

also there are some considerations with the region:

Compile-time storage requirements are substantially increased compared to
prior versions of Enterprise COBOL. The compiler requires a minimum of 200M
REGION size to run. The compiler option SIZE(MAX) is no longer supported,
but gets tolerated and interpreted as SIZE(5000K). Your SIZE option setting
should be in the range of 5000 K to 2 K and your region size should be
at least 200M. The region size must be large especially at higher
optimization levels, that is, programs compiled with the OPT(1) or OPT(2)
compiler option.

Hope it helps!

Gonzalo Cengotita





*Gonzalo Cengotita*

2016-07-12 12:28 GMT+02:00 Jorge Garcia :

> Hi,
>
>  We are migrating from cobol V4R2 to V5R1. Some of our test compilations
> cancel with IGYLI5062-U and we must increase the default SIZE in COBOL
> options. We want to avoid change this option in the PARM sentence in JCL
> and set in CEEPRMxx member in PARMLIB, but we can't find the parameter in
> the syntax.
> Is there any way for set the default SIZE for all the compilations Jobs?
>
> Regards
>
> Jorge Garcia Juanino
> Gerente sistemas z/OS
> ACTP – DIAC – Operación y Soporte EMEA
> MAPFRE
> Avenida del Talgo 100-103 – 3ª Planta
> CP 28023 Madrid
> Tel. 91 581 27 34, Movil 618333559
> jgarc...@mapfre.com
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Size default in CEEPRMxx V5R1

[Jorge Garcia]

Hi, 

 We are migrating from cobol V4R2 to V5R1. Some of our test compilations cancel 
with IGYLI5062-U and we must increase the default SIZE in COBOL options. We 
want to avoid change this option in the PARM sentence in JCL and set in 
CEEPRMxx member in PARMLIB, but we can't find the parameter in the syntax.
Is there any way for set the default SIZE for all the compilations Jobs?

Regards

Jorge Garcia Juanino
Gerente sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE 
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559 
jgarc...@mapfre.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Elardus Engelbrecht]

Itschak Mugzach wrote:

>May be a job with a user= in the jobcard that is not the submiter id. I 
>believe jes exits 5x can do that.

Yes, a JES2 exit (nr 5 I think) which scans the JCL statements and when 
discovering a USER=??? statement, can issue a WTOR. That is *if* you may issue 
a WTOR in the environment where that exit is running.


Munif Sadek wrote:

>"We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N?)  
>if a job is submitted by surrogate Batch Id in a specific JOB class of a 
>specific LPAR."

Use automation to catch that job and issue a WTOR. (Control-O has this clause 
'ON-JOB-ARRIVAL'.)


>"Can RACF help?"

With SURROGAT Class yes. But still no WTOR, just a NOTIFY which may be picked 
up many minutes/hours/days later.

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Knowledge Centre

[David Crayford]

On 12/07/2016 11:56 AM, Paul Gilmartin wrote:

I stumbled on a browser called Lobo, written in Java.  It sucks on any
platform I've tried it on; not worth agitating my admins to get X11 working
on z/OS so I can see whether it compatibly sucks there, also.


I've get to see an X11 application running on a mainframe that doesn't suck!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Knowledge Centre

[Timothy Sipples]

Paul Gilmartin wrote:
>I stumbled on a browser called Lobo, written in Java.

Lobo development stopped in 2009. Lobo Evolution and gngr are two of Lobo's
successors:

https://sourceforge.net/projects/loboevolution/
https://gngr.info

Back to the John's point, the fact 3270 terminal emulation software
exists is "interesting" but not quite responsive to John McKown's stated
requirements. Here's what John asked:

>Am I being too "reactionary" in wanting to have my documentation
>on the same system as it is documenting? I.e. z/OS documentation
>on z/OS needing only access to z/OS without any other "specialized"
>software on a "desktop"?

The IBM Knowledge Center for z/OS running locally on at least one machine
beautifully addresses these requirements, as stated, in their entirety. The
IBM Knowledge Center for z/OS is part of the base z/OS operating system
(Version 2.2, and presumably in future releases also), and it runs on z/OS
itself -- right alongside TSO/E and ISPF, as examples. You need zero
specialized desktop software to access(*) documentation available from the
IBM Knowledge Center for z/OS. No extra software at all, in fact. There's
no need to install *anything* on your client device(s), not even 3270
terminal emulation software, not even a browser plug-in or helper
application. Just use the Web browser provided with your desktop, laptop,
smartphone, or tablet operating system of any relatively recent (or even
non-recent) vintage. Any/every client device should be ready-to-go, out of
the box, to tap into your locally z/OS-served repository of IBM Knowledge
Center goodness.

John's use case is well answered, already, at no additional charge. Please
enjoy.

(*) IBM Softcopy Librarian, also available at no additional charge, is at
least recommended to deploy and maintain documentation libraries to/on the
IBM Knowledge Center for z/OS. IBM Softcopy Librarian runs on Windows PCs.
(If you'd like IBM to provide Macintosh and Linux installable versions of
IBM Softcopy Librarian, you can file a request here:
https://www.ibm.com/developerworks/rfe/ ) For more information on IBM
Softcopy Librarian, including the download link, please visit:

http://www.ibm.com/support/docview.wss?uid=swg24040422


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA
E-Mail: sipp...@sg.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Itschak Mugzach]

May be a job with a user= in the jobcard that is not the submiter id. I
believe jes exits 5x can do that.

ITschak
בתאריך 12 ביול 2016 09:03,‏ "Vernooij, CP (ITOPT1) - KLM" <
kees.verno...@klm.com> כתב:

> What is "surrogate Batch Id"?
>
> Kees.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Munif Sadek
> Sent: 12 July, 2016 6:42
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: issue WTOR if surrogat ID submits a job
>
> Hi
>
>
> We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N
> ?)  if a job is submitted by surrogate Batch Id in a specific JOB class of
> a specific LPAR.
>
> We are plex and this job class is JES2 initiator  (not shared, non WLM)
> and  WTOR is required only if JOB is scheduled to run in a particular LPAR
> - Job class.
>
> Can some one please provided pointer in the  right direction. Can RACF
> help?
>
> regards Munif
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> For information, services and offers, please visit our web site:
> http://www.klm.com. This e-mail and any attachment may contain
> confidential and privileged material intended for the addressee only. If
> you are not the addressee, you are notified that no part of the e-mail or
> any attachment may be disclosed, copied or distributed, and that any other
> action related to this e-mail or attachment is strictly prohibited, and may
> be unlawful. If you have received this e-mail by error, please notify the
> sender immediately by return e-mail, and delete this message.
>
> Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its
> employees shall not be liable for the incorrect or incomplete transmission
> of this e-mail or any attachments, nor responsible for any delay in receipt.
> Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch
> Airlines) is registered in Amstelveen, The Netherlands, with registered
> number 33014286
> 
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: issue WTOR if surrogat ID submits a job

[Vernooij, CP (ITOPT1) - KLM]

What is "surrogate Batch Id"?

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Munif Sadek
Sent: 12 July, 2016 6:42
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: issue WTOR if surrogat ID submits a job

Hi 


We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N ?)  if 
a job is submitted by surrogate Batch Id in a specific JOB class of a specific 
LPAR.

We are plex and this job class is JES2 initiator  (not shared, non WLM)  and  
WTOR is required only if JOB is scheduled to run in a particular LPAR - Job 
class. 

Can some one please provided pointer in the  right direction. Can RACF  help?

regards Munif

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN