Re: Rexx Execio to PDS

2013-08-26 Thread Karl-Heinz Doppelfeld
Hello George, your code is right except your inititialyze for 'outstem.=0'. This initialyze the complete stem 'outstem.' with '0' and than the execio tries to write many (I do not know how much) lines to your output file. When you initialyze only 'outstem.0=0' for computing your stem counter yo

Re: CEEPIPI assistance requested

2013-08-26 Thread Sam Siegel
On Sun, Aug 25, 2013 at 5:27 PM, Peter Relson wrote: > I don't know why LE would issue an ESPIE if you told it not to. It > certainly seems from the evidence that something is issuing ESPIE. > And it's issuing it in your state, which is supervisor state, which > therefore will result in the abend

Enterprise COBOL execution & POSIX(ON) LE parm.

2013-08-26 Thread Tom Ross
>I have compiled some C code from the Internet (sqlite) which uses UNIX >mutex functions for multithreading. I know that COBOL doesn't really >support multithreading, but this is a generic library which does. COBOL does really suppport multithreading, but you need to use the THREAD compiler option

Re: CEEPIPI assistance requested

2013-08-26 Thread Sam Siegel
On Mon, Aug 26, 2013 at 9:01 AM, Shmuel Metz (Seymour J.) < shmuel+...@patriot.net> wrote: > In > , > on 08/24/2013 >at 04:52 PM, Sam Siegel said: > > >Hello - I'm experiencing an 46D-18 abend > > Where? Providing module.csect+offset would eliminate a lot of > guessing. > Below is the module

Re: Rexx Execio to PDS

2013-08-26 Thread Paul Gilmartin
On Mon, 26 Aug 2013 21:27:42 -0500, Joel C. Ewing wrote: >And although this change would not be needed for the code to work, for >consistency and to actually use the outstem.0 value as a constraint the >EXECIO should probably be changed to >"EXECIO" outstem.0 "DISKW Pdsout (STEM outstem. FINIS" >T

Re: CEEPIPI assistance requested

2013-08-26 Thread Sam Siegel
On Mon, Aug 26, 2013 at 1:05 AM, Miklos Szigetvari < miklos.szigetv...@isis-papyrus.com> wrote: > Hi > > I can't add too much tor this, but a few years ago, I tried do something > similar, i.e. > In a multitask supervisor mode server, from the workers sub-tasks , call > the Xerxes XML parser

Re: Rexx Execio to PDS

2013-08-26 Thread Joel C. Ewing
And although this change would not be needed for the code to work, for consistency and to actually use the outstem.0 value as a constraint the EXECIO should probably be changed to "EXECIO" outstem.0 "DISKW Pdsout (STEM outstem. FINIS" That way the code could even be re-executed without having to Dr

Re: Rexx Execio to PDS

2013-08-26 Thread Joel C. Ewing
The problem is outstem.=0 which sets an infinite number of instances of outstem.x to the non-null value "0" for all "x". DISKW from a stem variable does not stop based on a count in outstem.0, it stops when the first null outstem.n value for n=1, 2, ... is found, which is "never" in this case.

Re: PFA & SMF Type 92

