Re: sadump (and autoipl)

[Tidy, David (D)]

As regards the HLQ part, we have successfully used a non-SYS1 SMS managed 4xm27 
dataset for the non-prompt AUTOIPL Sadump:

AMDSADMP IPL=D3390,VOLSER=SD,   
  OUTPUT=(DBD36,PXSYS.OPER.SADMP),  
  DDSPROMPT=NO, 
  MINASID=ALL,  
  REUSEDS=ALWAYS,   
  CONSOLE=((SYSC),(0C0,3278),(0E0,3278))

.. and for the dataset ...

  EX 'SYS1.SBLSCLI0(AMDSADDD)' 'REALLOC +
  (SD00DA,SD00DB,SD00DC,SD00DD)(PXSYS.OPER.SADMP) +  
  (3390,SCXSYSGS) 32382 YES LARGE'   

(the set-up is a common target for multiple sysplexes, and we do have 2 Sadump 
flavours - i.e. there is also a traditional one with prompt). I can provide the 
'full' job including the pagedump allocations if anyone is really interested.
 

Best regards,
David Tidy  Tel:(31)115-67-1745
IS Technical Management/SAP-Mf  Fax:(31)115-67-1762 
Dow Benelux B.V.

  Regardless of that, on our test systems, we always use
a HLQ other than SYS1, because it is convenient for us
to have the SADMP data sets cataloged in a shared user catalog.
There isn't any reason I am aware of to need to use SYS1
as the HLQ. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: sadump (and autoipl)

[Jim Mulder]

> I love it when you guys do that to me! :-) Especially as I was too 
> fast to remedy the situation by reallocating everything before I had
> figured out what I should have answered those prompts with! Jim 
> Mulder must be on vacation - I had hoped he could confirm this for me.

  Vacation?  Not likely.  I just don't know all the answers off the top
of my head, and was tied up with other problems.  I will get to it.

> As far as the sys1.sadmp vs. .sadmp goes - it might be a remnant
> of when we first took sadumps back to DASD. Since then we didn't go 
> to new DASD hardware, so it is kind of understandable that I wasn't 
> aware of this, especially as I wasn't involved in the DASD 
> migration. I had caught the sys1.pagedump thing and the wrong unit 
> in the amdsaosg generation, but I missed the reallocation of the 
> output dataset. The general take here is anyway, that sadumps are 
> only there to indulge me.
> 
> Why we use the SMS-managed HLQ, I have no clue. I had been told way 
> back when that that was the only way to go multivolume or whatever. 
> I am reluctant to change this now, since it had worked so far (other
> than this last attempt).

  Prior to DSNTYPE=LARGE in z/OS 1.7, the only way to use an
extent size larger than 64k tracks was to use an extended
format data set, and extended format data sets must be on
SMS-managed volumes. 

  Regardless of that, on our test systems, we always use
a HLQ other than SYS1, because it is convenient for us
to have the SADMP data sets cataloged in a shared user catalog.
There isn't any reason I am aware of to need to use SYS1
as the HLQ. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

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

Re: Z/architecture I/O questions

[Jim Mulder]

> >it runs with only a subset of it's LCPs enabled for interrupts
> I have a definite problem with the wording of this. 'Enabled for 
> interrupts' in my book is quite independent of the logical/physical 
> cp distinction. 'enabled for interrupts' is a 7 at the appropriate 
> point in the psw (instead of a 4 when disabled - grossly 
> simplified). And 'disabled for interrupts' means just that - *any* 
> type of interrupt, not just I/O interrupts.

> When all cps of an lpar are disabled for interrupts, then all I/O 
> interrupts stay waiting for the lpar to handle them, i.e. to become 
> enabled for interrupts again at least on one cp. This is independent
> of any cpenable setting, AFAIK. 

  The machine presents a guest I/O interrupt directly to a dispatched
LP in the appropriate zone if there is a dispatched LP which is
enabled in its guest PSW and interrupt subclass mask in guest CR6.

 If there is no such LP, the machine presents a host I/O interrupt
to LPAR.  Then it becomes LPAR's responsibility to present the 
interrupt to the guest by dispatching an appropriately enabled LP
(if there is one), or setting SIE controls so that it can 
intercept when a guest LP becomes appropriately enabled, and then
present the interrupt.

  Host I/O and External interrupts can be presented to a host
CP even though the guest LP dispatched on that CP is disabled
for guest interrupts. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

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

Re: Dedicated vs. Shared CPs

[Timothy Sipples]

Barbara Nitz writes:
>And coming from a z9 presumably to a z196, chances are very
>good that you would loose physical cps to keep money down.

It's not clear yet which z9 the original poster has. Moving from a z9 BC to
a z114, no. There are more capacity models in the z114 and more
configurable engines available but with the same capacity starting points,
so there's more choice, not less. Moreover, a z114 could be an appropriate
upgrade from a smaller z9 EC. It's very possible a z114 could provide
*more* engines with the same overall PCI.

Moving from a z9 EC to a z196, maybe, but there's still more overall
flexibility. The z9 EC only permits up to the first eight engines as
sub-capacity engines, while the z196 supports up to 15 sub-capacity
engines. There's also a double MSU "technology dividend" in that move.
(Yes, there's a technology dividend from z10 EC to z196, too -- a bit in
MSU terms plus AWLC.) And presumably the original poster would be moving to
AWLC on the z196, meaning sub-capacity licensing would be available, if he
doesn't already have that. "Money" is overwhelmingly correlated with peak
utilization, not capacity -- and with a very curvaceous curve past the base
investment.

If the original poster has a 6xx or 7xx z9 EC, then it's possible that they
could move to a z196 with more engines in a 4xx or perhaps 5xx
configuration. For example, if they've got a z9 EC 703 (1607 PCI, 229
MSUs), they could move to a z114 Y03 (1788 PCI), W04 (1595), X04 (1941),
V05 (1723). They could also move to a z196 408 (1667) or 503 (1642). Every
one of those options except the X04 would have fewer MSUs than the z9 EC
703. And every one of those options would have AWLC or AEWLC in addition to
the MSU change.

Note that both the z114 and z196 support HiperDispatch.

The best thing to do is to sit down with a system architect or specialist
to determine the right fit for the workloads. But, to net it out, reducing
the number of engines is an unlikely *requirement*, even for money reasons.


Timothy Sipples
Resident Enterprise Architect (Based in Singapore)
E-Mail: timothy.sipp...@us.ibm.com

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

Subject: SV: REXX IEBCOPY Continuation?

[Mark Jones]

Hi 
I havent had a problem with this

/* REXX */ 
"FREE F(INDD1)" 
"FREE F(OUTDD1)" 
"FREE F(SYSIN)" 
"ALLOC FI(INDD1) DSN('x..aaa') SHR" 
"ALLOC FI(OUTDD1) DSN('x..bbb') SHR" 
"ALLOC FI(SYSIN) DSN('x..ccc') SHR" 
"NEWSTACK" 
V1 = " C I=((INDD1,R)),O=OUTDD1" 
V2 = " SELECT MEMBER=((MSJT,,R))" 
V3 = " SELECT MEMBER=((MSJTST1,,R))" 
V4 = " SELECT MEMBER=((MSJTST2,,R))" 
V5 = " SELECT MEMBER=((MSJTST7,,R))" 
QUEUE V1 
QUEUE V2 
QUEUE V3 
QUEUE V4 
QUEUE V5 
"EXECIO" QUEUED() "DISKW SYSIN (FINIS" 
"TSOEXEC IEBCOPY" 
"DELSTACK" 
"FREE F(INDD1)" 
"FREE F(OUTDD1)" 
"FREE F(SYSIN)" 


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

Re: Z/architecture I/O questions

[Timothy Sipples]

Rob Schramm writes:
>If you upgrade to z10 / z114, you can use GCL (group capacity limits). It
>allows for better flexibility without having to "hard cap".

Though there are many excellent reasons to upgrade to a z114 or z196, LPAR
group capacity limits (group "softcaps") are available on z9 or later
hardware running z/OS 1.8 or later.


Timothy Sipples
Resident Enterprise Architect (Based in Singapore)
E-Mail: timothy.sipp...@us.ibm.com

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

Re: Z/architecture I/O questions

[Barbara Nitz]

>The channel requests an I/O interrupt. It must be processed by a specific 
>LPAR, but not a specific CPU.

With regard to cpenable, I believe you've missed the fact cpenable only comes 
into play when you're dealing with *pending* interrupts. Using the TPI (test 
pending interrupt) means that you won't need to go through the I/O FLIH 
overhead again. Instead I/O FLIH (or is it I/O SLIH) tests if more interrupts 
are pending and handles them as well. Only when the percentage of pending 
interrupts exceeds the cpenable values, a second logical cp will handle them. 
For dedicated cps in lpar mode, Init&Tuna for 1.12 says to use the basic mode 
default, which is 10,30. lpar mode default is 0,0.

>it runs with only a subset of it's LCPs enabled for interrupts
I have a definite problem with the wording of this. 'Enabled for interrupts' in 
my book is quite independent of the logical/physical cp distinction. 'enabled 
for interrupts' is a 7 at the appropriate point in the psw (instead of a 4 when 
disabled - grossly simplified). And 'disabled for interrupts' means just that - 
*any* type of interrupt, not just I/O interrupts.

When all cps of an lpar are disabled for interrupts, then all I/O interrupts 
stay waiting for the lpar to handle them, i.e. to become enabled for interrupts 
again at least on one cp. This is independent of any cpenable setting, AFAIK. 

'Elongated I/O times' stem from the lpar dispatcher not dispatching your lpar 
as a whole, not noticably from any cpenable setting. If a lowly weighted lpar 
is not dispatched, it can obviously not handle the I/O interrupt. Assuming the 
lpar is dispatched on one or more physical cps, and running enabled for I/O 
interrupts, those will be handled immediately, and *before* any 'application 
work' is done. If your lpar is so heavily loaded that most of the time some 
system routine runs disabled for I/O, then no amount of cpenable tuning will 
change that.

Just how did you arrive at the conclusion that elongated I/O times are the 
source of your problem? How did you measure them?

Barbara Nitz

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

Re: sadump (and autoipl)

[Skip Robinson]

I trade blonde jokes with a blonde friend. A recent gem from her (nothing 
personal!):

A gorgeous young redhead goes into the doctor's office and said that her 
body hurt wherever she touched it. 
'Impossible!' says the doctor.. 'Show me.' 
The redhead took her finger, pushed on her left shoulder and screamed, 
then she pushed her elbow and screamed even more. She pushed her knee and 
screamed; likewise she pushed her ankle and screamed. Everywhere she 
touched made her scream. 
The doctor said, 'You're not really a redhead, are you? 
'Well, no' she said, 'I'm actually a blonde.' 
'I thought so,' the doctor said, 'Your finger is broken.' 

There is an IBM-MAIN thread moral here: if what you're doing hurts, stop 
doing it. Doctor's orders. 
.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Barbara Nitz 
To: IBM-MAIN@bama.ua.edu
Date:   02/15/2012 09:07 PM
Subject:Re: sadump (and autoipl)
Sent by:IBM Mainframe Discussion List 



>As to whether a null reply in the reported case would have reverted SAD 
to
>the original values, I think we're all looking to Barbara to answer her
>own question. ;-)

I love it when you guys do that to me! :-) Especially as I was too fast to 
remedy the situation by reallocating everything before I had figured out 
what I should have answered those prompts with! Jim Mulder must be on 
vacation - I had hoped he could confirm this for me.

As far as the sys1.sadmp vs. .sadmp goes - it might be a remnant of 
when we first took sadumps back to DASD. Since then we didn't go to new 
DASD hardware, so it is kind of understandable that I wasn't aware of 
this, especially as I wasn't involved in the DASD migration. I had caught 
the sys1.pagedump thing and the wrong unit in the amdsaosg generation, but 
I missed the reallocation of the output dataset. The general take here is 
anyway, that sadumps are only there to indulge me.

Why we use the SMS-managed HLQ, I have no clue. I had been told way back 
when that that was the only way to go multivolume or whatever. I am 
reluctant to change this now, since it had worked so far (other than this 
last attempt).

Barbara


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

Re: Dedicated vs. Shared CPs

[Skip Robinson]

I checked out an MVS Image profile on my (brand spanking new!) z196. It 
looks the choice is between dedicated or shared CPs. A CF LPAR offers more 
choices, but oddly fewer choices than the z10 it replaced. 

.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Barbara Nitz 
To: IBM-MAIN@bama.ua.edu
Date:   02/15/2012 08:58 PM
Subject:Re: Dedicated vs. Shared CPs
Sent by:IBM Mainframe Discussion List 



>Is it possible to mix shared and dedicated CPs on the same LPAR?
No. Not on a z9 and not the way you mean.

The RMF report deals with what an lpar can look like when it uses 
Hiperdispatch. That is not available on a z9.
Hiperdispatch semi-dedicates logical processors to physical processors 
depending on the workload. And most probably depending on the number of 
physical cps. (Which is why we asked for the number of your physical cps 
in the other thread - you haven't answered that!)  Once hiperdispatch is 
on, a physical cp gets a weight, which can be low, medium or high. High 
amounts to being (semi-)dedicated.

>Does anyone run mixed like this, a dedicated number to cover the minimum 
expected MSU of an LPAR, then some logicals to float between LPARS?
Everyone who uses hiperdipatch.

>Does anyone know what is needed in terms of outages/lpar resets to move 
from a completely logical CP environment to a mixed environment?
An upgrade to a machine supporting hiperdispatch. Which means at least one 
IPL. But as you can see from my questions starting this thread, it is 
possible that you cannot use hiperdispatch - whenever your logical to 
physical cp ratio is so bad that 4 or more logical cps compete for one 
physical, due to the number of lpars you have, for instance. In the very 
first presentation I heard (by Bob Rogers) about hiperdispatch, he said 
that it will turn itself off if the ratio is really bad. I haven't heard 
that confirmed anywhere, though.

And coming from a z9 presumably to a z196, chances are very good that you 
would loose physical cps to keep money down. Try making your bosses 
understand that they cannot use the same number of logicals when the 
number of physicals decreases

Barbara Nitz


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

Re: sadump (and autoipl)

[Barbara Nitz]

>As to whether a null reply in the reported case would have reverted SAD to
>the original values, I think we're all looking to Barbara to answer her
>own question. ;-)

I love it when you guys do that to me! :-) Especially as I was too fast to 
remedy the situation by reallocating everything before I had figured out what I 
should have answered those prompts with! Jim Mulder must be on vacation - I had 
hoped he could confirm this for me.

As far as the sys1.sadmp vs. .sadmp goes - it might be a remnant of when we 
first took sadumps back to DASD. Since then we didn't go to new DASD hardware, 
so it is kind of understandable that I wasn't aware of this, especially as I 
wasn't involved in the DASD migration. I had caught the sys1.pagedump thing and 
the wrong unit in the amdsaosg generation, but I missed the reallocation of the 
output dataset. The general take here is anyway, that sadumps are only there to 
indulge me.

Why we use the SMS-managed HLQ, I have no clue. I had been told way back when 
that that was the only way to go multivolume or whatever. I am reluctant to 
change this now, since it had worked so far (other than this last attempt).

Barbara

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

Off friday, back monday

[John Stevenson]

I will be out of the office starting 16/02/2012 and will return on
20/02/2012.

For anything urgent contact the Mainframe Services support number, x79371
or 04 924 9371 or email BNZ Mainframe Services.




CAUTION - This message may contain privileged and confidential information 
intended only for the use of the addressee named above. If you are not the 
intended recipient of this message you are hereby notified that any use, 
dissemination, distribution or reproduction of this message is prohibited. 
This email was sent by the Bank of New Zealand. You can contact us on 
0800 ASK BNZ (0800 275 269). Any views expressed in this message are those 
of the individual sender and may not necessarily reflect the views of Bank 
of New Zealand.

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

Re: Dedicated vs. Shared CPs

[Barbara Nitz]

>Is it possible to mix shared and dedicated CPs on the same LPAR?
No. Not on a z9 and not the way you mean.

