Re: Seasons Greeting

[Edward Finnell]

And all the gifts you ordered!
 
https://www.youtube.com/watch?v=WCGBNj-aSwA
 
Everyone take care and hopefully we'll see you back on the other  
side...next year.
 
 
In a message dated 12/22/2016 4:40:45 P.M. Central Standard Time,  
steve.hor...@gmail.com writes:

And the  same to you!


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

Re: Do the Name/Token Pair callable services need R13 to point to save area?

[Frank Swarbrick]

Do you really need this assembler routine in order for COBOL to call the 
IEANTCR callable routine?  I call it directly from COBOL:

CALL 'IEANTCR' USING NTA-LEVEL NTA-NAME NTA-TOKEN
 NTA-NOPERSIST NTA-RC.
with the following working storage:

05  NTA-LEVEL   COMP-5  PICTURE S9(8).
05  NTA-NAMEDISPLAY PICTURE X(16).
05  NTA-TOKEN   DISPLAY PICTURE X(16).
05  REDEFINES NTA-TOKEN.
10  NTA-TOKEN-PTR   POINTER.
10  DISPLAY PICTURE X(12).
05  NTA-NOPERSIST   COMP-5  PICTURE S9(8).
05  NTA-RC  COMP-5  PICTURE S9(8).


Frank


From: IBM Mainframe Discussion List  on behalf of 
scott Ford 
Sent: Thursday, December 22, 2016 8:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do the Name/Token Pair callable services need R13 to point to save 
area?

Peter:

Heres what we do we call it from Cobol..

We pass in the address of where storage begins and where we want to place
the token

SAVE  (14,12),,SETTOKEN
 LRR12,R15R12 IS BASE REG
 USING SETTOKEN,R12
 L R4,0(R1)   1ST PARM = WORK AREA
 STR4,8(R13)  SAVE AREA FORWARD LINK
 STR13,4(R4)  SAVE AREA BACK LINK
 LRR13,R4 WORK AREA IS NOW SAVE AREA +
 USING WORKAREA,R13   SAVEAREA AND LOCAL VARS

 LAR1,PARMS   POINT R1 -> PARMS
 CALL  IEANTCRCREATE NAME/TOKEN

*-
 L R13,4(R13)  CALLER SAVE AREA
 RETURN (14,12),RC=(15)

WORKAREA DSECT
SAVEAREA DS18F
*-
PARMSDS5F


HTH

Regards,
Scott

On Thu, Dec 22, 2016 at 10:27 AM, scott Ford  wrote:

> Peter,
>
> We use tokens all the time, I will look
>
> Scott
>
> On Thu, Dec 22, 2016 at 9:58 AM, Greg Dyck  wrote:
>
>> On 12/22/2016 1:47 AM, Peter Hunkeler wrote:
>>
>>> When I get control, R13 points to a save area, which my code will use,
>>> but I do not yet have storage for another save area before calling IEANTRT,
>>> so I cannot change R13.
>>>
>>
>> The Name Token Retrieve service uses BAKR to save and restore the
>> caller's registers.  You can do whatever you wish with the caller's save
>> area pointed to by R13, including building the parameter list for the
>> request in it.
>>
>> Regards,
>> Greg
>>
>>
>> --
>> 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

Problem with "RECEIVE" of z/OS 2.2 upgrade

[McCabe, Ron]

Hello List,

I know that everyone is either off or about to be off to enjoy the holidays but 
I thought I would throw this question out anyway so hopefully I will be that 
much closer to resolving my problem.

I have downloaded z/OS 2.2 upgrade and the first step in the dialog is to 
"receive" the order.  In the UNZIP step which executes GIMUNZIP I get the 
following error:

GIM48900S ** THE PACKAGE ATTRIBUTE FILE DOES NOT CONTAIN AN ENTRY FOR REQUIRED 
A RCHIVE DOCLIB.

>From everything I have checked out I have everything that is needed.  Has 
>anyone else run into this problem?  Any help as to how I can get this resolved 
>(I do already have a PMR opened so no need to mention that)?  We are running 
>z/OS 1.13 which is an eligible driving system to install 2.2.

Thanks,
Ron McCabe
Mutual of Enumclaw