2013-08-26 Thread Gerhard Postpischil
On 8/26/2013 2:07 PM, Steve Conway wrote: Anybody else see this as a problem? Is it a case of "Suck it up, Buttercup", or is there a way to avoid this without simply turning off all Type 92, Subtype 11 records? As previously replied, if you do not need type 92 records at all (regardless of su

Re: Rexx Execio to PDS

2013-08-26 Thread Gerhard Adam
Yes, but you took that description out of context since you excluded the additional qualifier of being an uninitialized variable. The original statement never made the claim that simply displaying its own name was a sufficient condition. It was descriptive of the case of being an uninitialized

Funny problem report

2013-08-26 Thread Phil Smith III
A customer report came in through our answering service: Jobs are blowing OC poor events. After the predictable "Huh?", we asked the customer, who said "That's 'throwing 0C4 ABENDs'". Doh. Hey, it was close.sort of. --

Re: Rexx Execio to PDS

2013-08-26 Thread Paul Gilmartin
On 2013-08-26 17:03, Gerhard Adam wrote: >>When EXECIO writes an arbitrary number of lines from a list of >>compound variables, it stops when it reaches a null value or an >>uninitialized variable (one that displays its own name). > >> ** * Top of Data

Re: Rexx Execio to PDS

2013-08-26 Thread Gerhard Adam
>When EXECIO writes an arbitrary number of lines from a list of >compound variables, it stops when it reaches a null value or an >uninitialized variable (one that displays its own name). >** * Top of Data >01 First line >02 S.2 >0

Re: Rexx Execio to PDS

2013-08-26 Thread Paul Gilmartin
On Mon, 26 Aug 2013 22:43:46 +0300, Binyamin Dissen wrote: >I would suggest that you read up on EXECIO * DISKW and stems > >You will figure it out if you look at the file that got the E37 > Kind of a snarky RTFM, but I suppose I was similarly Socratic in my followup. So, I RTFM; Title: z/OS V1R1

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Pommier, Rex R.
OK, I believe that box was a closer relative to the 9672 than it was to its follow-on machine, the baby MP3000. That being said, if you aren't doing any emulated I/O, IIRC, the SE should be able to be rebooted without any adverse effect on the machine itself, obviously all bets are off if the M

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Caserta, Greg
Yes yellow stripe. No emulation being done. Sent from my iPhone On Aug 26, 2013, at 3:26 PM, "Pommier, Rex R." wrote: > I never used an MP2000, we ran an MP3000 for a few years. On the bigger > boxes the SE was (presumably still is) used for error reporting and other > communication back t

Re: Rexx Execio to PDS

2013-08-26 Thread Paul Gilmartin
On 2013-08-26 13:41, Lizette Koehler wrote: > First, there is a REXX Newsgroup that might be more helpful. > > To sign up - if you have not done so - go to the bottom of this webpage: > http://www2.marist.edu/htbin/wlvindex?TSO-REXX > > > Second, why use EXECIO instead of ISPF LM functions? >

Re: Rexx Execio to PDS

2013-08-26 Thread Ted MacNEIL
>PDS cannot spanned volumes, PDSE maybe??? (I forget but maybe not) Neither. - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv

Re: Rexx Execio to PDS

2013-08-26 Thread Binyamin Dissen
I would suggest that you read up on EXECIO * DISKW and stems You will figure it out if you look at the file that got the E37 On Mon, 26 Aug 2013 14:21:18 -0400 George Shedlock wrote: :>Gentle Listers; :> :>I am trying to write a Rexx routine that takes in 3 arguments. First is DSN, second is M

Re: Rexx Execio to PDS

2013-08-26 Thread Paul Gilmartin
On Mon, 26 Aug 2013 14:21:18 -0400, George Shedlock wrote: >Gentle Listers; > >I am trying to write a Rexx routine that takes in 3 arguments. First is DSN, >second is Member name, third is a string of text. The string of text is the >concatenation of lines delimited by a ";". (ex. "line1;line2;l

Re: Rexx Execio to PDS

2013-08-26 Thread Lizette Koehler
First, there is a REXX Newsgroup that might be more helpful. To sign up - if you have not done so - go to the bottom of this webpage: http://www2.marist.edu/htbin/wlvindex?TSO-REXX Second, why use EXECIO instead of ISPF LM functions? What do your dataset attibutes look like? Primary space, s

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Pommier, Rex R.
I never used an MP2000, we ran an MP3000 for a few years. On the bigger boxes the SE was (presumably still is) used for error reporting and other communication back to IBM as well as IPLing, reconfiguring hardware and so on. On the MP3000, it was also used (if configured so) for doing emulated

Re: PFA & SMF Type 92

2013-08-26 Thread Steve Conway
Thanks, Mark. This looks like the simplest way to handle it. I guess, since I haven't needed the 92 Sub 11 in forever, turning off collection is safe enough. Cheers,,,Steve Steven F. Conway, CISSP LA Systems z/OS Systems Support Phone: 703.295.1926 steve_con...@ao.uscourts.gov From: Mar

Re: Rexx Execio to PDS

2013-08-26 Thread Ted MacNEIL
> 04A data set opened for output used all space available to or on the > current volume, and no more volumes were available. >Change the JCL to specify more volumes. Won't work for a PDS(E). They can't span volumes. - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL

Re: PFA & SMF Type 92

2013-08-26 Thread Mark Zelden
On Mon, 26 Aug 2013 14:07:04 -0400, Steve Conway wrote: >Good afternoon, > >Testing z/OS 1.13, and I (finally) implemented PFA. I like the idea of >the checks it performs, but it's killing (well, wounding, anyway) my SMF >with the Type 92 Subtype 11 (Filesystem CLOSE) records. > My client has

Re: Rexx Execio to PDS

2013-08-26 Thread Barkow, Eileen
E37 04 means that you ran out of space 04A data set opened for output used all space available to or on the current volume, and no more volumes were available. Change the

Rexx Execio to PDS

2013-08-26 Thread George Shedlock
Gentle Listers; I am trying to write a Rexx routine that takes in 3 arguments. First is DSN, second is Member name, third is a string of text. The string of text is the concatenation of lines delimited by a ";". (ex. "line1;line2;line3"). This code fails: Write_Member: 

Query for Destination z article -- mainframe charter, statement of integrity, etc.

2013-08-26 Thread Gabe Goldberg
Quite a while ago, IBM announced the Mainframe Charter... http://www.gartner.com/id=456214 http://www-07.ibm.com/servers/eserver/includes/download/mainframe_charter_faq.pdf Etc. Same (but even longer ago) for MVS and VM Statements of Integrity... http://www-03.ibm.com/systems/z/os/zos/features/ra

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Caserta, Greg
No, nothing fancy here. What is the SE's purpose after the OS is up and running. I always thought I could unplug it unless I needed to IPL. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex R. Sent: Monday, August 26, 20

PFA & SMF Type 92

2013-08-26 Thread Steve Conway
Good afternoon, Testing z/OS 1.13, and I (finally) implemented PFA. I like the idea of the checks it performs, but it's killing (well, wounding, anyway) my SMF with the Type 92 Subtype 11 (Filesystem CLOSE) records. Every file it touches, for every check, every time it runs. And it touches a

Outage Analyzer - Mapping Internet Outages in Realtime

2013-08-26 Thread efinnell15
http://www.outageanalyzer.com/ Compuware provides this tool for free at present. Might be useful for trends or Shoes of prey might be down! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists..

Re: Enterprise COBOL execution & POSIX(ON) LE parm.

2013-08-26 Thread Paul Gilmartin
On Mon, 26 Aug 2013 09:06:14 -0700, Charles Mills wrote: >Not COBOL, but ... > >I have a rather large STC written in C++. I had done it all POSIX(OFF) for >no particular reason except "if it ain't broke ..." I needed to support GSK >which requires POSIX(ON). There were a *lot* of little surprises.

Re: Enterprise COBOL execution & POSIX(ON) LE parm.

2013-08-26 Thread Charles Mills
Not COBOL, but ... I have a rather large STC written in C++. I had done it all POSIX(OFF) for no particular reason except "if it ain't broke ..." I needed to support GSK which requires POSIX(ON). There were a *lot* of little surprises. Lots of little things that stopped working or worked different

Re: CEEPIPI assistance requested

2013-08-26 Thread Shmuel Metz (Seymour J.)
In , on 08/24/2013 at 04:52 PM, Sam Siegel said: >Hello - I'm experiencing an 46D-18 abend Where? Providing module.csect+offset would eliminate a lot of guessing. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2 We don't care. We don't have

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread David Andrews
On Mon, 2013-08-26 at 15:42 +, Pommier, Rex R. wrote: > Are you doing any emulated I/O through the OS/2 SE? That's a good catch, Rex. I remember when we had our 7060 that I treated the OS/2 SE with kid gloves. When I discovered that the whole complex (such as it was) was dependent on the wel

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Pommier, Rex R.
Are you doing any emulated I/O through the OS/2 SE? I recall back when we had an MP3000 we could have done disk or terminal I/O thru the SE. Could that be causing your problem? I know that on the full size mainframes, the SE basically goes into monitor mode once all LPARs are up and running,

Re: SCRT question

2013-08-26 Thread Mark Yuhas
My apologies for not responding sooner. Extended weekend. I was upating a current production batch job that generates the SCRT and FTPs the report to a Windows Server. I decided to change the Windows Server to a DFS server. I just had sideblinders on and focused on the FTP step. When someon

Enterprise COBOL execution & POSIX(ON) LE parm.

2013-08-26 Thread John McKown
I have compiled some C code from the Internet (sqlite) which uses UNIX mutex functions for multithreading. I know that COBOL doesn't really support multithreading, but this is a generic library which does. My COBOL test job kept abending with an S0C6. I was going a bit nuts. But then I actually rea

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Lizette Koehler
Like others I find this difficult to diagnosis without a lot more information. I did not think that support when down to OS/390 V1.3. I thought it was at OS/390 2.10 1) What type of Shark? 2105, 2107, etc... (DS8000???) 2) What type of 3590? 3) How were they genned? 4) What is OS/390 Runnin

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Caserta, Greg
Yes OS/390 1.3 Machine - Multiprise 2000 ( 2003-116 ) No error messages anywhere. Consoles and entire system hang as if it was quiesced. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Monday, August 26, 20