The RMF report deals with what an lpar can look like when it uses 
Hiperdispatch. That is not available on a z9.
Hiperdispatch semi-dedicates logical processors to physical processors 
depending on the workload. And most probably depending on the number of 
physical cps. (Which is why we asked for the number of your physical cps in the 
other thread - you haven't answered that!)  Once hiperdispatch is on, a 
physical cp gets a weight, which can be low, medium or high. High amounts to 
being (semi-)dedicated.

>Does anyone run mixed like this, a dedicated number to cover the minimum 
>expected MSU of an LPAR, then some logicals to float between LPARS?
Everyone who uses hiperdipatch.

>Does anyone know what is needed in terms of outages/lpar resets to move from a 
>completely logical CP environment to a mixed environment?
An upgrade to a machine supporting hiperdispatch. Which means at least one IPL. 
But as you can see from my questions starting this thread, it is possible that 
you cannot use hiperdispatch - whenever your logical to physical cp ratio is so 
bad that 4 or more logical cps compete for one physical, due to the number of 
lpars you have, for instance. In the very first presentation I heard (by Bob 
Rogers) about hiperdispatch, he said that it will turn itself off if the ratio 
is really bad. I haven't heard that confirmed anywhere, though.

And coming from a z9 presumably to a z196, chances are very good that you would 
loose physical cps to keep money down. Try making your bosses understand that 
they cannot use the same number of logicals when the number of physicals 
decreases

Barbara Nitz

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

Re: CICS vs IMS

[Ken Brick]

On 16/02/2012 11:04 AM, Frank Swarbrick wrote:

We are a CICS shop with IMS DB (DBCTL), but I've been curious for a while about 
the differences between how CICS works and how IMS TM works.  I couldn't find 
anything on the web.  Anyone have a link to a good reference?

Thanks,
Frank

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


Frank,

Disclaimers.
1. I've never been involved with IMS/DC in application design or 
programming but have worked with DC as a sysprog.

2. It;s over 10 years since I was involved.

The 3 IMS/DC sites I worked at did 7*24 dispatching, among other things, 
with a lot of docket printing which seemed to work well within IMS/DC.


The other points, probably to be poorly  explained, is that DC has 
different types of regions eg. message regions and other regions for 
different types of processing. This allowed for micro management of DC 
without the overhead that equivalent micro management of CICS would 
cause. This I think also assisted in recovery when things went turtle up.


Ken

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

Re: CICS vs IMS

[Fred Hoffman]

 
They both have their +s and -s, The logging for IMS is very good.  Easy to use 
in recovery.  I thought that CICS was quicker and also had a pretty good log 
system.  Some of it depends upon the application you are using.  I'm a CICS 
bigot but, I'm also an IMS DBA.  
 
It's you pick and how experienced your staff is.  BTW, calls in cics are 
frowned upon, the last time I checked.
 
HTH,
Fred



From: IBM Mainframe Discussion List on behalf of Roberts, John J
Sent: Wed 2/15/2012 6:30 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: CICS vs IMS



>>We are a CICS shop with IMS DB (DBCTL), but I've been curious for a while 
>>about the differences between how CICS works >>and how IMS TM works.  I 
>>couldn't find anything on the web.  Anyone have a link to a good reference?

Try Google for "IMS DC".  The IMS Transaction Manager used to be called IMS/DC 
(for Data Communication).

It has been a long time since I touched it, but my recollection is that it was 
a cleaner implementation within the Operating System.  It used CALL level API's 
(no EXEC IMS precompiler) and exploited all the OS capabilities for 
multitasking and multiprocessing.  CICS on the other hand tried to isolate apps 
from the OS, becoming its own mini-OS within a single OS address space.  This 
was an advantage for CICS back in the 70's.  But I suspect the table has turned 
under z/OS.

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Dedicated vs. Shared CPs

[Joe Owens]

Is it possible to mix shared and dedicated CPs on the same LPAR?

I thought it wasn't, but a note on the RMF partition data report implies it is;

On WGT
Either the partition's current weighting of the shared processor resources or 
one of the following indicators:
DED
Indicates that the partition is dedicated.
DMX
Indicates that a mix of dedicated and non-dedicated processors is used in this 
partition.
WMX
Indicates that different share values are assigned to logical processors used 
in this partition

Does anyone run mixed like this, a dedicated number to cover the minimum 
expected MSU of an LPAR, then some logicals to float between LPARS?
Does anyone know what is needed in terms of outages/lpar resets to move from a 
completely logical CP environment to a mixed environment?

Thanks, Joe

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

IEBCOPY with I/O error on SYSIN

[Paul Gilmartin]

I was testing running from Rexx z/OS 1.13 IEBCOPY, which doesn't
require authorization:

0IEB1021E OMVS,*,SYSIN   ,GET   ,WRONG LEN RECRD,00,QSAM
17.52.11 STC09793  +IEB1021E OMVS,*,SYSIN   ,GET   ,WRONG LEN 
RECRD,00,QSAM
  
\216^A\220÷Ù¯ç"\2370"\2370"\2370"\2370"\2370"\2370"\2370"\2370Ù¯ç\216^A 
÷\216^A&÷
  -÷\216^Aø÷\216^AØ÷^B^P  ^B^A\234^B^A øåÖ*\200
â^A^A 
5\227åÔè^A\234^A^A¶C\213Ì\210Û7\237ÛÜ\237\227^BÌ
  LEN=X'0050' SENSE=A338-00
  
\216^A\220÷Ù¯ç"\2370"\2370"\2370"\2370"\2370"\2370"\2370"\2370Ù¯ç\216^A ÷
  -÷\216^Aø÷\216^AØ÷^B^P  ^B^A\234^B^A øåÖ*\200
â^A^A 
5\227åÔè^A\234^A^A¶C\213Ì\210Û7\237ÛÜ\237\227^BÌ
  LEN=X'0050' SENSE=A338-00
  
\216^A\220÷Ù¯ç"\2370"\2370"\2370"\2370"\2370"\2370"\2370"\2370Ù¯ç\216^A ÷
  -÷\216^Aø÷\216^AØ÷^B^P  ^B^A\234^B^A øåÖ*\200
â^A^A 
5\227åÔè^A\234^A^A¶C\213Ì\210Û7\237ÛÜ\237\227^BÌ
  LEN=X'0050' SENSE=A338-00
  
\216^A\220÷Ù¯ç"\2370"\2370"\2370"\2370"\2370"\2370"\2370"\2370Ù¯ç\216^A ÷
  -÷\216^Aø÷\216^AØ÷^B^P  ^B^A\234^B^A øåÖ*\200
â^A^A 
5\227åÔè^A\234^A^A¶C\213Ì\210Û7\237ÛÜ\237\227^BÌ
  LEN=X'0050' SENSE=A338-00
-STEP1COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT
0IEB1013I COPYING FROM PDS   INDD=SYSUT1   VOL=M20RES DSN=SYS1.MACLIB
 IEB1014I   TO PDSE OUTDD=SYSUT2   VOL=WORK01 
DSN=SYS12046.T175200.RA000.user9.R0F32424
17.52.45 STC09793  IEC032I 
E37-04,IGC0005E,user9,STEP1,SYSUT2,4158,WORK01,SYS12046.T175200.RA000.user9.R0F32424

The I/O error is somewhat intentional, and correctly reported by IEBCOPY.
Yet I have a complaint:

-STEP1COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT

... seems imprudent.  On encountering an I/O error and reading nothing
legible on SYSIN, IEBCOPY ought to quietly quit rather than attempting
to DWIM.

What if I had intended SYSUT2 as an input data set?  (I know, bad practice,
but still ...)

-- gil

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

Re: 5 Byte Device Addresses?

[Dan]

Thanks Radoslaw & Bob.

I figured there must be some explanation for the additional byte other than 
some new extended device ranges.

This is still a DOC problem as the manual simply states these are device 
addresses.

Radoslaw, are you saying there is a way of creating an IPLable device with a 
5 byte device address after z/OS 1.7?  How is that possible when UCBCHAN 
only provides space for 4 byte addresses (which "D U,..." uses)?

Dan

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

Re: CICS vs IMS

[Roberts, John J]

>>We are a CICS shop with IMS DB (DBCTL), but I've been curious for a while 
>>about the differences between how CICS works >>and how IMS TM works.  I 
>>couldn't find anything on the web.  Anyone have a link to a good reference?

Try Google for "IMS DC".  The IMS Transaction Manager used to be called IMS/DC 
(for Data Communication).

It has been a long time since I touched it, but my recollection is that it was 
a cleaner implementation within the Operating System.  It used CALL level API's 
(no EXEC IMS precompiler) and exploited all the OS capabilities for 
multitasking and multiprocessing.  CICS on the other hand tried to isolate apps 
from the OS, becoming its own mini-OS within a single OS address space.  This 
was an advantage for CICS back in the 70's.  But I suspect the table has turned 
under z/OS.

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

Re: CICS vs IMS

[Mike Schwab]

I have programmed with both systems.  IMS TM seems to be a bit cleaner
to me.  CICS seems to be more susecptible to other program's errors.

Both feature 3270 screen handling, storing information between screen
actions, updating databases, sending updated screens.

On Wed, Feb 15, 2012 at 6:04 PM, Frank Swarbrick
 wrote:
> We are a CICS shop with IMS DB (DBCTL), but I've been curious for a while 
> about the differences between how CICS works and how IMS TM works.  I 
> couldn't find anything on the web.  Anyone have a link to a good reference?
>
> Thanks,
> Frank
>

-- 
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...@bama.ua.edu with the message: INFO IBM-MAIN

CICS vs IMS

[Frank Swarbrick]

We are a CICS shop with IMS DB (DBCTL), but I've been curious for a while about 
the differences between how CICS works and how IMS TM works.  I couldn't find 
anything on the web.  Anyone have a link to a good reference?

Thanks,
Frank

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

Re: REXX IEBCOPY Continuation?

[Skip Robinson]

I believe that IEBCOPY (and some/all? of the old DFP utilities) consider 
anything in column 1 to be a label. Hence actual control keywords have to 
start in column 2+. 

.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   "Hansen, Dave L - Eagan, MN" 
To: IBM-MAIN@bama.ua.edu
Date:   02/15/2012 01:06 PM
Subject:Re: REXX IEBCOPY Continuation?
Sent by:IBM Mainframe Discussion List 



Randall,

  That was it.  I started the SELECT in column 2!

   THANK YOU!! 


Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
Behalf Of Gross, Randall [GCG-PFS]
Sent: Wednesday, February 15, 2012 3:00 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

I don't think SELECT can start in column 1.. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
Behalf Of Hansen, Dave L - Eagan, MN
Sent: Wednesday, February 15, 2012 3:34 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 
FCO411A UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I S M=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
Behalf Of Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För 
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S 
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command 
> or keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov

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

Re: Authorized functions

[Lindy Mayfield]

There are not too many options to do something authorized from Rexx.  I should 
have a list somewhere...  

Anyway, I was curious about that part.  It was once an interest of  mine.

Regards,
Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Scott Ford
Sent: Wednesday, February 15, 2012 9:16 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Authorized functions

Walt,
 
First , thanks for responding..
 
Let me explain:
 
The STC is in LE Cobol..4.2
I want to call IKJEFTSR ...to call a rexx clist that will perform authorized 
functions , i.e.; alloc, free 

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

OT - SMS Invision question

[Richard Pinion]

As a system programmer I have been assigned the task of taking a customer's SMS 
Invision system, PA, AP, GL, etc., and restoring it to our system.  We have 
restored all of the data sets.  Now, I have been asked to identify and run only 
the PA (Patient Accounting) part of their batch schedule.  A) Is it possible to 
only run the PA part of the batch schedule B) Has anyone on IBM-Main done 
something like this, and can you offer assistance/advice.  

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

Re: Z/architecture I/O questions

[Joe Owens]

Hi thanks for all the replies so far.

I've just read the the z/os abcs vol 10 about I/O processing and have some 
thoughts about CPENABLE
First we are running (10,30) which seems to be IBMs current recommendation for 
Z9.

So is this what happens?

The channel requests an I/O interrupt. It must be processed by a specific LPAR, 
but not a specific CPU.

If CPENABLE(0,0) was in effect, any LCP dispatched on the target LPAR could 
process the I/O, and would do so ahead of normal work. Ie the task would stop 
waiting and become ready, after which it's dispatch priority within the LPAR 
would come into play.

If an LPAR is using CPENABLE(10,30) or some other none zero value, it runs with 
only a subset of it's LCPs enabled for interrupts. If none of these LCPs happen 
to be dispatched to the LPAR, the interrupt remains pending until other LPAR 
relinquishes one of it's LCPS, freeing a physical CP to dispatch one of the 
LCPs enabled for interrupts. When the systems are capped, a z/os is more likely 
to have a queue of ready work, and more likely to hold onto a CP until it is 
taken away by the "processor running time" value, which is between 12.5 and 25 
millisecs.

In this case setting CPENABLE(0,0) on just the low weight LPAR should mean the 
interrupt is serviced more quickly (but will have a downside in terms of CPU 
cache).

So I am thinking I should look in this order

1) Reduce the online LCPs on each LPAR to match the peak demand of the LPAR, 
preferably using IRD to so it automatically.
2) If this does not reduce enough, try CPENABLE(0,0) on the small LPAR
3) If this does not reduce enough, try manually setting the processor running 
time below 12 miilisecs on the HMC. 

Any thoughts would be appreciated.

Joe

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

PRINT (NOCC for z/OS?

[Hansen, Dave L - Eagan, MN]

Group,

   We found the issue with this.  The MVS Spool can hold binary PDFs.  The 
leading x'40' is NOT a problem.  We added more of them to prove it.  The 
problem is with the PDF viewer.


 Thank you for all your input on this matter,  Dave


Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov






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

Re: REXX IEBCOPY Continuation?

[Paul Gilmartin]

On Wed, 15 Feb 2012 15:42:08 -0600, Ed Gould wrote:
>
>I rhink the word "select" must start in column 2
>
???

I thought it could start any where from 2 through 16.  But I haven't
checked the manual.

-- gil

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

Re: REXX IEBCOPY Continuation?

[Ed Gould]

Dave:

I rhink the word "select" must start in column 2

Ed

On Feb 15, 2012, at 2:33 PM, Hansen, Dave L - Eagan, MN wrote:


Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I SELECT MEMBER=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I S M=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu]  
On Behalf Of Thomas Berg

Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"



Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK



-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
Hansen, Dave L - Eagan, MN
Skickat: den 15 februari 2012 21:08
Till: IBM-MAIN@bama.ua.edu
Ämne: REXX IEBCOPY Continuation?

Group,

  I have a REXX EXEC:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
queue V1 '+' V2
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

 It gets an error:
 FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S
M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
AY2LND)
 FCO411A INVALID CONTINUATION



 I tried to stack both records
   Queue V1
   Queue v2

 It gets an error when the second record is read - Undefined  
command or

keyword.


Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
Q). Is ISPF Library Managemnet my other solution to copy select  
members?



  Thanks in advance,  Dave


Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov



- 
-

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...@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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Authorized functions

[Paul Gilmartin]

On Wed, 15 Feb 2012 16:09:50 -0500, Joe Aulph wrote:

>Maybe it's just the biggot'd Assembler flake within but wouldn't this
>be much simpler with the COBOL program simply calling an DYNALLOC
>routine in Assembler...  no authorization needed at all for this.
> 
I had wondered about that, from when the OP first mentioned APF.
I had never encountered an authorization requirement for allocation.

A bigoted assembler detractor would suggest BPXWDYN.  It depends
on whether one would prefer to construct an ugly collection of TUs
or one ugly command string.

-- gil

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

Re: Authorized functions

[Paul Gilmartin]

On Wed, 15 Feb 2012 14:59:29 -0600, Chris Craddock wrote:

>On Wed, Feb 15, 2012 at 2:55 PM, McKown, John wrote:
>
>> If you really want do this this: run an APF authorized TSO command from a
>> COBOL program, even one which is linked AC=1. Well, you'll need to "cheat
>> horribly". One way to cheat is to run your COBOL program under TSO.
>
>Do I even need to point out what a bad idea this is?
> 
Is it any worse than anything you might be forced to use TSO for?
(Remember what Stephen Curtis Johnson said.)

And, if it works, don't fix it.

-- gil

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

BPX.UNIQUE.USER APPLDATA model profile

[David Magee]

I was wondering how some of you are handling the HOME field of the model userid 
profile specified in the APPLDATA field of the  BPX.UNIQUE.USER porfile.  

The IBM examples I've seen all show /tmp for HOME.  My current OEDFLTU userid 
in use with the BPX.DEFAULT.USER profile uses /tmp.

Is there a way to have the generated OMVS segment have /u/userid show up in 
HOME  maybe via a template similar to /u/&sysuid  (I know that &SYSUID is 
unique to TSO/E).  If possible, what are the pros and cons for one over the 
other? 

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

Re: REXX IEBCOPY Continuation?

[retired mainframer]

:>: -Original Message-
:>: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
:>: Behalf Of Hansen, Dave L - Eagan, MN
:>: Sent: Wednesday, February 15, 2012 12:34 PM
:>: To: IBM-MAIN@bama.ua.edu
:>: Subject: Re: REXX IEBCOPY Continuation?
:>:
:>: Still no luck:
:>:
:>: FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
:>: FCO105I SELECT MEMBER=DBOK62
:>: FCO411A UNIDENTIFIED COMMAND OR KEYWORD
:>:
:>: "NEWSTACK"
:>: V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
:>: V2 = "SELECT MEMBER=DBOK62"

SELECT cannot start in column 1.  Insert a leading blank

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

Re: Authorized functions

[Scott Ford]

Yep, a Security program like RACF ...


Scott J Ford
Software Engineer
http://www.identityforge.com
 
 


 From: retired mainframer 
To: IBM-MAIN@bama.ua.edu 
Sent: Wednesday, February 15, 2012 4:12 PM
Subject: Re: Authorized functions
  
:>: -Original Message-
:>: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
:>: Behalf Of Scott Ford
:>: Sent: Wednesday, February 15, 2012 11:16 AM
:>: To: IBM-MAIN@bama.ua.edu
:>: Subject: Re: Authorized functions
:>:
:>: Walt,
:>:
:>: First , thanks for responding..
:>:
:>: Let me explain:
:>:
:>: The STC is in LE Cobol..4.2
:>: I want to call IKJEFTSR ...to call a rexx clist that will perform
:>: authorized functions , i.e.; alloc, free

As near as I can tell, neither allocate nor free are authorized functions
and they do not appear in IKJTSOxx.  Does your REXX invoke any authorized
commands?

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Authorized functions

[retired mainframer]

:>: -Original Message-
:>: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
:>: Behalf Of Scott Ford
:>: Sent: Wednesday, February 15, 2012 11:16 AM
:>: To: IBM-MAIN@bama.ua.edu
:>: Subject: Re: Authorized functions
:>:
:>: Walt,
:>:
:>: First , thanks for responding..
:>:
:>: Let me explain:
:>:
:>: The STC is in LE Cobol..4.2
:>: I want to call IKJEFTSR ...to call a rexx clist that will perform
:>: authorized functions , i.e.; alloc, free

As near as I can tell, neither allocate nor free are authorized functions
and they do not appear in IKJTSOxx.  Does your REXX invoke any authorized
commands?

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

Re: REXX IEBCOPY Continuation?

[Gross, Randall [GCG-PFS]]

Sometimes the simple problems are the hardest to find 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Hansen, Dave L - Eagan, MN
Sent: Wednesday, February 15, 2012 4:06 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Randall,

  That was it.  I started the SELECT in column 2!

   THANK YOU!! 


Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Gross, Randall [GCG-PFS]
Sent: Wednesday, February 15, 2012 3:00 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

I don't think SELECT can start in column 1.. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Hansen, Dave L - Eagan, MN
Sent: Wednesday, February 15, 2012 3:34 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I S M=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För 
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S 
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command 
> or keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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...@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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Authorized functions

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Chris Craddock
> Sent: Wednesday, February 15, 2012 2:59 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Authorized functions
> 
> On Wed, Feb 15, 2012 at 2:55 PM, McKown, John 
>  > wrote:
> 
> > If you really want do this this: run an APF authorized TSO 
> command from a
> > COBOL program, even one which is linked AC=1. Well, you'll 
> need to "cheat
> > horribly". One way to cheat is to run your COBOL program under TSO.
> 
> 
> 
> Do I even need to point out what a bad idea this is?

Well, why is it any more horrible than his current method of running his code 
AC=1? He's already said that the code is currently APF authorized anyway. I 
agree that adding APF authorization to his code __just for this purpose__ would 
be a really bad idea. In fact, isn't is possible to run a non-APF COBOL 
program, in TSO (batch), which uses IRXEXEC to invoke a REXX program which does 
an ADDRESS TSO to run an APF authorized TSO command? I.e. running under the TMP 
in batch could remove the current requirement for APF authorization, depending 
on what else the code does.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

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

Re: Authorized functions

[Joe Aulph]

Maybe it's just the biggot'd Assembler flake within but wouldn't this
be much simpler with the COBOL program simply calling an DYNALLOC
routine in Assembler...  no authorization needed at all for this.

On 2/15/12, Chris Craddock  wrote:
> On Wed, Feb 15, 2012 at 2:55 PM, McKown, John > wrote:
>
>> If you really want do this this: run an APF authorized TSO command from a
>> COBOL program, even one which is linked AC=1. Well, you'll need to "cheat
>> horribly". One way to cheat is to run your COBOL program under TSO.
>
>
>
> Do I even need to point out what a bad idea this is?
>
>
>
> --
> This email might be from the
> artist formerly known as CC
> (or not) You be the judge.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>


-- 
Joe Aulph,
Senior Systems Programmer
State of Florida:
Northwood Shared Resource Centre
850-487-8945

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

Re: REXX IEBCOPY Continuation?

[Hansen, Dave L - Eagan, MN]

Randall,

  That was it.  I started the SELECT in column 2!

   THANK YOU!! 


Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Gross, Randall [GCG-PFS]
Sent: Wednesday, February 15, 2012 3:00 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

I don't think SELECT can start in column 1.. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Hansen, Dave L - Eagan, MN
Sent: Wednesday, February 15, 2012 3:34 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I S M=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För 
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S 
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command 
> or keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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...@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

Re: REXX IEBCOPY Continuation?

[Hansen, Dave L - Eagan, MN]

Paul,

   Batch works fine because of the sysin DD:

//SYSINDD *
COPY INDD=MYDD1,OUTDD=MYDD2
   SELECT MEMBER=(mem1,mem2,mem3)/ EXCLUDE member=(sf,df,sa)