Confidentiality Notice: This e- mail and all attachments may contain 
CONFIDENTIAL information and are meant solely for the intended recipient. It 
may contain controlled, privileged, or proprietary information that is 
protected under applicable law and shall not be disclosed to any unauthorized 
third party. If you are not the intended recipient, you are hereby notified 
that any unauthorized review, action, disclosure, distribution, or reproduction 
of any information contained in this e- mail and any attachments is strictly 
PROHIBITED. If you received this e- mail in error, please reply to the sender 
immediately stating that this transmission was misdirected, and delete or 
destroy all electronic and paper copies of this e-mail and attachments without 
disclosing the contents. This e- mail does not grant or assign rights of 
ownership in the proprietary subject matter herein, nor shall it be construed 
as a joint venture, partnership, teaming agreement, or any other formal 
business relationship.

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

Re: Seasons Greeting

[Steve Horein]

And the same to you!

On Thu, Dec 22, 2016 at 12:37 PM, scott Ford  wrote:

> To All you who celebrate:
>
> Happy Holidays to all ...with best wishes for
> the upcoming year.
>
> Regards,
> Scott
>

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

AW: Re: Using the Binder to hook into an LE runtime module.

[Peter Hunkeler]

>A likely place that this is set is in the ESPIE service routine because
that PIC was one of the interrupts for which ESPIE management was
requested.


Peter, I'm not sure I understand what you want to tell me.


In a pure Cobol environment, the decimal overflow mask is not set, because 
Cobol does not want overflows to thow an exception. LE seems to handle this 
properly. On the other hand C/C++ requires an exception to be thrown, so the 
program mask bit is set by LE. I understand that LE always set the ESPIE to 
catch decial overflow exceptions (00A) (and others).


--
Peter Hunkeler


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

Re: Using the Binder to hook into an LE runtime module.

[Peter Hunkeler]

For those interested: I have some working code.
The code uses a Name/Token pair to a) understand whether called the first time 
or not, and b) to keep the address of a (wrap around) trace table (obtained 
upon first call). It then writes some information including the program mask 
obtained via IPM instruction into the table. The address of the trace table is 
displayed via WTO so that the table can be inspected in a dump.

I'm curious whether I will, and what I will find.

--Peter Hunkeler


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

Re: Do the Name/Token Pair callable services need R13 to point to save area?

[Peter Hunkeler]

> Heres what we do we call it from Cobol..

>We pass in the address of where storage begins and where we want to place
the token


I have to "sneak in", so I cannot pass some storage.
In the meantime I have it working without problems.


--
Peter Hunkeler



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

AW: Re: Do the Name/Token Pair callable services need R13 to point to save area?

[Peter Hunkeler]

Thanks, Greg

--
Peter Hunkeler

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

AW: Re: Using the Binder to hook into an LE runtime module.

[Peter Hunkeler]

>The issue Peter is facing is that a certain amount of confusion ensues when a 
>particular piece of software notices the 00A coming from a COBOL program, 
>because the overflow bit has become set on and has somehow avoided means to 
>turn it off before a C/C++ program returns to COBOL.



Reduced to the minimum: Another software's condition handler is getting control 
*before* LE's. This one does *not* ignore the program check 0A, but closes, 
backs out and disconnects, then percolates to LE. LE in turn knows it should 
ignore the program check 0A for Cobol, and returns control to the application 
code. The application later fails with random symptoms because of the "closing" 
actions.


--
Peter Hunkeler



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

AW: Re: Using the Binder to hook into an LE runtime module.

[Peter Hunkeler]

>z/OS Language Environment Programming Reference SA38-0683-0CEEHDLR registers a
user-written condition handler for the current stack frame.



Oh, I see. Now I understand what you meant. I know about the CEEHDLR, but I do 
not need a contition handler. What I need is kind of a "trace of the PSWs 
program mask call by call". This is not something that LE is prepared to 
support (why would it?).


But thanks anyway.


--
Peter Hunkeler



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

Re: Job portal for mainframe

[Lizette Koehler]

Also indeed.com

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Burrell, Todd
> Sent: Thursday, December 22, 2016 11:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Job portal for mainframe
> 
> There are quite a few places to look:
> 
> www.monster.com
> www.dice.com
> http://www.computerjobs.com/us/en/IT-Jobs/
> www.spci.net
> 
> You can also look some on LinkedIn.
> 
> You can also go directly to a company's website and search their job listings
> if you know of companies in your area.   A lot of them will allow you to setup
> searches and get alerts based on those searches.  It's how I got my current
> job.
> 
> Good luck.
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Kumar
> Sent: Thursday, December 22, 2016 12:49 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Job portal for mainframe
> 
> Hi,
> 
> Can somebody name few of the good job portals for Mainframe Systems
> programming jobs in the USA please ?
> 
> Regards,
> Kumar
> 

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

Re: AW: Re: Using Extended Format as default

[R.S.]

[...]

PDS/PDSE and SORTWK(?) have some known restrictions.
PDS/PDSE *cannot be extended format*. That's strict restriction, but 
very clear IMHO.

