Re: Concurrent Server Task Dispatch issue multitasking issue

2019-01-14 Thread Michael Stein
> There is another problem COMECBPT is key 0 storage and MY_ECB is key
> 8 WAIT requires the user to be in the key of the ECB would I have the
> that problem using SELECB

Except for the communications ECB!

There is a special check in wait for the communications ECB to allow
problem key callers to wait on it even though the communications ECB is
in key zero storage..

The following is a good point from Rob Scott 

> Personally I would not mix the operator communications in the same task
> and ECBLIST as the TCP/IP API.

> I would have a master controller task that would deal with any operator
> comms and also manage the various "other" subtasks of which one would
> be the listener agent.

> The listener agent would then attach handler subtasks itself.

> Any operator initiated action would to captured by the controller task
> and communicated down to the listener which can then pass it down to
> the handler tasks.

> Suggested task structure :

> TCB1 (Main controller - Deals with CIBs)
> ---> TCB2 (TCP/IP listener - subtask of TCB1)
> ->TCB3A TCB3B TCB3C (Socket handler subtasks of TCB2)

One reason for this is to avoid doing a wait on the communications ECB
every time your task doing most of the work wakes up.  The assumption
is that the communications ECB will usually not be posted so removing
it from the ECBLIST makes the list 1 shorter.  That's one less ECB which:

a. on wait gets validity checked
b. on wait gets the wait bit set
c. post validity checks the target ECB, then if post is to wake the task:
e. - post validity check the ther ECBs in the ECBLIST
d. - clear the wait bit on other ECBs in ECBLIST

It's also possibly much more overhead than 1 ECB less as the "exception"
which allows waiting on the communications task isn't (wasn't) a short
code path.  At least in MVS 3.8 it involved wait getting a program check
trying to validate the communications ECB and wait's FRR deciding no,
that was ok, it's the communications ECB.

So to avoid this extra overhead the task which waits on the communications
ECB should be one which rarely wakes up.

PS: The MVS code may have changed since them...  Or not...

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


Re: ASCRE init module

2019-01-14 Thread Robin Atwood
I have to create an ACEE in the init module because the jobstep runs in user
mode. That work fine currently. I will find a better sub-pool to use.

Thanks
Robin

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Relson
Sent: 15 January 2019 00:50
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASCRE init module


I am thinking storage in a user sub-pool and saving the address in the 
ACEE since we create that. 


An ASCRE Initialization routine must not obtain storage in user-region 
subpools because after the initialization routine runs, the user region is 
(re-)initialized.

Maybe you shouldn't be creating an ACEE (at least not until the jobstep 
program begins)?

Peter Relson
z/OS Core Technology Design


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

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


SCLM problem

2019-01-14 Thread Gadi Ben-Avi
Hi,
I am trying to install an ISV product.
The product was delivered as 3 XMITed libraries.
I used RECEIVE to create the product libraries.
When I try to edit members in the libraries, I get a message that edit is not 
allowed because they are under SCLM control.

SCLM is being used for application source code libraries.

How do I remove them from SCLM control?

We are running z/OS v2.2

Gadi

? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??.

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


Re: Cobol and Hiperspace (was 64-bit C code fetching IGGCSI00)

2019-01-14 Thread David Crayford
You can access hiperspaces in COBOL using the MVS Callable Services for 
HLLs Window Services 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieac100/ws.htm.


There are code examples.

On 15/01/2019 2:58 am, scott Ford wrote:

Peter:

My typos ..sorry the question was in regard to a Cobol program creating and
then referencing
Hiperspaces. You answer was what I thought, so thank you.

Scott

On Mon, Jan 14, 2019 at 12:59 PM Peter Relson  wrote:




So how does a Cobol Pgm , 31bit address say a Hiperspace ?
I assume an interface program units AR registers , etc., am I correct ?
I have don’t this want to...



I could not parse this. What were you trying to ask?

Hiperspaces are not directly referenced. You use services to put data in
and get data out. And then you reference the buffer you identified, which
is in your address space. So aside from invoking the hiperspace services
themselves (and dspserv to create/delete the hiperspace), there's nothing
special related to Cobol (or any other language).

HSPSERV supports only AMODE 31 invocation.

Peter Relson
z/OS Core Technology Design


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





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


Re: HCD question

2019-01-14 Thread Gibney, Dave


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Edward Finnell
> Sent: Monday, January 14, 2019 4:05 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: HCD question
> 
> Don't forget to update LOAD and PARMLIB values.

True. I'm at MFaaS (Cloud lpars) now. SYS1.IPLPARM is on one of "Their" volumes 
:) More because it's their IODF. 

But, by careful use of the IEASYM and PARMLIB statements in LOADxx, everything 
else is on my volumes.

I will be presenting at Share, Phoenix  on my experiences doing a "lift and 
shift" migration from our local z9 to  z shared z21 in Omaha.



> 
> In a message dated 1/14/2019 4:24:49 PM Central Standard Time,
> gib...@wsu.edu writes:
> It will all fit on a Mod 27. As below, Start with Mark Zelden's example. 
> Tailor
> for your needs.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Farley, Peter x23353
Thanks Ed.  I do remember that first discussion now, I think I got busy at work 
and missed following the other longer one.

Hmm-m-m.  Maybe an RCF for PoOp complaining about the lack of examples for many 
of the more recent complex instructions, including vectors and the several 
newer "PERFORM . . . " instructions, at least the ones that aren't privileged.

I suppose one could use the C compiler with ARCH(Max value for your version of 
the compiler) and OPT(0) and METAL to generate relatively human-understandable 
examples, albeit not the very most efficient ones.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Monday, January 14, 2019 6:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unreadable code (Was: Concurrent Server Task Dispatch issue 
multitasking issue)

On 1/14/2019 11:18 AM, Farley, Peter x23353 wrote:
> I also participate in ASSEMBLER-LIST and I don't remember such a discussion.  
> Can you pinpoint the approximate time period for that discussion?
>
> My biggest complaint/concern with the vector instructions is the woeful lack 
> of any example code showing how to use them for just the kind of functions 
> you described.  It's hard to imagine how to use such complex instructions 
> without at least some straight-forward examples.


I first mentioned using vector instructions in place of SRST in October 
2016 in a thread entitled, "SRST Performance" with eight posts. The 
group was debating which was faster, TRT or SRST. My comment was:

"SRST is much, much faster than TRT but still orders of magnitude slower 
than the vector instructions."

to which you replied as you have here with a desire for good examples 
from the PoOp owners. No one else seemed interested...

Later, in October of last year in another thread entitled, "Count 
Words?" with nearly 50 posts, I once again recommended use of vector 
instructions to solve the issue under discussion and that time was met 
with serious push-back from some list participants (not you).

In the end, I smiled to myself content in the knowledge that I could 
solve the problem with a vector-based routine that would run circles 
around anything any of those "experts" could write using the alternative 
techniques being suggested.

Of course, such a routine would normally be written using dual-path code 
with fall back to Plan B if the vector instructions were not available. 
So discussing the best implementation for Plan B wasn't time wasted...

-- 


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


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


Re: HCD question

2019-01-14 Thread Edward Finnell
Don't forget to update LOAD and PARMLIB values.

In a message dated 1/14/2019 4:24:49 PM Central Standard Time, gib...@wsu.edu 
writes:
It will all fit on a Mod 27. As below, Start with Mark Zelden's example. Tailor 
for your needs.

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


Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Charles Mills
Sounds like a SHARE presentation to me!

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Monday, January 14, 2019 11:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unreadable code (Was: Concurrent Server Task Dispatch issue 
multitasking issue)

Ed,

I also participate in ASSEMBLER-LIST and I don't remember such a discussion.  
Can you pinpoint the approximate time period for that discussion?