/*

   Just can't get the SELECT to take as a second line in REXX.  The first line 
works great!


  Thank you,  Dave


Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Paul Gilmartin
Sent: Wednesday, February 15, 2012 2:56 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

On Wed, 15 Feb 2012 12:41:17 -0800, Scott Ford wrote:
 
Usually you need to queue a null line as the last line in the stack..

The count ("queued()") should make that unnecessary.


 From: "Hansen, Dave L - Eagan, MN" 
To: IBM-MAIN@bama.ua.edu
Sent: Wednesday, February 15, 2012 3:33 PM
Subject: Re: REXX IEBCOPY Continuation?
  
Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD
 
Most utility commands must start in column 2 or later.
Is IEBCOPY different?

When all else fails, try the command file in a batch job.  Is the result 
different?

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

-- gil

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: REXX IEBCOPY Continuation?

[Gross, Randall [GCG-PFS]]

I don't think SELECT can start in column 1.. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Hansen, Dave L - Eagan, MN
Sent: Wednesday, February 15, 2012 3:34 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I S M=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För 
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S 
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command 
> or keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Authorized functions

[Chris Craddock]

On Wed, Feb 15, 2012 at 2:55 PM, McKown, John  wrote:

> If you really want do this this: run an APF authorized TSO command from a
> COBOL program, even one which is linked AC=1. Well, you'll need to "cheat
> horribly". One way to cheat is to run your COBOL program under TSO.



Do I even need to point out what a bad idea this is?



-- 
This email might be from the
artist formerly known as CC
(or not) You be the judge.

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

Re: REXX IEBCOPY Continuation?

[Hansen, Dave L - Eagan, MN]

Scott,
 The example didn't show a null line.  I've seen EXECIO use a null line.

FCO105I S M=TRAY2LND
FCO411A UNIDENTIFIED COMMAND OR KEYWORD
FCO105I
FCO417A PRECEDING CONTROL STATEMENT(S) INVALID
FCO419A OPERATION TERMINATED

QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
QUEUE ''
"EXECIO" queued() "DISKW SYSIN (FINIS"


   Thank you,  Dave


Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Scott Ford
Sent: Wednesday, February 15, 2012 2:41 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX IEBCOPY Continuation?

Dave,
 
Usually you need to queue a null line as the last line in the stack..

Scott J Ford
Software Engineer
http://www.identityforge.com
 
 


 From: "Hansen, Dave L - Eagan, MN" 
To: IBM-MAIN@bama.ua.edu
Sent: Wednesday, February 15, 2012 3:33 PM
Subject: Re: REXX IEBCOPY Continuation?
  
Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I SELECT MEMBER=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 FCO105I S M=DBOK62 FCO411A 
UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov 




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För 
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S  
>M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>    Queue V1
>    Queue v2
> 
>  It gets an error when the second record is read - Undefined command 
>or  keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>       Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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...@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

Re: REXX IEBCOPY Continuation?

[Paul Gilmartin]

On Wed, 15 Feb 2012 12:41:17 -0800, Scott Ford wrote:
 
Usually you need to queue a null line as the last line in the stack..

The count ("queued()") should make that unnecessary.


 From: "Hansen, Dave L - Eagan, MN" 
To: IBM-MAIN@bama.ua.edu 
Sent: Wednesday, February 15, 2012 3:33 PM
Subject: Re: REXX IEBCOPY Continuation?
  
Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I SELECT MEMBER=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD
 
Most utility commands must start in column 2 or later.
Is IEBCOPY different?

When all else fails, try the command file in a batch job.  Is the
result different?

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

-- gil

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

Re: Authorized functions

[McKown, John]

If you really want do this this: run an APF authorized TSO command from a COBOL 
program, even one which is linked AC=1. Well, you'll need to "cheat horribly". 
One way to cheat is to run your COBOL program under TSO. You run IKJEFT01. 
Something like:

//STC EXEC PGM=IKJEFT01,
// REGION=0M,PARM='%REXXCMD'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSEXEC DD DISP=SHR,DSN=some.REXX.library.with.REXXCMD.in.it
//* OTHER REQUIRED DDs
//*

REXXCMD would look something like:

/* REXX */
address tso "CALL 'some.loadlib(myapfpgm)'"


You'd need "myapfpgm" placed in IKJTSO00 as an APF authorized program name in 
the AUTHPGM section. Now your program does not need to invoke IKJTSOEV at all. 
And I think that it can now invoke the REXX program to invoke the APF 
authorized TSO program. I don't guarantee it will do what you want to do. If 
BPXWDYN cannot do a "free", then I doubt that the TSO FREE command will work 
either.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone . 
john.mck...@healthmarkets.com . www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford
> Sent: Wednesday, February 15, 2012 2:33 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Authorized functions
> 
> John:
>  
> So is this saying you can only do limited rexx functions from 
> an application program
> In our case, i need to allocate a sysin and sysprint and 
> execute a vendor's program the output queues into sysprint.
> My problem I ran into..is using BPXWDYN...once allocated in a 
> running LE Cobol program STC or otherwise that
> DDNAME cant be 'de-allocated' or 'freed' ...So I thought i 
> would try existing rexx clists ..and ran into problems..
> as you have shown...I am not understanding something...Thats 
> why I am asking for some help...
> 
> Scott J Ford
> Software Engineer
> http://www.identityforge.com
>  
>  
> 
> 
>  From: "McKown, John" 
> To: IBM-MAIN@bama.ua.edu 
> Sent: Wednesday, February 15, 2012 3:11 PM
> Subject: Re: Authorized functions
>   
> Is this even possible? here:
> 
> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj
> 4b780/23.4.3.2
> 
> 
> Table 122 shows the reason codes that are found in parameter 
> 5 if IKJEFTSR completes with a return code of 20.
> ...
> 
>   24(18)                 IKJEFTSR was invoked from a 
> non-TSO/E environment. This service can only be used in a 
> foreground or background TSO/E
> environment.
> 
> 
> 
> John McKown
> 
> Systems Engineer IV
> 
> IT
> 
> 
> 
> Administrative Services Group
> 
> 
> 
> HealthMarkets®
> 
> 
> 
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> 
> (817) 255-3225 phone *
> 
> john.mck...@healthmarkets.com * www.HealthMarkets.com
> 
> 
> 
> Confidentiality Notice: This e-mail message may contain 
> confidential or proprietary information. If you are not the 
> intended recipient, please contact the sender by reply e-mail 
> and destroy all copies of the original message. 
> HealthMarkets® is the brand name for products underwritten 
> and issued by the insurance subsidiaries of HealthMarkets, 
> Inc. -The Chesapeake Life Insurance Company®, Mid-West 
> National Life Insurance Company of TennesseeSM and The MEGA 
> Life and Health Insurance Company.SM
> 
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford
> > Sent: Wednesday, February 15, 2012 1:16 PM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: Re: Authorized functions
> >
> > Walt,
> >
> > First , thanks for responding..
> >
> > Let me explain:
> >
> > The STC is in LE Cobol..4.2
> > I want to call IKJEFTSR ...to call a rexx clist that will
> > perform authorized functions , i.e.; alloc, free
> > The call is below:
> >
> >        IDENTIFICATION DIVISION.
> >
> >        PROGRAM-ID. COBTSO.
> >
> >        ENVIRONMENT DIVISION.
> >
> >        CONFIGURATION SECTION.
> >
> >        SOURCE-COMPUTER. IBM-370.
> >
> >        INPUT-OUTPUT SECTION.
> >
> >
> >
> >
> > **
> > 
> >       * *
> >
> >       * MODULE NAME = COBTSO *
> >
> >       * *
> >
> >       * DESCRIPTIVE NAME = ISSUE TSO COMMANDS FROM A COBOL
> > PROGRAM. *
> >       * *
> >
> >       * FUNCTION = THIS SAMPLE PROGRAM DEMONSTRATES HOW TO
> > INVOKE *
> >       * TS

Re: Z/architecture I/O questions

[Shmuel Metz (Seymour J.)]

In <0369520600091673.wa.joeowensstandardlife@bama.ua.edu>, on
02/15/2012
   at 07:10 AM, Joe Owens  said:

>My understanding of the channel program is that it moves the data
>into the page fixed I/O buffer and the interupt a cp to process the
>I/O. How is the candidate CP chosen?  I know the z/os system may make
>some CPUs uninteruptable for I/Os based on CPENABLE, but of the CPs
>that are enabled, how is one chosen? Is it at the physical or logical
>level and how is it related to the LPAR which requested the I/O?

An I/O is associated with an LPAR; the CE/DE interrupt is always
presented to the LPAR that requested the I/O. As to which of the
enabled processors it goes to on the LPAR, that's not architected and
is probably model dependent.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Alfred, Lord Tennyson, speaks on MS-Windows

[Shmuel Metz (Seymour J.)]

In
<90ec2e798a22854ebf67a14ec3fe093fa74c870...@scmbxc01.bcbad.state.sc.us>,
on 02/15/2012
   at 10:59 AM, "Bonno, Tuco"  said:

>macbeth, imo, says it even better

Perhaps Milton, repurposed to coercive monopolies:

 Yet not for those
 nor what the potent victor in his rage
 can else inflict, do I repent or change.

Quotes from "Hamlet" and "The Tempest" also come to mind.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: REXX IEBCOPY Continuation?

[Scott Ford]

Dave,
 
Usually you need to queue a null line as the last line in the stack..

Scott J Ford
Software Engineer
http://www.identityforge.com
 
 


 From: "Hansen, Dave L - Eagan, MN" 
To: IBM-MAIN@bama.ua.edu 
Sent: Wednesday, February 15, 2012 3:33 PM
Subject: Re: REXX IEBCOPY Continuation?
  
Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I SELECT MEMBER=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I S M=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards, 
Thomas Berg 
_ 
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>    Queue V1
>    Queue v2
> 
>  It gets an error when the second record is read - Undefined command or
> keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>       Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: REXX IEBCOPY Continuation?

[Hansen, Dave L - Eagan, MN]

Still no luck:

FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I SELECT MEMBER=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "SELECT MEMBER=DBOK62"
V3 = "SELECT MEMBER=DP13"
V4 = "SELECT MEMBER=LAND1CPY"
V5 = "SELECT MEMBER=SSTDN"
V6 = "SELECT MEMBER=TRAY2LND"
QUEUE V1
QUEUE V2
QUEUE V3
QUEUE V4
QUEUE V5
QUEUE V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

Also got:
FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1
FCO105I S M=DBOK62
FCO411A UNIDENTIFIED COMMAND OR KEYWORD



Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Wednesday, February 15, 2012 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: REXX IEBCOPY Continuation?

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards, 
Thomas Berg 
_ 
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command or
> keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@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

Re: Authorized functions

[Scott Ford]

John:
 
So is this saying you can only do limited rexx functions from an application 
program
In our case, i need to allocate a sysin and sysprint and execute a vendor's 
program the output queues into sysprint.
My problem I ran into..is using BPXWDYN...once allocated in a running LE Cobol 
program STC or otherwise that
DDNAME cant be 'de-allocated' or 'freed' ...So I thought i would try existing 
rexx clists ..and ran into problems..
as you have shown...I am not understanding something...Thats why I am asking 
for some help...

Scott J Ford
Software Engineer
http://www.identityforge.com
 
 


 From: "McKown, John" 
To: IBM-MAIN@bama.ua.edu 
Sent: Wednesday, February 15, 2012 3:11 PM
Subject: Re: Authorized functions
  
Is this even possible? here:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b780/23.4.3.2


Table 122 shows the reason codes that are found in parameter 5 if IKJEFTSR 
completes with a return code of 20.
...

  24(18)                 IKJEFTSR was invoked from a non-TSO/E environment. 
This service can only be used in a foreground or background TSO/E
environment.



John McKown

Systems Engineer IV

IT



Administrative Services Group



HealthMarkets®



9151 Boulevard 26 * N. Richland Hills * TX 76010

(817) 255-3225 phone *

john.mck...@healthmarkets.com * www.HealthMarkets.com



Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM



> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford
> Sent: Wednesday, February 15, 2012 1:16 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Authorized functions
>
> Walt,
>
> First , thanks for responding..
>
> Let me explain:
>
> The STC is in LE Cobol..4.2
> I want to call IKJEFTSR ...to call a rexx clist that will
> perform authorized functions , i.e.; alloc, free
> The call is below:
>
>        IDENTIFICATION DIVISION.
>
>        PROGRAM-ID. COBTSO.
>
>        ENVIRONMENT DIVISION.
>
>        CONFIGURATION SECTION.
>
>        SOURCE-COMPUTER. IBM-370.
>
>        INPUT-OUTPUT SECTION.
>
>
>
>
> **
> 
>       * *
>
>       * MODULE NAME = COBTSO *
>
>       * *
>
>       * DESCRIPTIVE NAME = ISSUE TSO COMMANDS FROM A COBOL
> PROGRAM. *
>       * *
>
>       * FUNCTION = THIS SAMPLE PROGRAM DEMONSTRATES HOW TO
> INVOKE *
>       * TSO COMMANDS FROM A COBOL PROGRAM USING *
>
>       * STANDARD TSO SERVICES AS DOCUMENTED IN THE *
>
>       * TSO/E PROGRAMMING SERVICES MANUAL. *
>
>       * *
>
>       * MOST TSO COMMANDS, INCLUDING CLISTS AND REXX *
>
>       * EXECS CAN BE EXECUTED USING THIS TECHNIQUE. *
>
>       * TSO COMMANDS WHICH REQUIRE AUTHORIZATION *
>
>       * (SUCH AS OUTPUT, SEND, TRANSMIT AND RECEIVE) *
>
>       * WILL NOT WORK. *
>
>       * *
>
>       * AUTHOR = GILBERT SAINT-FLOUR *
>
>       *
>
>
> **
> 
>
>
>        DATA DIVISION.
>
>
>
>        WORKING-STORAGE SECTION.
>
>        01  IKJTSOEV           PIC    X(8) VALUE 'IKJTSOEV'.
>
>        01  IKJEFTSR           PIC    X(8) VALUE 'IKJEFTSR'.
>
>        01 FILLER.
>
>            05 WS-DUMMY PIC S9(8) COMP.
>
>            05 WS-RETURN-CODE PIC S9(8) COMP.
>
>            05 WS-REASON-CODE PIC S9(8) COMP.
>
>            05 WS-INFO-CODE PIC S9(8) COMP.
>
>            05 WS-ABEND-CODE   PIC   S9(8) COMP.
>
>            05 WS-CPPL-ADDRESS PIC S9(8) COMP.
>
>            05 WS-FLAGS PIC X(4) VALUE X'0001'.
>
>            05 WS-BUFFER PIC X(256).
>
>            05 WS-LENGTH PIC S9(8) COMP VALUE 256.
>
>            05 WS-REGISTER-15  PIC   S9(8) COMP.
>
>
>
>        PROCEDURE DIVISION.
>
>
>
>
> *-
> ---*
>       * CALL IKJTSOEV TO CREATE THE TSO/E ENVIRONMENT *
>
>
> *-
> ---*
>
>
>            PERFORM 100-BUILD-TSO.
>
>
>
>            MOVE RETURN-CODE TO WS-REGISTER-15.
>
>            DISPLAY 'IKJTSOEV REGISTER 15 = ' WS-REGISTER-15
>
>                            ' RETURN-CODE='   WS-RETURN-CODE
>
>                            ' REASON-CODE='   WS-REASON-CODE
>
>                            ' INFO-CODE='     WS-INFO-CODE.
>
>
>
>       *     IF WS-RETURN-CODE > ZERO OR WS-REGISTER-15 > ZERO
>
>       *       GOBACK.
>
>
>
>            IF WS-RETURN-CODE > ZERO
>
>                 DISPLAY 'IKJTSOEV FAILED, RETURN-CODE='
> WS-RETURN-CODE
>                 ' REASON-CODE=' WS-REASON-CODE
>

SV: REXX IEBCOPY Continuation?

[Thomas Berg]

I guess that what You want is:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=DBOK62"
V3 = "S M=DP13"
V4 = "S M=LAND1CPY"
V5 = "S M=SSTDN"
V6 = "S M=TRAY2LN"
Queue V1 
Queue V2
Queue V3
Queue V4
Queue V5
Queue V6
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"


 
Regards, 
Thomas Berg 
_ 
Thomas Berg   Specialist   A M   SWEDBANK 


> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
> Hansen, Dave L - Eagan, MN
> Skickat: den 15 februari 2012 21:08
> Till: IBM-MAIN@bama.ua.edu
> Ämne: REXX IEBCOPY Continuation?
> 
> Group,
> 
>   I have a REXX EXEC:
> 
> "NEWSTACK"
> V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
> V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
> queue V1 '+' V2
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "DELSTACK"
> "TSOEXEC IEBCOPY"
> 
>  It gets an error:
>  FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S
> M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
> AY2LND)
>  FCO411A INVALID CONTINUATION
> 
> 
> 
>  I tried to stack both records
>Queue V1
>Queue v2
> 
>  It gets an error when the second record is read - Undefined command or
> keyword.
> 
> 
> Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
> Q). Is ISPF Library Managemnet my other solution to copy select members?
> 
> 
>   Thanks in advance,  Dave
> 
> 
> Dave Hansen
> Eagan Software Systems Branch
> 651-406-1208
> dave.l.han...@usps.gov
> 
> 
> 
> --
> 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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Authorized functions

[McKown, John]

Is this even possible? here:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b780/23.4.3.2


Table 122 shows the reason codes that are found in parameter 5 if IKJEFTSR 
completes with a return code of 20.
...

  24(18) IKJEFTSR was invoked from a non-TSO/E environment. 
This service can only be used in a foreground or background TSO/E
environment.



John McKown

Systems Engineer IV

IT



Administrative Services Group



HealthMarkets®



9151 Boulevard 26 * N. Richland Hills * TX 76010

(817) 255-3225 phone *

john.mck...@healthmarkets.com * www.HealthMarkets.com



Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM



> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford
> Sent: Wednesday, February 15, 2012 1:16 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Authorized functions
>
> Walt,
>
> First , thanks for responding..
>
> Let me explain:
>
> The STC is in LE Cobol..4.2
> I want to call IKJEFTSR ...to call a rexx clist that will
> perform authorized functions , i.e.; alloc, free
> The call is below:
>
>IDENTIFICATION DIVISION.
>
>PROGRAM-ID. COBTSO.
>
>ENVIRONMENT DIVISION.
>
>CONFIGURATION SECTION.
>
>SOURCE-COMPUTER. IBM-370.
>
>INPUT-OUTPUT SECTION.
>
>
>
>
> **
> 
>   * *
>
>   * MODULE NAME = COBTSO *
>
>   * *
>
>   * DESCRIPTIVE NAME = ISSUE TSO COMMANDS FROM A COBOL
> PROGRAM. *
>   * *
>
>   * FUNCTION = THIS SAMPLE PROGRAM DEMONSTRATES HOW TO
> INVOKE *
>   * TSO COMMANDS FROM A COBOL PROGRAM USING *
>
>   * STANDARD TSO SERVICES AS DOCUMENTED IN THE *
>
>   * TSO/E PROGRAMMING SERVICES MANUAL. *
>
>   * *
>
>   * MOST TSO COMMANDS, INCLUDING CLISTS AND REXX *
>
>   * EXECS CAN BE EXECUTED USING THIS TECHNIQUE. *
>
>   * TSO COMMANDS WHICH REQUIRE AUTHORIZATION *
>
>   * (SUCH AS OUTPUT, SEND, TRANSMIT AND RECEIVE) *
>
>   * WILL NOT WORK. *
>
>   * *
>
>   * AUTHOR = GILBERT SAINT-FLOUR *
>
>   *
>
>
> **
> 
>
>
>DATA DIVISION.
>
>
>
>WORKING-STORAGE SECTION.
>
>01  IKJTSOEV   PICX(8) VALUE 'IKJTSOEV'.
>
>01  IKJEFTSR   PICX(8) VALUE 'IKJEFTSR'.
>
>01 FILLER.
>
>05 WS-DUMMY PIC S9(8) COMP.
>
>05 WS-RETURN-CODE PIC S9(8) COMP.
>
>05 WS-REASON-CODE PIC S9(8) COMP.
>
>05 WS-INFO-CODE PIC S9(8) COMP.
>
>05 WS-ABEND-CODE   PIC   S9(8) COMP.
>
>05 WS-CPPL-ADDRESS PIC S9(8) COMP.
>
>05 WS-FLAGS PIC X(4) VALUE X'0001'.
>
>05 WS-BUFFER PIC X(256).
>
>05 WS-LENGTH PIC S9(8) COMP VALUE 256.
>
>05 WS-REGISTER-15  PIC   S9(8) COMP.
>
>
>
>PROCEDURE DIVISION.
>
>
>
>
> *-
> ---*
>   * CALL IKJTSOEV TO CREATE THE TSO/E ENVIRONMENT *
>
>
> *-
> ---*
>
>
>PERFORM 100-BUILD-TSO.
>
>
>
>MOVE RETURN-CODE TO WS-REGISTER-15.
>
>DISPLAY 'IKJTSOEV REGISTER 15 = ' WS-REGISTER-15
>
>' RETURN-CODE='   WS-RETURN-CODE
>
>' REASON-CODE='   WS-REASON-CODE
>
>' INFO-CODE=' WS-INFO-CODE.
>
>
>
>   * IF WS-RETURN-CODE > ZERO OR WS-REGISTER-15 > ZERO
>
>   *   GOBACK.
>
>
>
>IF WS-RETURN-CODE > ZERO
>
> DISPLAY 'IKJTSOEV FAILED, RETURN-CODE='
> WS-RETURN-CODE
> ' REASON-CODE=' WS-REASON-CODE
>
> 'INFO-CODE=' WS-INFO-CODE
>
>MOVE WS-RETURN-CODE TO RETURN-CODE
>
>
>
>STOP RUN
>
>
>
>END-IF.
>
>
> *-
> ---*
>   * BUILD THE TSO/E COMMAND IN WS-BUFFER *
>
>
> *-
> ---*
>MOVE   X'00010001' TO WS-FLAGS.
>
>
>
>MOVE 'LU SFORD' TO WS-BUFFER.
>
>MOVE 8  TO WS-LENGTH
>
>
>
>
> *-
> ---*
>   * CALL THE TSO/E SERVICE ROUTINE TO EXECUTE THE TSO/E
> COMMAND *
>
> *-
> ---*
>
>
>PERFORM 110-EXECUTE-TSO.
>
>
>
> 

REXX IEBCOPY Continuation?

[Hansen, Dave L - Eagan, MN]

Group,

  I have a REXX EXEC:

"NEWSTACK"
V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1"
V2 = "S M=(DBOK62,DP13,LAND1CPY,SSTDN,TRAY2LND)"
queue V1 '+' V2
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"

 It gets an error: 
 FCO105I COPY1 COPY INDD=INDD1,OUTDD=OUTDD1 + S M=(DBOK62,DP13,LAND1CPY,SSTDN,TR
AY2LND)
 FCO411A INVALID CONTINUATION



 I tried to stack both records 
   Queue V1
   Queue v2

 It gets an error when the second record is read - Undefined command or keyword.


Q). These are PDSE datasets.  Can IEBCOPY be continued in REXX?
Q). Is ISPF Library Managemnet my other solution to copy select members?


  Thanks in advance,  Dave
 

Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 

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

Re: Career Watch: The most in-demand skills of 2012 - Good news the training budgets seem to be increasing

[Steve Comstock]

On 2/15/2012 12:38 PM, Ed Gould wrote:

http://www.computerworld.com/s/article/9224116/Career_Watch_The_most_in_demand_skills_of_2012



Year-over-year changes in training spending, 2006-2011:
• 2006: 7%

• 2007: 6%

• 2008: -11%

• 2009: -11&

• 2010: 2%

• 2011: 9%

Source: The Corporate Learning Factbook 2012, Bersin & Associates


Sounds good to me! ;-)


Actually, the timing is outstanding, since we are just announcing
today a program that will stretch training dollars even further:

If you schedule a class for us to come and teach at your site,
at our regular rates, then you can ask for a materials license
for that class for _free_.


That is, we teach it once then you get the print masters and
can teach it to your own people an unlimited number of times
after that class for no extra charge!


The courses eligible for this program are listed here:

  http://www.trainersfriend.com/General_content/Purchaselist.htm


Drop me a line off list if you're interested in exploring this
new promotion.



--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.html

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

Career Watch: The most in-demand skills of 2012 - Good news the training budgets seem to be increasing

[Ed Gould]

http://www.computerworld.com/s/article/9224116/ 
Career_Watch_The_most_in_demand_skills_of_2012



Year-over-year changes in training spending, 2006-2011:
• 2006: 7%

• 2007: 6%

• 2008: -11%

• 2009: -11&

• 2010: 2%

• 2011: 9%

Source: The Corporate Learning Factbook 2012, Bersin & Associates
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Any way to get the XLC compiler to list all #define symbols?

[Charles Mills]

And the answer to THAT is that I am trying it on my 1.10 system. SHOWM is
not a 1.10 option. Need to more the test to 1.13, which will take a couple
of days.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Charles Mills
Sent: Wednesday, February 15, 2012 9:49 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Any way to get the XLC compiler to list all #define symbols?

Got a few minutes between con calls to play with this. I am a little
mystified.

The *only* options I am specifying are PPONLY and SHOWM.

I get the error CCN0049(W) The option "SHOWM" is not supported.

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

Re: Authorized functions

[Scott Ford]

Walt,
 
First , thanks for responding..
 
Let me explain:
 
The STC is in LE Cobol..4.2 
I want to call IKJEFTSR ...to call a rexx clist that will perform authorized 
functions , i.e.; alloc, free 
The call is below:
 
   IDENTIFICATION DIVISION. 
   PROGRAM-ID. COBTSO.  
   ENVIRONMENT DIVISION.    
   CONFIGURATION SECTION.   
   SOURCE-COMPUTER. IBM-370.    
   INPUT-OUTPUT SECTION.    
    
  **    
  * *   
  * MODULE NAME = COBTSO *  
  * *   
  * DESCRIPTIVE NAME = ISSUE TSO COMMANDS FROM A COBOL PROGRAM. *   
  * *   
  * FUNCTION = THIS SAMPLE PROGRAM DEMONSTRATES HOW TO INVOKE * 
  * TSO COMMANDS FROM A COBOL PROGRAM USING *   
  * STANDARD TSO SERVICES AS DOCUMENTED IN THE *    
  * TSO/E PROGRAMMING SERVICES MANUAL. *    
  * *   
  * MOST TSO COMMANDS, INCLUDING CLISTS AND REXX *  
  * EXECS CAN BE EXECUTED USING THIS TECHNIQUE. *   
  * TSO COMMANDS WHICH REQUIRE AUTHORIZATION *  
  * (SUCH AS OUTPUT, SEND, TRANSMIT AND RECEIVE) *  
  * WILL NOT WORK. *    
  * *   
  * AUTHOR = GILBERT SAINT-FLOUR *  
  * 
  **    
    
   DATA DIVISION.   
    
   WORKING-STORAGE SECTION. 
   01  IKJTSOEV   PIC    X(8) VALUE 'IKJTSOEV'. 
   01  IKJEFTSR   PIC    X(8) VALUE 'IKJEFTSR'. 
   01 FILLER.   
   05 WS-DUMMY PIC S9(8) COMP.  
   05 WS-RETURN-CODE PIC S9(8) COMP.    
   05 WS-REASON-CODE PIC S9(8) COMP.    
   05 WS-INFO-CODE PIC S9(8) COMP.  
   05 WS-ABEND-CODE   PIC   S9(8) COMP. 
   05 WS-CPPL-ADDRESS PIC S9(8) COMP.   
   05 WS-FLAGS PIC X(4) VALUE X'0001'.  
   05 WS-BUFFER PIC X(256). 
   05 WS-LENGTH PIC S9(8) COMP VALUE 256.   
   05 WS-REGISTER-15  PIC   S9(8) COMP. 
    
   PROCEDURE DIVISION.  
    
  **    
  * CALL IKJTSOEV TO CREATE THE TSO/E ENVIRONMENT * 
  **    
    
   PERFORM 100-BUILD-TSO.   
    
   MOVE RETURN-CODE TO WS-REGISTER-15.  
   DISPLAY 'IKJTSOEV REGISTER 15 = ' WS-REGISTER-15 
   ' RETURN-CODE='   WS-RETURN-CODE 
   ' REASON-CODE='   WS-REASON-CODE 
   ' INFO-CODE=' WS-INFO-CODE.  
    
 

Re: Question about XDC BATCH and automation

[McKown, John]

My mistake. You cannot do what I was describing with the output in JESMSGLG. 
You'll need to use the others' suggestions to use SDSF. I do know some other 
ways, but they are even more "non standard" and require installing some other 
software. Specifically, you need Dovetailed Technologies "Dataset Pipes" 
software. It is freely licensed for the download. Personally, I use the 
SDSF/REXX interface and "suck in" all such SYSOUT using my own REXX program. It 
is 121 lines long. It can read SYSOUT and put it either to a sequential dataset 
or a z/OS UNIX file, depending on the options specified.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone . 
john.mck...@healthmarkets.com . www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Sérgio Lima Costa
> Sent: Wednesday, February 15, 2012 10:08 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: RES: Question about XDC BATCH and automation
> 
> Hello Mr. John.
> 
> Thanks very ,much for your help.
> Not a help, but really a lesson.
> 
> I Will try do this here, but Mr. John, today, when look on 
> CICS SYSOUT, the ABEND messagens was in another report, i.e.
> 10.17.35 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) 
> has occurred at offset X'183C' in program RENINTEG.
> 876  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 876  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  10.23.42 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 010  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 010  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  10.28.54 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 614  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 614  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  10.47.38 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 145  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 145  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  10.47.52 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 215  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 215  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  11.05.29 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 981  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 981  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
>  11.24.25 STC03526  +DFHSR0001 CICSP1 An abend (code 
> 0C4/AKEA) has occurred at offset X'183C' in program RENINTEG.
> 886  (Module:DFHMEME) CICS symptom string for 
> message DFHSR0001 is
> 886  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 
> RIDS/DFHSRP PTFS/UK53808
> 
> This is showed in JESMSGLG.
> 
> Can i do the same for this ?
> 
> Best Regards
> 

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

Re: What is CA-SRAM and what is it used for.

[Pommier, Rex R.]

I'm not from CA, but I believe that (at least a portion of) SRAM is shipped 
with the CA common services product.

Rex


On Wed, Feb 15, 2012 at 11:17 AM, Thomas Lawrence
 wrote:
> We've had SRAM from CA going back to the DOS days. In those day's we actually 
> had CA-Sort. We are now Z/os and  management is questioning why we still have 
> it since we use IBM Sort. We have other CA products but no longer have 
> CA-Sort.
>
> Anyone from CA know?
>
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?


The information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited and that you will be held responsible for any such 
unauthorized activity, including liability for any resulting damages. As 
appropriate, such incident(s) may also be reported to law enforcement. If you 
received this e-mail in error, please reply to sender and destroy or delete the 
message and any attachments. Thank you.

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

Re: Authorized functions

[Walt Farrell]

On Wed, 15 Feb 2012 13:34:01 -0500, Scott Ford  wrote:

>All,
>I understand that authorized programs have been talked about before, buti 
>don't understand and I want to make sure I do before I start a design ..
>
>What I want Long running STC 
>... Invoke a rexx clist performing alloc, calls to a 
>program
>long running STC program is linked ac(1)
>
>Do i create an entry in ikjtso00 for the STC program
>Do I create an entry in ikjtso00 for the clist name
>
>This is where I am cornfused.

The entries in IKJTSO00 are for programs (not execs or clists) that you invoke 
under the TSO/E TMP.

So, if your STC actually has // EXEC PGM= then there would be no 
reason to put  in IKJTSO00 as you are not running it under the 
TMP.

On the other hand, if your STC has // EXEC PGM=IKJEFT01,PARM="CALL 
dsname(your-program)" and you want your-program to run APF-authorized, then you 
would need it in IKJTSO00.

IF you are doing as my first example, and the STC directly invokes your 
program, I'd like to inquire -how- you are having your program invoke the REXX 
exec, though. The way you do that has critical implications for the functions 
that the exec can perform.

-- 
Walt Farrell
IBM STSM, z/OS Security Design

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

Re: What is CA-SRAM and what is it used for.

[Mike Schwab]

http://www.cconceptsinc.com/2008cci/webport/CA_corp_collateral/CA_for_brian/CA_Product_Brief.pdf

On Wed, Feb 15, 2012 at 11:17 AM, Thomas Lawrence
 wrote:
> We've had SRAM from CA going back to the DOS days. In those day's we actually 
> had CA-Sort. We are now Z/os and  management is questioning why we still have 
> it since we use IBM Sort. We have other CA products but no longer have 
> CA-Sort.
>
> Anyone from CA know?
>
-- 
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...@bama.ua.edu with the message: INFO IBM-MAIN

Authorized functions

[Scott Ford]

All,
I understand that authorized programs have been talked about before, buti don't 
understand and I want to make sure I do before I start a design ..

What I want Long running STC 
... Invoke a rexx clist performing alloc, calls to a program
long running STC program is linked ac(1)

Do i create an entry in ikjtso00 for the STC program
Do I create an entry in ikjtso00 for the clist name

This is where I am cornfused.
Regards,
Sent from my iPad
Scott Ford
Senior Systems Engineer
www.identityforge.com

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

Re: Any way to get the XLC compiler to list all #define symbols?

[Charles Mills]

Got a few minutes between con calls to play with this. I am a little
mystified.

The *only* options I am specifying are PPONLY and SHOWM.

I get the error CCN0049(W) The option "SHOWM" is not supported.

SYSUT10 has a listing that is mostly blank lines, but does seem to be the
#include-expanded source.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Michael Klaeschen
Sent: Tuesday, February 14, 2012 11:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Any way to get the XLC compiler to list all #define symbols?

for me, options PPONLY and SHOWM worked:

//COMPILE EXEC PGM=CCNDRVR, 
//PARM=('/CXX OPTFILE(DD:CCOPT) PPONLY SHOWM')

output is written to DD SYSUT10

see 4.107 of XL C/C++ Users Guide.

Cheers
Michael



Von:Charles Mills 
An: IBM-MAIN@bama.ua.edu
Datum:  2012-02-14 19:12
Betreff:Any way to get the XLC compiler to list all #define 
symbols?
Gesendet von:   IBM Mainframe Discussion List 

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

Re: Z/architecture I/O questions

[Ron Hawkins]

Kees,

My recollection is the first WSC flash mentioning this on the 3090s was to
use CPENABLE(0,0), and it has switched between 10,30 and 0,0 at least twice
since then.

http://www-03.ibm.com/support/techdocs/atsmastr.nsf/032f6e163324983085256b79
007f5aec/80154cc31e2cc90d86256fa9000766e7/$FILE/CPENABLE_vz10.pdf shows some
of the more recent ITR recommendations. It least it confirmed that my memory
is not too dodgy.

This document does not describe how the ITR is measured - is it a bunch of
LPARS with equal weights and IO loads, or is there a "squashed" LPAR with a
high IO rate like Joe describes. 

Either way it comes across as a recommendation and not a rule. I don't see
why the squashed LPAR could not have CPENABLE(0,0) while the others stayed
with (10,30). In the absence of CA-ASTEX or TMON I'd say %TPI would be the
measure of change besides the LPAR throughput that Joe is measuring.

Ron 

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Vernooij, CP - SPLXM
> Sent: Wednesday, February 15, 2012 6:26 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: [IBM-MAIN] Z/architecture I/O questions
> 
> Ron,
> 
> Do you have a source for (0,0)?
> What I could find was FLASH10337, which advises (10,30) for machines up to
> z10. Are there later advises, especially for z196?
> 
> Kees.
> 

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

Re: What is CA-SRAM and what is it used for.

[Chuck Arney]

IIRC it stands for Sort Random Access Method.  It is a product that is
called by user written programs like an internal sort.  However, it can
perform multiple sorts at once.  I don't believe it uses any part of CA-Sort
so you could have programs that are still using it and you might not know.
You could do something like rename the load library and see what happens.

Chuck Arney
Arney Computer Systems

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Thomas Lawrence
Sent: Wednesday, February 15, 2012 11:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: What is CA-SRAM and what is it used for.

We've had SRAM from CA going back to the DOS days. In those day's we
actually had CA-Sort. We are now Z/os and  management is questioning why we
still have it since we use IBM Sort. We have other CA products but no longer
have CA-Sort.

Anyone from CA know?

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

What is CA-SRAM and what is it used for.

[Thomas Lawrence]

We've had SRAM from CA going back to the DOS days. In those day's we actually 
had CA-Sort. We are now Z/os and  management is questioning why we still have 
it since we use IBM Sort. We have other CA products but no longer have CA-Sort.

Anyone from CA know?

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

Re: Any way to get the XLC compiler to list all #define symbols?

[Charles Mills]

Believe me, I am the world's biggest fan of static const as opposed to
#define. I almost never use #define in my own work. I don't even like #ifdef
and its cohorts -- who needs a second "layer" of program logic to debug?
Except where performance is a big issue, or where a particular line of code
will not compile on a particular platform, I like to take the #define
symbols that we are stuck with (like versions and platforms) and assign them
to static const bool's that can be tested with ordinary if's so the logic is
"single-layer."

> static const shows up in XREF listings and even better shows up in
debuggers