EF is for PS and VSAM (KSDS, ESDS, LDS, RRDS, vRRDS).

SORWK - the best idea is to NOT USE SORTWK ddnames, leave sort work 
datasets allocation to your sort product. And leave the choice of PS 
flavor the product want to use.



BTW: It's good to distinguish user (application) datasets from system 
datasets.


For example, RACF db is PS file (that it looks in PDF), the same JES2 
SPOOL or checkpoint, but each of them is somehow special.
However vast majority of regular user/application datasets have no 
special requirements.



--
Radoslaw Skorupka
Lodz, Poland






---
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2016 r. kapita zakadowy mBanku S.A. (w caoci 
wpacony) wynosi 168.955.696 zotych.


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

AW: Re: Using Extended Format as default

[Peter Hunkeler]

> PDS/PDSE and SORTWK(?) have some known restrictions.

I seem to remember that programs using NOTE & POINT have (or had?) 
dependencies, but can't remember the details right now.

--Peter Hunkeler







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

Seasons Greeting

[scott Ford]

To All you who celebrate:

Happy Holidays to all ...with best wishes for
the upcoming year.

Regards,
Scott

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

Re: Rexx/CICS format file pool - return code -4

[Wayne Bickerdike]

The out of the box ADCD CICS does not have external security configured.
Therefore the CESN transaction has no effect.

Enable security in the startup options with SEC=YES then come back with
more questions. :)

On Thu, Dec 22, 2016 at 4:36 PM, Bruce Hewson 
wrote:

> Hello Mike,
>
> "L CICS" from VTAM terminal gains you access to CICS.
>
> CESN is/was the TRANSACTION to use to LOGON to the CICS region, i.e.
> establish a valid security entity.
>
> Regards
> Bruce
>
> On Wed, 21 Dec 2016 10:14:50 -0500, Mike Stramba 
> wrote:
>
> >Greetings all,
> >
> >System : ADCD - z/OS 01.10.00  running CICS Cicstslevel (030200)
> >
> >I'm trying to format the file pools for REXX/CICS
> >
> >I  "sign on" to CICS (with "L CICS")
> >
> >I  enter the REXX transaction, and the expected "Enter a REXX
> >command or EXIT to quit" message is posted, and interactively entered
> >Rexx does work.
> >
> >Attempting to run "FILEPOOL FORMAT POOL1" results in return code -4.
> >
> >According to the docs I'm using, this return code is returned when the
> >user is not logged on to the region.  (REXX for CICS—Part One Features
> >and Installation By Dennis Beck) (pdf's are onlne)
> >
> >I think the problem is the "L CICS" signon, which is not requesting
> >any user name / password. That in turn, I think is because only the
> >default (none?) security has been installed for CICS -VTAM logons.
> >
> 
> >
> >thx
> >
> >Mike
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Wayne V. Bickerdike

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

Re: Job portal for mainframe

[Burrell, Todd]

There are quite a few places to look:

www.monster.com
www.dice.com
http://www.computerjobs.com/us/en/IT-Jobs/
www.spci.net

You can also look some on LinkedIn.  

You can also go directly to a company's website and search their job listings 
if you know of companies in your area.   A lot of them will allow you to setup 
searches and get alerts based on those searches.  It's how I got my current 
job.  

Good luck.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kumar
Sent: Thursday, December 22, 2016 12:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Job portal for mainframe

Hi,

Can somebody name few of the good job portals for Mainframe Systems programming 
jobs in the USA please ?

Regards,
Kumar

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



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


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

Job portal for mainframe

[Kumar]

Hi,

Can somebody name few of the good job portals for Mainframe Systems
programming jobs in the USA please ?

Regards,
Kumar

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

Re: How to mount ZFS from another system

[R.S.]

W dniu 2016-12-22 o 17:41, John McKown pisze:

On Thu, Dec 22, 2016 at 10:40 AM, John McKown 
wrote:


On Thu, Dec 22, 2016 at 10:29 AM, R.S. 
wrote:


I want to temporarily mount ZFS from another system.

Scenario:
OMVS.MVSB.BLAH is cataloged in master catalog on system MVSB.

I want to mount it on system MVSA in some directory, i.e. /mytemp.
However on MVSA there are also OMVS.** datasets cataloged in master
catalog (of MVSA)

MCAT names are unique, MVSB is shut down during the operation. z/OS level
is 2.2. All OMVS.** datasets are SMS-managed.


Any clue?


​Well, I guess you're DSN is just an example. But if not, set your
catalogs on MVSA to have multi-level aliasing at least at level 2. You can
do this dynamically with a command, on MVSA, such as:

F CATALOG,MLA(2) or more

Now define an alias similar to:

DEF ALIAS(NAME(OMVS.MVSB) RELATE(mvsb.master.catalog))

You can not reference any OMVS.MVSB.** data set via this alias into the
MVSB master catalog.


​Damn fingers. "You can not" should be "You can now".​




If you don't have a unique second node, then this will NOT work.​




John,
Thank you!
It's so simple and pretty.
Yes, the DSN was example, but the rule with "MVSB" on second qualifier 
is real.

And I have aliaslevel(4) enabled by default.

Regards
--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

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, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 złotych.


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

Re: Old MVS/SP

[Mike Beer]

You might want to look here:

http://hercules-390.github.io/html/


Am 22.12.2016 um 17:14 schrieb W Mainframe:

  blockquote, div.yahoo_quoted { margin-left: 0 !important; border-left:1px 
#715FFA solid !important; padding-left:1ex !important; background-color:white 
!important; } Guys,
Anyone is running a MVS/SP in some kind of emulator?
Dan


Sent from Yahoo Mail for iPhone

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


Best regards
Mike

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

Re: How to mount ZFS from another system

[John McKown]

On Thu, Dec 22, 2016 at 10:40 AM, John McKown 
wrote:

> On Thu, Dec 22, 2016 at 10:29 AM, R.S. 
> wrote:
>
>> I want to temporarily mount ZFS from another system.
>>
>> Scenario:
>> OMVS.MVSB.BLAH is cataloged in master catalog on system MVSB.
>>
>> I want to mount it on system MVSA in some directory, i.e. /mytemp.
>> However on MVSA there are also OMVS.** datasets cataloged in master
>> catalog (of MVSA)
>>
>> MCAT names are unique, MVSB is shut down during the operation. z/OS level
>> is 2.2. All OMVS.** datasets are SMS-managed.
>>
>>
>> Any clue?
>>
>
> ​Well, I guess you're DSN is just an example. But if not, set your
> catalogs on MVSA to have multi-level aliasing at least at level 2. You can
> do this dynamically with a command, on MVSA, such as:
>
> F CATALOG,MLA(2) or more
>
> Now define an alias similar to:
>
> DEF ALIAS(NAME(OMVS.MVSB) RELATE(mvsb.master.catalog))
>
> You can not reference any OMVS.MVSB.** data set via this alias into the
> MVSB master catalog.
>

​Damn fingers. "You can not" should be "You can now".​



>
> If you don't have a unique second node, then this will NOT work.​
>
>
>
>>
>>
>>
>> --
>> Radoslaw Skorupka
>> Lodz, Poland
>>
>>
>>
>>
>>
>>
>> ---
>> Treść tej wiadomości może zawierać informacje prawnie chronione Banku
>> przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być
>> jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś
>> adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej
>> przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie,
>> rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie
>> zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo,
>> prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale
>> usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub
>> zapisane na dysku.
>>
>> This e-mail may contain legally privileged information of the Bank and is
>> intended solely for business use of the addressee. This e-mail may only be
>> received by the addressee and may not be disclosed to any third parties. If
>> you are not the intended addressee of this e-mail or the employee
>> authorized to forward it to the addressee, be advised that any
>> dissemination, copying, distribution or any other similar activity is
>> legally prohibited and may be punishable. If you received this e-mail by
>> mistake please advise the sender immediately by using the reply facility in
>> your e-mail software and delete permanently this e-mail including any
>> copies of it either printed or saved to hard drive.
>>
>> 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, nr rejestru przedsiębiorców KRS 025237, NIP:
>> 526-021-50-88. Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku
>> S.A. (w całości wpłacony) wynosi 168.955.696 złotych.
>>
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
>
> --
> Heisenberg may have been here.
>
> http://xkcd.com/1770/
>
> Maranatha! <><
> John McKown
>



-- 
Heisenberg may have been here.

http://xkcd.com/1770/

Maranatha! <><
John McKown

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

Re: How to mount ZFS from another system

[John McKown]

On Thu, Dec 22, 2016 at 10:29 AM, R.S. 
wrote:

> I want to temporarily mount ZFS from another system.
>
> Scenario:
> OMVS.MVSB.BLAH is cataloged in master catalog on system MVSB.
>
> I want to mount it on system MVSA in some directory, i.e. /mytemp.
> However on MVSA there are also OMVS.** datasets cataloged in master
> catalog (of MVSA)
>
> MCAT names are unique, MVSB is shut down during the operation. z/OS level
> is 2.2. All OMVS.** datasets are SMS-managed.
>
>
> Any clue?
>

​Well, I guess you're DSN is just an example. But if not, set your catalogs
on MVSA to have multi-level aliasing at least at level 2. You can do this
dynamically with a command, on MVSA, such as:

F CATALOG,MLA(2) or more

Now define an alias similar to:

DEF ALIAS(NAME(OMVS.MVSB) RELATE(mvsb.master.catalog))

You can not reference any OMVS.MVSB.** data set via this alias into the
MVSB master catalog.

If you don't have a unique second node, then this will NOT work.​



>
>
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
>
> ---
> Treść tej wiadomości może zawierać informacje prawnie chronione Banku
> przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być
> jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś
> adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej
> przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie,
> rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie
> zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo,
> prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale
> usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub
> zapisane na dysku.
>
> This e-mail may contain legally privileged information of the Bank and is
> intended solely for business use of the addressee. This e-mail may only be
> received by the addressee and may not be disclosed to any third parties. If
> you are not the intended addressee of this e-mail or the employee
> authorized to forward it to the addressee, be advised that any
> dissemination, copying, distribution or any other similar activity is
> legally prohibited and may be punishable. If you received this e-mail by
> mistake please advise the sender immediately by using the reply facility in
> your e-mail software and delete permanently this e-mail including any
> copies of it either printed or saved to hard drive.
>
> 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, nr rejestru przedsiębiorców KRS 025237, NIP:
> 526-021-50-88. Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku
> S.A. (w całości wpłacony) wynosi 168.955.696 złotych.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Heisenberg may have been here.

http://xkcd.com/1770/

Maranatha! <><
John McKown

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

Re: Zfs root filesystem

[Steve Smith]

OK, point taken.  Your plan sounds like a good one.

sas

On Thu, Dec 22, 2016 at 2:02 AM, Peter Hunkeler  wrote:

>
> >On 2016-12-21 15:39, Steve Smith wrote:
> > Or leave off the -r.
>
>
> The subject sais "root file system" not "root directoy", so I assume the
> OP wants to compare everything, i.e. the compare needs to dive into
> subdirectories, but stop at the files system boundary not traversing mount
> points.
>
>
> diff does not seem to have an option to tell it not to cross mount points
> find has one (I think): -xdev. But again, the diff called for each entry
> would see directories an not stop at file system boundary. And you would
> need to do the find twice, once from each root to also detect missing files
> or directories in one of them.
>
>
> I think you best bet would be to make a clone of the current root file
> system, the mount both on seperate temporary directories in, say /tmp. You
> can the simply diff -r.
> As for the cloning, I would do A DFDSS COPY of the current root file
> system *data set*. This will guarantee the clone contains just anything
> that is in the root and only what is in the root.
>
> --
> Peter Hunkeler
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
sas

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

How to mount ZFS from another system

[R.S.]

I want to temporarily mount ZFS from another system.

Scenario:
OMVS.MVSB.BLAH is cataloged in master catalog on system MVSB.

I want to mount it on system MVSA in some directory, i.e. /mytemp.
However on MVSA there are also OMVS.** datasets cataloged in master 
catalog (of MVSA)


MCAT names are unique, MVSB is shut down during the operation. z/OS 
level is 2.2. All OMVS.** datasets are SMS-managed.



Any clue?



--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

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, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 złotych.


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

Re: Using the Binder to hook into an LE runtime module.

[Bill Woodger]

The problem with attempting to use an LE Handler from a COBOL program, as was 
covered in the previous topic, is that LE knows that COBOL doesn't "respect" 
the 00A, so LE just spends some time ignoring it, rather than presenting it to 
a registered handler.

So for inter-language communication to C/C++ and PL/I, there is a heavy 
performance hit if there is a lot of "overflow" in the COBOL program(s), which 
is the time taken by LE to "ignore" it, because of COBOL.

See 
https://share.confex.com/share/116/webprogram/Handout/Session8833/S8833TR.pdf 
pp19-20, for instance.

The issue Peter is facing is that a certain amount of confusion ensues when a 
particular piece of software notices the 00A coming from a COBOL program, 
because the overflow bit has become set on and has somehow avoided means to 
turn it off before a C/C++ program returns to COBOL.

I think I've got that right... :-)

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

Re: Old MVS/SP

[John McKown]

On Thu, Dec 22, 2016 at 10:14 AM, W Mainframe <
01304632a58d-dmarc-requ...@listserv.ua.edu> wrote:

> Guys,
> Anyone is running a MVS/SP in some kind of emulator?
> Dan
>
>
​ If so, IBM legal would like your contact information. Doing
that would, most likely, be a violation of the license. I know that I would
never admit to such on a public forum. Not that a person as perfect and
legal as I would __ever__ consider such a thing. Why, it never even entered
my mind. Never, ever, nope, nuh uh, no way.


-- 
Heisenberg may have been here.

http://xkcd.com/1770/

Maranatha! <><
John McKown

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

Old MVS/SP

[W Mainframe]

 blockquote, div.yahoo_quoted { margin-left: 0 !important; border-left:1px 
#715FFA solid !important; padding-left:1ex !important; background-color:white 
!important; } Guys,
Anyone is running a MVS/SP in some kind of emulator? 
Dan


Sent from Yahoo Mail for iPhone

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

Re: Do the Name/Token Pair callable services need R13 to point to save area?

[scott Ford]

Peter:

Heres what we do we call it from Cobol..

We pass in the address of where storage begins and where we want to place
the token

SAVE  (14,12),,SETTOKEN
 LRR12,R15R12 IS BASE REG
 USING SETTOKEN,R12
 L R4,0(R1)   1ST PARM = WORK AREA
 STR4,8(R13)  SAVE AREA FORWARD LINK
 STR13,4(R4)  SAVE AREA BACK LINK
 LRR13,R4 WORK AREA IS NOW SAVE AREA +
 USING WORKAREA,R13   SAVEAREA AND LOCAL VARS

 LAR1,PARMS   POINT R1 -> PARMS
 CALL  IEANTCRCREATE NAME/TOKEN

*-
 L R13,4(R13)  CALLER SAVE AREA
 RETURN (14,12),RC=(15)

WORKAREA DSECT
SAVEAREA DS18F
*-
PARMSDS5F


HTH

Regards,
Scott

On Thu, Dec 22, 2016 at 10:27 AM, scott Ford  wrote:

> Peter,
>
> We use tokens all the time, I will look
>
> Scott
>
> On Thu, Dec 22, 2016 at 9:58 AM, Greg Dyck  wrote:
>
>> On 12/22/2016 1:47 AM, Peter Hunkeler wrote:
>>
>>> When I get control, R13 points to a save area, which my code will use,
>>> but I do not yet have storage for another save area before calling IEANTRT,
>>> so I cannot change R13.
>>>
>>
>> The Name Token Retrieve service uses BAKR to save and restore the
>> caller's registers.  You can do whatever you wish with the caller's save
>> area pointed to by R13, including building the parameter list for the
>> request in it.
>>
>> Regards,
>> Greg
>>
>>
>> --
>> 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: Do the Name/Token Pair callable services need R13 to point to save area?

[scott Ford]

Peter,

We use tokens all the time, I will look

Scott

On Thu, Dec 22, 2016 at 9:58 AM, Greg Dyck  wrote:

> On 12/22/2016 1:47 AM, Peter Hunkeler wrote:
>
>> When I get control, R13 points to a save area, which my code will use,
>> but I do not yet have storage for another save area before calling IEANTRT,
>> so I cannot change R13.
>>
>
> The Name Token Retrieve service uses BAKR to save and restore the caller's
> registers.  You can do whatever you wish with the caller's save area
> pointed to by R13, including building the parameter list for the request in
> it.
>
> Regards,
> Greg
>
>
> --
> 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: Addressing Question

[scott Ford]

Peter:

The reason I asked was that we have been running this STC for a long time
in Cobol with
AMODE(31), RMODE(ANY) and it was performing calls to Assembler modules,
these modules are
AMODE(24),RMODE(24) and were performing I/O to QSAM files  apparently with
no issues. But in all our cases nothing is
passed.  A file is built and the Assembler sub-program returns back to the
caller. We read the file , etc. In our case we built socket messages ..

Part of the reason for my question is that if i wanted to run the Assembler
programs as AMODE(31), RMODE(31) i know i can re-locate the DCBS above the
line. I have several examples. But isnt still some of the DCB control
blocks below the line ?

If not can you be so kind as to explain the difference...

Thank You

Scott

On Thu, Dec 22, 2016 at 8:39 AM, Peter Relson  wrote:

> 
> I think i am right in saying that RMODE(ANY) sees the program with
> RMODE(24) and
> its ok to execute and the I/O buffers are they 24bit or 31
> 
>
> It seems unlikely that the calling program pays any attention to the RMODE
> of anything that it calls.
>
> It is up to the caller to meet the requirements of the callee. If the
> callee is AMODE 24, then it would be expected that any data passed from
> the caller to the callee be below 16M. That includes save area and
> parameter list.
>
> Does COBOL actually have any support for AMODE-switching calls?
>
> If this was assembler, and you were an AMODE 31 program and you LINKed to
> some other program via LINKX, you would need to know the AMODE of that
> program in order to accommodate its needs. This is a reason that LINKing
> to an AMODE 64 program is not accepted unless you have told LINKX
> AMODE64OK=YES which to some extent is intended to let you acknowledge that
> you have provided a 144-byte save area (or whatever the potentially AMODE
> 64 routine might need in order to save registers).
>
> 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: Do the Name/Token Pair callable services need R13 to point to save area?

[Greg Dyck]

On 12/22/2016 1:47 AM, Peter Hunkeler wrote:

When I get control, R13 points to a save area, which my code will use, but I do 
not yet have storage for another save area before calling IEANTRT, so I cannot 
change R13.


The Name Token Retrieve service uses BAKR to save and restore the 
caller's registers.  You can do whatever you wish with the caller's save 
area pointed to by R13, including building the parameter list for the 
request in it.


Regards,
Greg

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

Re: Show dataset list in dump full volume adrdssu

[Burrell, Todd]

Another runtime PARM I have used occasionally for DFDSS is UTILMSG - it shows a 
lot of underlying detail as to what DFDSS is really doing:

UTILMSG=YES|NO|ERROR
 This parameter controls the output of messages from auxiliary programs invoked 
by DFSMSdss (including ICKDSF, IDCAMS, IEBCOPY, IEBISAM, and IEHMOVE) to the 
DFSMSdss SYSPRINT output. When YES, informational, warning, and error messages 
from these auxiliary programs are copied to the DFSMSdss SYSPRINT output. When 
NO, messages are not copied to the output. When ERROR, messages are copied only 
if the auxiliary return program returns an error code to DFSMSdss. The default 
is ERROR.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Klan, Rob (RET-DAY)
Sent: Thursday, December 22, 2016 5:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu


Add to exec statementPARM='TYPRUN=NORUN'   while processing an existing 
DFSMSDSS file
 
Ex: //DUMPIT  EXEC PGM=ADRDSSU,REGION=4096K,PARM='TYPRUN=NORUN'  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of retired mainframer
Sent: Thursday, December 22, 2016 5:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu

It sure would be nice to know what worked.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Thursday, December 22, 2016 1:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu

Great!. It's Works fine. 

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



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


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

Re: Using the Binder to hook into an LE runtime module.

[Lizette Koehler]

Check out

z/OS Language Environment Programming Reference SA38-0683-0CEEHDLR registers a
user-written condition handler for the current stack frame. The user condition
handler is invoked when:

It is registered for the current stack frame by CEEHDLR, and
The Language Environment condition manager requests the condition handler
associated with the current stack frame handle the condition.



My  understanding is it allows one to get control before LE during certain
events.  I do not have any more details than that.

Lizette 


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Hunkeler
> Sent: Wednesday, December 21, 2016 11:41 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Using the Binder to hook into an LE runtime module.
> 
> 
> >There is an LE User Handle Function that should allow you to insert
> >what you
> want to do.
> 
> 
> Not sure exactl what function you mean, but I doubt LE is offering an official
> way to do what I need. Can you tell me more about that function? I'd like to
> read it up.
> 
> 
> 
> >Otherwise, this seems to be a question better for IBM LE to respond to.
> >Lots of
> knowledge on the lists, but this may wander closer to internal IBM information
> on how LE would work in this case.
> 
> 
> Unfortunately, I'm not in the position to directly talk to IBM. If I was, I
> had long opened a non-defect PMR to discuss the problem and possible ways to
> get hold of the cause with IBMs LE lab people. I don't want to go into more
> detail on why this does not happen here.
> 
> 
> So, here am I with my idea, and as said in a later post, I am a big step
> further once I found (the stupid) error I made. Going to code the traceing im
> my module now
> 
> 
> --
> Peter Hunkeler
> 

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

Re: COBOL inline CPU timer

[Charles Mills]

Thanks. FWIW, that is our floor architecture level. I'm not sure if we have any 
customers on a z9 but I know we have customers on a z10.

And yes, I remember S/360 architecture. I still marvel every time I write an 
ICM.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Dyck
Sent: Wednesday, December 21, 2016 6:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL inline CPU timer

On 12/21/2016 2:59 PM, Charles Mills wrote:
> When does ECTG come along? I've got high-level notes on the various z 
> architecture levels but the "extract-CPU-time facility" is not in my notes.

For those who still remember S360 architecture ;-), it is a recent addition.  
z9-109, circa September 2005.

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