Re: OS/390 1.3 Support Element hangs system

2013-08-26 Thread Elardus Engelbrecht
Caserta, Greg wrote: >Running OS/390 1 .3 OS/390? (End of support 2001/03/31) or do you mean z/OS 1.3 (End of support 2005/03/31)? On what machine model is that running? >- Every couple months the system hangs. Once I power off/on the Support >Element PC (OS/2), it breaks loose. Perhaps

Fw: IBM Network listserv

2013-08-26 Thread Mark Regan
BTW, if you have a need to search for a listserv based mailing list, there is a central listserver directory for that. It is hosted by the company that sells the listserv software, LSOFT.com. The directory is at http://www.lsoft.com/lists/list_q.html   Thanks, Mark Regan <>< - Forwarded M

OS/390 1.3 Support Element hangs system

2013-08-26 Thread Caserta, Greg
Running OS/390 1 .3 - Every couple months the system hangs. Once I power off/on the Support Element PC (OS/2), it breaks loose. This seemed to start about 2 yrs ago when I replaced the Ramac disk with the Shark. Also replaced 3480 tape drives with 3590. Any ideas. I thought that once I IPL's

Re: IBM Network listserv

2013-08-26 Thread Mark Regan
I believe that it is no longer being used anymore. Most everyone has moved to the IBMTCP-L mailing list, since TCP/IP is the main emphasis these days. If you have SNA questions, you can ask them there too, since most of us are responsible for both protocols on z/OS. If you have NetView questions

Re: CEEPIPI assistance requested

2013-08-26 Thread Miklos Szigetvari
Hi I can't add too much tor this, but a few years ago, I tried do something similar, i.e. In a multitask supervisor mode server, from the workers sub-tasks , call the Xerxes XML parser via CEEPIPI. Don't remember for all the details, but surly I had also different 46D abends . In the las

Re: Hints needed on abend 0D6-027

2013-08-26 Thread Robin Atwood
Thanks to everyone for their responses, things are much clearer now. The original coder obviously decided to "save resources" by shutting down the auxiliary ASID after an inactivity period, thus storing up trouble. Hopefully I can reduce the window where the abend can occur; there is already an abe