And better yet has a scope (other than "from here to end of file" -- or
worse, if in a .h, "from here to the end of any file you #include me in,
plus any *other* .h files you decide to #include after me").

#define symbols can produce the most bizarre of error messages:

// in some obscure .h file:
#define foo some complex thing of some sort

// later in some file, blissfully unaware of foo's existence
class foo { ...

You will get error messages on class foo that will have you scratching your
head for a couple of hours.

Nonetheless, I have reasons for asking the question that I did; reasons that
I can't share in this venue at this time.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of David Crayford
Sent: Tuesday, February 14, 2012 7:27 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Any way to get the XLC compiler to list all #define symbols?

On 15/02/2012 2:11 AM, Charles Mills wrote:
> Does anyone know of a way to get the XLC compiler to list all of the 
> #define symbols that are in effect? XREF and ATTR list all ordinary 
> symbols. There are several ways of course of determining the define 
> "state" of any particular #define symbol. But does anyone know of an 
> option or a "trick" to get a list of all of them?
Charles,

Unfortunately I don't know of any tricks as the compiler substitutes #define
constants when you compile.
IIRC you are coding in C++. If that's the case then #define was deprecated
long ago in favour of static const.
static const shows up in XREF listings and even better shows up in
debuggers.

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

Re: Any way to get the XLC compiler to list all #define symbols?

[Charles Mills]

Thanks. Will give that a try. Today is not the day.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Michael Klaeschen
Sent: Tuesday, February 14, 2012 11:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Any way to get the XLC compiler to list all #define symbols?

for me, options PPONLY and SHOWM worked:

//COMPILE EXEC PGM=CCNDRVR, 
//PARM=('/CXX OPTFILE(DD:CCOPT) PPONLY SHOWM')

output is written to DD SYSUT10

see 4.107 of XL C/C++ Users Guide.

Cheers
Michael



Von:Charles Mills 
An: IBM-MAIN@bama.ua.edu
Datum:  2012-02-14 19:12
Betreff:Any way to get the XLC compiler to list all #define 
symbols?
Gesendet von:   IBM Mainframe Discussion List 



Does anyone know of a way to get the XLC compiler to list all of the #define
symbols that are in effect? XREF and ATTR list all ordinary symbols. There
are several ways of course of determining the define "state" of any
particular #define symbol. But does anyone know of an option or a "trick" 
to
get a list of all of them?

Thanks,

Charles

--
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...@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

Re: Alfred, Lord Tennyson, speaks on MS-Windows

[John Gilmore]

I'm not at all sure that I want to rub off on anyone.

Mr Tuco's quotation is apposite, although what Macbeth had in mind was
the totality of human experience, which is the sense in which Faulkner
cribbed the same text for his title.

The Tennyson pastiche is another matter.  The original version of The
Wasteland contained a somewhat more extended Pope pastiche written in
heroic couplets.  Eliot asked Pound what he thought of it; and Pound
said, 'Take it out.  It would work only if you could write better
lines than Pope, and you cannot'.



On 2/15/12, Bonno, Tuco  wrote:
>   Careful! Gilmore is rubbing off on you.  :-)
> =  oh no, oh no; believe me, I come by that quite naturally on my own,
> w/o any need for mentoring ...
> /s/ tuco
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
> Of Bonno, Tuco
> Sent: Wednesday, February 15, 2012 10:00 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Alfred, Lord Tennyson, speaks on MS-Windows
>
> macbeth, imo, says it even better
>
>    but a walking shadow, a poor player That struts and frets his hour
> upon the stage And then is heard no more: it is a tale Told by an idiot,
> full of sound and fury, Signifying nothing.
>
>
>
> /s/ tuco bonno;
> Graduate, College of Conflict Management; University of SouthEast Asia; "I
> partied on the Ho Chi Minh Trail - tiến lên !! "
>
>
>
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
> Of McKown, John
> Sent: Wednesday, 15 February, 2012 10:43 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Alfred, Lord Tennyson, speaks on MS-Windows
>
> Our little systems have their day; They have their day and cease to be; They
> are but broken lights of thee. -- Tennyson
>
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> john.mck...@healthmarkets.com * www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets(r) is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company(r), Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
> --
> 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...@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...@bama.ua.edu with the message: INFO IBM-MAIN
>


-- 
John Gilmore, Ashland, MA 01721 - USA

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

Re: sadump (and autoipl)

[Skip Robinson]

We also define SYS1.SADMP DSNTYPE=LARGE w/o benefit of SMS. I don't think 
it matters what you name the data set. We just use the 'well known' name 
(I love that open systems wriggle out of the 'standard' trap). When you 
IPL SAD, it goes to the DSN pointed to by SYS1.PAGEDUMP.Vxx on the IPL 
volume. Formatting the SAD volume places pointers to additional volumes, 
if any. 

As to whether a null reply in the reported case would have reverted SAD to 
the original values, I think we're all looking to Barbara to answer her 
own question. ;-)

.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Mark Zelden 
To: IBM-MAIN@bama.ua.edu
Date:   02/15/2012 06:28 AM
Subject:Re: sadump (and autoipl)
Sent by:IBM Mainframe Discussion List 



On Wed, 15 Feb 2012 02:43:08 -0600, Barbara Nitz  wrote:

>My sadump program is coded with DDSPROMPT=NO (to enable sadump autoipl) 
and a dump data set name that is NOT SYS1.SADMP (since something needed to 
get done in SMS for dsntype=large, and sys1 is not sms-managed - don't ask 
me about particulars).
>
>When we migrated to 1.12, we were on old DASD hardware, and the sadmp 
data set got reallocated using the old volser. I noticed that the volser 
was wrong in the amdsaosg job, and *that* got redone to use the new 
addresses on the new controller (the old one is gone).
>
>This morning I needed to take an sadump for the RSM/ASM/Supervisor 
problems that we have. I failed spectacularly:
>
>- sadump gave me AMD092I with a reason code of 8 indicating a device 
number mismatch.
>I went and reallocated the sadump output data set on the same volume(s), 
but with the new device numbers (from a different system in the plex)
>
>- now sadump bitterly complained via amd001A and wanted the device 
address. I specified that.
>
>- Unfortunately, due to ddsprompt=no, sadump now *expects* the data set 
name to be sys1.sadmp. Of course, it couldn't find it on that volume.
>
>Am I correct in assuming that simply giving a null reply to amd001a would 
have taken the original values as described in the amdsosg job and would 
have essentially redriven sadump from the beginning? (Since I have 
reallocated all sadump output datasets, I cannot really test anymore).
>
>Rattled as I was, I ended up reIPLing the lpar without the sadump. :-( 
Let's wait for recurrance of the RSM problem.
>
>Regards, Barbara


I can't answer your question, but I can tell you that you can use 
DSNTYPE=LARGE to
allocate the output disk dump data sets without SMS control.  I assume you 
are
using hlq.SBLSCLI0(AMDSADDD) REXX exec to allocate them.   The last 
keyword
can be "LARGE".In the largest sysplex I support we use 4 3390-27s. 

Of course it is a good idea to test SADUMP after you make any changes. 

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS 




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

Re: Alfred, Lord Tennyson, speaks on MS-Windows

[Bonno, Tuco]

   Careful! Gilmore is rubbing off on you.  :-)
=  oh no, oh no; believe me, I come by that quite naturally on my own, w/o 
any need for mentoring ...
/s/ tuco 

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Bonno, Tuco
Sent: Wednesday, February 15, 2012 10:00 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Alfred, Lord Tennyson, speaks on MS-Windows

macbeth, imo, says it even better
 
   but a walking shadow, a poor player That struts and frets his hour upon 
the stage And then is heard no more: it is a tale Told by an idiot, full of 
sound and fury, Signifying nothing.



/s/ tuco bonno;
Graduate, College of Conflict Management; University of SouthEast Asia; "I 
partied on the Ho Chi Minh Trail - tiến lên !! "






-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
McKown, John
Sent: Wednesday, 15 February, 2012 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Alfred, Lord Tennyson, speaks on MS-Windows

Our little systems have their day; They have their day and cease to be; They 
are but broken lights of thee. -- Tennyson

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


--
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...@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...@bama.ua.edu with the message: INFO IBM-MAIN

RES: RES: Question about XDC BATCH and automation

[Sérgio Lima Costa]

Thanks Greg,

-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de Greg 
Shirey
Enviada em: quarta-feira, 15 de fevereiro de 2012 12:48
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: RES: Question about XDC BATCH and automation

Sergio's original question was whether he could do what you described in batch.

I'm sure the short answer is yes, though I don't understand the selection 
criterion, since STC03526 does not appear to be the most recent output data set.

Sergio, have you looked at the SDSF Operation and Customization manual?  It 
contains a chapter called "Using SDSF in batch."  It's short, but it should get 
you started.

Greg Shirey
Ben E. Keith Company


-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Ron Hawkins
Sent: Wednesday, February 15, 2012 7:37 AM

Sergio,

Select the sysout (S) for STC03526 and open it.

On the command line type PRT D and enter.

Complete the dataset details and enter.

When you return to the SYSOUT screen type PRT and enter.

Type PRT CLOSE and enter

You now have all the sysout in a dataset. This is all documented in the SDSF 
help menus.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Sérgio Lima Costa
> Sent: Wednesday, February 15, 2012 4:58 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] RES: Question about XDC BATCH and automation
>
> Hello,
>
> Thanks very much for your help.
> Sorry about my bad explanation, below, our CICS SYSOUT, that exist now
> in
our
> system :
>
> SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
> COMMAND INPUT ===>SCROLL ===>
CSR
> PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
> NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
>  CICSP1   STC04235 USRCICP 1 PRINT 3293
>  CICSP1   STC03526 USRCICP 1 PRINT 3278
>  CICSP1   STC03441 USRCICP 1 PRINT 2742
>  CICSP1   STC02900 USRCICP 1 PRINT 2732
>  CICSP1   STC02683 USRCICP 1 PRINT 2419
>  CICSP1   STC02499 USRCICP 1 PRINT 2362
>  CICSP1   STC02431 USRCICP 1 PRINT 2207
>  CICSP1   STC01151 USRCICP 1 PRINT 2199
>  CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
>  CICSP1   STC06488 USRCICP 1 PRINT HOLD
>
>
> The file, that I need look, is the Jobid STC03526, Position 3278.
>
> Regards.
>
> Sergio
>

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

"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
CETIP's point of view, which is only divulged by authorized personnel."

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

RES: Question about XDC BATCH and automation

[Sérgio Lima Costa]

Hello Mr. John.

Thanks very ,much for your help.
Not a help, but really a lesson.

I Will try do this here, but Mr. John, today, when look on CICS SYSOUT, the 
ABEND messagens was in another report, i.e.
10.17.35 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
876  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
876  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 10.23.42 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
010  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
010  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 10.28.54 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
614  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
614  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 10.47.38 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
145  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
145  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 10.47.52 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
215  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
215  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 11.05.29 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
981  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
981  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808
 11.24.25 STC03526  +DFHSR0001 CICSP1 An abend (code 0C4/AKEA) has occurred at 
offset X'183C' in program RENINTEG.
886  (Module:DFHMEME) CICS symptom string for message DFHSR0001 
is
886  PIDS/5655S9700 LVLS/660 MS/DFHSR0001 RIDS/DFHSRP 
PTFS/UK53808

This is showed in JESMSGLG.

Can i do the same for this ?

Best Regards


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
McKown, John
Enviada em: quarta-feira, 15 de fevereiro de 2012 12:25
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: Question about XDC BATCH and automation

>From reading other messages in the thread, you need a way to automatically 
>report CICS abends to the appropriate group. Your plan is to put this 
>information to a disk dataset, then process it looking for messages such as:

DFHAC2236 02/14/2012 21:33:56 IMCM Transaction GC3# abend ABM3 in program 
GCXSP970 term . Updates to local recoverable resources

Is this correct? These messages go out to the MSGUSG DD. Why not just put those 
messages to disk directly, perhaps in a GDG. The DSN would include the CICS 
region name. Perhaps something like: CICS.MSGUSR.&CICSID.(+1) where &CICSID is 
a PROC variable equal to the name of the region. You could easily read this 
dataset using the (0) gen, or GDG-ALL processing. If you need it to go to 
SYSOUT as well, then just put in an IEBGENER step after the CICS region 
execution step.

OK, the problem with the above is that you can't see the messages in "real 
time" because you won't be able to browse the output dataset while the region 
is up. I understand that this could be a major problem. I have a solution for 
this. But it may not be acceptable. Instead of writing the messages to a 
sequential dataset, write them to a z/OS UNIX file. One "nice" thing is that 
you can read/browse a UNIX file even while it is still being written to by 
another job. The DD statement in the CICS JCL would look something like:

//MSGUSR DD PATH='/cics/&CICSID..msgusr.txt', // 
PATHDISP=(KEEP,KEEP),PATHOPTS=(OCREAT,OWRONLY,OAPPEND),
// FILEDATA=TEXT,
// LRECL=132,RECFM=V,BLKSIZE=136

The OAPPEND is the UNIX equivalent of DISP=MOD, but it doesn't stop others from 
concurrently reading the file. And you will see all the records because UNIX 
doesn't "buffer" data the same way that QSAM does. So it's more like SYSOUT in 
that respect.

In a subsequent step, copy the file to SYSOUT and/or the aforementioned disk 
GDG. Your users will need to learn something new in order to view "real time" 
messages.

A plus to this is that your messages are in a UNIX file. Why is that a plus? 
Because you can then use UNIX utilities to get the data you need. A short "awk" 
program might be:

#!/bin/awk
/^DFHAC2236 / {print $2 " " $3 " " $4 " " $6 " " $8 " " $11 " " $13;}

that one line of code will find all the DFHAC2236 messages. It will then print 
the date ($2), time ($3), region ($4), transaction ($6), abend code ($8), 
program ($11) and terminal ($13) to "stdout". You can use the redirection 
o

Re: Z/architecture I/O questions

[Rob Schramm]

If you upgrade to z10 / z114, you can use GCL (group capacity limits).  It
allows for better flexibility without having to "hard cap".

Rob Schramm
Senior Systems Consultant
Imperium Group




On Wed, Feb 15, 2012 at 10:42 AM, Sambataro, Anthony (NIH/NBS) [E] <
anthony.sambat...@nih.gov> wrote:

> This flash from 2008 shows CPENABLE recommendation of (10,30) but says
> that it's for increased overall thru put:
>
>
> http://www-03.ibm.com/support/techdocs/atsmastr.nsf/5cb5ed706d254a8186256c71006d2e0a/80154cc31e2cc90d86256fa9000766e7/$FILE/CPENABLE_vz10.pdf
>
>
> -Original Message-
> From: Joe Owens [mailto:joe_ow...@standardlife.com]
> Sent: Wednesday, February 15, 2012 8:11 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Z/architecture I/O questions
>
> Hi List,
> I've got a few questions about How z hardware handles I/Os and LPAR
> dispatching.
>
> I've done a fair bit of reading, but still some things I don't understand.
> We are on Z9's We are using shared CPs. We are not using IRD. We have 2
> large production LPARs and several smaller LPARs. The 2 prod LPARS have
> substantially different weights 1:4, due to the CPU workload spread. We
> also use group capacity limits and an individual capacity limit on the
> largest LPAR. While the CPU balance is different, the I/O profile is
> similar, about 5-6000 IOPS on each LPAR.
>
> We have 11 logical CPs active on each of the 2 LPARS. We expect peak 4hra
> of 90 and 400 MSUs, and the weights are set to reflect this.
>
> The work between the 2 LPARS is split for licencing. The small LPAR is
> mainly batch, the large LPAR is online and batch.
>
> I believe we are seeing I/O elongation on the smaller LPAR at peak times,
> particularly when the systems are capped. A batch job I/O bound may run 2-3
> times longer on the small LPAR when the systems are busy. The I/O response
> times look slightly worse on the small LPAR, but the throughput is much
> worse.
>
> So here are my questions.
>
> My understanding of the channel program is that it moves the data into the
> page fixed I/O buffer and the interupt a cp to process the I/O. How is the
> candidate CP chosen?  I know the z/os system may make some CPUs
> uninteruptable for I/Os based on CPENABLE, but of the CPs that are enabled,
> how is one chosen? Is it at the physical or logical level and how is it
> related to the LPAR which requested the I/O?
>
> We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are taking
> interrupts (and have TPI counts), but CP A (highest number) is doing by far
> the most. Could this be a cause of contention between the 2 LPARS, or will
> they likely be dispatched on separate physical CPs?
>
> Next question is about the dispatch time given to a LPAR for a CP by
> pr/sm. The pr/sm planning guide says the maximum time may be between 12.5
> and 25ms (A lot longer than an I/O). I am thinking that if an LPAR is
> constrained by capping, it is more likely to have a queue of ready work and
> hold on to a CP towards the maximum when it is given one?
>
> How can I tell for sure if I am on the right track, any metrics that will
> prove what is causing the longer elapsed times on one LPAR?
>
> What is the best way to stop it or reduce it, given that we have to run
> capped on peak days, and we have to live with the workload separation, and
> we don't have the capacity for dedicated CPUs.
>
> Would wlm/ird management of CPUs help?
> Would offlining logical CPs help? We have many more CPs online to each
> LPAR than it's normal MSU usage, but it give flexibilty for workload peaks.
> Would offlining specific logical CPs help? Ie if the 2 LPARS had a
> different highest logical CP number would this reduce contention, or is it
> again likely to use different physical CPs for different LPARs?
> Would tuning of the LPAR dispatch time help? We do not specify this, and
> the recommendation is to let the system choose.
>
> Sorry about the length of the post, but hopefully someone will find this
> an interesting problem.
>
> Joe Owens
>
>
>
> .
>
> --
> 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...@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

Re: Alfred, Lord Tennyson, speaks on MS-Windows

[Tony's Comcast account]

Careful! Gilmore is rubbing off on you.  :-)


 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Bonno, Tuco
Sent: Wednesday, February 15, 2012 10:00 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Alfred, Lord Tennyson, speaks on MS-Windows

macbeth, imo, says it even better
 
   but a walking shadow, a poor player
That struts and frets his hour upon the stage
And then is heard no more: it is a tale
Told by an idiot, full of sound and fury,
Signifying nothing.



/s/ tuco bonno; 
Graduate, College of Conflict Management;
University of SouthEast Asia;
"I partied on the Ho Chi Minh Trail - tiến lên !! "






-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
McKown, John
Sent: Wednesday, 15 February, 2012 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Alfred, Lord Tennyson, speaks on MS-Windows

Our little systems have their day; They have their day and cease to be; They 
are but broken lights of thee. -- Tennyson

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


--
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...@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

Re: bpxwdyn rc = 4294967263

[Scott Ford]

All,

I thought i would provide a quick update the issue is COBOL. I will explain,
Once you allocate a file using 'optional ' in the 'select' then refer to it 
dynamically
You cannot 'free it' which makes sense. My design mistake.

Sent from my iPad
Scott Ford
Senior Systems Engineer
www.identityforge.com



On Feb 13, 2012, at 5:56 PM, Scott Ford  wrote:

> Hey Gil,
>  
> I am giving the MSG(WTP) a whirl...let you know ...got to be something stupid
> 
> Scott J Ford
> Software Engineer
> http://www.identityforge.com
>  
> 
> 
> 
> From: Paul Gilmartin 
> To: IBM-MAIN@bama.ua.edu 
> Sent: Monday, February 13, 2012 5:51 PM
> Subject: Re: bpxwdyn rc = 4294967263
> 
> On Mon, 13 Feb 2012 14:32:56 -0800, Scott Ford wrote:
> 
> I am testing a BPXWDYN call in Cobol  and I am building this allocate...
> 
> ALLOC DD(TEMPFLE) DA(PIONEER.TEST.SYSIN) NEW CATALOG UNIT(SYSDA) CYL 
> SPACE(1,1) DSORG(PS) RECFM(F) LRECL(80)
> 
> I have tied with and without BLKSIZE(80) and in either situation see a 
> 4294967463 return code
> Do I assume the class code is 4 and the error is x'294' ...?? 
> 
> Big numbers make me think of allocation-detected problems.  Can you try
> adding "MSG(WTP)" to see whether allocation tells you something in the
> job log?
> 
> I tried your command from Rexx.  I needed to change the HLQ, then it
> worked with no errors.  If I knew COBOL I'd ask how you called BPXWDYN.
> 
> -- gil
> 
> --
> 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...@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

Re: Alfred, Lord Tennyson, speaks on MS-Windows

[Bonno, Tuco]

macbeth, imo, says it even better
 
   but a walking shadow, a poor player
That struts and frets his hour upon the stage
And then is heard no more: it is a tale
Told by an idiot, full of sound and fury,
Signifying nothing.



/s/ tuco bonno; 
Graduate, College of Conflict Management;
University of SouthEast Asia;
"I partied on the Ho Chi Minh Trail - tiến lên !! "






-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
McKown, John
Sent: Wednesday, 15 February, 2012 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Alfred, Lord Tennyson, speaks on MS-Windows