Re: Do the Name/Token Pair callable services need R13 to point to save area?

[Charles Mills]

I believe it has been the intention of the MVS team over the past several
years to make all of the basic assembler macro-invoked services independent
of the caller's R13. I recall that once upon a time most of them required a
save area off R13, and were so documented. I think now that most or all of
them do not, and if a macro is not documented as requiring a user save area
(actually, in this case, is affirmatively documented as not requiring one)
then I think it is a pretty safe guess that it does not require one.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Hunkeler
Sent: Thursday, December 22, 2016 2:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Do the Name/Token Pair callable services need R13 to point to save
area?

I'm thinking of using a Name/Token pair to keep the address of "my" storage
area, and X'00' to mean I first need to obtain the storage. This is in RENT
code.


When I get control, R13 points to a save area, which my code will use, but I
do not yet have storage for another save area before calling IEANTRT, so I
cannot change R13. 


The book says I do *not* have to place anything special into any register
before calling the Name/Token Pair callable services. From this I conclude
that the callable service routines will *not* use the save area pointed to
by R13 (and work with only R0, R1, and R15 which are documented as being
used).

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

Re: Addressing Question

[Peter Relson]

I think i am right in saying that RMODE(ANY) sees the program with
RMODE(24) and
its ok to execute and the I/O buffers are they 24bit or 31