My biggest complaint/concern with the vector instructions is the woeful lack of 
any example code showing how to use them for just the kind of functions you 
described.  It's hard to imagine how to use such complex instructions without 
at least some straight-forward examples.

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


Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Ed Jaffe

On 1/14/2019 11:18 AM, Farley, Peter x23353 wrote:

I also participate in ASSEMBLER-LIST and I don't remember such a discussion.  
Can you pinpoint the approximate time period for that discussion?

My biggest complaint/concern with the vector instructions is the woeful lack of 
any example code showing how to use them for just the kind of functions you 
described.  It's hard to imagine how to use such complex instructions without 
at least some straight-forward examples.



I first mentioned using vector instructions in place of SRST in October 
2016 in a thread entitled, "SRST Performance" with eight posts. The 
group was debating which was faster, TRT or SRST. My comment was:


"SRST is much, much faster than TRT but still orders of magnitude slower 
than the vector instructions."


to which you replied as you have here with a desire for good examples 
from the PoOp owners. No one else seemed interested...


Later, in October of last year in another thread entitled, "Count 
Words?" with nearly 50 posts, I once again recommended use of vector 
instructions to solve the issue under discussion and that time was met 
with serious push-back from some list participants (not you).


In the end, I smiled to myself content in the knowledge that I could 
solve the problem with a vector-based routine that would run circles 
around anything any of those "experts" could write using the alternative 
techniques being suggested.


Of course, such a routine would normally be written using dual-path code 
with fall back to Plan B if the vector instructions were not available. 
So discussing the best implementation for Plan B wasn't time wasted...


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



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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


Re: HCD question

2019-01-14 Thread Gibney, Dave
It will all fit on a Mod 27. As below, Start with Mark Zelden's example. Tailor 
for your needs.
I did find that a separate SYSCAT volume made the subsequent steps of recovery 
easier.. I IPL the single system to refresh the other copy of the single system 
and a resuce SYSCAT, then IPL each Lpar (4 monolex) with the refreshed 
SYSRES/SYSCAT pair.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of R.S.
> Sent: Monday, January 14, 2019 1:52 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: HCD question
> 
> See Mark Zelden's Utilities.
> Or just make it yourself, it's not black magic.
> Recipe:
> Review your sandbox/tech system. Note all your volumes. Try to put as much
> as possible on same volume. Shrink opeational datasets (page, spool, RACF
> db) as possible.
> Delete all SMPE operational datasets (CSI, LTS, xLOGs, PTS, etc.).
> Delete all DLIB libraries.
> 
> Last, but not least: without any of the above you are able to put all the 
> stuff
> on ONE volume. Take EAV...
> 
> BTW: what's wrong in 5-pack or 8-pack OS?
> We already know that single EAV can be much larger than n-pack...
> 
> --
> Radoslaw Skorupka
> Lodz, Poland
> 
> 
> 
> 
> 
> 
> W dniu 2019-01-14 o 17:05, scott Ford pisze:
> > Guys:
> >
> > I want to build a three pack rescue system , where do i find the 'how to '
> > ...??
> >
> > Scott
> >
> > On Mon, Jan 14, 2019 at 10:51 AM R.S.
> 
> > wrote:
> >
> >> W dniu 2019-01-14 o 13:16, Tony Thigpen pisze:
> >>> We have a 3-pack rescue system that was built by a person long-gone.
> >>> On the 3-pack system, there are several IODF files. I need to update
> >>> the current IODF file.
> >>>
> >>> But, the IODF files on the rescue packs are not cataloged to the
> >>> production z/OS. When I use the HCD panels, it does not appear that
> >>> there is a way to specify the volume where the file is located, so HCD
> >>> always says the file can not be found.
> >>>
> >>> Is there a way to specify the volume, along with the name, when using
> >>> the panel? Or, a command to start the panels using the uncataloged
> >>> IODF file?
> >>>
> >> BTDT many times.
> >> Few ways:
> >> 1. Just copy hlq.IODF to the3-pack system and have in ming this file
> >> will be uncataloged from 3-pack system point of view. However this is
> >> quite OK for IPL. In addition put packed version (DSS DUMP, IDCAMS
> >> EXPORT) of the IODF just to unpack it under 3-pack system.
> >>
> >> 2. Use cross-system cataloging, which is allowed for VSAM files with
> >> HLQ=SYS1. So your IODF will be in your MCAT and in 3-packs's MCAT. Not
> >> convenient, but feasible. You can still use the newest (uncataloged in
> >> 3-pack) IODF for IPL and then recatalog it.
> >>
> >> 3. Take the smallest volume, name it SHARED or as you want. Put there
> >> UCAT and define alias, lets say . Name your iodf files: .IODFxx.
> >> Import connect the UCAT in you 3-pack system and any other system.
> Done
> >> once work forever. Suggested way IMHO.
> >>
> >>
> >>
> >>
> >> --
> >> Radoslaw Skorupka
> >> Lodz, Poland
> >>
> 
> ===
> ===
> 
> Jeśli nie jesteś adresatem tej wiadomości:
> 
> - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> zapisałeś na dysku).
> Wiadomość ta może zawierać chronione prawem informacje, które może
> wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> narusza prawo i może podlegać karze.
> 
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950
> Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st.
> Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS
> 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości)
> według stanu na 01.01.2018 r. wynosi 169.248.488 złotych.
> 
> If you are not the addressee of this message:
> 
> - let us know by replying to this e-mail (thank you!),
> - delete this message permanently (including all the copies which you have
> printed out or saved).
> This message may contain legally protected information, which may be used
> exclusively by the addressee.Please be reminded that anyone who
> disseminates (copies, distributes) this message or takes any similar action,
> violates the law and may be penalised.
> 
> mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950
> Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the
> Capital City of Warsaw, 12th Commercial Division of the National Court
> Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital
> amounting to PLN 169,248,488 as at 1 January 2018.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the 

Re: HCD question

2019-01-14 Thread R.S.

See Mark Zelden's Utilities.
Or just make it yourself, it's not black magic.
Recipe:
Review your sandbox/tech system. Note all your volumes. Try to put as 
much as possible on same volume. Shrink opeational datasets (page, 
spool, RACF db) as possible.
Delete all SMPE operational datasets (CSI, LTS, xLOGs, PTS, etc.). 
Delete all DLIB libraries.


Last, but not least: without any of the above you are able to put all 
the stuff on ONE volume. Take EAV...


BTW: what's wrong in 5-pack or 8-pack OS?
We already know that single EAV can be much larger than n-pack...

--
Radoslaw Skorupka
Lodz, Poland






W dniu 2019-01-14 o 17:05, scott Ford pisze:

Guys:

I want to build a three pack rescue system , where do i find the 'how to '
...??

Scott

On Mon, Jan 14, 2019 at 10:51 AM R.S. 
wrote:


W dniu 2019-01-14 o 13:16, Tony Thigpen pisze:

We have a 3-pack rescue system that was built by a person long-gone.
On the 3-pack system, there are several IODF files. I need to update
the current IODF file.

But, the IODF files on the rescue packs are not cataloged to the
production z/OS. When I use the HCD panels, it does not appear that
there is a way to specify the volume where the file is located, so HCD
always says the file can not be found.

Is there a way to specify the volume, along with the name, when using
the panel? Or, a command to start the panels using the uncataloged
IODF file?


BTDT many times.
Few ways:
1. Just copy hlq.IODF to the3-pack system and have in ming this file
will be uncataloged from 3-pack system point of view. However this is
quite OK for IPL. In addition put packed version (DSS DUMP, IDCAMS
EXPORT) of the IODF just to unpack it under 3-pack system.

2. Use cross-system cataloging, which is allowed for VSAM files with
HLQ=SYS1. So your IODF will be in your MCAT and in 3-packs's MCAT. Not
convenient, but feasible. You can still use the newest (uncataloged in
3-pack) IODF for IPL and then recatalog it.