Our little systems have their day; They have their day and cease to be; They 
are but broken lights of thee. -- Tennyson

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


--
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...@bama.ua.edu with the message: INFO IBM-MAIN

RES: RES: Question about XDC BATCH and automation

[Sérgio Lima Costa]

Thanks Ron.


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de Ron 
Hawkins
Enviada em: quarta-feira, 15 de fevereiro de 2012 11:37
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: RES: Question about XDC BATCH and automation

Sergio,

Select the sysout (S) for STC03526 and open it.

On the command line type PRT D and enter.

Complete the dataset details and enter.

When you return to the SYSOUT screen type PRT and enter.

Type PRT CLOSE and enter

You now have all the sysout in a dataset. This is all documented in the SDSF 
help menus.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Sérgio Lima Costa
> Sent: Wednesday, February 15, 2012 4:58 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] RES: Question about XDC BATCH and automation
>
> Hello,
>
> Thanks very much for your help.
> Sorry about my bad explanation, below, our CICS SYSOUT, that exist now
> in
our
> system :
>
> SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
> COMMAND INPUT ===>SCROLL ===>
CSR
> PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
> NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
>  CICSP1   STC04235 USRCICP 1 PRINT 3293
>  CICSP1   STC03526 USRCICP 1 PRINT 3278
>  CICSP1   STC03441 USRCICP 1 PRINT 2742
>  CICSP1   STC02900 USRCICP 1 PRINT 2732
>  CICSP1   STC02683 USRCICP 1 PRINT 2419
>  CICSP1   STC02499 USRCICP 1 PRINT 2362
>  CICSP1   STC02431 USRCICP 1 PRINT 2207
>  CICSP1   STC01151 USRCICP 1 PRINT 2199
>  CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
>  CICSP1   STC06488 USRCICP 1 PRINT HOLD
>
>
> The file, that I need look, is the Jobid STC03526, Position 3278.
>
> Regards.
>
> Sergio
>
> -Mensagem original-
> De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em
> nome de Miklos Szigetvari Enviada em: quarta-feira, 15 de fevereiro de
> 2012 10:10
> Para: IBM-MAIN@bama.ua.edu
> Assunto: Re: Question about XDC BATCH and automation
>
> Hi
>
> Hi
>
> With the REXX SDSF interface you can access the SYSOUT etc .
> What do you mean about "last CICS JOBS on SYSOUT ?
>
> If the CICS is ending you can insert maybe a STEP to do this save/edit
> etc actions you need .
>
> On 2/15/2012 12:59 PM, Sérgio Lima Costa wrote:
> > Hello List,
> >
> > We need all days here, Access the SYSOUT from CICS under SDSF ,
> > then,
give
> the XDC command, to save the sysout on DASD, next, Edit this file, for
locate
> all abends, save this file on another file, and send this information
> to development people.
> >
> > So, we want know, if is possible, made a automation in this process,
first ,
> using XDC running a BATCH JOB, this is possible ?
> > If, Yes, have a way, that I know, what is the last CICS JOBS on
> > SYSOUT,
> because, today, We enter, manually in this SYSOUT, for locate the last
report.
> > The remainder, I know how to do.
> > With a sample REXX program, I can extract what We need from the SYSOUT.
> >
> > Thanks very much.
> >
> > Sergio
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > 
> > "Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
> > destinatários(s) acima identificado(s), podendo conter informações
> > e/ou documentos confidencias/privilegiados e seu sigilo é protegido
> > por
lei.
> Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a
> de seu sistema.
> > Notificamos que é proibido por lei a sua retenção, disseminação,
> > distribuição, cópia ou uso sem expressa autorização do remetente.
> > Opiniões pessoais do remetente não refletem, necessariamente, o
> > ponto de
> vista da CETIP, o qual é divulgado somente por pessoas autorizadas."
> >
> > "Warning: This message was sent for exclusive use of the addressees
> > above identified, possibly containing information and or
> privileged/confidential documents whose content is protected by law.
> > In case you have mistakenly received it, please notify the sender
> > and
delete
> it from your system.
> > Be noticed that the law forbids the retention, dissemination,
> > distribution, copy or use without express authorization from the
> > sender. Personal opinions of the sender do not necessarily reflect
CETIP's
> point of view, which is only divulged by authorized personnel."
> >
> > 
> > -- 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...@bama.ua.edu with the message: INFO IBM

Re: Workload Manager Performance

[gsg]

WLM not a scheduler.

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

Re: Z/architecture I/O questions

[Sambataro, Anthony (NIH/NBS) [E]]

This flash from 2008 shows CPENABLE recommendation of (10,30) but says that 
it's for increased overall thru put:

http://www-03.ibm.com/support/techdocs/atsmastr.nsf/5cb5ed706d254a8186256c71006d2e0a/80154cc31e2cc90d86256fa9000766e7/$FILE/CPENABLE_vz10.pdf


-Original Message-
From: Joe Owens [mailto:joe_ow...@standardlife.com] 
Sent: Wednesday, February 15, 2012 8:11 AM
To: IBM-MAIN@bama.ua.edu
Subject: Z/architecture I/O questions

Hi List,
I've got a few questions about How z hardware handles I/Os and LPAR dispatching.

I've done a fair bit of reading, but still some things I don't understand.
We are on Z9's We are using shared CPs. We are not using IRD. We have 2 large 
production LPARs and several smaller LPARs. The 2 prod LPARS have substantially 
different weights 1:4, due to the CPU workload spread. We also use group 
capacity limits and an individual capacity limit on the largest LPAR. While the 
CPU balance is different, the I/O profile is similar, about 5-6000 IOPS on each 
LPAR.

We have 11 logical CPs active on each of the 2 LPARS. We expect peak 4hra of 90 
and 400 MSUs, and the weights are set to reflect this.

The work between the 2 LPARS is split for licencing. The small LPAR is mainly 
batch, the large LPAR is online and batch.

I believe we are seeing I/O elongation on the smaller LPAR at peak times, 
particularly when the systems are capped. A batch job I/O bound may run 2-3 
times longer on the small LPAR when the systems are busy. The I/O response 
times look slightly worse on the small LPAR, but the throughput is much worse.

So here are my questions.

My understanding of the channel program is that it moves the data into the page 
fixed I/O buffer and the interupt a cp to process the I/O. How is the candidate 
CP chosen?  I know the z/os system may make some CPUs uninteruptable for I/Os 
based on CPENABLE, but of the CPs that are enabled, how is one chosen? Is it at 
the physical or logical level and how is it related to the LPAR which requested 
the I/O?

We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are taking 
interrupts (and have TPI counts), but CP A (highest number) is doing by far the 
most. Could this be a cause of contention between the 2 LPARS, or will they 
likely be dispatched on separate physical CPs?

Next question is about the dispatch time given to a LPAR for a CP by pr/sm. The 
pr/sm planning guide says the maximum time may be between 12.5 and 25ms (A lot 
longer than an I/O). I am thinking that if an LPAR is constrained by capping, 
it is more likely to have a queue of ready work and hold on to a CP towards the 
maximum when it is given one?

How can I tell for sure if I am on the right track, any metrics that will prove 
what is causing the longer elapsed times on one LPAR? 

What is the best way to stop it or reduce it, given that we have to run capped 
on peak days, and we have to live with the workload separation, and we don't 
have the capacity for dedicated CPUs.

Would wlm/ird management of CPUs help?
Would offlining logical CPs help? We have many more CPs online to each LPAR 
than it's normal MSU usage, but it give flexibilty for workload peaks.   
Would offlining specific logical CPs help? Ie if the 2 LPARS had a different 
highest logical CP number would this reduce contention, or is it again likely 
to use different physical CPs for different LPARs?
Would tuning of the LPAR dispatch time help? We do not specify this, and the 
recommendation is to let the system choose.

Sorry about the length of the post, but hopefully someone will find this an 
interesting problem.

Joe Owens



.

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Alfred, Lord Tennyson, speaks on MS-Windows

[McKown, John]

Our little systems have their day; They have their day and cease to be; They 
are but broken lights of thee. -- Tennyson

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


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

Re: Z/architecture I/O questions

[Bill Fairchild]

If you have TMON/MVS, you can run an I/O trace against several devices on the 
system that you suspect has I/O elongation and the exact amount of I/O 
elongation will be measured and reported on in that trace.

Bill Fairchild

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Joe Owens
Sent: Wednesday, February 15, 2012 7:11 AM
To: IBM-MAIN@bama.ua.edu
Subject: Z/architecture I/O questions

I believe we are seeing I/O elongation on the smaller LPAR at peak times, 
particularly when the systems are capped.

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

Re: Changing sysplex hardware

[Pommier, Rex R.]

OK, I guess I didn't realize that there was some mirroring software that didn't 
allow a changed-only resync after updates were done on the target volumes.

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Mike Schwab
Sent: Tuesday, February 14, 2012 4:10 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Changing sysplex hardware

Resync after the secondary volume is updated?  If the mirroring
software supports that, it would save a lot of retransmitting.  I am
fairly sure the ESS F20 and 800 PPRC did not have that, and the user
did not say what he is using to mirror.

But you only need that after a backout after running at the new site.

On Tue, Feb 14, 2012 at 3:54 PM, Pommier, Rex R.
 wrote:
> Mike,
>
> Wouldn't number 10 be a massive amount of unnecessary work and replication?  
> I was under the impression that if you had replication going between the two 
> arrays and you suspended the replication, that you could bring up the 
> replication targets in a read/write mode on the new servers.  If you had to 
> back out, after shutting the new servers down, you could "unsuspend" the 
> replication and data that had changed on the source volumes would be 
> replicated to the targets, and data on the targets that had changed would 
> also have the source data pushed to overlay the changed targets.  Is this not 
> how replication works?
>
> Rex
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
> Of Mike Schwab
> Sent: Tuesday, February 14, 2012 2:59 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Changing sysplex hardware
>
> Since you are moving the entire datacenter and all dasd is already
> replicated, then.
> Old location:
> 1. Shut down your existing systems.
> Old location prefered.
> 2. Break dasd replications.
> New location.
> 3. IPL one system.
> 4. Start Sysplex using your new datasets.
> 5. IPL the other systems.
>
> Backout:
> New location
> 6. Shut down your systems at new locations.
> Old Location.
> 7. IPL one system.
> 8. Start Sysplex using your old datasets.
> 9 IPL the other systems
> When up:
> 10. Restart replication from scratch for next try.  The secondaries
> will have been updated (access date at a minimum), so restarting a
> suspended replication would result in bad volumes.
--
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...@bama.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited and that you will be held responsible for any such 
unauthorized activity, including liability for any resulting damages. As 
appropriate, such incident(s) may also be reported to law enforcement. If you 
received this e-mail in error, please reply to sender and destroy or delete the 
message and any attachments. Thank you.

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

Re: RES: Question about XDC BATCH and automation

[Greg Shirey]

Sergio's original question was whether he could do what you described in batch. 
 

I'm sure the short answer is yes, though I don't understand the selection 
criterion, since STC03526 does not appear to be the most recent output data 
set. 

Sergio, have you looked at the SDSF Operation and Customization manual?  It 
contains a chapter called "Using SDSF in batch."  It's short, but it should get 
you started. 

Greg Shirey
Ben E. Keith Company 


-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Ron Hawkins
Sent: Wednesday, February 15, 2012 7:37 AM

Sergio,

Select the sysout (S) for STC03526 and open it.

On the command line type PRT D and enter.

Complete the dataset details and enter.

When you return to the SYSOUT screen type PRT and enter.

Type PRT CLOSE and enter

You now have all the sysout in a dataset. This is all documented in the SDSF
help menus.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Sérgio Lima Costa
> Sent: Wednesday, February 15, 2012 4:58 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] RES: Question about XDC BATCH and automation
> 
> Hello,
> 
> Thanks very much for your help.
> Sorry about my bad explanation, below, our CICS SYSOUT, that exist now in
our
> system :
> 
> SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
> COMMAND INPUT ===>SCROLL ===>
CSR
> PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
> NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
>  CICSP1   STC04235 USRCICP 1 PRINT 3293
>  CICSP1   STC03526 USRCICP 1 PRINT 3278
>  CICSP1   STC03441 USRCICP 1 PRINT 2742
>  CICSP1   STC02900 USRCICP 1 PRINT 2732
>  CICSP1   STC02683 USRCICP 1 PRINT 2419
>  CICSP1   STC02499 USRCICP 1 PRINT 2362
>  CICSP1   STC02431 USRCICP 1 PRINT 2207
>  CICSP1   STC01151 USRCICP 1 PRINT 2199
>  CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
>  CICSP1   STC06488 USRCICP 1 PRINT HOLD
> 
> 
> The file, that I need look, is the Jobid STC03526, Position 3278.
> 
> Regards.
> 
> Sergio
> 

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

Re: NASA closes it's last mainframe

[Shmuel Metz (Seymour J.)]

In <586f66d0-1da1-4a0a-ba56-e0829cb47...@yahoo.com>, on 02/14/2012
   at 08:13 AM, Scott Ford  said:

>Very interesting article / blog, but anyone know why NASA pulled the
>plug on their last mainframe?

I don't know that they did. NASA has other sites besides MSFC.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: sadump (and autoipl)

[Mark Zelden]

On Wed, 15 Feb 2012 02:43:08 -0600, Barbara Nitz  wrote:

>My sadump program is coded with DDSPROMPT=NO (to enable sadump autoipl) and a 
>dump data set name that is NOT SYS1.SADMP (since something needed to get done 
>in SMS for dsntype=large, and sys1 is not sms-managed - don't ask me about 
>particulars).
>
>When we migrated to 1.12, we were on old DASD hardware, and the sadmp data set 
>got reallocated using the old volser. I noticed that the volser was wrong in 
>the amdsaosg job, and *that* got redone to use the new addresses on the new 
>controller (the old one is gone).
>
>This morning I needed to take an sadump for the RSM/ASM/Supervisor problems 
>that we have. I failed spectacularly:
>
>- sadump gave me AMD092I with a reason code of 8 indicating a device number 
>mismatch.
>I went and reallocated the sadump output data set on the same volume(s), but 
>with the new device numbers (from a different system in the plex)
>
>- now sadump bitterly complained via amd001A and wanted the device address. I 
>specified that.
>
>- Unfortunately, due to ddsprompt=no, sadump now *expects* the data set name 
>to be sys1.sadmp. Of course, it couldn't find it on that volume.
>
>Am I correct in assuming that simply giving a null reply to amd001a would have 
>taken the original values as described in the amdsosg job and would have 
>essentially redriven sadump from the beginning? (Since I have reallocated all 
>sadump output datasets, I cannot really test anymore).
>
>Rattled as I was, I ended up reIPLing the lpar without the sadump. :-( Let's 
>wait for recurrance of the RSM problem.
>
>Regards, Barbara


I can't answer your question, but I can tell you that you can use DSNTYPE=LARGE 
to
allocate the output disk dump data sets without SMS control.  I assume you are
using hlq.SBLSCLI0(AMDSADDD) REXX exec to allocate them.   The last keyword
can be "LARGE".In the largest sysplex I support we use 4 3390-27s.  

Of course it is a good idea to test SADUMP after you make any changes.  

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

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

Re: Z/architecture I/O questions

[Vernooij, CP - SPLXM]

Ron,

Do you have a source for (0,0)? 
What I could find was FLASH10337, which advises (10,30) for machines up
to z10. Are there later advises, especially for z196?

Kees.

"Ron Hawkins"  wrote in message
news:<002401ccebe6$70595590$510c00b0$@net>...
> Joe,
> 
> In the past %TPI was a good indicator that IO was arriving for an LPAR
but
> it did not a logical CP dispatched by PR/SM to accept the interrupt.
This
> creates a "wall of interrupts" affect when the LCP is dispatched and
started
> finding pending interrupts with TPI process.
> 
> The recommendation for CPENABLE changes every few years, but past
wisdom was
> to have all LCP in an LPAR available to handle IO interrupts with
> CPENABLE(0,0). My take on the logic is that because PR/SM dispatches
logical
> CP and not LPARS, the first LCP dispatched for an LPAR can tackle the
IO
> interrupts. If only LCP0 is enabled for IO interrupts then they will
queue
> while that LCP is not dispatched.
> 
> This is my best take on this, but I'm not a CPU guy. Anyone that knows
> better should correct me post-haste.
> 
> Ron 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
> Behalf Of
> > Joe Owens
> > Sent: Wednesday, February 15, 2012 5:11 AM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: [IBM-MAIN] Z/architecture I/O questions
> > 
> > Hi List,
> > I've got a few questions about How z hardware handles I/Os and LPAR
> > dispatching.
> > 
> > I've done a fair bit of reading, but still some things I don't
understand.
> > We are on Z9's We are using shared CPs. We are not using IRD. We
have 2
> large
> > production LPARs and several smaller LPARs. The 2 prod LPARS have
> > substantially different weights 1:4, due to the CPU workload spread.
We
> also
> > use group capacity limits and an individual capacity limit on the
largest
> > LPAR. While the CPU balance is different, the I/O profile is
similar,
> about 5-
> > 6000 IOPS on each LPAR.
> > 
> > We have 11 logical CPs active on each of the 2 LPARS. We expect peak
4hra
> of
> > 90 and 400 MSUs, and the weights are set to reflect this.
> > 
> > The work between the 2 LPARS is split for licencing. The small LPAR
is
> mainly
> > batch, the large LPAR is online and batch.
> > 
> > I believe we are seeing I/O elongation on the smaller LPAR at peak
times,
> > particularly when the systems are capped. A batch job I/O bound may
run
> 2-3
> > times longer on the small LPAR when the systems are busy. The I/O
response
> > times look slightly worse on the small LPAR, but the throughput is
much
> worse.
> > 
> > So here are my questions.
> > 
> > My understanding of the channel program is that it moves the data
into the
> > page fixed I/O buffer and the interupt a cp to process the I/O. How
is the
> > candidate CP chosen?  I know the z/os system may make some CPUs
> uninteruptable
> > for I/Os based on CPENABLE, but of the CPs that are enabled, how is
one
> > chosen? Is it at the physical or logical level and how is it related
to
> the
> > LPAR which requested the I/O?
> > 
> > We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are
taking
> > interrupts (and have TPI counts), but CP A (highest number) is doing
by
> far
> > the most. Could this be a cause of contention between the 2 LPARS,
or will
> > they likely be dispatched on separate physical CPs?
> > 
> > Next question is about the dispatch time given to a LPAR for a CP by
> pr/sm.
> > The pr/sm planning guide says the maximum time may be between 12.5
and
> 25ms (A
> > lot longer than an I/O). I am thinking that if an LPAR is
constrained by
> > capping, it is more likely to have a queue of ready work and hold on
to a
> CP
> > towards the maximum when it is given one?
> > 
> > How can I tell for sure if I am on the right track, any metrics that
will
> > prove what is causing the longer elapsed times on one LPAR?
> > 
> > What is the best way to stop it or reduce it, given that we have to
run
> capped
> > on peak days, and we have to live with the workload separation, and
we
> don't
> > have the capacity for dedicated CPUs.
> > 
> > Would wlm/ird management of CPUs help?
> > Would offlining logical CPs help? We have many more CPs online to
each
> LPAR
> > than it's normal MSU usage, but it give flexibilty for workload
peaks.
> > Would offlining specific logical CPs help? Ie if the 2 LPARS had a
> different
> > highest logical CP number would this reduce contention, or is it
again
> likely
> > to use different physical CPs for different LPARs?
> > Would tuning of the LPAR dispatch time help? We do not specify this,
and
> the
> > recommendation is to let the system choose.
> > 
> > Sorry about the length of the post, but hopefully someone will find
this
> an
> > interesting problem.
> > 
> > Joe Owens
> > 
> > 
> > 
> > .
> > 
> >
--
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
email
> to
> > lists...@bama.ua.edu with th

Re: Question about XDC BATCH and automation

[McKown, John]

>From reading other messages in the thread, you need a way to automatically 
>report CICS abends to the appropriate group. Your plan is to put this 
>information to a disk dataset, then process it looking for messages such as:

DFHAC2236 02/14/2012 21:33:56 IMCM Transaction GC3# abend ABM3 in program 
GCXSP970 term . Updates to local recoverable resources

Is this correct? These messages go out to the MSGUSG DD. Why not just put those 
messages to disk directly, perhaps in a GDG. The DSN would include the CICS 
region name. Perhaps something like: CICS.MSGUSR.&CICSID.(+1) where &CICSID is 
a PROC variable equal to the name of the region. You could easily read this 
dataset using the (0) gen, or GDG-ALL processing. If you need it to go to 
SYSOUT as well, then just put in an IEBGENER step after the CICS region 
execution step.

OK, the problem with the above is that you can't see the messages in "real 
time" because you won't be able to browse the output dataset while the region 
is up. I understand that this could be a major problem. I have a solution for 
this. But it may not be acceptable. Instead of writing the messages to a 
sequential dataset, write them to a z/OS UNIX file. One "nice" thing is that 
you can read/browse a UNIX file even while it is still being written to by 
another job. The DD statement in the CICS JCL would look something like:

//MSGUSR DD PATH='/cics/&CICSID..msgusr.txt',
// PATHDISP=(KEEP,KEEP),PATHOPTS=(OCREAT,OWRONLY,OAPPEND),
// FILEDATA=TEXT,
// LRECL=132,RECFM=V,BLKSIZE=136

The OAPPEND is the UNIX equivalent of DISP=MOD, but it doesn't stop others from 
concurrently reading the file. And you will see all the records because UNIX 
doesn't "buffer" data the same way that QSAM does. So it's more like SYSOUT in 
that respect.

In a subsequent step, copy the file to SYSOUT and/or the aforementioned disk 
GDG. Your users will need to learn something new in order to view "real time" 
messages. 

A plus to this is that your messages are in a UNIX file. Why is that a plus? 
Because you can then use UNIX utilities to get the data you need. A short "awk" 
program might be:

#!/bin/awk
/^DFHAC2236 / {print $2 " " $3 " " $4 " " $6 " " $8 " " $11 " " $13;}

that one line of code will find all the DFHAC2236 messages. It will then print 
the date ($2), time ($3), region ($4), transaction ($6), abend code ($8), 
program ($11) and terminal ($13) to "stdout". You can use the redirection 
operator, >, to direct this to another UNIX file. In batch, you can then use 
IEBGENER to copy that UNIX file to a sequential dataset, if you need to, for 
futher processing. Or just process the data directly. If you put those two 
lines in a file, say called, /cics/DFHAC2236.awk, you can invoke it:

awk -f /cics/DFHAC2236.awk /cics/PROD1.msgusr.txt >/cics/PROD1.dfhac2236.txt

Invocation JCL could look something like:

// PART1='/bin/awk -f /cics/DFHAC2236.awk '
// PART2='/cics/PROD1.msgusr.txt '
// PART3='>/cics/PROD1.dfhac2236.txt'
//PS001   EXEC PGM=BPXBATCH,REGION=0M,
// PARM='&PART1&PART2&PART3 '
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDIN DD PATH='/dev/null',
// PATHOPTS=(ORDONLY)
//STDENV DD *
/*

I use &PART1, &PART2, and &PART3 in the above for clarity, and to pass a long 
PARM without needing JCL continuation, which confuses me. Note that the JCL is 
untested and not guaranteed.

Instead of doing the copy in a subsequent step in the CICS JCL, you might want 
to have a batch job do it, if you can "trigger" a batch job when the CICS 
region terminates. We do this type of triggering in CA-7. 

//PRINT EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=*
//SYSUT1 DD PATH='/cics/PROD1.msgusr.txt',
// PATHDISP=(KEEP,KEEP),PATHOPTS=(ORDONLY),
// FILEDATA=TEXT,
// LRECL=132,RECFM=V,BLKSIZE=136

Direct SYSUT2 to a disk or tape dataset, if desired.

Eventually, you will want to "reset" the UNIX file. But that is simple.

//RESET EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DUMMY,LRECL=132,RECFM=V,BLKSIZE=136
//SYSUT2 DD PATH='/cics/PROD1.msgusr.txt',
// PATHDISP=(KEEP,KEEP),PATHOPTS=(OCREAT,OWRONLY,OTRUNC),
// FILEDATA=TEXT,
// LRECL=132,RECFM=V,BLKSIZE=136

You are coping 0 records into the file. But the OTRUNC tells the system to 
reset the file to a zero length file at OPEN time.

Just a strange idea, from the "master" of strange ideas .

John McKown 

Systems Engineer IV

IT

 

Administrative Services Group

 

HealthMarkets®

 

9151 Boulevard 26 . N. Richland Hills . TX 76010

(817) 255-3225 phone . 

john.mck...@healthmarkets.com . www.HealthMarkets.com

 

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Compan

Re: Z/architecture I/O questions

[Staller, Allan]

A lot to go through here, but let's take it one step at a time. Comments
interspersed.


I've got a few questions about How z hardware handles I/Os and LPAR
dispatching.

I've done a fair bit of reading, but still some things I don't
understand.
We are on Z9's We are using shared CPs. We are not using IRD. We have 2
large production LPARs and several smaller LPARs. The 2 prod LPARS have
substantially different weights 1:4, due to the CPU workload spread. We
also use group capacity limits and an individual capacity limit on the
largest LPAR. While the CPU balance is different, the I/O profile is
similar, about 5-6000 IOPS on each LPAR.

We have 11 logical CPs active on each of the 2 LPARS. We expect peak
4hra of 90 and 400 MSUs, and the weights are set to reflect this.

The work between the 2 LPARS is split for licencing. The small LPAR is
mainly batch, the large LPAR is online and batch.

I believe we are seeing I/O elongation on the smaller LPAR at peak
times, particularly when the systems are capped. A batch job I/O bound
may run 2-3 times longer on the small LPAR when the systems are busy.
The I/O response times look slightly worse on the small LPAR, but the
throughput is much worse.


The first question that comes to mind is the logical to physical CP
ratio (per CEC). You do not give us the number physical processors the
support the 11 logical processors. 
The "official" recommendation from IBM (and others) is 2:1 logical to
physical. I personally have done 3:1 with no significant impact. If the
3:1 ratio is significantly exceeded, one of the symptoms will be IO
elongation due to context switching and CPU cache flushing. DANGER WILL
ROBINSON. This effect is non-linear and *RAPIDLY* increases.  

>From the size of the machines described , it seems  that you have one or
two physical processers in each CEC.  Given 11 logical processors and 4
physical, this is 2.75 to 1 which is "reasonable" overall. However, the
distribution of the logical processors over the physical engines is
unknown.


So here are my questions.

My understanding of the channel program is that it moves the data into
the page fixed I/O buffer and the interupt a cp to process the I/O. How
is the candidate CP chosen?  I know the z/os system may make some CPUs
uninteruptable for I/Os based on CPENABLE, but of the CPs that are
enabled, how is one chosen? Is it at the physical or logical level and
how is it related to the LPAR which requested the I/O?

We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are
taking interrupts (and have TPI counts), but CP A (highest number) is
doing by far the most. Could this be a cause of contention between the 2
LPARS, or will they likely be dispatched on separate physical CPs?


IIRC, CPU 0 on a particular CEC is "preferred" for IO interrupts. If it
is busy, another CPU is enabled for IO interrupts. As Ron Hawkins
related, the current recommendation for CP ENABLE is (0,0)



Next question is about the dispatch time given to a LPAR for a CP by
pr/sm. The pr/sm planning guide says the maximum time may be between
12.5 and 25ms (A lot longer than an I/O). I am thinking that if an LPAR
is constrained by capping, it is more likely to have a queue of ready
work and hold on to a CP towards the maximum when it is given one?

How can I tell for sure if I am on the right track, any metrics that
will prove what is causing the longer elapsed times on one LPAR? 

What is the best way to stop it or reduce it, given that we have to run
capped on peak days, and we have to live with the workload separation,
and we don't have the capacity for dedicated CPUs.


CPU capping and context switching are most likely contributing
significantly to your issue. Also be aware that a low-weighted LPAR will
have "normal" CPU processes elongated.  e.g. an enqueue that might
complete in 100ms on a "normal weighted" LPAR might take 500ms on a
capped, low weighted LPAR. Cheryl Watson and others have discussed this
in the past. Check the archives.


Would wlm/ird management of CPUs help?

Would offlining logical CPs help? We have many more CPs online to each
LPAR than it's normal MSU usage, but it give flexibilty for workload
peaks.   

Would offlining specific logical CPs help? Ie if the 2 LPARS had a
different highest logical CP number would this reduce contention, or is
it again likely to use different physical CPs for different LPARs?


Offlining logical CP's definitely has the potential to help. See the
discussion of the logical to physical CP ratio above.


Would tuning of the LPAR dispatch time help? We do not specify this, and
the recommendation is to let the system choose.


As far as I know, there are no customer available tools to do this.


HTH and good luck.

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

Re: Archaic allocation in JCL (Was: Physical record size query)

[Ron Hawkins]

Thomas,

I don't believe this is true. There are files systems that require
pre-allocation of space. 

In fact the use of a raw LUN is predefined space by definition. If you spent
some setting up arrays for large Open Systems servers where they want 120
different LUN sizes you see the similarity.

The PC disk NTFS model is not a valid comparison with a z/OS file system. Go
and look at a couple of 100TBs of squatty box storage like you have in z/OS.
Pre-allocated space in LUN units is rife through Open Systems - as is a
significant amount of wasted free space :-(

Oh, and automatic extension of a file from one LUN to another for 59 LUNS is
a foreign concept in Open Systems File systems. They're still wishing for
one. They have to go through a Dynamic LUN Expansion process to manage that
one - always fun at 3 in the morning.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Thomas Berg
> Sent: Monday, February 13, 2012 3:28 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] Archaic allocation in JCL (Was: Physical record size
> query)
> 
> I can't understand why we STILL need to specify SPACE= (etc) for an
allocation
> of a dataset.
> You normally don't do that in other OS (platforms), You always (both
> principally and in practice) want to allocate as much as is needed during
> execution
> 
> If for backward compatibility it can't be done automatically, why not
> introduce a new keyword like e g "SPACE=ANY" ?
> 
> 
> 
> Regards,
> Thomas Berg
> _
> Thomas Berg   Specialist   A M   SWEDBANK
> 
> --
> 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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: sadump (and autoipl)

[Jousma, David]

Barbara,

Why not non-sms DSNTYPE?  We do.

Data Set Name . . . . : SYS1.SADMP1   
   
 General Data   Current Allocation 
  Management class . . : **None**Allocated cylinders : 60,014  
  Storage class  . . . : **None**Allocated extents . : 1   
   Volume serial . . . : SADMP0
   Device type . . . . : 3390  
  Data class . . . . . : **None**  
   Organization  . . . : PS Current Utilization
   Record format . . . : FBS Used cylinders  . . : 1   
   Record length . . . : 4160Used extents  . . . : 1   
   Block size  . . . . : 24960 
   1st extent cylinders: 60014 
   Secondary cylinders : 0  Dates  
   Data set name type  : LARGE   Creation date . . . : 2009/10/28  
   SMS Compressible. . : NO  Referenced date . . : 2009/10/28  
 Expiration date . . : ***None***  

_
Dave Jousma
Assistant Vice President, Mainframe Services
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Barbara Nitz
Sent: Wednesday, February 15, 2012 3:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: sadump (and autoipl)

My sadump program is coded with DDSPROMPT=NO (to enable sadump autoipl) and a 
dump data set name that is NOT SYS1.SADMP (since something needed to get done 
in SMS for dsntype=large, and sys1 is not sms-managed - don't ask me about 
particulars).

When we migrated to 1.12, we were on old DASD hardware, and the sadmp data set 
got reallocated using the old volser. I noticed that the volser was wrong in 
the amdsaosg job, and *that* got redone to use the new addresses on the new 
controller (the old one is gone).

This morning I needed to take an sadump for the RSM/ASM/Supervisor problems 
that we have. I failed spectacularly:

- sadump gave me AMD092I with a reason code of 8 indicating a device number 
mismatch. 
I went and reallocated the sadump output data set on the same volume(s), but 
with the new device numbers (from a different system in the plex)

- now sadump bitterly complained via amd001A and wanted the device address. I 
specified that. 

- Unfortunately, due to ddsprompt=no, sadump now *expects* the data set name to 
be sys1.sadmp. Of course, it couldn't find it on that volume. 

Am I correct in assuming that simply giving a null reply to amd001a would have 
taken the original values as described in the amdsosg job and would have 
essentially redriven sadump from the beginning? (Since I have reallocated all 
sadump output datasets, I cannot really test anymore).

Rattled as I was, I ended up reIPLing the lpar without the sadump. :-( Let's 
wait for recurrance of the RSM problem.

Regards, Barbara

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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

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

Re: RES: Question about XDC BATCH and automation

[Ron Hawkins]

Sergio,

Select the sysout (S) for STC03526 and open it.

On the command line type PRT D and enter.

Complete the dataset details and enter.

When you return to the SYSOUT screen type PRT and enter.

Type PRT CLOSE and enter

You now have all the sysout in a dataset. This is all documented in the SDSF
help menus.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Sérgio Lima Costa
> Sent: Wednesday, February 15, 2012 4:58 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] RES: Question about XDC BATCH and automation
> 
> Hello,
> 
> Thanks very much for your help.
> Sorry about my bad explanation, below, our CICS SYSOUT, that exist now in
our
> system :
> 
> SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
> COMMAND INPUT ===>SCROLL ===>
CSR
> PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
> NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
>  CICSP1   STC04235 USRCICP 1 PRINT 3293
>  CICSP1   STC03526 USRCICP 1 PRINT 3278
>  CICSP1   STC03441 USRCICP 1 PRINT 2742
>  CICSP1   STC02900 USRCICP 1 PRINT 2732
>  CICSP1   STC02683 USRCICP 1 PRINT 2419
>  CICSP1   STC02499 USRCICP 1 PRINT 2362
>  CICSP1   STC02431 USRCICP 1 PRINT 2207
>  CICSP1   STC01151 USRCICP 1 PRINT 2199
>  CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
>  CICSP1   STC06488 USRCICP 1 PRINT HOLD
> 
> 
> The file, that I need look, is the Jobid STC03526, Position 3278.
> 
> Regards.
> 
> Sergio
> 
> -Mensagem original-
> De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de
> Miklos Szigetvari Enviada em: quarta-feira, 15 de fevereiro de 2012 10:10
> Para: IBM-MAIN@bama.ua.edu
> Assunto: Re: Question about XDC BATCH and automation
> 
> Hi
> 
> Hi
> 
> With the REXX SDSF interface you can access the SYSOUT etc .
> What do you mean about "last CICS JOBS on SYSOUT ?
> 
> If the CICS is ending you can insert maybe a STEP to do this save/edit etc
> actions you need .
> 
> On 2/15/2012 12:59 PM, Sérgio Lima Costa wrote:
> > Hello List,
> >
> > We need all days here, Access the SYSOUT from CICS under SDSF , then,
give
> the XDC command, to save the sysout on DASD, next, Edit this file, for
locate
> all abends, save this file on another file, and send this information to
> development people.
> >
> > So, we want know, if is possible, made a automation in this process,
first ,
> using XDC running a BATCH JOB, this is possible ?
> > If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT,
> because, today, We enter, manually in this SYSOUT, for locate the last
report.
> > The remainder, I know how to do.
> > With a sample REXX program, I can extract what We need from the SYSOUT.
> >
> > Thanks very much.
> >
> > Sergio
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > 
> > "Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
> > destinatários(s) acima identificado(s), podendo conter informações
> > e/ou documentos confidencias/privilegiados e seu sigilo é protegido por
lei.
> Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a
> de seu sistema.
> > Notificamos que é proibido por lei a sua retenção, disseminação,
> > distribuição, cópia ou uso sem expressa autorização do remetente.
> > Opiniões pessoais do remetente não refletem, necessariamente, o ponto de
> vista da CETIP, o qual é divulgado somente por pessoas autorizadas."
> >
> > "Warning: This message was sent for exclusive use of the addressees
> > above identified, possibly containing information and or
> privileged/confidential documents whose content is protected by law.
> > In case you have mistakenly received it, please notify the sender and
delete
> it from your system.
> > Be noticed that the law forbids the retention, dissemination,
> > distribution, copy or use without express authorization from the
> > sender. Personal opinions of the sender do not necessarily reflect
CETIP's
> point of view, which is only divulged by authorized personnel."
> >
> > --
> > 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...@bama.ua.edu with the message: INFO IBM-MAIN
> 
> "Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
destinatários(s)
> acima identificado(s), podendo conter informações e/ou documentos
> confidencias/privilegiados e seu sigilo é protegido por lei. Caso você
tenha
> recebido por engano, por favor, informe o remete

Re: Z/architecture I/O questions

[Ron Hawkins]

Joe,

In the past %TPI was a good indicator that IO was arriving for an LPAR but
it did not a logical CP dispatched by PR/SM to accept the interrupt. This
creates a "wall of interrupts" affect when the LCP is dispatched and started
finding pending interrupts with TPI process.

The recommendation for CPENABLE changes every few years, but past wisdom was
to have all LCP in an LPAR available to handle IO interrupts with
CPENABLE(0,0). My take on the logic is that because PR/SM dispatches logical
CP and not LPARS, the first LCP dispatched for an LPAR can tackle the IO
interrupts. If only LCP0 is enabled for IO interrupts then they will queue
while that LCP is not dispatched.

This is my best take on this, but I'm not a CPU guy. Anyone that knows
better should correct me post-haste.

Ron 

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
> Joe Owens
> Sent: Wednesday, February 15, 2012 5:11 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: [IBM-MAIN] Z/architecture I/O questions
> 
> Hi List,
> I've got a few questions about How z hardware handles I/Os and LPAR
> dispatching.
> 
> I've done a fair bit of reading, but still some things I don't understand.
> We are on Z9's We are using shared CPs. We are not using IRD. We have 2
large
> production LPARs and several smaller LPARs. The 2 prod LPARS have
> substantially different weights 1:4, due to the CPU workload spread. We
also
> use group capacity limits and an individual capacity limit on the largest
> LPAR. While the CPU balance is different, the I/O profile is similar,
about 5-
> 6000 IOPS on each LPAR.
> 
> We have 11 logical CPs active on each of the 2 LPARS. We expect peak 4hra
of
> 90 and 400 MSUs, and the weights are set to reflect this.
> 
> The work between the 2 LPARS is split for licencing. The small LPAR is
mainly
> batch, the large LPAR is online and batch.
> 
> I believe we are seeing I/O elongation on the smaller LPAR at peak times,
> particularly when the systems are capped. A batch job I/O bound may run
2-3
> times longer on the small LPAR when the systems are busy. The I/O response
> times look slightly worse on the small LPAR, but the throughput is much
worse.
> 
> So here are my questions.
> 
> My understanding of the channel program is that it moves the data into the
> page fixed I/O buffer and the interupt a cp to process the I/O. How is the
> candidate CP chosen?  I know the z/os system may make some CPUs
uninteruptable
> for I/Os based on CPENABLE, but of the CPs that are enabled, how is one
> chosen? Is it at the physical or logical level and how is it related to
the
> LPAR which requested the I/O?
> 
> We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are taking
> interrupts (and have TPI counts), but CP A (highest number) is doing by
far
> the most. Could this be a cause of contention between the 2 LPARS, or will
> they likely be dispatched on separate physical CPs?
> 
> Next question is about the dispatch time given to a LPAR for a CP by
pr/sm.
> The pr/sm planning guide says the maximum time may be between 12.5 and
25ms (A
> lot longer than an I/O). I am thinking that if an LPAR is constrained by
> capping, it is more likely to have a queue of ready work and hold on to a
CP
> towards the maximum when it is given one?
> 
> How can I tell for sure if I am on the right track, any metrics that will
> prove what is causing the longer elapsed times on one LPAR?
> 
> What is the best way to stop it or reduce it, given that we have to run
capped
> on peak days, and we have to live with the workload separation, and we
don't
> have the capacity for dedicated CPUs.
> 
> Would wlm/ird management of CPUs help?
> Would offlining logical CPs help? We have many more CPs online to each
LPAR
> than it's normal MSU usage, but it give flexibilty for workload peaks.
> Would offlining specific logical CPs help? Ie if the 2 LPARS had a
different
> highest logical CP number would this reduce contention, or is it again
likely
> to use different physical CPs for different LPARs?
> Would tuning of the LPAR dispatch time help? We do not specify this, and
the
> recommendation is to let the system choose.
> 
> Sorry about the length of the post, but hopefully someone will find this
an
> interesting problem.
> 
> Joe Owens
> 
> 
> 
> .
> 
> --
> 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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: RES: Question about XDC BATCH and automation

[Miklos Szigetvari]

Hi

There is a red book
http://www.redbooks.ibm.com/redbooks/pdfs/sg247419.pdf
Here you can find several samples, how to read the SYSOUT.

I mean,  if the CICS is ending, you can insert a jobstep to process the 
CICS SYSOUT's as you need .


On 2/15/2012 1:58 PM, Sérgio Lima Costa wrote:

Hello,

Thanks very much for your help.
Sorry about my bad explanation, below, our CICS SYSOUT, that exist now in our 
system :

SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
COMMAND INPUT ===> SCROLL ===>  CSR
PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
  CICSP1   STC04235 USRCICP 1 PRINT 3293
  CICSP1   STC03526 USRCICP 1 PRINT 3278
  CICSP1   STC03441 USRCICP 1 PRINT 2742
  CICSP1   STC02900 USRCICP 1 PRINT 2732
  CICSP1   STC02683 USRCICP 1 PRINT 2419
  CICSP1   STC02499 USRCICP 1 PRINT 2362
  CICSP1   STC02431 USRCICP 1 PRINT 2207
  CICSP1   STC01151 USRCICP 1 PRINT 2199
  CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
  CICSP1   STC06488 USRCICP 1 PRINT HOLD


The file, that I need look, is the Jobid STC03526, Position 3278.

Regards.

Sergio

-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Miklos Szigetvari
Enviada em: quarta-feira, 15 de fevereiro de 2012 10:10
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: Question about XDC BATCH and automation

Hi

Hi

With the REXX SDSF interface you can access the SYSOUT etc .
What do you mean about "last CICS JOBS on SYSOUT ?

If the CICS is ending you can insert maybe a STEP to do this save/edit etc 
actions you need .

On 2/15/2012 12:59 PM, Sérgio Lima Costa wrote:

Hello List,

We need all days here, Access the SYSOUT from CICS under SDSF , then, give the 
XDC command, to save the sysout on DASD, next, Edit this file, for locate all 
abends, save this file on another file, and send this information to 
development people.

So, we want know, if is possible, made a automation in this process, first , 
using XDC running a BATCH JOB, this is possible ?
If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT, 
because, today, We enter, manually in this SYSOUT, for locate the last report.
The remainder, I know how to do.
With a sample REXX program, I can extract what We need from the SYSOUT.

Thanks very much.

Sergio











"Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
destinatários(s) acima identificado(s), podendo conter informações
e/ou documentos confidencias/privilegiados e seu sigilo é protegido por lei. 
Caso você tenha recebido por engano, por favor, informe o remetente e apague-a 
de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação,
distribuição, cópia ou uso sem expressa autorização do remetente.
Opiniões pessoais do remetente não refletem, necessariamente, o ponto de vista da 
CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees
above identified, possibly containing information and or 
privileged/confidential documents whose content is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination,
distribution, copy or use without express authorization from the
sender. Personal opinions of the sender do not necessarily reflect CETIP's point of 
view, which is only divulged by authorized personnel."

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, ple

Z/architecture I/O questions

[Joe Owens]

Hi List,
I've got a few questions about How z hardware handles I/Os and LPAR dispatching.

I've done a fair bit of reading, but still some things I don't understand.
We are on Z9's We are using shared CPs. We are not using IRD. We have 2 large 
production LPARs and several smaller LPARs. The 2 prod LPARS have substantially 
different weights 1:4, due to the CPU workload spread. We also use group 
capacity limits and an individual capacity limit on the largest LPAR. While the 
CPU balance is different, the I/O profile is similar, about 5-6000 IOPS on each 
LPAR.

We have 11 logical CPs active on each of the 2 LPARS. We expect peak 4hra of 90 
and 400 MSUs, and the weights are set to reflect this.

The work between the 2 LPARS is split for licencing. The small LPAR is mainly 
batch, the large LPAR is online and batch.

I believe we are seeing I/O elongation on the smaller LPAR at peak times, 
particularly when the systems are capped. A batch job I/O bound may run 2-3 
times longer on the small LPAR when the systems are busy. The I/O response 
times look slightly worse on the small LPAR, but the throughput is much worse.

So here are my questions.

My understanding of the channel program is that it moves the data into the page 
fixed I/O buffer and the interupt a cp to process the I/O. How is the candidate 
CP chosen?  I know the z/os system may make some CPUs uninteruptable for I/Os 
based on CPENABLE, but of the CPs that are enabled, how is one chosen? Is it at 
the physical or logical level and how is it related to the LPAR which requested 
the I/O?

We have CPENABLE set to (10,30), RMF shows all 11 logical CPUs are taking 
interrupts (and have TPI counts), but CP A (highest number) is doing by far the 
most. Could this be a cause of contention between the 2 LPARS, or will they 
likely be dispatched on separate physical CPs?

Next question is about the dispatch time given to a LPAR for a CP by pr/sm. The 
pr/sm planning guide says the maximum time may be between 12.5 and 25ms (A lot 
longer than an I/O). I am thinking that if an LPAR is constrained by capping, 
it is more likely to have a queue of ready work and hold on to a CP towards the 
maximum when it is given one?

How can I tell for sure if I am on the right track, any metrics that will prove 
what is causing the longer elapsed times on one LPAR? 

What is the best way to stop it or reduce it, given that we have to run capped 
on peak days, and we have to live with the workload separation, and we don't 
have the capacity for dedicated CPUs.

Would wlm/ird management of CPUs help?
Would offlining logical CPs help? We have many more CPs online to each LPAR 
than it's normal MSU usage, but it give flexibilty for workload peaks.   
Would offlining specific logical CPs help? Ie if the 2 LPARS had a different 
highest logical CP number would this reduce contention, or is it again likely 
to use different physical CPs for different LPARs?
Would tuning of the LPAR dispatch time help? We do not specify this, and the 
recommendation is to let the system choose.

Sorry about the length of the post, but hopefully someone will find this an 
interesting problem.

Joe Owens



.

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

RES: Question about XDC BATCH and automation

[Sérgio Lima Costa]

Hello,

Thanks very much for your help.
Sorry about my bad explanation, below, our CICS SYSOUT, that exist now in our 
system :

SDSF STATUS DISPLAY ALL CLASSESLINE 1-10 (10)
COMMAND INPUT ===>SCROLL ===> CSR
PREFIX=CICSP1  DEST=(ALL)  OWNER=*  SORT=Pos/D  SYSNAME=
NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status
 CICSP1   STC04235 USRCICP 1 PRINT 3293
 CICSP1   STC03526 USRCICP 1 PRINT 3278
 CICSP1   STC03441 USRCICP 1 PRINT 2742
 CICSP1   STC02900 USRCICP 1 PRINT 2732
 CICSP1   STC02683 USRCICP 1 PRINT 2419
 CICSP1   STC02499 USRCICP 1 PRINT 2362
 CICSP1   STC02431 USRCICP 1 PRINT 2207
 CICSP1   STC01151 USRCICP 1 PRINT 2199
 CICSP1   STC04303 USRCICP15 EXECUTION  SYSA  SYSA
 CICSP1   STC06488 USRCICP 1 PRINT HOLD


The file, that I need look, is the Jobid STC03526, Position 3278.

Regards.

Sergio

-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Miklos Szigetvari
Enviada em: quarta-feira, 15 de fevereiro de 2012 10:10
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: Question about XDC BATCH and automation

Hi

Hi

With the REXX SDSF interface you can access the SYSOUT etc .
What do you mean about "last CICS JOBS on SYSOUT ?

If the CICS is ending you can insert maybe a STEP to do this save/edit etc 
actions you need .

On 2/15/2012 12:59 PM, Sérgio Lima Costa wrote:
> Hello List,
>
> We need all days here, Access the SYSOUT from CICS under SDSF , then, give 
> the XDC command, to save the sysout on DASD, next, Edit this file, for locate 
> all abends, save this file on another file, and send this information to 
> development people.
>
> So, we want know, if is possible, made a automation in this process, first , 
> using XDC running a BATCH JOB, this is possible ?
> If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT, 
> because, today, We enter, manually in this SYSOUT, for locate the last report.
> The remainder, I know how to do.
> With a sample REXX program, I can extract what We need from the SYSOUT.
>
> Thanks very much.
>
> Sergio
>
>
>
>
>
>
>
>
>
>
> 
> "Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
> destinatários(s) acima identificado(s), podendo conter informações
> e/ou documentos confidencias/privilegiados e seu sigilo é protegido por lei. 
> Caso você tenha recebido por engano, por favor, informe o remetente e 
> apague-a de seu sistema.
> Notificamos que é proibido por lei a sua retenção, disseminação,
> distribuição, cópia ou uso sem expressa autorização do remetente.
> Opiniões pessoais do remetente não refletem, necessariamente, o ponto de 
> vista da CETIP, o qual é divulgado somente por pessoas autorizadas."
>
> "Warning: This message was sent for exclusive use of the addressees
> above identified, possibly containing information and or 
> privileged/confidential documents whose content is protected by law.
> In case you have mistakenly received it, please notify the sender and delete 
> it from your system.
> Be noticed that the law forbids the retention, dissemination,
> distribution, copy or use without express authorization from the
> sender. Personal opinions of the sender do not necessarily reflect CETIP's 
> point of view, which is only divulged by authorized personnel."
>
> --
> 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...@bama.ua.edu with the message: INFO IBM-MAIN

"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the send

RES: Question about XDC BATCH and automation

[Sérgio Lima Costa]

Hello Lizette.

We have ZOS 1.12.
Can you please show me the way from how extract data from JES2, and put to a 
dataset please ?
Our CICS production is down all days at 11:00 p.m., and return next Day near 
03:00 a.m.
The GDG Idea is very well, when i learn how put data from JES2 to a dataset, I 
Will try this.
We don't have ABENDAID from COMPUWARE here.

Best Regards, and thanks .

Sergio


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Lizette Koehler
Enviada em: quarta-feira, 15 de fevereiro de 2012 10:34
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: Question about XDC BATCH and automation

>
> Hello List,
>
> We need all days here, Access the SYSOUT from CICS under SDSF , then,
> give
the
> XDC command, to save the sysout on DASD, next, Edit this file, for
> locate
all abends,
> save this file on another file, and send this information to
> development
people.
>
> So, we want know, if is possible, made a automation in this process,
> first
, using XDC
> running a BATCH JOB, this is possible ?
> If, Yes, have a way, that I know, what is the last CICS JOBS on
> SYSOUT,
because,
> today, We enter, manually in this SYSOUT, for locate the last report.
> The remainder, I know how to do.
> With a sample REXX program, I can extract what We need from the SYSOUT.
>
> Thanks very much.
>
> Sergio
>

Sergio do you have SDSF in Shop?  And are you at z/OS V1.9 or greater?  Then 
you could use SDSF Rexx.

Otherwise if you have SDSF, then you can run SDSF in batch and extract the data 
from JES (JES2?) and put that to a dataset.  Similar to using the XDC command.

If this is not real time, how often do you cycle your CICS Region?  Would it be 
possible to send that SYSOUT to a GDG that is created when CICS comes down and 
then extract information you need?

Or do you have Compuware product Abendaid for CICS?


Does this help?

Lizette

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

"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
CETIP's point of view, which is only divulged by authorized personnel."

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

Re: IBM-MAIN Digest - 13 Feb 2012 to 14 Feb 2012 (#2012-45)

[Jim Holloway]

Natasa,
If as you say, you are synchronously mirroring your DASD, I would 
make the following suggestion.
Add the new CF to your current CFRM policy at your old site and acticvate. 
 You'll have no connectivity 
to it so you can't allocate it locally.  Your CFRM CDS gets mirrored with 
the updated policy and when 
you're ready to IPL at the new location, your system should come up, 
attach to the new location's CF, 
and use all structures currently defined.  Once up for good you can clean 
up the old location data 
from your CFRM policy.  For fall back purposes, shut down new, IPL old as 
all CF data and structures 
are already in place.

Jim Holloway - MetLife

Natasa Savinc ; wrote on 02/15/2012 
12:00:01 AM:
>Date:Tue, 14 Feb 2012 04:11:26 -0600
>From:Natasa Savinc 
>Subject: Changing sysplex hardware
>
>Hello,
>we are moving data center to another location. The data is already there 
on DASD, replicated synchronously. We plan to stop >the sysplex and IPL 
from the replicated data , on new processor. We pretty much answered all 
questions so far, except for the >sysplex and CF. On new location we have 
one new processor, that will in the end replace one of the existing 
processors. The >configuration (LPAR names) are the same, including CF.
>
>I would like to verify following scenario:
>
>1. For fall-back purpose: We allocate new CFRM couple data sets and 
prepare new set of IPL parameters. Old ones will be used >if we have to 
IPL at old location.
>2. Activate new CDS
>3. Change existing policy - define different HW for the existing CF
>4. Start new policy - first question is - will it report an error or will 
it just have pending changes for CF?
>5. Shut down system (sysplex) 
>6. IPL on new processor
>
>Would it be better option to define different name for CF on new 
processor, and just add a new CF to the active policy, and in >all 
preference lists? 
>
>I hope I was clear enough, any suggestion will be appreciated.
>
>Regards,
>Natasa



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

Re: Question about XDC BATCH and automation

[Lizette Koehler]

> 
> Hello List,
> 
> We need all days here, Access the SYSOUT from CICS under SDSF , then, give
the
> XDC command, to save the sysout on DASD, next, Edit this file, for locate
all abends,
> save this file on another file, and send this information to development
people.
> 
> So, we want know, if is possible, made a automation in this process, first
, using XDC
> running a BATCH JOB, this is possible ?
> If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT,
because,
> today, We enter, manually in this SYSOUT, for locate the last report.
> The remainder, I know how to do.
> With a sample REXX program, I can extract what We need from the SYSOUT.
> 
> Thanks very much.
> 
> Sergio
> 

Sergio do you have SDSF in Shop?  And are you at z/OS V1.9 or greater?  Then
you could use SDSF Rexx.

Otherwise if you have SDSF, then you can run SDSF in batch and extract the
data from JES (JES2?) and put that to a dataset.  Similar to using the XDC
command.

If this is not real time, how often do you cycle your CICS Region?  Would it
be possible to send that SYSOUT to a GDG that is created when CICS comes
down and then extract information you need?

Or do you have Compuware product Abendaid for CICS?


Does this help?

Lizette

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

Re: Question about XDC BATCH and automation

[Miklos Szigetvari]

Hi

Hi

With the REXX SDSF interface you can access the SYSOUT etc .
What do you mean about "last CICS JOBS on SYSOUT ?

If the CICS is ending you can insert maybe a STEP to do this save/edit 
etc actions you need .


On 2/15/2012 12:59 PM, Sérgio Lima Costa wrote:

Hello List,

We need all days here, Access the SYSOUT from CICS under SDSF , then, give the 
XDC command, to save the sysout on DASD, next, Edit this file, for locate all 
abends, save this file on another file, and send this information to 
development people.

So, we want know, if is possible, made a automation in this process, first , 
using XDC running a BATCH JOB, this is possible ?
If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT, 
because, today, We enter, manually in this SYSOUT, for locate the last report.
The remainder, I know how to do.
With a sample REXX program, I can extract what We need from the SYSOUT.

Thanks very much.

Sergio











"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
CETIP's point of view, which is only divulged by authorized personnel."

--
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...@bama.ua.edu with the message: INFO IBM-MAIN

Question about XDC BATCH and automation

[Sérgio Lima Costa]

Hello List,

We need all days here, Access the SYSOUT from CICS under SDSF , then, give the 
XDC command, to save the sysout on DASD, next, Edit this file, for locate all 
abends, save this file on another file, and send this information to 
development people.

So, we want know, if is possible, made a automation in this process, first , 
using XDC running a BATCH JOB, this is possible ?
If, Yes, have a way, that I know, what is the last CICS JOBS on SYSOUT, 
because, today, We enter, manually in this SYSOUT, for locate the last report.
The remainder, I know how to do.
With a sample REXX program, I can extract what We need from the SYSOUT.

Thanks very much.

Sergio











"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da CETIP, o qual é divulgado somente por pessoas autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
CETIP's point of view, which is only divulged by authorized personnel."

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

sadump (and autoipl)

[Barbara Nitz]

My sadump program is coded with DDSPROMPT=NO (to enable sadump autoipl) and a 
dump data set name that is NOT SYS1.SADMP (since something needed to get done 
in SMS for dsntype=large, and sys1 is not sms-managed - don't ask me about 
particulars).

When we migrated to 1.12, we were on old DASD hardware, and the sadmp data set 
got reallocated using the old volser. I noticed that the volser was wrong in 
the amdsaosg job, and *that* got redone to use the new addresses on the new 
controller (the old one is gone).

This morning I needed to take an sadump for the RSM/ASM/Supervisor problems 
that we have. I failed spectacularly:

- sadump gave me AMD092I with a reason code of 8 indicating a device number 
mismatch. 
I went and reallocated the sadump output data set on the same volume(s), but 
with the new device numbers (from a different system in the plex)

- now sadump bitterly complained via amd001A and wanted the device address. I 
specified that. 

- Unfortunately, due to ddsprompt=no, sadump now *expects* the data set name to 
be sys1.sadmp. Of course, it couldn't find it on that volume. 

Am I correct in assuming that simply giving a null reply to amd001a would have 
taken the original values as described in the amdsosg job and would have 
essentially redriven sadump from the beginning? (Since I have reallocated all 
sadump output datasets, I cannot really test anymore).

Rattled as I was, I ended up reIPLing the lpar without the sadump. :-( Let's 
wait for recurrance of the RSM problem.

Regards, Barbara

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