It seems unlikely that the calling program pays any attention to the RMODE 
of anything that it calls.

It is up to the caller to meet the requirements of the callee. If the 
callee is AMODE 24, then it would be expected that any data passed from 
the caller to the callee be below 16M. That includes save area and 
parameter list.

Does COBOL actually have any support for AMODE-switching calls?

If this was assembler, and you were an AMODE 31 program and you LINKed to 
some other program via LINKX, you would need to know the AMODE of that 
program in order to accommodate its needs. This is a reason that LINKing 
to an AMODE 64 program is not accepted unless you have told LINKX 
AMODE64OK=YES which to some extent is intended to let you acknowledge that 
you have provided a 144-byte save area (or whatever the potentially AMODE 
64 routine might need in order to save registers).

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: Using the Binder to hook into an LE runtime module.

[Peter Relson]

I'm back to the quest for the code that sets the decimal overflow mask bit 
in the PSW causing S0CA abends later on (see "How to Identify modules as 
C/C++ or Cobol, or ASM from dump (SYSMDUMP)" thread started late 
November). 


A likely place that this is set is in the ESPIE service routine because 
that PIC was one of the interrupts for which ESPIE management was 
requested.

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: Show dataset list in dump full volume adrdssu

[Klan, Rob (RET-DAY)]