3. Take the smallest volume, name it SHARED or as you want. Put there
UCAT and define alias, lets say . Name your iodf files: .IODFxx.
Import connect the UCAT in you 3-pack system and any other system. Done
once work forever. Suggested way IMHO.




--
Radoslaw Skorupka
Lodz, Poland



==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) 
tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać 
karze.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
01.01.2018 r. wynosi 169.248.488 złotych.

If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169,248,488 as at 1 January 2018.

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


Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-14 Thread Wayne Bickerdike
Thanks guys,

very helpful.

Peter, I have tested with LLA stopped,thought I posted that test.Still
received S106-C.
Since the problem started with CICS 5.3, I think a PMR with CICS is the
next step.

I'll run more tests today (I'm at a different client today).

Wayne



On Tue, Jan 15, 2019 at 3:06 AM Tom Marchant <
000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 14 Jan 2019 08:30:20 -0600, Tom Marchant wrote:
>
> >On Sat, 12 Jan 2019 14:59:05 +1100, Wayne Bickerdike wrote:
> >
> >>Step end stats:
> >>
> >>IEF032I STEP/STEP020 /STOP  2019011.2148
> >>
> >>CPU: 0 HR  00 MIN  00.05 SECSRB: 0 HR  00 MIN  00.01
> >>SEC
> >>VIRT:  7908K  SYS:   260K  EXT:4K  SYS:10876K
> >>
> >>ATB- REAL:  3104K  SLOTS: 0K
> >>
> >> VIRT- ALLOC:  12M SHRD:   0M
> >>
> >>
> >
> >Look at module DFHEISUP in the load library. Is it marked RMODE(24)?
> According to your Fault Analyzer report, the module is over 7 MB and it
> seems to be loaded below the line. Your job is using only 4K above the line.
> >
> >I would suggest you open a PMR with IBM.
>
> I looked at DFHEISUP on our system. It is indeed over 7MB in size and is
> marked RMODE(24).
>
> Open a PMR with CICS. IMO, there is no excuse for such a large module
> requiring RMODE(24).
>
> --
> Tom Marchant
>
> >
> >>On Sat, Jan 12, 2019 at 2:52 PM Wayne Bickerdike 
> wrote:
> >>
> >>> REGION=0M  and same abend with REGION=512M.
> >>>
> >>> Took an SVC dump, here's some FA information.
> >>>
> >>> JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
> >>> 21:21:48
> >>>
> >>>
> >>> IBM Fault Analyzer Abend Job Information:
> >>>
> >>>   Abend Date. . . . . . . . : 2019/01/11
> >>>   Abend Time. . . . . . . . : 21:21:48
> >>>   System Name . . . . . . . : S0W1
> >>>   Job Type. . . . . . . . . : Batch
> >>>   Job ID. . . . . . . . . . : JOB02430
> >>>   Job Name. . . . . . . . . : $SDO512M
> >>>   Job Step Name . . . . . . : n/a
> >>>   ASID. . . . . . . . . . . : 1C
> >>>   Abend TCB Address . . . . : 007FE990
> >>>   Job Execution Class . . . : A
> >>>   Region Size . . . . . . . : 0M
> >>>   EXEC Program Name . . . . : DFHEISUP
> >>>   User ID . . . . . . . . . : BDB204
> >>>   Accounting Information. . : n/a
> >>>
> >>> Execution Environment:
> >>>
> >>>   Operating System. . . . . : z/OS V2R2M0
> >>>   Data Facility Product . . : DFSMS z/OS V2R2M0
> >>>   CPU Model . . . . . . . . : 2817
> >>>
> >>> NOTE: The execution environment for this event is no longer valid, save
> >>> areas
> >>>   and data might have subsequently been updated.  This is normally
> >>> caused
> >>>   by condition handling routine processing.
> >>>
> >>>
> >>>
> >>> Load Module Name. . . . . . : DFHEISUP
> >>>
> >>>   At Address. . . . . . . . : 7F90
> >>>
> >>>   Load Module Length. . . . : X'7B6070'
> >>>
> >>>
> >>>
> >>> Machine Instruction . . . . : 0A08  SVC 8 (LOAD)
> >>>
> >>>   At Address. . . . . . . . : 007BDD70 (Module DFHEISUP offset
> X'7B5DE0')
> >>>
> >>>   AMODE . . . . . . . . . . : 31
> >>>
> >>>
> >>>
> >>> Additional instructions around event offset:
> >>>
> >>>
> >>>
> >>>   Offset   HexInstruction
> >>>
> >>>-2C 58C0 0010  L   R12,16
> >>>
> >>>-28 58C0 C000  L   R12,0(,R12)
> >>>
> >>>-24 58C0 C004  L   R12,4(,R12)
> >>>
> >>>-20 58C0 C144  L   R12,324(,R12)
> >>>
> >>>-1C 58C0 C004  L   R12,4(,R12)
> >>>
> >>>-18 BFCF C020  ICM R12,15,32(R12)
> >>>
> >>>-14 A784 0005  BRC 8,*+10
> >>>
> >>>-10 180C   LR  R0,R12
> >>>
> >>> -E A7F4 007D  BRC 15,*+250
> >>>
> >>> -A 4120 7008  LA  R2,8(,R7)
> >>>
> >>> -6 4100 2000  LA  R0,0(,R2)
> >>>
> >>> -2 1B11   SR  R1,R1
> >>>
> >>>   007BDD70 0A08   SVC 8(LOAD)
> >>>
> >>> +2 58C0 322C  L   R12,556(,R3)
> >>>
> >>> +6 166C   OR  R6,R12
> >>>
> >>> +8 164C   OR  R4,R12
> >>>
> >>> +A A7F4 0071  BRC 15,*+226
> >>>
> >>>  JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
> >>> 21:21:48
> >>>  +2 58C0 322C  L   R12,556(,R3)
> >>>
> >>>  +6 166C   OR  R6,R12
> >>>
> >>>  +8 164C   OR  R4,R12
> >>>
> >>>  +A A7F4 0071  BRC 15,*+226
> >>>
> >>>  +E A7F8 0010  LHI R15,16
> >>>
> >>> +12 5820 7018  L   R2,24(,R7)
> >>>
> >>> +16 1812   LR  R1,R2
> >>>
> >>>
> >>>
> >>>  Program Status Word (PSW) . : 078D 807BDD72
> >>>
> >>>  PSW Summary . . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31,
> >>> Problem
> >>>State
> >>>
> >>>
> >>>
> >>>  General Purpose Registers (AMODE: 64 31 24 , Bytes: Dec Hex ):
> >>>
> 

Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Farley, Peter x23353
Ed,

I also participate in ASSEMBLER-LIST and I don't remember such a discussion.  
Can you pinpoint the approximate time period for that discussion?

My biggest complaint/concern with the vector instructions is the woeful lack of 
any example code showing how to use them for just the kind of functions you 
described.  It's hard to imagine how to use such complex instructions without 
at least some straight-forward examples.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Monday, January 14, 2019 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unreadable code (Was: Concurrent Server Task Dispatch issue 
multitasking issue)

On 1/13/2019 8:47 PM, David Crayford wrote:

Sadly, I've tried to convince the assembler programmers on 
ASSEMBLER-LIST that vector instructions are useful for such purposes, 
but have been met with a surprising level of skepticism (despite my 
real-world experience and glowing endorsement)  -- primarily due to 
flawed interpretation of what they've read in PoOp rather than just 
trying it out and seeing for themselves. Oh well... LOL
-- 


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


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


Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Charles Mills
> I've taken to defining functions in header files to take advantage of both 
> (we don't use IPA).

Looking at the code generated by the XLC compiler, I see that it sometimes 
(often?) in-lines functions even when they are defined in the (same, obviously) 
implementation file.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Sunday, January 13, 2019 8:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unreadable code (Was: Concurrent Server Task Dispatch issue 
multitasking issue)

On 14/01/2019 6:06 am, Ed Jaffe wrote:
> On 1/13/2019 4:08 AM, David Crayford wrote:
>> On 13/01/2019 7:06 pm, Tony Thigpen wrote:
>>> I have seen some reports that current C compilers, which understand 
>>> the z-hardware pipeline, can actually produce object that is faster 
>>> running than an assembler. Mainly because no sane assembler 
>>> programmer would produce great pipe-line code because it would be 
>>> un-maintanable.
>>>
>> It's well established that that's been true for a well over a decade 
>> now. Not just C but all compilers including COBOL which got a new 
>> optimizer a few releases back.
>
>
> Far, far less true now than it used to be.
>

Good to hear. The best optimization is done in hardware where you don't 
have to recompile. Followed by a JIT.


> Back in the old days, things ran a lot faster if you interleaved 
> unrelated things in an "unfriendly" way. For example, this code fragment:
>
> |LGF  R0,Field1   Increment Field1
> |AGHI R0,1(same)
> |ST   R0,Field1   (same)
> |LGF  R0,Field2   Increment Field2
> |AGHI R0,1(same)
> |ST   R0,Field2   (same)
> |LGF  R0,Field3   Increment Field3
> |AGHI R0,1(same)
> |ST   R0,Field3   (same)
> |LGF  R0,Field4   Increment Field4
> |AGHI R0,1(same)
> |ST   R0,Field4   (same)
>
> ran much faster when coded this way (which is not how a programmer 
> would usually write things):
>
> |LGF  R0,Field1   Increment Field1
> |LGF  R1,Field2   Increment Field2
> |LGF  R2,Field3   Increment Field3
> |LGF  R3,Field4   Increment Field4
> |AGHI R0,1(same)
> |AGHI R1,1(same)
> |AGHI R2,1(same)
> |AGHI R3,1(same)
> |ST   R0,Field1   (same)
> |ST   R1,Field2   (same)
> |ST   R2,Field3   (same)
> |ST   R3,Field5   (same)
>
> But once OOO execution came on the scene with z196, you could get the 
> same enhanced performance from this easy-to-code and easy-to-read 
> version:
>
> |LGF  R0,Field1   Increment Field1
> |AGHI R0,1(same)
> |ST   R0,Field1   (same)
> |LGF  R1,Field2   Increment Field2
> |AGHI R1,1(same)
> |ST   R1,Field2   (same)
> |LGF  R2,Field3   Increment Field3
> |AGHI R2,1(same)
> |ST   R2,Field3   (same)
> |LGF  R3,Field4   Increment Field4
> |AGHI R3,1(same)
> |ST   R3,Field4   (same)
>
> These days, many performance improvements are realized by the compiler 
> using newer instructions that replace older ones. For example, on z10 
> and higher, this very same code can be replaced with:
>
> |ASI  Field1,1Increment Field1
> |ASI  Field2,1Increment Field1
> |ASI  Field3,1Increment Field1
> |ASI  Field4,1Increment Field1
>

IIRC, the interleaved instruction scheduling was to mitigate the AGI 
problem?

In my experienced the two optimizations that make the most difference 
are function inlining and loop unrolling. I've taken to defining 
functions in header files to take advantage of both (we don't use IPA).

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


Re: Cobol and Hiperspace (was 64-bit C code fetching IGGCSI00)

2019-01-14 Thread scott Ford
Peter:

My typos ..sorry the question was in regard to a Cobol program creating and
then referencing
Hiperspaces. You answer was what I thought, so thank you.

Scott

On Mon, Jan 14, 2019 at 12:59 PM Peter Relson  wrote:

> 
> > So how does a Cobol Pgm , 31bit address say a Hiperspace ?
> > I assume an interface program units AR registers , etc., am I correct ?
> > I have don’t this want to...
> 
>
> I could not parse this. What were you trying to ask?
>
> Hiperspaces are not directly referenced. You use services to put data in
> and get data out. And then you reference the buffer you identified, which
> is in your address space. So aside from invoking the hiperspace services
> themselves (and dspserv to create/delete the hiperspace), there's nothing
> special related to Cobol (or any other language).
>
> HSPSERV supports only AMODE 31 invocation.
>
> Peter Relson
> z/OS Core Technology Design
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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


Re: Is there a utility or command that will show load module characteristics?

2019-01-14 Thread Corbett, Kevin
File-AID/MVS should provide what you are looking for using option 3.1, Library 
Utilitiy.

File-AID -  Directory Information  ---
COMMAND ===>

Dataset: PFHKXC0.USER.ISPLLIB(ESSCOBL)  TTR 24
- - - - - - - - - - - - Directory entry in HEX format - - - - - - - - - - - -
Char ESSCOBL B\..
Zone CEECDCD40022CE0100818000
Numr 52236230004C200E80C20100
 +1+2+3+.

 SSI:

 - - - - - - - - - - - - - - Link edit attributes - - - - - - - - - - - - - -
   EP   00 SIZE (HEX) 001E08   (DEC) 7,688
   RENT YES OVLYNO SCTRNO
   REUS YES DC  NO NE  NO
   REFR NO  EP ZERO YESZERO ORIGIN YES
   OL   NO  TESTNO TEST SYMBOLSNO
   EXEC YES RLD YES1 BLOCK/NO RLD  NO
   RMODEANY PAGE ALIGN  NO APF CODE000
   AMODE31

You can also get information on specific CSECTs within the LOADMOD including 
compiler, compiler options (COBOL and PL/I), dates, A/R modes, etc.

KEVIN CORBETT | Product Manager | Compuware



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo
Sent: Thursday, November 1, 2018 1:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a utility or command that will show load module 
characteristics?

if you have IBM file manager or File-aid that may give you what you want



Load Module COFDBIRD
Linked on 2017.118 at 10:01:16 by PROGRAM BINDER 5695-PMB V2R1 EPA 00 Size 
0002290 TTR 000315 SSI AC 01 AM 24 RM 24


Address CSECT name Type Size AMODE RMODE Compiler 1 →
* * * * *
<---+-> <---+10---+-> <--> <---+-> <---> <---> <---+10---+2+>
000 COFDBIRD SD 000228A 24 24 HIGH-LEVEL ASSEMBLER V1R6
000 COFDBIRD.COFDBIRD LD 000228A 24 24 HIGH-LEVEL ASSEMBLER V1R6
 End of data 




Carmen Vitullo

- Original Message -

From: "Charles Mills" 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Thursday, November 1, 2018 12:46:30 PM
Subject: Is there a utility or command that will show load module 
characteristics?

Seems like there should be a way to do this. I tried IEHLIST LISTPDS FORMAT but 
it seems pretty basic. The library in question is a PDSE, so I guess the right 
term is "program object."

I'm most interested in alternative entry point names and their addresses.

I'd prefer an IBM utility to a CBT program just because it would be quicker to 
do. Few vendor products available in my datacenter.

Charles

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


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The contents of this e-mail are intended for the named addressee only. It 
contains information that may be confidential. Unless you are the named 
addressee or an authorized designee, you may not copy or use it, or disclose it 
to anyone else. If you received it in error please notify us immediately and 
then destroy it

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


Re: Unreadable code (Was: Concurrent Server Task Dispatch issue multitasking issue)

2019-01-14 Thread Ed Jaffe

On 1/13/2019 8:47 PM, David Crayford wrote:
IIRC, the interleaved instruction scheduling was to mitigate the AGI 
problem?



Yes. The AGI "problem" is still there, but with an OOO machine you can 
avoid it simply by using different registers rather than by completely 
reordering your code.



In my experienced the two optimizations that make the most difference 
are function inlining and loop unrolling. I've taken to defining 
functions in header files to take advantage of both (we don't use IPA).



Yes. both are important. In HLASM one would use a macro to inline a 
function. Manual loop unrolling is something we do only in the 
performance path.



I've noticed (depending on compiler options) the C optimizer is 
starting to use vector instructions. They can be a bit hairy even for 
experienced assembler programmers. Best to leave that to a compiler IMO.



Haha! We were part of the z13s ESP and we started using vector 
instructions in our HLASM programs even before the machine was GA! We 
use them for all kinds of primitives including string FIND, bitmap 
manipulation, and other equally-simple, but important, stuff. Those 
"vectorized" routines perform literally orders of magnitude faster than 
their non-vector counterparts! Using them instead of SRST, we were able 
reduce the total CPU used by an (E)JES FIND across a multi-million line 
SPOOLed report by something in the neighborhood of 23%! (And if you can 
imagine all of the other work being done -- such as calling numerous 
routines, stack manipulation, reading and deblocking of SPOOL records, 
etc. -- 23% is a HUGE amount!!!)


Sadly, I've tried to convince the assembler programmers on 
ASSEMBLER-LIST that vector instructions are useful for such purposes, 
but have been met with a surprising level of skepticism (despite my 
real-world experience and glowing endorsement)  -- primarily due to 
flawed interpretation of what they've read in PoOp rather than just 
trying it out and seeing for themselves. Oh well... LOL



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



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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


Re: Cobol and Hiperspace (was 64-bit C code fetching IGGCSI00)

2019-01-14 Thread Peter Relson

> So how does a Cobol Pgm , 31bit address say a Hiperspace ?
> I assume an interface program units AR registers , etc., am I correct ?
> I have don’t this want to...


I could not parse this. What were you trying to ask?

Hiperspaces are not directly referenced. You use services to put data in 
and get data out. And then you reference the buffer you identified, which 
is in your address space. So aside from invoking the hiperspace services 
themselves (and dspserv to create/delete the hiperspace), there's nothing 
special related to Cobol (or any other language).

HSPSERV supports only AMODE 31 invocation. 

Peter Relson
z/OS Core Technology Design


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


Re: ASCRE init module

2019-01-14 Thread Peter Relson

I am thinking storage in a user sub-pool and saving the address in the 
ACEE since we create that. 


An ASCRE Initialization routine must not obtain storage in user-region 
subpools because after the initialization routine runs, the user region is 
(re-)initialized.

Maybe you shouldn't be creating an ACEE (at least not until the jobstep 
program begins)?

Peter Relson
z/OS Core Technology Design


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


Re: HCD question

2019-01-14 Thread scott Ford
Guys:

I want to build a three pack rescue system , where do i find the 'how to '
...??

Scott

On Mon, Jan 14, 2019 at 10:51 AM R.S. 
wrote:

> W dniu 2019-01-14 o 13:16, Tony Thigpen pisze:
> > We have a 3-pack rescue system that was built by a person long-gone.
> > On the 3-pack system, there are several IODF files. I need to update
> > the current IODF file.
> >
> > But, the IODF files on the rescue packs are not cataloged to the
> > production z/OS. When I use the HCD panels, it does not appear that
> > there is a way to specify the volume where the file is located, so HCD
> > always says the file can not be found.
> >
> > Is there a way to specify the volume, along with the name, when using
> > the panel? Or, a command to start the panels using the uncataloged
> > IODF file?
> >
>
> BTDT many times.
> Few ways:
> 1. Just copy hlq.IODF to the3-pack system and have in ming this file
> will be uncataloged from 3-pack system point of view. However this is
> quite OK for IPL. In addition put packed version (DSS DUMP, IDCAMS
> EXPORT) of the IODF just to unpack it under 3-pack system.
>
> 2. Use cross-system cataloging, which is allowed for VSAM files with
> HLQ=SYS1. So your IODF will be in your MCAT and in 3-packs's MCAT. Not
> convenient, but feasible. You can still use the newest (uncataloged in
> 3-pack) IODF for IPL and then recatalog it.
>
> 3. Take the smallest volume, name it SHARED or as you want. Put there
> UCAT and define alias, lets say . Name your iodf files: .IODFxx.
> Import connect the UCAT in you 3-pack system and any other system. Done
> once work forever. Suggested way IMHO.
>
>
>
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
> ==
>
> Jeśli nie jesteś adresatem tej wiadomości:
>
> - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> zapisałeś na dysku).
> Wiadomość ta może zawierać chronione prawem informacje, które może
> wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> narusza prawo i może podlegać karze.
>
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP:
> 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> 01.01.2018 r. wynosi 169.248.488 złotych.
>
> If you are not the addressee of this message:
>
> - let us know by replying to this e-mail (thank you!),
> - delete this message permanently (including all the copies which you have
> printed out or saved).
> This message may contain legally protected information, which may be used
> exclusively by the addressee.Please be reminded that anyone who
> disseminates (copies, distributes) this message or takes any similar
> action, violates the law and may be penalised.
>
> mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950
> Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the
> Capital City of Warsaw, 12th Commercial Division of the National Court
> Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital
> amounting to PLN 169,248,488 as at 1 January 2018.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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


Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-14 Thread Tom Marchant
On Mon, 14 Jan 2019 08:30:20 -0600, Tom Marchant wrote:

>On Sat, 12 Jan 2019 14:59:05 +1100, Wayne Bickerdike wrote:
>
>>Step end stats:
>>
>>IEF032I STEP/STEP020 /STOP  2019011.2148
>>
>>CPU: 0 HR  00 MIN  00.05 SECSRB: 0 HR  00 MIN  00.01
>>SEC
>>VIRT:  7908K  SYS:   260K  EXT:4K  SYS:10876K
>>
>>ATB- REAL:  3104K  SLOTS: 0K
>>
>> VIRT- ALLOC:  12M SHRD:   0M
>>
>>
>
>Look at module DFHEISUP in the load library. Is it marked RMODE(24)? According 
>to your Fault Analyzer report, the module is over 7 MB and it seems to be 
>loaded below the line. Your job is using only 4K above the line.
>
>I would suggest you open a PMR with IBM.

I looked at DFHEISUP on our system. It is indeed over 7MB in size and is marked 
RMODE(24).

Open a PMR with CICS. IMO, there is no excuse for such a large module requiring 
RMODE(24).

-- 
Tom Marchant

>
>>On Sat, Jan 12, 2019 at 2:52 PM Wayne Bickerdike  wrote:
>>
>>> REGION=0M  and same abend with REGION=512M.
>>>
>>> Took an SVC dump, here's some FA information.
>>>
>>> JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
>>> 21:21:48
>>>
>>>
>>> IBM Fault Analyzer Abend Job Information:
>>>
>>>   Abend Date. . . . . . . . : 2019/01/11
>>>   Abend Time. . . . . . . . : 21:21:48
>>>   System Name . . . . . . . : S0W1
>>>   Job Type. . . . . . . . . : Batch
>>>   Job ID. . . . . . . . . . : JOB02430
>>>   Job Name. . . . . . . . . : $SDO512M
>>>   Job Step Name . . . . . . : n/a
>>>   ASID. . . . . . . . . . . : 1C
>>>   Abend TCB Address . . . . : 007FE990
>>>   Job Execution Class . . . : A
>>>   Region Size . . . . . . . : 0M
>>>   EXEC Program Name . . . . : DFHEISUP
>>>   User ID . . . . . . . . . : BDB204
>>>   Accounting Information. . : n/a
>>>
>>> Execution Environment:
>>>
>>>   Operating System. . . . . : z/OS V2R2M0
>>>   Data Facility Product . . : DFSMS z/OS V2R2M0
>>>   CPU Model . . . . . . . . : 2817
>>>
>>> NOTE: The execution environment for this event is no longer valid, save
>>> areas
>>>   and data might have subsequently been updated.  This is normally
>>> caused
>>>   by condition handling routine processing.
>>>
>>>
>>>
>>> Load Module Name. . . . . . : DFHEISUP
>>>
>>>   At Address. . . . . . . . : 7F90
>>>
>>>   Load Module Length. . . . : X'7B6070'
>>>
>>>
>>>
>>> Machine Instruction . . . . : 0A08  SVC 8 (LOAD)
>>>
>>>   At Address. . . . . . . . : 007BDD70 (Module DFHEISUP offset X'7B5DE0')
>>>
>>>   AMODE . . . . . . . . . . : 31
>>>
>>>
>>>
>>> Additional instructions around event offset:
>>>
>>>
>>>
>>>   Offset   HexInstruction
>>>
>>>-2C 58C0 0010  L   R12,16
>>>
>>>-28 58C0 C000  L   R12,0(,R12)
>>>
>>>-24 58C0 C004  L   R12,4(,R12)
>>>
>>>-20 58C0 C144  L   R12,324(,R12)
>>>
>>>-1C 58C0 C004  L   R12,4(,R12)
>>>
>>>-18 BFCF C020  ICM R12,15,32(R12)
>>>
>>>-14 A784 0005  BRC 8,*+10
>>>
>>>-10 180C   LR  R0,R12
>>>
>>> -E A7F4 007D  BRC 15,*+250
>>>
>>> -A 4120 7008  LA  R2,8(,R7)
>>>
>>> -6 4100 2000  LA  R0,0(,R2)
>>>
>>> -2 1B11   SR  R1,R1
>>>
>>>   007BDD70 0A08   SVC 8(LOAD)
>>>
>>> +2 58C0 322C  L   R12,556(,R3)
>>>
>>> +6 166C   OR  R6,R12
>>>
>>> +8 164C   OR  R4,R12
>>>
>>> +A A7F4 0071  BRC 15,*+226
>>>
>>>  JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
>>> 21:21:48
>>>  +2 58C0 322C  L   R12,556(,R3)
>>>
>>>  +6 166C   OR  R6,R12
>>>
>>>  +8 164C   OR  R4,R12
>>>
>>>  +A A7F4 0071  BRC 15,*+226
>>>
>>>  +E A7F8 0010  LHI R15,16
>>>
>>> +12 5820 7018  L   R2,24(,R7)
>>>
>>> +16 1812   LR  R1,R2
>>>
>>>
>>>
>>>  Program Status Word (PSW) . : 078D 807BDD72
>>>
>>>  PSW Summary . . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31,
>>> Problem
>>>State
>>>
>>>
>>>
>>>  General Purpose Registers (AMODE: 64 31 24 , Bytes: Dec Hex ):
>>>
>>>R0:  007BDA48 (Module DFHEISUP + X'7B5AB8')
>>>
>>>R1:   (2,048 bytes of storage addressable)
>>>
>>>R2:  007BDA48 (Module DFHEISUP + X'7B5AB8')
>>>
>>>R3:  007BDC78 (Module DFHEISUP + X'7B5CE8')
>>>
>>>R4:  0064 (1,948 bytes of storage addressable)
>>>
>>>R5:  6FE8 (8,093,720 bytes of storage addressable)
>>>
>>>R6:  007BD800 (Module DFHEISUP + X'7B5870')
>>>
>>>R7:  807BDA40 (Module DFHEISUP + X'7B5AB0')
>>>
>>>R8:  007AED20 (Module DFHEISUP + X'7A6D90')
>>>
>>>R9:  007F8190 (32,368 bytes of storage addressable)
>>>
>>>R10:  (2,048 bytes of storage addressable)
>>>
>>>R11: 807BD82A (Module DFHEISUP + 

Re: HCD question

2019-01-14 Thread R.S.

W dniu 2019-01-14 o 13:16, Tony Thigpen pisze:
We have a 3-pack rescue system that was built by a person long-gone. 
On the 3-pack system, there are several IODF files. I need to update 
the current IODF file.


But, the IODF files on the rescue packs are not cataloged to the 
production z/OS. When I use the HCD panels, it does not appear that 
there is a way to specify the volume where the file is located, so HCD 
always says the file can not be found.


Is there a way to specify the volume, along with the name, when using 
the panel? Or, a command to start the panels using the uncataloged 
IODF file?




BTDT many times.
Few ways:
1. Just copy hlq.IODF to the3-pack system and have in ming this file 
will be uncataloged from 3-pack system point of view. However this is 
quite OK for IPL. In addition put packed version (DSS DUMP, IDCAMS 
EXPORT) of the IODF just to unpack it under 3-pack system.


2. Use cross-system cataloging, which is allowed for VSAM files with 
HLQ=SYS1. So your IODF will be in your MCAT and in 3-packs's MCAT. Not 
convenient, but feasible. You can still use the newest (uncataloged in 
3-pack) IODF for IPL and then recatalog it.


3. Take the smallest volume, name it SHARED or as you want. Put there 
UCAT and define alias, lets say . Name your iodf files: .IODFxx. 
Import connect the UCAT in you 3-pack system and any other system. Done 
once work forever. Suggested way IMHO.





--
Radoslaw Skorupka
Lodz, Poland




==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) 
tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać 
karze.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
01.01.2018 r. wynosi 169.248.488 złotych.

If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169,248,488 as at 1 January 2018.

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


Re: Exit Calls or Using

2019-01-14 Thread scott Ford
I agree with Skip, working in Security, i.e. ; RACF etc, usually exits
enforced rules , such as passwords or installation restrictions and / or
standards.

Scott

On Fri, Jan 4, 2019 at 10:02 PM Jesse 1 Robinson 
wrote:

> Tom and I grappled with a menagerie of system exits that had been adopted
> and adapted by SCE during the 70s (?) and 80s. Exit code had been tweaked
> to some extent to fit installation standards, but likewise standards had
> been shaped to some extent by the way exits worked. Today when I get
> questions about why we do things a certain way, I sometimes answer honestly
> 'just cuz'. This is not a dodge. At core is the issue of what it's worth to
> do things a different way.
>
> My current colleagues brought with them the delightful term 'scream test'.
> When you believe you have rendered something unnecessary--whether exit code
> or a whole product--you shut it off and listen for complaints. The problem
> with this strategy is that a deficiency may not show up right away. Worst
> of all, once revealed, the deficiency may prove expensive to recover from.
> This is another flavor of the question "what's it worth to do things a
> different way?"
>
> My recommendation. If continuing to do things the same way exposes an
> insurmountable obstacle--like needing to modify an exit whose source code
> has dropped off the earth--then resolve to seek an extraordinary remedy.
> Otherwise never mind.
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ⇐=== NEW
> robin...@sce.com
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Tom Brennan
> Sent: Friday, January 04, 2019 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: Exit Calls or Using
>
> On 1/4/2019 4:35 AM, Peter Relson wrote:
>
> > Whether or not your exit routine is doing anything useful can only be
> > determined by examining the routine and understanding the exit.
>
> That means someone has to find the source code, make sure it's the actual
> version running, and then be able to understand it well enough to make a
> decision about whether the processing is needed or not.  I've seen sites
> where even step 1 is a problem.  So maybe a more realistic approach might
> be:  Turn off the exit, wait to see if the phone rings, and be ready to put
> it back.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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


Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-14 Thread Peter Relson
I'd still like Wayne to post the untruncated CSV031I message... 
(or re-post it if he had done so but I missed amidst the many appends).


Check out the reason code of the S106-xx message.  It could be that the 
module it's trying to load is in LLA, but LLA REFRESH was not done after 
replacing the module.  

LLA is involved (the DDNAME of *VLF* shows that). The 106-0C is due to an 
obtain of storage being unsuccessful. I can't think of a way that LLA 
REFRESH could have an impact (whether done or not done).


S106 - 0C - NOT ENOUGH STORAGE WAS AVAILABLE FOR FETCH TO DO A GETMAIN
FOR THE MODULE OR CONTROL BLOCKS.  CHECK REGISTER 0:

If you're going to post something like this, please post from the official 
documentation. That documentation is "Not enough storage was available for 
FETCH to get storage for the module or control blocks.". There is no 
information in register 0. The specific piece of data happens to be in 
register 4 (feel free to submit an RCF to ask that this be included in the 
documentation). As shown in one of the posts, the value in reg 4 at time 
of the abend 106-0C is x'14'.

The module appears to be small (less than x'C000') and has no relocation 
needs. Since there was no relocation, the only reason for the 106-0C for 
x'14' for *VLF* is that LLA's attempt to obtain storage for that amount 
was not successful. For all I know, the utility did some variable-length 
GETMAIN and ate up all the private storage below 16M. Take a dump of the 
address space and see. And look at the system trace entry for the 
completion of the conditional getmain (an SSRV entry) which would contain 
things such as the size requested (in case there was some weirdness going 
on between the "right size" and the "requested size").

You could always try things like stopping LLA, or not having LLA manage 
the CEE.SCEERUN (perhaps named SYS1.CEE.SCEERUN) data set. That would keep 
LLA from trying to obtain the storage, but then normal module fetch would 
try to obtain the same amount.
 
I wonder if the difference between releases is that the module in question 
(which sounds like it's CEEBINIT) is now eligible for LLA caching (but 
doesn't work for some reason once it is cached), whereas it did not used 
to be. 

Peter Relson
z/OS Core Technology Design


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


Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-14 Thread Tom Marchant
On Sat, 12 Jan 2019 14:59:05 +1100, Wayne Bickerdike wrote:

>Step end stats:
>
>IEF032I STEP/STEP020 /STOP  2019011.2148
>
>CPU: 0 HR  00 MIN  00.05 SECSRB: 0 HR  00 MIN  00.01
>SEC
>VIRT:  7908K  SYS:   260K  EXT:4K  SYS:10876K
>
>ATB- REAL:  3104K  SLOTS: 0K
>
> VIRT- ALLOC:  12M SHRD:   0M
>
>

Look at module DFHEISUP in the load library. Is it marked RMODE(24)? According 
to your Fault Analyzer report, the module is over 7 MB and it seems to be 
loaded below the line. Your job is using only 4K above the line.

I would suggest you open a PMR with IBM.

-- 
Tom Marchant


>On Sat, Jan 12, 2019 at 2:52 PM Wayne Bickerdike  wrote:
>
>> REGION=0M  and same abend with REGION=512M.
>>
>> Took an SVC dump, here's some FA information.
>>
>> JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
>> 21:21:48
>>
>>
>> IBM Fault Analyzer Abend Job Information:
>>
>>   Abend Date. . . . . . . . : 2019/01/11
>>   Abend Time. . . . . . . . : 21:21:48
>>   System Name . . . . . . . : S0W1
>>   Job Type. . . . . . . . . : Batch
>>   Job ID. . . . . . . . . . : JOB02430
>>   Job Name. . . . . . . . . : $SDO512M
>>   Job Step Name . . . . . . : n/a
>>   ASID. . . . . . . . . . . : 1C
>>   Abend TCB Address . . . . : 007FE990
>>   Job Execution Class . . . : A
>>   Region Size . . . . . . . : 0M
>>   EXEC Program Name . . . . : DFHEISUP
>>   User ID . . . . . . . . . : BDB204
>>   Accounting Information. . : n/a
>>
>> Execution Environment:
>>
>>   Operating System. . . . . : z/OS V2R2M0
>>   Data Facility Product . . : DFSMS z/OS V2R2M0
>>   CPU Model . . . . . . . . : 2817
>>
>> NOTE: The execution environment for this event is no longer valid, save
>> areas
>>   and data might have subsequently been updated.  This is normally
>> caused
>>   by condition handling routine processing.
>>
>>
>>
>> Load Module Name. . . . . . : DFHEISUP
>>
>>   At Address. . . . . . . . : 7F90
>>
>>   Load Module Length. . . . : X'7B6070'
>>
>>
>>
>> Machine Instruction . . . . : 0A08  SVC 8 (LOAD)
>>
>>   At Address. . . . . . . . : 007BDD70 (Module DFHEISUP offset X'7B5DE0')
>>
>>   AMODE . . . . . . . . . . : 31
>>
>>
>>
>> Additional instructions around event offset:
>>
>>
>>
>>   Offset   HexInstruction
>>
>>-2C 58C0 0010  L   R12,16
>>
>>-28 58C0 C000  L   R12,0(,R12)
>>
>>-24 58C0 C004  L   R12,4(,R12)
>>
>>-20 58C0 C144  L   R12,324(,R12)
>>
>>-1C 58C0 C004  L   R12,4(,R12)
>>
>>-18 BFCF C020  ICM R12,15,32(R12)
>>
>>-14 A784 0005  BRC 8,*+10
>>
>>-10 180C   LR  R0,R12
>>
>> -E A7F4 007D  BRC 15,*+250
>>
>> -A 4120 7008  LA  R2,8(,R7)
>>
>> -6 4100 2000  LA  R0,0(,R2)
>>
>> -2 1B11   SR  R1,R1
>>
>>   007BDD70 0A08   SVC 8(LOAD)
>>
>> +2 58C0 322C  L   R12,556(,R3)
>>
>> +6 166C   OR  R6,R12
>>
>> +8 164C   OR  R4,R12
>>
>> +A A7F4 0071  BRC 15,*+226
>>
>>  JOBNAME: $SDO512M  SYSTEM ABEND: 106S0W1  2019/01/11
>> 21:21:48
>>  +2 58C0 322C  L   R12,556(,R3)
>>
>>  +6 166C   OR  R6,R12
>>
>>  +8 164C   OR  R4,R12
>>
>>  +A A7F4 0071  BRC 15,*+226
>>
>>  +E A7F8 0010  LHI R15,16
>>
>> +12 5820 7018  L   R2,24(,R7)
>>
>> +16 1812   LR  R1,R2
>>
>>
>>
>>  Program Status Word (PSW) . : 078D 807BDD72
>>
>>  PSW Summary . . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31,
>> Problem
>>State
>>
>>
>>
>>  General Purpose Registers (AMODE: 64 31 24 , Bytes: Dec Hex ):
>>
>>R0:  007BDA48 (Module DFHEISUP + X'7B5AB8')
>>
>>R1:   (2,048 bytes of storage addressable)
>>
>>R2:  007BDA48 (Module DFHEISUP + X'7B5AB8')
>>
>>R3:  007BDC78 (Module DFHEISUP + X'7B5CE8')
>>
>>R4:  0064 (1,948 bytes of storage addressable)
>>
>>R5:  6FE8 (8,093,720 bytes of storage addressable)
>>
>>R6:  007BD800 (Module DFHEISUP + X'7B5870')
>>
>>R7:  807BDA40 (Module DFHEISUP + X'7B5AB0')
>>
>>R8:  007AED20 (Module DFHEISUP + X'7A6D90')
>>
>>R9:  007F8190 (32,368 bytes of storage addressable)
>>
>>R10:  (2,048 bytes of storage addressable)
>>
>>R11: 807BD82A (Module DFHEISUP + X'7B589A')
>>
>>R12:  (2,048 bytes of storage addressable)
>>
>>R13: 6F50 (8,093,872 bytes of storage addressable)
>>
>>R14: 807BD8FE (Module DFHEISUP + X'7B596E')
>>
>>R15: 007BDC78 (Module DFHEISUP + X'7B5CE8')
>>
>>  Abend Code. . . . . . . . . : S106-X'C'
>>
>>  Machine Instruction . . . . : 0A0D  SVC 13 (ABEND)
>>At Address. . . . . . . . : 01074DB8
>>AMODE . 

Re: zos program to supply web based client

2019-01-14 Thread Pew, Curtis G
> On Jan 11, 2019, at 11:14 PM, Brian Westerman  
> wrote:
> 
> Since it does use Adabas, maybe EntireX is the proper answer for this.

Right. Also, you mentioned COM-PLETE, which has some ability to act as a web 
server. You might investigate that.


-- 
Pew, Curtis G
curtis@austin.utexas.edu
ITS Systems/Core/Administrative Services

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


Re: HCD question

2019-01-14 Thread David Spiegel
Hi Tony,
You could use IDCAMS with DEFINE RECATALOG (before invoking HCD).

Regards,
David

On 2019-01-14 07:52, Tony Thigpen wrote:
> Thanks, Sounds like EXPORT/IMPORT is the best way. I was hoping for 
> some 'trick' with the panels, but I guess not.
>
> Tony Thigpen
>
> Gadi Ben-Avi wrote on 1/14/19 7:22 AM:
>> This is a job I use to copy an IODF to another system.
>> //DEL EXEC PGM=IDCAMS
>> //SYSPRINT DD SYSOUT=*
>> //DD1 DD DISP=SHR,UNIT=3390,VOL=SER=Z23R01
>> //SYSIN DD *
>>   DELETE SYS1.IODF15.CLUSTER  FILE(DD1) CATALOG(ICFCAT.MCATZ23)
>>   SET MAXCC = 0
>> //DSSC0087 EXEC PGM=ADRDSSU
>> //SYSPRINT  DD SYSOUT=*
>> //SYSIN DD *
>>    COPY DATASET( -
>>   INCLUDE( -
>>   SYS1.IODF15.CLUSTER -
>>   )) -
>>   REPLACE    -
>>   TOL(ENQF) -
>>   BYPASSACS(**) -
>>   NULLSTORCLAS  -
>>   PROCESS(SYS1)  -
>>   RECATALOG(ICFCAT.MCATZ23) -
>>   OUTDYNAM(Z23R01) -
>>   SHARE
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List  On 
>> Behalf Of Tony Thigpen
>> Sent: Monday, January 14, 2019 2:16 PM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: HCD question
>>
>> We have a 3-pack rescue system that was built by a person long-gone. 
>> On the 3-pack system, there are several IODF files. I need to update 
>> the current IODF file.
>>
>> But, the IODF files on the rescue packs are not cataloged to the 
>> production z/OS. When I use the HCD panels, it does not appear that 
>> there is a way to specify the volume where the file is located, so 
>> HCD always says the file can not be found.
>>
>> Is there a way to specify the volume, along with the name, when using 
>> the panel? Or, a command to start the panels using the uncataloged 
>> IODF file?
>>
>> -- 
>> Tony Thigpen
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions, send 
>> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת 
>> סודיות מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד 
>> וחתום על ידי מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת 
>> בשרתיה והיא לא תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע 
>> כלשהו שנגרם מסיבות של תקיפה חיצונית ו/או זדונית על הארגון.
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .
>


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


Re: HCD question

2019-01-14 Thread Tony Thigpen
Thanks, Sounds like EXPORT/IMPORT is the best way. I was hoping for some 
'trick' with the panels, but I guess not.


Tony Thigpen

Gadi Ben-Avi wrote on 1/14/19 7:22 AM:

This is a job I use to copy an IODF to another system.
//DEL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=SHR,UNIT=3390,VOL=SER=Z23R01
//SYSIN DD *
  DELETE SYS1.IODF15.CLUSTER  FILE(DD1) CATALOG(ICFCAT.MCATZ23)
  SET MAXCC = 0
//DSSC0087 EXEC PGM=ADRDSSU
//SYSPRINT  DD SYSOUT=*
//SYSIN DD *
   COPY DATASET( -
  INCLUDE( -
  SYS1.IODF15.CLUSTER -
  )) -
  REPLACE-
  TOL(ENQF) -
  BYPASSACS(**) -
  NULLSTORCLAS  -
  PROCESS(SYS1)  -
  RECATALOG(ICFCAT.MCATZ23) -
  OUTDYNAM(Z23R01) -
  SHARE

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Thigpen
Sent: Monday, January 14, 2019 2:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HCD question

We have a 3-pack rescue system that was built by a person long-gone. On the 
3-pack system, there are several IODF files. I need to update the current IODF 
file.

But, the IODF files on the rescue packs are not cataloged to the production 
z/OS. When I use the HCD panels, it does not appear that there is a way to 
specify the volume where the file is located, so HCD always says the file can 
not be found.

Is there a way to specify the volume, along with the name, when using the 
panel? Or, a command to start the panels using the uncataloged IODF file?

--
Tony Thigpen

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת סודיות 
מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי 
מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת בשרתיה והיא לא תישא 
באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע כלשהו שנגרם מסיבות של תקיפה 
חיצונית ו/או זדונית על הארגון.

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




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


Re: HCD question

2019-01-14 Thread Gadi Ben-Avi
This is a job I use to copy an IODF to another system.
//DEL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=SHR,UNIT=3390,VOL=SER=Z23R01
//SYSIN DD *
 DELETE SYS1.IODF15.CLUSTER  FILE(DD1) CATALOG(ICFCAT.MCATZ23)
 SET MAXCC = 0
//DSSC0087 EXEC PGM=ADRDSSU
//SYSPRINT  DD SYSOUT=*
//SYSIN DD *
  COPY DATASET( -
 INCLUDE( -
 SYS1.IODF15.CLUSTER -
 )) -
 REPLACE-
 TOL(ENQF) -
 BYPASSACS(**) -
 NULLSTORCLAS  -
 PROCESS(SYS1)  -
 RECATALOG(ICFCAT.MCATZ23) -
 OUTDYNAM(Z23R01) -
 SHARE

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Thigpen
Sent: Monday, January 14, 2019 2:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HCD question

We have a 3-pack rescue system that was built by a person long-gone. On the 
3-pack system, there are several IODF files. I need to update the current IODF 
file.

But, the IODF files on the rescue packs are not cataloged to the production 
z/OS. When I use the HCD panels, it does not appear that there is a way to 
specify the volume where the file is located, so HCD always says the file can 
not be found.

Is there a way to specify the volume, along with the name, when using the 
panel? Or, a command to start the panels using the uncataloged IODF file?

--
Tony Thigpen

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת סודיות 
מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי 
מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת בשרתיה והיא לא תישא 
באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע כלשהו שנגרם מסיבות של תקיפה 
חיצונית ו/או זדונית על הארגון.

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


Re: [EXTERNAL] HCD question

2019-01-14 Thread Dyck, Lionel B. (RavenTek)
Why not just export your IODF files from your production system and import them 
onto the rescue system volume?

Or import/connect the catalog on the rescue system to your live system and use 
a different hlq (e.g. SYSR.) for those data sets?

Just two thoughts - hope this helps.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer - RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tony Thigpen
Sent: Monday, January 14, 2019 6:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] HCD question

We have a 3-pack rescue system that was built by a person long-gone. On the 
3-pack system, there are several IODF files. I need to update the current IODF 
file.

But, the IODF files on the rescue packs are not cataloged to the production 
z/OS. When I use the HCD panels, it does not appear that there is a way to 
specify the volume where the file is located, so HCD always says the file can 
not be found.

Is there a way to specify the volume, along with the name, when using the 
panel? Or, a command to start the panels using the uncataloged IODF file?

--
Tony Thigpen

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

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


HCD question

2019-01-14 Thread Tony Thigpen
We have a 3-pack rescue system that was built by a person long-gone. On 
the 3-pack system, there are several IODF files. I need to update the 
current IODF file.


But, the IODF files on the rescue packs are not cataloged to the 
production z/OS. When I use the HCD panels, it does not appear that 
there is a way to specify the volume where the file is located, so HCD 
always says the file can not be found.


Is there a way to specify the volume, along with the name, when using 
the panel? Or, a command to start the panels using the uncataloged IODF 
file?


--
Tony Thigpen

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