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
Tom Ross wrote:
COBOL does really suppport multithreading, but you need to use the THREAD
compiler option to get that support.
And lose ability to use some elements (example: SORT statement). :-(
Groete / Greetings
Elardus Engelbrecht
I have noticed that when using option 3 of the XDC main panel (XDC-CDF) I
cannot then access the XDC ISPF profile and PK keys, etc, are not restored.
When I issue the PROFILE SAVE command I get a message
DBC770E saying XDCPROF and ISPPROF cannot be found. I assume this is caused by
the
W dniu 2013-08-27 01:35, Phil Smith III pisze:
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.
Well, I heard about job ended with 4 - which should mean job
The Multiprise 2000 offered optional internal disk storage, but I don't
think the internal disk used the SE for normal operations. I think the SE
could configure internal disk settings, notably the amount of system memory
allocated to the internal disk cache area. (Do we really mean HMC, by the
Timothy Sipples wrote:
It might be interesting to disconnect the tape devices to see if the problem
persists. That might help isolate the root cause. I would obviously exercise
extreme caution, and there are no guarantees.
This is a very good debugging trick. This is how we isolated faulty
On Tue, 27 Aug 2013 02:07:08 -0500, Elardus Engelbrecht
elardus.engelbre...@sita.co.za wrote:
Tom Ross wrote:
COBOL does really suppport multithreading, but you need to use the THREAD
compiler option to get that support.
And lose ability to use some elements (example: SORT statement). :-(
On Tue, 27 Aug 2013 01:51:54 -0500, Karl-Heinz Doppelfeld wrote:
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
I have received a request for expertise coding REXX and CLISTs to generate
code to delete empty GDG bases.
Thanks,
Rob Jackson
rwjackso...@msn.com
Cell: (615) 689-1435
Home: (615) 697-2047
Thanks for that heads up about THREAD option. I have an example COBOL
program which is using the library already. But I am not trying to
multithread. I will put some information in my README should anybody be
silly enough to want to do multithreading in COBOL.
On Tue, Aug 27, 2013 at 12:13 AM,
In 4473679277803350.wa.paulgboulderaim@listserv.ua.edu, on
08/25/2013
at 01:39 PM, Paul Gilmartin paulgboul...@aim.com said:
Small wonder old-timers resent the advent of PDSE.
Some do. Some believe that IBM didn't go far enough.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
In cad60d68b445b3b511af79a64d84a...@shedlock.org, on 08/26/2013
at 02:21 PM, George Shedlock geo...@shedlock.org said:
EXECIO * DISKW Pdsout (STEM outstem. FINIS
The * is not equivalent to outstem.0 and the description of FINIS
suggest that you may want it in a separate EXECIO invocation.
On Mon, 26 Aug 2013 17:14:58 -0400, Shmuel Metz (Seymour J.) wrote:
... the description of FINIS
suggest that you may want it in a separate EXECIO invocation.
Can you explain? I've never had a problem with it.
-- gil
--
For
I heard the IBM support center received a problem call for product 'Jazz Tube'.
Turns out it was for JES2.
Alan
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Phil Smith III
Sent: Monday, August 26, 2013 6:36 PM
To:
Try initializing the stem to null (outstem. = ).
A null entry will terminate the EXECIO.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of George Shedlock
Sent: Tuesday, August 27, 2013 8:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject:
In 4868602893006577.wa.paulgboulderaim@listserv.ua.edu, on
08/26/2013
at 04:47 PM, Paul Gilmartin paulgboul...@aim.com said:
It should probably be stressed that EXECIO, unlike most Rexx
utilities does not [substitute] the values of any simple symbols in
the tail as described in 2.4.3,
On Tue, 27 Aug 2013 08:45:22 -0400, George Shedlock wrote:
Paul:
You have noted one of the subtle differences in the way that Execio works
in the CMS vs TSO environments. It seems that in CMS, the EXECIO * stops
after the stem runs out. In TSO, it continues on forever resulting in my out
of
In
CAFMxNWKJXbzsB5OrtaZgREk-bK=kgb_i-kh0tjzuzukbtgg...@mail.gmail.com,
on 08/26/2013
at 10:03 PM, Sam Siegel s...@pscsi.net said:
Below is the module and offset.
Did you search for IEAVTESP+0B3A? Create a PMR? Where is 04D3DA8A? Did
you check the save area chain?
--
Shmuel (Seymour J.)
See other email. Problem resolved.
Thanks.
On Aug 27, 2013 6:16 AM, Shmuel Metz (Seymour J.) shmuel+...@patriot.net
wrote:
In
CAFMxNWKJXbzsB5OrtaZgREk-bK=kgb_i-kh0tjzuzukbtgg...@mail.gmail.com,
on 08/26/2013
at 10:03 PM, Sam Siegel s...@pscsi.net said:
Below is the module and offset.
In 8482246969138410.wa.karlheinz.doppelfeldfi...@listserv.ua.edu, on
08/27/2013
at 01:51 AM, Karl-Heinz Doppelfeld karl-heinz.doppelf...@f-i.de
said:
your code is right except your inititialyze for 'outstem.=0'. This
initialyze the complete stem 'outstem.' with '0'
That's only an issue due
What level of z/OS are you running?
The DEL command can use MASK at z/OS V1.11 and above (also check for
additional maintanence)
In z/OS V1R11, DFSMS access method services (IDCAMS) adds a new MASK option
to the DELETE command. This option lets you specify many variations of a
data set name on
On Tue, 27 Aug 2013 09:02:03 -0400, Shmuel Metz (Seymour J.) wrote:
on 08/26/2013 at 04:47 PM, Paul Gilmartin said:
It should probably be stressed that EXECIO, unlike most Rexx
utilities does not [substitute] the values of any simple symbols in
the tail as described in 2.4.3,
Unlike? How
The answer LISTCAT LEVEL('hlq') GDG NAME does supply GDG names
However question was for empty GDG which I assume to mean no generations.
Changing to LISTCAT LEVEL('hlq'') VOLUME' will return the associations or NULL
if no generations exists.
Such as
GDG BASE -- MY.GDG.BASE.A
Klan, Rob (RET-DAY) wrote:
Changing to LISTCAT LEVEL('hlq'') VOLUME' will return the associations or
NULL if no generations exists.
Such as
GDG BASE -- MY.GDG.BASE.A
ASSOCIATIONS(NULL)
Hmmm, I have a look at CSI to see what CSI will give, but I find nothing or I
have
CSI - Catalog Search Facility, not that Crime thing. ;-)
Aw cr*p, I commited a crime in word checking! :-(
Replace word 'Facility' with 'Interface' ...
:-D
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe /
In bay170-w14141a07d63910d508a6a4b0...@phx.gbl, on 08/27/2013
at 08:14 AM, Rob JACKSON rwjackso...@msn.com said:
I have received a request for expertise coding REXX and CLISTs to
generate code to delete empty GDG bases.
What's the issue, and why consider clist at this late date?
--
Rob,
If you could provide more detail on what you are trying to accomplish, we
can probably provide several solutions.
Lizette
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Klan, Rob (RET-DAY)
Sent: Tuesday, August 27, 2013 6:30
W dniu 2013-08-27 15:29, Klan, Rob (RET-DAY) pisze:
The answer LISTCAT LEVEL('hlq') GDG NAME does supply GDG names
However question was for empty GDG which I assume to mean no generations.
Changing to LISTCAT LEVEL('hlq'') VOLUME' will return the associations or NULL if no generations
On 8/27/2013 8:43 AM, Paul Gilmartin wrote:
And PDSE might have been a good place to introduce (optional) FBA
support. PDSE is really just FBA simulated on CKD simulated on FBA.
If you defined CKD as devices accepting count-field oriented commands,
then you are correct. However, all disks
George,
The first Parse in the original loop is a useful technique. No
complaints there, only about the 2nd parse that changes t, outstem.t and
outstem.0 in one statement. The original
...
do forever
parse var MyArg thisword ';' MyArg
if thisword='' then leave
thisword =
Our official IBM MP2003 documentation of the time always called it the
Support Element. It consisted of a desktop PC with a CRT style monitor and
a second internal floppy drive for an optical disk. I don't recall if it
had a CD reader. It ran OS/2 and booted directly into the SE application.
It
On 8/27/2013 8:26 AM, Shmuel Metz (Seymour J.) wrote:
Small wonder old-timers resent the advent of PDSE.
Some do. Some believe that IBM didn't go far enough.
What I miss most is the inability to recover erroneously scratched
members. More than once I have recovered a member that was too new
Hi Robin,
When debugging via CDF, XDC is actually running in the batch job,
not in the TSO session. Consequently, you need to add a JCL card to
the batch job pointing to your profile library. The ddname can be
either //XDCPROF or //ISPPROF. (It doesn't matter which.) The library
pointed to
Hello All,
I would like to send messages to application owners when critical jobs
fail/abend. I don't know if there is a way to send an SMS messages from Jes2.
Respectfully,
Willie C. Rouse
Senior Mainframe Consultant
Prince George's County, Maryland
Office of Information Technology
9201 Basil
I would think an automation tool would work for this requirement or a
scheduling package.
Do you have TIVOLI, OPS/MVS, AFOPER, CONTROL-?? And so forther/
Do you have a scheduling software like CA-ESP (Workload Automation) or Other?
Do you have any MFP exits in place?
Lizette
-Original
Did you have a final step in the JOB stream that would execute a TSO Batch step
to do SENDNOTE or Queue up (using rexx or clist) an email that used a
SYSOUT=(B,INTRDR) to send to SMTP?
That would probably work in a lot of cases, but a JCL flush or similar may not
allow that last step to run.
Anthony,
Could give me more info since I am not very SMTP literate.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Sambataro, Anthony (NIH/NBS) [E]
Sent: Tuesday, August 27, 2013 11:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re:
On Tue, 2013-08-27 at 10:16 -0400, Rouse, Willie wrote:
I would like to send messages to application owners when critical jobs
fail/abend. I don't know if there is a way to send an SMS messages
from Jes2.
If you have the ability to send email, here is a list of email-to-sms
gateways for a
Maybe rhetorical question:
Is sending notices from JES2 via SMS as secure as you need?
Cheers, Martin
Martin Packer,
zChampion, Principal Systems Investigator,
Worldwide Banking Center of Excellence, IBM
+44-7802-245-584
email: martin_pac...@uk.ibm.com
Twitter / Facebook IDs: MartinPacker
We use the SMF exit and MPF message exits to start a batch job that sends
email. The exit just passes information about which job abended or had a JCL
error to the batch job. The batch job does all the work. It determines if an
email is sent, who gets the email and if more serious
Is there a way to benchmark zHPF? Are there reports you can run that would
show management a nice before and after picture? Can anyone explain exactly
what zHPF is in simple terms?
--
For IBM-MAIN subscribe / signoff /
Searching in www.ibm.com
http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/FQ127122
http://publib.boulder.ibm.com/infocenter/zos/v1r11/index.jsp?topic=/com.ibm.zos.r11.ieag100/d3ioszhpf.htm
http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/WP101789
And I know of no
Batch example using an exec written by one of our sysprogs:
//jobcard
/*ROUTE PRINT HOLD
//*
//MAILEXEC PGM=IKJEFT01,DYNAMNBR=150,REGION=4M
On 27 August 2013 11:29, Sambataro, Anthony (NIH/NBS) [E]
anthony.sambat...@nih.gov wrote:
I've done it via the SMTP server/address space with the TO: address being
the service provider's convention. For example ATT's convention is
x...@txt.att.net where xxx is the 10 digit phone number.
gsg wrote:
Is there a way to benchmark zHPF? Are there reports you can run that would
show management a nice before and after picture? Can anyone explain exactly
what zHPF is in simple terms?
For what it is, see the presentation by Lou Ricci from SHARE 116: High
Performance Ficon
The sendmail exec appears to use the TRANSMIT command to actually interface
with SMTP
TRANSMIT jesnode.SMTP FILE(MAILOUT) OUTDD(SMTPOUT) ,
NOEPILOG NOLOG NOPROLOG
Reference:
Mr Wood,
We do have a tape management product named AFM, from a brazilian company (GFS).
This product does not actually has a data base, using only Catalog Information
to retain volumes. That's why it's important to keep the original creation date.
GFS has a utility that can do that, but we
Thanks everyone for your input. It has been very rewarding
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Tony Harminc
Sent: Tuesday, August 27, 2013 12:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Notices from Jes2
On 27
I am still writing my HLASM LE enabled shim routine which allows COBOL
program to, relatively, easily invoke the C language based sqlite SQL
database engine. One requirement, due to sqlite's use of mutex semaphores
is that the LE enclave be running with POSIX(ON). Instead of getting the
S0C6 which
You can use XMITIP for this purpose. It's free and was written by a fellow
IBM-MAIN system programmer, Lionel Dyck. You can find it at his web site
http://www.lbdsoftware.com/
Thanks,
Mark Regan
From: Rouse, Willie wro...@co.pg.md.us
To:
We use CA-OPS/MVS to monitor messages to send SNMP traps to the SolarWinds
Orion server. It then does whatever, including sending email to a SMS
gateway. We use CAGTS to write CA-7 browse log message to the z/OS
SYSLOG, which is how CA-OPS/MVS picks up production job status information.
It works
With my phone account and SMTP settings the following is working:
(i.e X-PRIORITY was necessary to get SMS in my mobile )
//ESAEMAIL JOB ,ESA,NOTIFY=ESA,
//CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//OUTPUTOUTPUT DEST=JES2P390.SMTP
//ISDICLEM EXEC PGM=IEBGENER
//SYSIN DD DUMMY
If you want to be punitive you can of course ABEND the offender.
The notion of 'throwing an exception', raising a condition, is a much
better one, but only if it is substantive and not just formal; and it
is not obvious to me that you caller can recover from a
translation-time error at execution
W dniu 2013-08-27 15:41, Gerhard Postpischil pisze:
On 8/27/2013 8:43 AM, Paul Gilmartin wrote:
And PDSE might have been a good place to introduce (optional) FBA
support. PDSE is really just FBA simulated on CKD simulated on FBA.
If you defined CKD as devices accepting count-field oriented
Well, they might be able to do some sort of back out. My main question is
basically is it better to throw an exception, which can be handled if
appropriate, but not easily ignored. Or it is better to give a return code
which _might_ be ignored due to poor programming practice, but is easier to
You can probably have it both ways. If a condition handler is
present, let it try to repair things. If not, ABEND.
John Gilmore, Ashland, MA 01721 - USA
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send
R.S. wrote:
snip
Well, don't take those names literally. In the very old days CKD became
ECKD, but the name CKD remain as simple distintcion from FBA disks.
snip
It's sometimes useful to differentiate between CKD the track format
(Count, Key, and Data), and the original set of CKD disk
W dniu 2013-08-27 21:30, John Eells pisze:
R.S. wrote:
snip
Well, don't take those names literally. In the very old days CKD became
ECKD, but the name CKD remain as simple distintcion from FBA disks.
snip
It's sometimes useful to differentiate between CKD the track format
(Count, Key, and
ENDICOTT, N.Y. --- This town in the hills of Upstate New York is best
known as the birthplace of IBM, one of the country's most iconic
companies. But there remain only hints of that storied past.
The main street, once swarming with International Business Machines
employees in their signature
In 8027846442974110.wa.paulgboulderaim@listserv.ua.edu, on
08/27/2013
at 07:36 AM, Paul Gilmartin paulgboul...@aim.com said:
Can you explain?
Never mind; the text that I was looking at only applies if the line
count is 0. Sorry for the mistake.
--
Shmuel (Seymour J.) Metz, SysProg
In 2436150148124474.wa.paulgboulderaim@listserv.ua.edu, on
08/27/2013
at 07:43 AM, Paul Gilmartin paulgboul...@aim.com said:
Would you be thinking of multi-volume?
I was thinking of an equivalent to QPAM in TSS, but using an ACB
interface and an RCI for PDS.
And PDSE might have been a
In 9390988258167395.wa.paulgboulderaim@listserv.ua.edu, on
08/27/2013
at 08:33 AM, Paul Gilmartin paulgboul...@aim.com said:
I'm most familiar with address SYSCALL.
Address is a keyword statement, not a REXX utility.
That's one.
No.
That's one. But, right back at you: how many
On 8/27/2013 3:37 PM, R.S. wrote:
Not to mention that K of CKD almost became extinct, since it lives only
as part of VTOC or PDS directory (did I miss something?), so the track
format is usually C-D. ;-)
You mean nobody uses BDAM or ISAM any more? g
And I almost miss the Search Key and Data
In
f9bda1112828604888c2c399471141b204628b8...@pgexchis03.co.pg.md.us,
on 08/27/2013
at 10:16 AM, Rouse, Willie wro...@co.pg.md.us said:
I would like to send messages to application owners when critical
jobs fail/abend. I don't know if there is a way to send an SMS
messages from Jes2.
Why not
In
caajsdjg5av6yb9rjqg1kachxzapvcwcz9gzt65srhkyegyf...@mail.gmail.com,
on 08/27/2013
at 12:51 PM, John McKown john.archie.mck...@gmail.com said:
So I thought it might be a good idea to use the CEESGL function to
throw an exception instead of just returning a return code which
could be ignored.
On 8/27/2013 2:39 PM, R.S. wrote:
At the time... PDSE is approx 20 years old. It's quite enough time to
create new filesystem from scratch or enhance some features of existing
operating system. I remember DOS+Windows 3.1 and see what could be done
those years. Not to mention Linux (apperance),
I may, optionally, do both. I will be distributing this via the CBTTape. So
source will be included. I can make the CEESGL usage dependent on a
SYSPARM value. Another possibility is to use LE environment variables in
order to specify the use of CEESGL or not at run-time. The best of both
worlds. I
Scott,
There are lots of ways to do this. Some of the questions you have to first ask
are: 1) Are the tasks asynchronous to each other? 2) Can there be more than one
slave task? 3) What are you attempting to accomplish with sub tasks?
Generally, you want a sub task to do something while the
Question 1: Just want to confirm that I am reading the documentation
correctly On ESTAE(X), TERM=YES basically says Yes, I want my recovery
routine driven for operator cancel and things like that and TERM=NO says
only drive the recovery routine for 'normal' ABENDs. Is that basically
correct?
On 8/27/2013 4:52 PM, Charles Mills wrote:
Question 1: Just want to confirm that I am reading the documentation
correctly On ESTAE(X), TERM=YES basically says Yes, I want my recovery
routine driven for operator cancel and things like that and TERM=NO says
only drive the recovery routine for
SDWACLUP is a one way communication from RTM to the recovery routines. It
notifies them that this is an abend from which no retry is possible.
This behavior is documented fairly well as others have indicated. Another
possible resource that helped me was to sit down with a cup o joe and
I found the following in the Authorized Service Guide:
When the system gives control to the recovery routines defined with the
TERM=YES parameter as a result of the above errors [operator cancel, etc.],
the system takes the
following actions:
- Sets the SDWACLUP bit
- Gives control to all such
All,
Thanks for all the great pointers. I haven't had to write multitasking code
s,
This is a new adventure an seems I have a bunch of reading to do...never a dull
moment
Best Regards,
Scott ford
www.identityforge.com
from my IPAD
'Infinite wisdom through infinite means'
On Aug 27,
Do you mean which are not having any associated GDS? or mean they not using any
Space ? or they have status of Rolled off? if rolled off I did code CSI
interface which work on filter and give you list of datasets which in that
status pretty fast and nice way of working with catalogs..let me
74 matches
Mail list logo