Add to exec statementPARM='TYPRUN=NORUN'   while processing an existing 
DFSMSDSS file
 
Ex: //DUMPIT  EXEC PGM=ADRDSSU,REGION=4096K,PARM='TYPRUN=NORUN'  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of retired mainframer
Sent: Thursday, December 22, 2016 5:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu

It sure would be nice to know what worked.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Thursday, December 22, 2016 1:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu

Great!. It's Works fine. 

--
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: Show dataset list in dump full volume adrdssu

[retired mainframer]

It sure would be nice to know what worked.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Thursday, December 22, 2016 1:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Show dataset list in dump full volume adrdssu

Great!. It's Works fine. 

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

Re: Show dataset list in dump full volume adrdssu

[Jorge Garcia]

Great!. It's Works fine. 

Regards

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

Re: Do the Name/Token Pair callable services need R13 to point to save area?

[Itschak Mugzach]

I looked into my code, and it look like you are right. no special regs to
set.

IStchak

ITschak Mugzach
Z/OS, ISV Products and Application Security & Risk Assessments Professional

On Thu, Dec 22, 2016 at 9:47 AM, Peter Hunkeler  wrote:

> I'm thinking of using a Name/Token pair to keep the address of "my"
> storage area, and X'00' to mean I first need to obtain the storage. This is
> in RENT code.
>
>
> When I get control, R13 points to a save area, which my code will use, but
> I do not yet have storage for another save area before calling IEANTRT, so
> I cannot change R13.
>
>
> The book says I do *not* have to place anything special into any register
> before calling the Name/Token Pair callable services. From this I conclude
> that the callable service routines will *not* use the save area pointed to
> by R13 (and work with only R0, R1, and R15 which are documented as being
> used).
>
>
> Can anyone confirm? I just want to double check that the doc is not
> missing some text and the services are silently assuming R13 is pointing to
> a usable save are.
>
>
> --
> Peter Hunkeler
>
> --
> 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