Re: Suppression of duplicate STC

2021-01-20 Thread Binyamin Dissen
Concurrently: DISP=OLD  While technically it will not suppress the start, it
will prevent it from running.

During the life of the SYSPLEX? I guess it could rename its own member in
PROCLIB to something else. And use some kind of shutdown process to rename it
back.


On Wed, 20 Jan 2021 12:58:16 +0400 Peter  wrote:

:>Is there any configuration or any method to suppress starting the same
:>started task Twice in zOS ?

:>We are having zOS 2.2

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: MVS RESMGR exit

2021-01-18 Thread Binyamin Dissen
On Mon, 18 Jan 2021 15:51:51 -0500 Gary Weinhold  wrote:

:>Excuse me for asking this question here, but I can't find an IMS DC list.

:>We rely on getting control at task termination to clean up resources 
:>used by our software.  We create a PC to add an MVS RESMGR exit when our 
:>software is first accessed in an IMS MPR.  If there is a pseudo-abend, 
:>which we understand means the TCB on which transactions run will 
:>terminate, we expect our RESMGR exit to execute.  The IMS MPR control 
:>program will then attach a new TCB in the region on which to run 
:>transactions.  Our software will be reinitialized if a transaction 
:>accesses it.  This could happen many times.  However, if our RESMGR exit 
:>doesn't execute, we may deplete resources.

:>Is it possible that the IMS MPR control program bypasses or deletes our 
:>RESMGR exit on some pseudo-abends?

It has been a while, but it appears that the TCB does not always end when one
expects. 

Are you just guessing that there is a problem, or do you see evidence of a
problem? 

Are you seeing the tasks ending without your RESMGR doing its job? 

Do you need to clean up if the message region runs a new program?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Starting a started task from a started task

2021-01-14 Thread Binyamin Dissen
On Thu, 14 Jan 2021 14:57:47 + "Horne, Jim"  wrote:

:>This may sound like a stupid question but is there a way to start a second 
started task from a running one when the currently running one completes.  I 
know how to submit a batch job from a final step of a started task but I don't 
know how to do the same sort of thing to initiate another started task.

I will ask the question that seems to have been missed.

What are you trying to do? Why specifically start a new STC? What is the
business case? Why not conditionally execute the next step?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Code to verify LOGON password

2021-01-10 Thread Binyamin Dissen
What is wrong with

 RACROUTE REQUEST=VERIFY,ENVIR=CREATE,ACEE=@ACEE

followed by

 RACROUTE REQUEST=VERIFY,ENVIR=DELETE,ACEE=@ACEE

if the create worked?

Should work on all security systems.

On Sat, 9 Jan 2021 20:03:07 -0500 Sam Golob  wrote:

:>Dear Folks,
:>
:>     I am just trying to get a very old program to work.  It is so old, 
:>that it mucks with the TSB password field, and I don't want to deal with 
:>that.  I don't care to reveal the password anywhere.  I just want the 
:>user to enter a password, and the security system should say "GO" or 
:>"NOGO".  That's all.
:>
:>     Thanks for all your replies.  Be well and safe.
:>
:>Sincerely,    Sam
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Using symbolic DD names

2021-01-10 Thread Binyamin Dissen
On Sun, 10 Jan 2021 08:18:10 -0600 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>On Sun, 10 Jan 2021 14:34:03 +0200, Binyamin Dissen wrote:
:>
:>>On Wed, 30 Dec 2020 19:21:52 + Billy Ashton wrote:
:>>
:>>:>Hey folks! I have a vendor product program that looks for different
:>>:>DDnames depending on the control statements passed into the program. Is
:>>:>there any way to define a dynamic DD statement using JCL symbols? For
:>>:>example, I would love to have //TB to correspond to TB01DAT,
:>>:>TB14DAT, or TB67DAT if I use SET TNO=01 or 14 or 67.
::>>:>Is such a thing possible? I tried using an instream proc definition and
:>>:>INCLUDE MEMBER= that proc name, but that failed, and of course, I tried
:>>:>the straight up JCL as above, and it failed.
:
:>>:>What do you all think?
:
:>>If you create a member for each DD statement,
:
:>> // INCLUDE MEMBER=TAB
:
:>>should work fine. Or am I missing something?

:>Gee.  One might create a collection of JCLLIB members mapping the
:>Cartesian product of all possible values of all possible symbols.  Then
:>no such member need contain any symbol references.

There can be multiple iINCLUDE statements (with a dummy as a default). Not at
all a problem.

:>Seriously?  There's something wrong here.

:>I hate JCL!

That is a different issue.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Using symbolic DD names

2021-01-10 Thread Binyamin Dissen
On Wed, 30 Dec 2020 19:21:52 + Billy Ashton 
wrote:

:>Hey folks! I have a vendor product program that looks for different 
:>DDnames depending on the control statements passed into the program. Is 
:>there any way to define a dynamic DD statement using JCL symbols? For 
:>example, I would love to have //TB to correspond to TB01DAT, 
:>TB14DAT, or TB67DAT if I use SET TNO=01 or 14 or 67.

:>Is such a thing possible? I tried using an instream proc definition and 
:>INCLUDE MEMBER= that proc name, but that failed, and of course, I tried 
:>the straight up JCL as above, and it failed.

:>What do you all think?

If you create a member for each DD statement,

 // INCLUDE MEMBER=TAB

should work fine. Or am I missing something?

//BLIP  PROC
//BLIP1 EXEC PGM=IEFBR14
// INCLUDE MEMBER=TABN  
//  PEND
//S1 EXEC BLIP,SFX=05   
++BLIP  PROC
++BLIP1 EXEC PGM=IEFBR14
++ INCLUDE MEMBER=TABN  
IEFC653I SUBSTITUTION JCL - MEMBER=TABN05   
XXTABN05 DD DUMMY       

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: What were the first models to support Dual Address Space?

2021-01-03 Thread Binyamin Dissen
I believe there also was a hardware assist for the 4341. I think that the 4381
had it. 

I have some recollection about the 370/168 but it may have been supported by
the PROGFLIH. I remember that SP1.3 was as slow as molasses on the test system
at Western Electric.



On Sun, 3 Jan 2021 17:14:18 -0500 WILLIAM H BLAIR 
wrote:

:>| Does  anybody remember the first models to support 
:>| Dual Address Space for MVS/SP Version 1? I'd like
:>| to add that to the wiki [[IBM System/370]] article. 
:>
:>In hardware, it was the 3033 (as well as the 3042 Attached Processor), as 
well as a hardware assist MES for the 3031. It was also, of course, also 
supported on the 3081 (and all processor models thereafter).If I remember 
correctly, this support was not offered for the 3032 in any form. 
:>
:>For additional information, refer to:
:> http://www.computinghistory.org.uk/downloads/8823
:>on page 114.
:>
:>In software, it was supported on any System/370. The ABENDs were intercepted 
by FLIH and the unsupported instructions and control registers emulated. 
:>
:>This worked on my 370/158 at the time (1980).

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Size of the Writable Static Area

2020-12-23 Thread Binyamin Dissen
DXD / CXD

On Wed, 23 Dec 2020 11:37:29 -0500 Joseph Reichman 
wrote:

:>I am writing my own prolog code (Metal C ).  From the GBL.. Global variables
:>produced by the complier I determine the size of the automatic variables

:>Register save area etc. So That I can determine how much Dynamic Storage I
:>need

:>I am wondering is there any way to determine the size of the writable static
:>area

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Binyamin Dissen
Silly question - can one force IDCAMS PRINT to show printable lower case
characters? 

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: RBOPSW question

2020-12-05 Thread Binyamin Dissen
Try using the field. Live and learn.

On Thu, 3 Dec 2020 15:21:24 -0500 Joseph Reichman 
wrote:

:>EXTENDED CONTROL PSW FROM THE RB
:>LEVEL OR LINKAGE STACK LEVEL WHICH
:>CREATED THE ESTAE EXIT AT THE TIME IT
:>LAST INCURRED AN INTERRUPT OR 0 FOR
:>ESTAI. OR PSW USED TO GIVE FRR
:>CONTROL
:>
:>
:>Trying to understand this Text this PSW SDWAEC2 is The from the RB which
:>created the ESTAE I guess my PRB 
:>It says at the time it last incurred interrupt (that interrupt was caused by
:>SDWARBAD ? )
:> 
:>-Original Message-
:>From: IBM Mainframe Discussion List  On Behalf Of
:>Binyamin Dissen
:>Sent: Thursday, December 3, 2020 2:56 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: RBOPSW question
:>
:>SDWAEC2
:>
:>On Thu, 3 Dec 2020 11:56:04 -0500 Joseph Reichman 
:>wrote:
:>
:>:>This question is related to recovery routines
:>
:>:>In the case there is SDWARBAD and SDWANAME is not there 
:>
:>:>So for example my program abended in a SVC 
:>
:>:>So RBOPSW is somewhere in that SVC
:>
:>:>The rbregs should be my program 
:>
:>:>But my question is would I have an address or could I determine from what
:>address in my program I called the SVC

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: RBOPSW question

2020-12-03 Thread Binyamin Dissen
SDWAEC2

On Thu, 3 Dec 2020 11:56:04 -0500 Joseph Reichman 
wrote:

:>This question is related to recovery routines

:>In the case there is SDWARBAD and SDWANAME is not there 

:>So for example my program abended in a SVC 

:>So RBOPSW is somewhere in that SVC

:>The rbregs should be my program 

:>But my question is would I have an address or could I determine from what 
address in my program I called the SVC

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


For those that use S99ERMSG .....

2020-11-24 Thread Binyamin Dissen
For those that use S88ERMSG, do you tend to process the IGDMCSMG directly or
do you use the call to IEFDB476 to 'format' it? 

As the block is pretty well defined,  why make the format call?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Running same stc in a LPAR

2020-11-22 Thread Binyamin Dissen
On Sun, 22 Nov 2020 08:08:52 +0400 Peter  wrote:

:>Is it possible for JES to allow to run two started task with the same name
:>in a LPAR(not sysplex).

Happens all the time.

:>One of a started task in our lpar is running two stc with same name but
:>second one notifies that this particular task is already active.

As you can see, it started and then decided to end because of the duplicate.
JES had nothing to do with it.

:>Is it a JES functionality to allow a task to run with same name or the
:>product which has the capability of running in duplicate as many times even
:>though it is initialised in one STC alone ?

Yes.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Finding the STEIN of another address space

2020-11-18 Thread Binyamin Dissen
ASSBISQN 

On Wed, 18 Nov 2020 18:04:26 - Lennie Dymoke-Bradshaw
<032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

:>I have some cross-memory code written many years ago.
:>It uses the ASVT to get the ASID of various address spaces and then uses the
:>ASID in a SSAR to establish a cross-memory link (having first issued an
:>AXSET AX=ONE).

:>All works fine until faced with an address space with a reusable ASID. Then
:>the SSAR gets a program check X'0013' and abends with a 0D3-0013 abend. This
:>is all documented in the extended addressability manual here.
:>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ie
:>aa500/ieaa500101.htm

:>So in order to correct my code I need to replace the SSAR instruction with
:>an SSAIR instruction, whenever the target address space is reusable. This
:>requires that I locate the STEIN (Second Table Entry Instance Number) of the
:>target address space and specify it as a SASTEIN in the high order 4 bytes
:>of the 64-byte register specified on the SSAIR instruction.

:>How can I find the STEIN of the target address space?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Metal C questions

2020-11-08 Thread Binyamin Dissen
"Register Contents 

0

Used as a work register by the system if SF is specified."

On Sun, 8 Nov 2020 18:52:58 -0500 Joseph Reichman 
wrote:

:>Here it is  GETMACIN is the METAL C prog
:>
:>
:>  283  MVC   DBGROFF,=F'0'
:> 284  LINKX EP=GETMACIN, 
:>PARAM=(MACINST,DBGROFF), 
:>MF=(E,(R8)),SF=(E,(R6))  
:> 290+ LR1,R8 
:> 291+ LA14,MACINST PICKUP
:> 292+ LA15,DBGROFF PICKUP
:>
:>
:>IKJ57310I BREAKPOINT AT OPENFILE HAS BEEN DEACTIVATED
:> IKJ57024I AT GETMACIN PROLOUGE   
:> TESTAUTH 
:>LISTPSW   
:> IKJ57652I PSW LOCATED AT 8B7C68  
:>   XRXXXTIE   KEY  XMWP  AS CC  PROGMASK  EA BA  INSTR ADDR   
:>   01118   1101  00 01 0  1   1FA4B3E0
:> TESTAUTH 
:>
:>thanks
:>
:>As you can see AS Address space control is 0 
:>-Original Message-
:>From: IBM Mainframe Discussion List  On Behalf Of
:>Binyamin Dissen
:>Sent: Sunday, November 8, 2020 6:42 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: Metal C questions
:>
:>On Sun, 8 Nov 2020 18:21:00 -0500 Joseph Reichman <mailto:reichman...@gmail.com> >
:>wrote:
:>
:>:>1.  I am using a far pointer to address a data space. I can see where
:>:>the access registerers are being initialized but I do not see a SAC 512.
:>My :>compile options has ARMODE
:>
:>:>I inserted __asm{ " SAC 512" }; to get it working
:>
:>Did you get an abend without it?
:>
:>:>2.  I am LINK'ing to the metal C program from an assemble program .
:>:>Register 0 (which is a pointer to the writable static area) is not
:>:>initialized. I have a RENT option. Is there anyway knowing the size of the
:>:>WSA Should be (I have read the documentation bot XL/C complier guide and
:>:>metal C programming guide not quite sure what the WSA area is in regards
:>to
:>:>reentrancy)
:>
:>What is the syntax of your LINK(x), i.e., show your code.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Metal C questions

2020-11-08 Thread Binyamin Dissen
On Sun, 8 Nov 2020 18:21:00 -0500 Joseph Reichman 
wrote:

:>1.I am using a far pointer to address a data space. I can see where
:>the access registerers are being initialized but I do not see a SAC 512. My
:>compile options has ARMODE

:>I inserted __asm{ " SAC 512" }; to get it working

Did you get an abend without it?

:>2.I am LINK'ing to the metal C program from an assemble program .
:>Register 0 (which is a pointer to the writable static area) is not
:>initialized. I have a RENT option. Is there anyway knowing the size of the
:>WSA Should be (I have read the documentation bot XL/C complier guide and
:>metal C programming guide not quite sure what the WSA area is in regards to
:>reentrancy)

What is the syntax of your LINK(x), i.e., show your code.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


REXX environment persistence

2020-11-08 Thread Binyamin Dissen
I have a REXX function which adds a host environment (and deletes it as well).

If the REXX does not call the DELETE but merely ends (there does not appear to
be a defined way to dynamically get control at the end of the EXEC) and the
session goes to READY, the next REXX invocation has the residual environment
defined.

I would not expect such persistence. Is it defined anywhere?

I attempted to update MODETABT to specify an EXECTERM (which also appears to
persist) but that did not get control.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Replacing the IRXTERM routine

2020-11-07 Thread Binyamin Dissen
I am referring to under TSO, where I have a function call establish the host
environment. I do not call IRXINIT directly (or at all).


On Sun, 8 Nov 2020 11:36:59 +1100 Attila Fogarasi  wrote:

:>Under TSO/E you must call IRXINIT with a module name table that specifies
:>your replacement module for IRXTERM.  Your replacement module can choose to
:>call IRXTERM (acting as a front-end filter), or not call IRXTERM at all.
:>For non-TSO/E environments there are some other ways.  There is a rather
:>long list of the replaceable modules that are allowed by Rexx, luckily it
:>includes IRXTERM.

:>On Sun, Nov 8, 2020 at 9:07 AM Binyamin Dissen 
:>wrote:

:>> I wrote a host environment and would like to receive control when the EXEC
:>> ends to clean up.

:>> I tried replacing the address IRXTERM in IRXEXTE but it does not receive
:>> control.

:>> This is under TSO.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Replacing the IRXTERM routine

2020-11-07 Thread Binyamin Dissen
I wrote a host environment and would like to receive control when the EXEC
ends to clean up.

I tried replacing the address IRXTERM in IRXEXTE but it does not receive
control.

This is under TSO.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

2020-10-19 Thread Binyamin Dissen
On Sat, 17 Oct 2020 18:04:38 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>On Sat, 17 Oct 2020 17:48:57 -0500, Steve Horein wrote:

:>>Good ole IDCAMS anyone?
:>>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.idai200/dgt3i231.htm
 
:>How might one delete a PDS member named "*   "?

Modify the program that created it. STOW D is easier than STOW A.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: SVC 99 035C

2020-10-17 Thread Binyamin Dissen
On Fri, 16 Oct 2020 18:03:52 -0400 Joseph Reichman 
wrote:

:>I am dynamically allocating a new file which has 14 test units. I am getting
:>a 035C meaning one them is erroneous the doc says that message   IKJ56231I
:>points me to the right text unit

:>I am running this under TEST. I allocated SYSOUT to the terminal DA(*). I
:>didn't see the message was wondering what file to allocate to DA(*) to see
:>the message

Yawn.

As always, show your code.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: INTRDR and submitted JobID

2020-10-14 Thread Binyamin Dissen
Refer to "Assembler Services Guide" "Obtaining a job identifier".

"Issue an ENDREQ macro after writing a complete job to the internal reader.
The job identifier is returned in the RPLRBAR field of the request parameter
list (RPL)."

On Wed, 14 Oct 2020 12:37:01 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>I see that the UNIX SUBMIT command shows the JobID of the submitted job.

:>What interface makes this available.  I suspect it's in JES or Assembler 
Services,
:>but I don't know how to find it.

:>At what point in processing is the submitted JobID available?:
:>o INTRDR OPEN?
:>o INTRDR CLOSE?
:>o somewhere in between?

:>I'm wondering whether when dynamically generating JCL the job's own
:>JobID is available for embedding in SYSIN or PARM for a later step.

:>I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
:>a job's own JobID.  Is there a simpler way?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Cbttape - dataset being used

2020-10-14 Thread Binyamin Dissen
On Wed, 14 Oct 2020 10:29:21 +0400 Jake Anderson 
wrote:

:>Are there any freeware utility in CBTTAPE to check if a specific dataset is
:>being used in parmlibs or proclib or by any batch ?

Your question is not super clear - what does "used" or "any batch" mean?

Obviously you can search thru all parmlibs and JES defined proclibs, but more
than that you will need to look at SMF - but that will only tell you about
what was read.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: ALERSERV delete from stimerm exit

2020-10-12 Thread Binyamin Dissen
On Mon, 12 Oct 2020 07:53:28 -0400 Peter Relson  wrote:

:>A "workunit" (AKA "dispatchable unit") to z/OS is a task or SRB.

:>Therefore a workunit is created when a task is created (ATTACH/ATTACHX) or 
:>an SRB is scheduled (SCHEDULE, IEAMSCHD).

ALESERV AL=WORKUNIT does not allow the ALET to be used for an IRB under the
same TCB.

Thus WORKUNIT means something else.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: ALERSERV delete from stimerm exit

2020-10-11 Thread Binyamin Dissen
On Fri, 9 Oct 2020 09:08:54 -0400 Peter Relson  wrote:

:>>if there is any restriction on deleting an ALET entry
:>>(ALESERV DELETE) from a STIMERM exit

:>It is not a "restriction", it is a "does not make sense" situation. It 
:>goes well beyond "delete".

:>IRBs (STIMERM exits being one such) do not get control with the access 
:>list that their "mainline" (the STIMERM issuing code) had.
:>You cannot use an ALET not on your access list. You cannot delete an ALET 
:>not on your access list.

:>If you had tried to reference storage using that ALET while within the 
:>STIMERM exit you would have gotten a program interrupt.

Peter,

I have looked in various manuals and did not find a clear definition of when a
new "workunit" is created. My assumption from this thread was that an IRB
created one, but I wonder if there are other occasions. It would not have been
obvious to me that an IRB would not inherit the workunit of the TCB.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Does SAS support LE modules in the CALL MODULE statement?

2020-10-11 Thread Binyamin Dissen
Does SAS support LE modules in the CALL MODULE statement? 

I have been searching the doc and see no reference to LE.

 Is it possible that such subroutines are not supported?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: SVC 99 unallocating a concatenated dataset

2020-10-01 Thread Binyamin Dissen
On Thu, 1 Oct 2020 07:58:56 -0400 Joseph Reichman 
wrote:

:>I allocate a number of datasets the last text unit being DALCLOSE
:>(unallocated on close)  In my  second step I concatenate the datasets. At
:>EOF I  close them after wards Ideconcatenate them My question is
:>shouldn't the individual datasets be unallocated as well

What happens when you, thru JCL, concat several datasets with FREE=CLOSE?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: PDS86 SHR?

2020-09-22 Thread Binyamin Dissen
On Tue, 22 Sep 2020 12:37:46 -0500 Skippy the Ancient 
wrote:

:>There is a dataset missing a member.  PDS86 won't play with it because it 
allocated to an STC.
:>Is it possible to invoke PDS86 so it doesn't allocate the DSN as OLD?

Use the SHR keyword?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: JCL examination prior to execution

2020-09-22 Thread Binyamin Dissen
IEAVTABX.

Real time, when there is a dump. 

Check if SYSMDUMP is to SYSOUT, and then suppress it.

On Tue, 22 Sep 2020 12:11:43 + Mark Jacobs
<0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote:

:>We have developers who put SYSMDUMP output to SYSOUT rather than a dataset. 
I'm looking at ways to prevent those jobs from executing until they make JCL 
changes. Are there any other exits, processes other than a JES2 exit (looking 
at exit 6/60) to do so?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: STIMERM SVCE

2020-09-21 Thread Binyamin Dissen
On Mon, 21 Sep 2020 14:56:21 -0400 Pierre Fichaud  wrote:

:>Yes, that address points after 0A2F.

Is it your code?

:>I've pasted more of the trace table but it has wrapped.

Not enough to just use it.

I presume you have a dump.

Is the linkage stack as you expect it to be?

Are the registers as you expect them to be?

What code owns the FRR?


:>Regards, Pierre.
:>
:>  0001 0043 007CE938  PC ...   600_01736592 0131F 
:>closedir/close
:>   0001 0043 007CE938  PC ...   000_1CE632C8 03504
:>   0001 0043 007CE938  PR ...   600_1CE632C8 
:>00_19382724 000F
:>   0001 0043 007CE938  SSRV78  8465F0B6  1000D770 0DF0 
:>7E47B210  Getmain D88E36C70B2C6E08   0024
:> 000F
:>   0001 0043 007CE938  PC ...   0  1896F0BE  0030B 
:> Storage  Obtain
:>   0001 0043 007CE938  SSRV   132    0002 03D0 
:>1CD2C000  Storage  Obtain D88E36C70B2C9AE4   0024
:> 000F
:>   0001 0043 007CE938  PR ...   0  1896F0BE 0133F7E8 
:>   000F
:>   0001 0043 007CE938  SSAR   ... 0043 
:>0043
:>   0001 0043 007CE938  SSAR   ... 0043 
:>0043
:>   0001 0043 007CE938  PC ...   0  1896F448  0030F 
:> Estaex
:>   0001 0043 007CE938  PR ...   0  1896F448 017A8626 
:>   000F
:>   0001 0043 007CE938  PC ...   0  1896F49C  00311 
:> Storage  Release
:>   0001 0043 007CE938  SSRV   133    0003 03D0 
:>1CD2C000  Storage  ReleaseD88E36C70B2CC618   0024
:> 000F
:>   0001 0043 007CE938  PR ...   0  1896F49C 0133F7E8 
:>   000F
:>   0001 0043 007CE938  PC ...   0  0465F90A  00700 
:> SMF
:>   0001 0043 007CE938  PR ...   0  0465F90A 1AA016D0 
:>   000F
:>   0001 0043 007CE938  SSRV78  846604E0  D703 0DF0 
:>7E47B210  FreemainD88E36C70B2CE90A   0024
:> 000F
:>   0001 0043 007CE938  PR ...   000_01736592 
:>00_1AB24A2E 0043
:>   0001 0043 007CE938  PC ...   000_18E800D6 0030F 
:> Estaex
:>   0001 0043 007CE938  PR ...   000_18E800D6 017A8626 
:>   0043
:>   0001 0043 007CE938  PR ...   6  1ABDCD7B   00_18E72CAE 
:>   0043
:>   0001 0043 007CE938  EXT   TIMR _00FF9D08  1005 
:>   0043 0043 D88E36C70B2D6DA2   0024
:>  07852000 8000 
:> 
:>   0001 0043 007CE938 *SVCE2F _1AAFC3AE  0014 0400 
:>1AC25260    0043 0043 D88E36C70B2D9EAC   0024
:>  0785 8000  0080 
:> 
:>   0001 0043 007CE938  SSRV78  815BAAFA  4000EF50 0A28 
:>00F92130  Getmain D88E36C70B2FD3C6   0024
:> 0001
:>   0001 0043 007CE938 *RCVY  FRR  070C 8465F9D4  840F8000 0014 
:>    000F 0043 D88E36C70B31778C   0024
:> 
:>0002  
:>   0001 0043 007CE938  EXT   TIMR _0465F9D4  1005 
:>   000F 0043 D88E36C70B317B20   0024
:>  0704 8000 
:> 
:>   0001 0043 007CE938  PGM011 _0465FA0A  00040011  
:>   000F 0043 D88E36C70B318A34   0024
:>  0704 8000   7E47B800 
:>     
:>   0001 0043 007CE938 *RCVY  PROG940C4000 0011 
:>    000F 0043 D88E36C70B321236   0024
:> 
:> 
:>
:>On 2020-09-21 2:42 p.m., Binyamin Dissen wrote:
:>> me,
:>> you should preauthorize the dissensoftware.com domain.
:>> 
:>> I very rarely bother responding to challenge/response systems,
:>> especially those from irresponsible companies.
:>> 
:>> --
:>> For IBM-MAIN subscribe / signoff / archive access instructions,
:>> send email tolists...@listserv.ua.edu  with the message: IN
:>
:>---

Re: STIMERM SVCE

2020-09-21 Thread Binyamin Dissen
SETFRR does not show up in the trace table.

I would not expect the ECT1005 to be immediately followed by an SVC 2F.

What is around 1AAFC3AE? Your code?

You have removed too much of the trace.

On Mon, 21 Sep 2020 10:11:05 -0500 Pierre Fichaud  wrote:

:>I have a sub-task that issues TCPIP calls using EZASMI (connect,send,etc)
:>I set an ESTAE.
:>Then in a STIMERM loop, I issue a connect.
:>The STIMERM popped once and then I tried to send() unsuccessfully.
:>I go back to do the STIMERM and blow up.
:>
:>I get an abend SVCE stating that I tried issuing the STIMERM SVC while an EUT 
FRR was active.
:>Nowhere do I set an FRR.
:>
:>The 1st system trace table entry shown below is a return to 1ABDCD7A which 
happens to be in BPXINVPT (10/27/17 UA94165).
:>The SETFRR must have been done in ASID 000F (OMVS).
:>There is no SETFRR in the system trace table.
:>The system runs in Dallas at DFW.
:>I'm not sure what to do next.
:>Suggestions ?
:>Thanks in advance, Pierre.
:>
:>
:>  0001 0043 007CE938  PR ...   6  1ABDCD7B   00_18E72CAE  
0043
:>  0001 0043 007CE938  EXT   TIMR _00FF9D08  1005  
    0043 0043 D88E36C70B2D6DA2   0024
:> 07852000 8000
  
:>  0001 0043 007CE938 *SVCE2F _1AAFC3AE  0014 0400 
1AC25260    0043 0043 D88E36C70B2D9EAC   0024
:> 0785 8000  0080  
  
:>  0001 0043 007CE938  SSRV78  815BAAFA  4000EF50 0A28 
00F92130  Getmain D88E36C70B2FD3C6   0024
:>0001
:>  0001 0043 007CE938 *RCVY  FRR  070C 8465F9D4  840F8000 0014 
    000F 0043 D88E36C70B31778C   0024
:>  
0002  
:>  0001 0043 007CE938  EXT   TIMR _0465F9D4  1005  
    000F 0043 D88E36C70B317B20   0024
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: rename a dataset in acs routine?

2020-09-18 Thread Binyamin Dissen
On Fri, 18 Sep 2020 02:36:24 -0500 Brian Westerman
 wrote:

:>I was asked a question today that I honestly don't know how to answer.  The 
programmer has a (very large) series of jobs that generate fiche tapes that get 
created and have a expiration date but never are cataloged (because they all 
have exactly the same DSN).  So over time, they ended up with about 30,000 
tapes from the over 9,000 jobs that CA-1 keeps around until expiration date.  
Obviously, these are not the easiest datasets to use later because they need to 
look up the tape volser every time.

:>The problem is that they want to know if there is a way to automatically 
catalog datasets at creation time, to which I told them we could, but only 1 of 
them because you can't catalog two datasets with the same name.  But they want 
to have "the system" which I'm guessing is me :), dynamically rename these 
datasets at creation time to add a date and time, such as change HLQ.FICHE.TAPE 
to which I would dynamically make it HLQ.FICHE.TAPE.D091720.T1123, meaning 
today's date and the current time (if it was 11:23am).

:>I can't think of a way to do that in an acs routine, or any other simple way, 
and I'm hoping that someone has an idea that might apply here.  I think I can 
alter almost anything about the dataset, except the name.  Is there something I 
am missing?

That is what GDG's were built for.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Searching MLPA module

2020-09-18 Thread Binyamin Dissen
On Fri, 18 Sep 2020 07:43:21 +0400 Peter  wrote:

:>Is there any utility which can help to search the loaded MLPA module ?  Is
:>it possible to load MLPA dynamically by avoiding IPL?(apology if this a
:>ignorant question)

:>We have a product which loads via MLPA and we just trying to understand if
:>it's possible to load it dynamically without the need of IPL

:>Any advice on this is much appreciated

You must also confirm that the original address is not saved somewhere and
that the caller will always load the module.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Syncsort E15 not receiving records

2020-09-15 Thread Binyamin Dissen
On Mon, 14 Sep 2020 22:54:46 + "Farley, Peter x23353"
<031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:

:>E15 does NOT have to provide all data to the sort.

Depends on how SORT is called. Sometimes it does.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Syncsort E15 not receiving records

2020-09-14 Thread Binyamin Dissen
On Mon, 14 Sep 2020 12:56:21 -0400 Joseph Reichman 
wrote:

:>I have a really stupid question in chapter 6 of the syncsort manual invoking 
syncsort from a program on the second page of that chapter there is listed DD 
statements for invoked sort merge. There is listed sortin as one of the DD 
statements. If I am doing the reading then when does it have to be called sortin

It doesn't.

In fact, the input data need not be read from a file. It can be data from
memory, a DB2 table, etc.

:>> On Sep 14, 2020, at 12:47 PM, Binyamin Dissen  
wrote:
 
:>> ?On Mon, 14 Sep 2020 11:29:54 -0400 Joseph Reichman 
:>> wrote:
 
:>> :>I have a VB file I’m trying to process 
:>> :>I calling syncsort from a program and have a E15 exit 
 
:>> :>I’m running this all under test to get the kinks out 
 
:>> :>The first time The exit is invoke Register one 
:>> :>At +0 is 0 meaning I am not selecting anything. I checked by include and 
it looks right. I wondering about the record statement. I gave it coded as such
 
:>> :>RECORD TYPE=V,LENGTH=(31996,,,8) would this record control statement get 
me every record on SORTIN
 
:>> It would depend on how you are calling SORT, but if you pass an E15 address
:>> SORT will not read SORTIN - you code is responsible for providing the 
records.
:>> You must provide a record address with R15=12 until you are done providing 
the
:>> input, in which case you pass R15=8.

:>> Always best to read the manuals.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Syncsort E15 not receiving records

2020-09-14 Thread Binyamin Dissen
On Mon, 14 Sep 2020 11:29:54 -0400 Joseph Reichman 
wrote:

:>I have a VB file I’m trying to process 
:>I calling syncsort from a program and have a E15 exit 

:>I’m running this all under test to get the kinks out 

:>The first time The exit is invoke Register one 
:>At +0 is 0 meaning I am not selecting anything. I checked by include and it 
looks right. I wondering about the record statement. I gave it coded as such

:>RECORD TYPE=V,LENGTH=(31996,,,8) would this record control statement get me 
every record on SORTIN

It would depend on how you are calling SORT, but if you pass an E15 address
SORT will not read SORTIN - you code is responsible for providing the records.
You must provide a record address with R15=12 until you are done providing the
input, in which case you pass R15=8.

Always best to read the manuals.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: PL/I support of vector instructions?

2020-09-09 Thread Binyamin Dissen
On Wed, 9 Sep 2020 17:16:22 +1000 Robin Vowels  wrote:

:>On 2020-09-09 14:53, Seymour J Metz wrote:
:>> Has IBM announced an intention to support the vector instructions to
:>> allow more precision for FIXED DEC and FIXED BIN in PL/I?

:>FIXED DECIMAL gives you up to 31 digits.
:>FIXED BINARY gives you up to 63 bits.

:>How much do you need?

Never more than 16M. Or 4 computers worldwide.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: can DIE routines invoke macro's using linkage=system

2020-09-09 Thread Binyamin Dissen
If it supports being disabled, why not|?

On Tue, 8 Sep 2020 20:47:30 -0400 Joseph Reichman 
wrote:

:> 
:>
:>thanks

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Strange S0C4 on z15

2020-08-19 Thread Binyamin Dissen
Fetch-protection-override (cr0.38) allowed the OS to put fetch protection on
page0 while allowing (legacy) access to 0-2047. 

Don't know which hardware level allowed exploitation.

 On Wed, 19 Aug 2020 19:11:33 + "Christopher Y. Blaicher"
 wrote:

:>We have a program that ran fine on a z13 that now gets an S0C4 on a z15.
:>On a z13 we could access data in the PSA in the 2048 to 4095 range without 
going into key 0.  The specific field is PSASVT.
:>To get to that data now, we have to do a MODESET to key zero.
:>Anyone else find this as a problem?  Was it there with a z14?  We jumped from 
a z13 to a z15.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


What is the SDATA option to include above the bar storage for a particular job?

2020-08-17 Thread Binyamin Dissen
What is the SDATA option to include above the bar storage for a particular
job?

It should be obvious, but I am missing it.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Basic ESTAE and subtask question

2020-07-30 Thread Binyamin Dissen
On Thu, 30 Jul 2020 11:08:36 -0700 Charles Mills  wrote:

:>I am trying to grasp the implications of "any recovery routines defined for
:>the originating task are propagated to the new
:>Task" in the ATTACH documentation. (It's under STAI/ESTAI but it's not clear
:>to me if it only applies when STAI or ESTAI is in effect.)

:>Here's my question:

:>A main program issues ESTAEX (exit addr != 0). It then issues an ATTACHX
:>with no STAI or ESTAI. While the subtask is still running the user cancels
:>the program. Question: will the ESTAEX exit be driven once (only for the
:>main task) or twice (for the main task and also as "propagated to the new
:>Task")?

ESTAE(X) only applies to the task issuing it, not to subtasks.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


DISPLAY DUMP,ERRDATA rant

2020-07-24 Thread Binyamin Dissen
Isn't it about time that the 64 bit registers and ARs be included in the
display? The 64 bit EPSW is shown.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Subject: Subject: Re: Where, oh where, is the IRB?

2020-07-12 Thread Binyamin Dissen
Thanks. Used a different TCB and all is well.

On Sun, 12 Jul 2020 17:05:27 + Jim Mulder
<030bfaf36c30-dmarc-requ...@listserv.ua.edu> wrote:

:>Yes, that will defer the dispatching of IRBs.

:>Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie 
NY 

:>| TCB has a saved EUT FRR, saved by|| WAIT 
,LINKAGE=SYSTEM,EUT=SAVE|| That means that an IRB cannot run on the TCB?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Subject: Subject: Re: Where, oh where, is the IRB?

2020-07-12 Thread Binyamin Dissen
TCB has a saved EUT FRR, saved by

 WAIT   ,LINKAGE=SYSTEM,EUT=SAVE

That means that an IRB cannot run on the TCB?

On Sun, 12 Jul 2020 16:23:19 + Jim Mulder
<030bfaf36c30-dmarc-requ...@listserv.ua.edu> wrote:

:> Various things can prevent dispatching an IRB.For example: TCBFX, TCBNOIRB, 
TCB has an EUT FRR, TCBPMC. Jim Mulder z/OS Diagnosis, Design, Development, 
Test IBM Corp. Poughkeepsie NY


--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Where, oh where, is the IRB?

2020-07-12 Thread Binyamin Dissen
No CIRB.

SCHEDIRB EPPTR=@IRBRTN,TCBPTR=CURRTCB,MODE=SUPR,KEY=SUPR, 
  PARAMPTR=@#HWORK,MF=(E,OSCHEDIRB,COMPLETE)  

When I took a trap after the SCHEDIRB, I saw that 

ASXBFIQE/ASXBLIQE were set:

IQE is 

 007AAFE8    7F4B5D10   | ".). |
007AAFF0   007AAF88   007B2528         | .:.h.#.. | 
IRB is 

 007AAF88.:7AAF8F.--All bytes contain X'00'   
 007AAF90   0013400E   FF4B5EE1   070C      | .. ...;. |  
 007AAFA0.:7AAFDF.--All bytes contain X'00'   
 007AAFE0            7F4B5D10   | ".). |  
 007AAFF0   007AAF88   007B2528         | .:.h.#.. |  

No idea what the 0013400E means.

EPA is 7F4B5EE0 - do not know when the leading/trailing bit means.

And, after the SRB ends the IQE is still hanging in the ASXB and has not been
dispatched. 

The only non-dispatchability indicator is top RB in wait.

What else may explain non-dispatchability?



On Sun, 12 Jul 2020 00:24:18 + Seymour J Metz  wrote:

:>Post the code. Set a SLIP in the SRB routine where you issue the SCHEDIRB.
:>
:>Are you allocating your own IQE/IRB? If so, post the CIRB code.
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Saturday, July 11, 2020 7:44 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Where, oh where, is the IRB?
:>
:>I issue an IEAMSCHD to and address space which then issues a SCHEDIRB.
:>
:>The SRB completes, the SCHEDIRB receives R15=0, but the IRB seems to have
:>vanished without a trace.
:>
:>Considering the possibility of an abend, I issued a
:>
:> SLIP,C=XXX,ML=10,J=targetjob,A=SVCD,END
:>
:>but nothing hits (it did hit when clearing up bugs in the SRB).
:>
:>Looking in memory at the shared data are between the SRB and IRB I see that
:>the IRB has not placed its footprint.
:>
:>I searched in the jobs memory for the EP of the IRB routine (maybe it is
:>queued somewhere) and do not find it.
:>
:>The TCB address to which it should be queued is dispatchable (top RB in a
:>wait).
:>
:>What might I have done wrong?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Where, oh where, is the IRB?

2020-07-11 Thread Binyamin Dissen
I issue an IEAMSCHD to and address space which then issues a SCHEDIRB.

The SRB completes, the SCHEDIRB receives R15=0, but the IRB seems to have
vanished without a trace.

Considering the possibility of an abend, I issued a 

 SLIP,C=XXX,ML=10,J=targetjob,A=SVCD,END

but nothing hits (it did hit when clearing up bugs in the SRB).

Looking in memory at the shared data are between the SRB and IRB I see that
the IRB has not placed its footprint.

I searched in the jobs memory for the EP of the IRB routine (maybe it is
queued somewhere) and do not find it.

The TCB address to which it should be queued is dispatchable (top RB in a
wait).

What might I have done wrong?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: [External] Silly ISMF question

2020-07-11 Thread Binyamin Dissen
Correct.

Thanks.

On Fri, 10 Jul 2020 21:19:04 -0500 David Shackelford 
wrote:

:>I think you need to clear the "Storage Group Name" and "CDS Name" fields when 
switching back from SMS to physical list.
:>The field help for option 1 says those fields must be cleared.  (put cursor 
on the 1 and hit F1).
:>I checked this on an internal test system and recreated both the symptom of 
the volumes missing from the list, and a full list with those fields cleared.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: [External] Silly ISMF question

2020-07-09 Thread Binyamin Dissen
No, no and no



   Panel  Defaults  Utilities  Scroll  Help
ss
VOLUME SELECTION ENTRY PANEL  Page 1 of 3
 Command ===>   Select Source to Generate Volume List  . . 2  (1 - Saved list,
2 - New list)1  Generate from a Saved List Query Name To
List Name  . .   Save or Retrieve2  Generate a New List
from Criteria Below Specify Source of the New List  . . 1  (1 -
Physical, 2 - SMS) Optionally Specify One or More: Enter "/"
to select option  Generate Exclusive list   Type of Volume List .
. . 1  (1-Online,2-Not Online,3-Either)
  Volume Serial Number  . . *  (fully or partially specified)
Device Type . . . . . . .(fully or partially specified)
Device Number . . . . . .(fully specified) To Device
Number  . . .(for range of devices)   Acquire Physical
Data . . Y  (Y or N)   Acquire Space Data  . . . Y  (Y
or N)   Storage Group Name  . . . *  (fully or partially
specified)   CDS Name . . . . . . . 'ACTIVE'
(fully specified or 'Active')  Use ENTER to Perform Selection; Use DOWN
Command to View next Selection Panel;
 Use HELP Command for Help; Use END Command to Exit.  
On Thu, 9 Jul 2020 20:03:33 + "Pommier, Rex" 
wrote:

:>Obvious questions would be 
:>
:>1) do you have some kind of filter on screens 2 or 3 of the selection 
criteria?
:>2) old CDS name?
:>3) using a saved list instead of generating a new one for the source?
:>
:>If none of these things are it, may I suggest showing us your volume 
selection entry panel?
:>
:>Rex
:>
:>-Original Message-----
:>From: IBM Mainframe Discussion List  On Behalf Of 
Binyamin Dissen
:>Sent: Thursday, July 9, 2020 2:35 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: [External] Silly ISMF question
:>
:>I am running ISMF to get a list of volumes (2.1) and many volumes are missing 
from the list. I ran thru all of the options and don't see any filters.
:>
:>What obvious thing am I doing wrong? It worked a few days ago, when I set SMS 
as the source of the list. I reset it to physical but still only SMS.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Silly ISMF question

2020-07-09 Thread Binyamin Dissen
I am running ISMF to get a list of volumes (2.1) and many volumes are missing
from the list. I ran thru all of the options and don't see any filters.

What obvious thing am I doing wrong? It worked a few days ago, when I set SMS
as the source of the list. I reset it to physical but still only SMS.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Assembler question

2020-07-06 Thread Binyamin Dissen
Then one wonders what "aligned" means to you.

On Mon, 6 Jul 2020 02:37:22 + "Gibney, Dave"  wrote:

:>Actually, it is. But,  BLA-2 below is still offset 3 bytes from BLA-RECORD 
because BLA-1 is only 3 bytes long
:>
:>> -Original Message-
:>> From: IBM Mainframe Discussion List  On
:>> Behalf Of Joe Monk
:>> Sent: Sunday, July 05, 2020 4:38 PM
:>> To: IBM-MAIN@LISTSERV.UA.EDU
:>> Subject: Re: Assembler question
:>> 
:>> 01 BLA-RECORD.
:>> 05 BLA-RECORD PIC X(4).
:>> 05 BLA-RECOR2 REDEFINES BLA-RECORD PIC X(3).
:>> 
:>> The 01 is aligned.
:>> The 05 is aligned.
:>> The second 05 is not aligned.
:>> 
:>> Joe
:>> 
:>> 
:>> On Sun, Jul 5, 2020 at 6:27 PM Binyamin Dissen
:>> 
:>> wrote:
:>> 
:>> > 01   BLA-RECORD.
:>> >05   BLA-1  PIC X(3).
:>> >05   BLA-2  PIC S9(8) COMP.
:>> >
:>> > Do you truly wish to assert that BLA-2 is aligned?
:>> >
:>> > On Sun, 5 Jul 2020 17:45:37 -0500 Joe Monk 
:>> wrote:
:>> >
:>> > :>"Subordinate items are not aligned"
:>> > :>
:>> > :>yeah, no.
:>> > :>
:>> > :>If an 01 is aligned, then the subordinate 05 under the 01 is also
:>> > aligned.
:>> > :>It has to be this way because of REDEFINES. I cant REDEFINE an unaligned
:>> > :>item into an aligned item.
:>> > :>
:>> > :>77 are aligned because they are standalone, i.e. no grouping.
:>> > :>
:>> > :>Joe
:>> > :>
:>> > :>On Sun, Jul 5, 2020 at 12:07 PM Binyamin Dissen <
:>> > bdis...@dissensoftware.com>
:>> > :>wrote:
:>> > :>
:>> > :>> On Sun, 5 Jul 2020 11:31:55 -0500 Joe Monk
:>> 
:>> > wrote:
:>> > :>>
:>> > :>> :>Cobol has alignment too. You just dont see it.
:>> > :>>
:>> > :>> :>All storage is aligned.
:>> > :>>
:>> > :>> The opposite is true.
:>> > :>>
:>> > :>> Group (01/77) are aligned.
:>> > :>>
:>> > :>> Subordinate items are not aligned unless the SYNC clause is specified.
:>> > :>>
:>> > :>> :>On Sun, Jul 5, 2020 at 10:24 AM Nguyen Dt 
:>> wrote:
:>> > :>> :>
:>> > :>> :>> Thank you all for your inputs,
:>> > :>> :>>
:>> > :>> :>> I am over the problem now.
:>> > :>> :>> In fact what i tried to do is to Move some fields to my output
:>> > fields
:>> > :>> and
:>> > :>> :>> then write it as a report. (It is a Db2 performance report, the
:>> > input
:>> > :>> are
:>> > :>> :>> from the trace buffers with the macros given by Db2 libraries)
:>> > :>> :>>
:>> > :>> :>> So my program is roughly like this
:>> > :>> :>> READ Buffer on QW... variables
:>> > :>> :>>
:>> > :>> :>> MVC OW...,QW...
:>> > :>> :>>
:>> > :>> :>>
:>> > :>> :>> OW... are the output fields i defined it exactly as in the DSECT
:>> > got
:>> > :>> from
:>> > :>> :>> the macros.
:>> > :>> :>> As it is an output field, the position is important  (and it is
:>> > why i
:>> > :>> :>> detected a problem in the positions of my fields)
:>> > :>> :>> Its is OK now with OW... variables defined as characters CLx
:>> > :>> :>>
:>> > :>> :>> (PS: When i use NOALIGN , the program abends at execution ...)
:>> > :>> :>>
:>> > :>> :>> As i learn assembler "on the flight" , there is some important
:>> > things
:>> > :>> that
:>> > :>> :>> i don' t understand , such as the alignment  This is something
:>> > we
:>> > :>> don't
:>> > :>> :>> care in cobol , rexx  Can you tell me why assembler has the
:>> > :>> alignment
:>> > :>> :>> in words that are easy to understand and visualize in my little
:>> > head ?
:>> > :>> :>>
:>> > :>> :>> Thank you again.
:>> > :>> :>> Duc
:>> > :>> :>>
:>> > :>> :>>
:>> > -

Re: Assembler question

2020-07-05 Thread Binyamin Dissen
01   BLA-RECORD.
   05   BLA-1  PIC X(3).
   05   BLA-2  PIC S9(8) COMP.

Do you truly wish to assert that BLA-2 is aligned?

On Sun, 5 Jul 2020 17:45:37 -0500 Joe Monk  wrote:

:>"Subordinate items are not aligned"
:>
:>yeah, no.
:>
:>If an 01 is aligned, then the subordinate 05 under the 01 is also aligned.
:>It has to be this way because of REDEFINES. I cant REDEFINE an unaligned
:>item into an aligned item.
:>
:>77 are aligned because they are standalone, i.e. no grouping.
:>
:>Joe
:>
:>On Sun, Jul 5, 2020 at 12:07 PM Binyamin Dissen 
:>wrote:
:>
:>> On Sun, 5 Jul 2020 11:31:55 -0500 Joe Monk  wrote:
:>>
:>> :>Cobol has alignment too. You just dont see it.
:>>
:>> :>All storage is aligned.
:>>
:>> The opposite is true.
:>>
:>> Group (01/77) are aligned.
:>>
:>> Subordinate items are not aligned unless the SYNC clause is specified.
:>>
:>> :>On Sun, Jul 5, 2020 at 10:24 AM Nguyen Dt  wrote:
:>> :>
:>> :>> Thank you all for your inputs,
:>> :>>
:>> :>> I am over the problem now.
:>> :>> In fact what i tried to do is to Move some fields to my output fields
:>> and
:>> :>> then write it as a report. (It is a Db2 performance report, the input
:>> are
:>> :>> from the trace buffers with the macros given by Db2 libraries)
:>> :>>
:>> :>> So my program is roughly like this
:>> :>> READ Buffer on QW... variables
:>> :>>
:>> :>> MVC OW...,QW...
:>> :>>
:>> :>>
:>> :>> OW... are the output fields i defined it exactly as in the DSECT got
:>> from
:>> :>> the macros.
:>> :>> As it is an output field, the position is important  (and it is why i
:>> :>> detected a problem in the positions of my fields)
:>> :>> Its is OK now with OW... variables defined as characters CLx
:>> :>>
:>> :>> (PS: When i use NOALIGN , the program abends at execution ...)
:>> :>>
:>> :>> As i learn assembler "on the flight" , there is some important things
:>> that
:>> :>> i don' t understand , such as the alignment  This is something we
:>> don't
:>> :>> care in cobol , rexx  Can you tell me why assembler has the
:>> alignment
:>> :>> in words that are easy to understand and visualize in my little head ?
:>> :>>
:>> :>> Thank you again.
:>> :>> Duc
:>> :>>
:>> :>> --
:>> :>> 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
:>>
:>> --
:>> Binyamin Dissen 
:>> http://www.dissensoftware.com
:>>
:>> Director, Dissen Software, Bar & Grill - Israel
:>>
:>>
:>> Should you use the mailblocks package and expect a response from me,
:>> you should preauthorize the dissensoftware.com domain.
:>>
:>> I very rarely bother responding to challenge/response systems,
:>> especially those from irresponsible companies.
:>>
:>> --
:>> 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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Assembler question

2020-07-05 Thread Binyamin Dissen
On Sun, 5 Jul 2020 11:31:55 -0500 Joe Monk  wrote:

:>Cobol has alignment too. You just dont see it.

:>All storage is aligned.

The opposite is true.

Group (01/77) are aligned.

Subordinate items are not aligned unless the SYNC clause is specified.

:>On Sun, Jul 5, 2020 at 10:24 AM Nguyen Dt  wrote:
:>
:>> Thank you all for your inputs,
:>>
:>> I am over the problem now.
:>> In fact what i tried to do is to Move some fields to my output fields and
:>> then write it as a report. (It is a Db2 performance report, the input are
:>> from the trace buffers with the macros given by Db2 libraries)
:>>
:>> So my program is roughly like this
:>> READ Buffer on QW... variables
:>>
:>> MVC OW...,QW...
:>>
:>>
:>> OW... are the output fields i defined it exactly as in the DSECT got from
:>> the macros.
:>> As it is an output field, the position is important  (and it is why i
:>> detected a problem in the positions of my fields)
:>> Its is OK now with OW... variables defined as characters CLx
:>>
:>> (PS: When i use NOALIGN , the program abends at execution ...)
:>>
:>> As i learn assembler "on the flight" , there is some important things that
:>> i don' t understand , such as the alignment  This is something we don't
:>> care in cobol , rexx  Can you tell me why assembler has the alignment
:>> in words that are easy to understand and visualize in my little head ?
:>>
:>> Thank you again.
:>> Duc
:>>
:>> --
:>> 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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Assembler question

2020-07-04 Thread Binyamin Dissen
Incorrect.

STCK does not show such a restriction.

On Sat, 4 Jul 2020 23:39:44 + Seymour J Metz  wrote:

:>> (Do CCWs still require doubleword alignment?  PSWs?  STCK?  CDS?)
:>
:>Yes.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Migrate z/OS DASD volumes from Mainframe to Hercules Environment

2020-06-30 Thread Binyamin Dissen
Have you complied with the licensing requirements?

On Tue, 30 Jun 2020 05:25:23 -0500 Jasi Grewal  wrote:

:>I am sorry I am just learning Hercules Systems and trying to migrate one of 
my z/OS DASD Systems from Mainframe to Hercules Environment.
:>I have z/VM running on Hercules but when I tries to IPL z/OS it seems that 
there is a corruption and that is most probably cause of wrong process.

:>I believe that there must be some method to migrate the z/OS DASD from 
Mainframe to Hercules.
:>I used z/VM DDR+Terse to migrate zOS Dasd but I don't think that is the 
correct process.
:>Is there a Documentation in how to migrate z/OS Systems to Hercules? That 
would be appreciated.

:>Any guidance would be appreciated.
:>Thank you in advance,
:>Regards,

:>Jasi Grewal.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Use of BPXWUNIX and CP - a weekend quandary.

2020-06-28 Thread Binyamin Dissen
On Sun, 28 Jun 2020 09:09:43 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>The REFRESH key is better: less disruptive.  ATTN is *so* 20th Century.

The ATTN key merely notifies the monitor that the user wants control. It is
not disruptive unless that is what the monitor is supposed to do. The monitor
can let things keep running while soliciting input.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Use of BPXWUNIX and CP - a weekend quandary.

2020-06-28 Thread Binyamin Dissen
On Sat, 27 Jun 2020 23:15:51 -0500 Bruce Hewson 
wrote:

:>The reason for this behavior is that TSO/VTAM provides no way to wait for 
keyboard input and TTY output at the same time under TSO.

Yes, it can. Use the ATTN/PA1 key to get the opportunity to enter something.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: DB2 View issue

2020-06-25 Thread Binyamin Dissen
I question that. What do you see there?

On Thu, 25 Jun 2020 20:12:41 +0300 saurabh khandelwal
 wrote:

:>I tried this too. But doenst have view create definition
:>
:>On Thu, 25 Jun 2020, 11:54 Ron Hesketh,  wrote:
:>
:>> Hi Suarabh,
:>> Try the Statement column in SYSIBM.SYSVIEWS.
:>>
:>> Regards,
:>>   Ron
:>>
:>> -Original Message-
:>> From: IBM Mainframe Discussion List  On Behalf
:>> Of saurabh khandelwal
:>> Sent: Wednesday, 24 June 2020 6:44 PM
:>> To: IBM-MAIN@LISTSERV.UA.EDU
:>> Subject: DB2 View issue
:>>
:>> Dear Group,
:>>
:>>
:>>
:>> In Db2 v12, when I like to see the view definition and I look at column
:>> “TEXT” in catalog table SYSIBM.SYSVIEWS, it is blank.
:>>
:>>
:>>
:>>
:>>
:>>
:>>
:>> Which was available in previous versions on DB2.
:>>
:>>
:>>
:>> Now, requirement is to see the view definition used during creating this
:>> view. Can anyone help me get this detail in Db2 v12.
:>>
:>> --
:>> For IBM-MAIN subscribe / signoff / archive access instructions, send email
:>> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
:>>
:>> __
:>> This email has been scanned by the Symantec Email Security.cloud service.
:>> For more information please visit http://www.symanteccloud.com
:>> __
:>>
:>>
:>> 
___
:>>
:>> This email has been scanned by the Bankwest Email Security System.
:>>
:>> 
___
:>>
:>>
:>> 
___
:>> Unencrypted electronic mail is not secure and may not be authentic.
:>> If you have any doubts as to the contents please telephone to confirm.
:>>
:>> This electronic transmission including any attachments is intended only
:>> for those to whom it is addressed. It may contain copyright material or
:>> information that is confidential, privileged or exempt from disclosure by
:>> law.
:>> Any claim to privilege is not waived or lost by reason of mistaken
:>> transmission
:>> of this information. If you are not the intended recipient you must not
:>> distribute or copy this transmission and should please notify the sender.
:>> Your costs for doing this will be reimbursed by the sender.
:>>
:>> We do not accept liability in connection with computer virus, data
:>> corruption,
:>> delay, interruption, unauthorised access or unauthorised amendment.
:>>
:>> 
___
:>>
:>> __
:>> This email has been scanned by the Symantec Email Security.cloud service.
:>> For more information please visit http://www.symanteccloud.com
:>> __
:>>
:>>
:>> --
:>> 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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: DB2 View issue

2020-06-24 Thread Binyamin Dissen
Look at STATEMENT. 

Best to ask DB2 questions in the DB2 list.

On Wed, 24 Jun 2020 13:44:12 +0300 saurabh khandelwal
 wrote:

:>In Db2 v12, when I like to see the view definition and I look at column
:>“TEXT” in catalog table SYSIBM.SYSVIEWS, it is blank.

:>Which was available in previous versions on DB2.

:>Now, requirement is to see the view definition used during creating this
:>view. Can anyone help me get this detail in Db2 v12.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Allocating GDG(+1) using SVC 99

2020-06-21 Thread Binyamin Dissen
On Sun, 21 Jun 2020 01:02:41 -0400 Joseph Reichman 
wrote:

:>I am doing a number of snapx type dumps in a started task. I would like to
:>keep each and every one in a separate dsn. It would seem keeping them in a
:>GDG would accomplish this.

:>The Documentation says that If I turn on  S99GDGNT in S99FLAG1 I could
:>specify the dsn as MYSDUMP.GDG(+1) and have each snap dump in a separate
:>providing I do a close un allocate as a text unit (meaning I would
:>unallocated the dataset upon closing the snap file).

:>If I read documentation right it seems that upon a close unallocate the
:>relative gag number gets updated   

It would seem to not require any free. Why haven't you tried it?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Reading a dump

2020-06-21 Thread Binyamin Dissen
Scan the dump looking for RTM2WA

That will have the PSW, the registers and the last branch location.

After looking at those you start debugging.

On Fri, 19 Jun 2020 22:23:49 + Ze'ev Atlas
<004b34e7c98a-dmarc-requ...@listserv.ua.edu> wrote:

:>I admit that I am rusty and did not look at any dump for decades, and when I 
did I was coding either Assembler or COBOL and I knew how to decipher the 
thing.I am porting a C library libxc to classic z/OS and it compiles cleanly 
(most of it, at least).  As is implied by the description, most users of that 
thing are running it on Linux or Windows.  Maybe a few on Unix machines.
:>I tried to run its modules on my z/OS machine (genuine IBM, z/OS 2.4),  and I 
get S0C4, with nice SYSUDUMP!
:>I have no idea how to begin to look and I am afraid that I compiled it with 
wrong options.  Is there any C maven in the audience that could please try to 
guide me where to begin looking.
:>I tried to avoid compiling it as dll (that much I sort of knew) but I am not 
sure any more. 
:>Ze'ev Atlas
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: CVTLSO race (was: ... STCKCONV ...)

2020-06-16 Thread Binyamin Dissen
Either way there is a potential error as the field does not indicate the time
range it applies to.

Your solution is incorrect if the STCK time was before the leap second was to
be added but the refetched LSO applies for after the time. 

On Tue, 16 Jun 2020 10:52:52 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>On Tue, 16 Jun 2020 14:16:13 +0300, Steff Gladstone wrote:

:>>We need to capture the date and time in a GLUE and need more precision than
:>>the CICS variables give us.

:>There's a possible timing window in naive leap second
:>correction.  Suppose:
:>STCK
:>(a leap second occurs, adding 1 to CVTLSO)
:>Programmer subtracts CVTLSO from stored TOD value
:>resulting in a time value 0.99 seconds early.

:>If thw programmer reverses the order of operations, the
:>complementary hazard giving a timne 0.99 seconds in the
:>future exists.

:>This can be avoided by:
:>RETRY:  Copy CVTLSO
:>STCK
:>IF CVTLSO<>Copy GOTO RETRY
:>Subtract CVTLSO from stored TOD

:>Does TIME macro do something similar?  It's a performance
:>cost of two (three?) instructions in a much-used code
:>path to avoid a hazard that occurs only every year or
:>two.  But this has caused servers to crash.
:>
:>Wrapping the operations with a lock would be more costly.
:>
:>Amazon, Google, (Others?) "smear" leap seconds over 24
:>hours to avoid this:
:>
https://en.wikipedia.org/wiki/Leap_second#Workarounds_for_leap_second_problems
:>This requires steering the clock by 12 ppm, well within
:>the capability of the TOD clock, but for z/OS to freeze
:>CVTLSO at its current value and to adopt smearing would
:>be a major change from specified behavior.
:>
:>(I submitted my RCF on STCKCONV.)
:>
:>-- gil
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Using STCKCONV in a CICS GLUE

2020-06-16 Thread Binyamin Dissen
On Tue, 16 Jun 2020 14:16:13 +0300 Steff Gladstone 
wrote:

:>We need to capture the date and time in a GLUE and need more precision than
:>the CICS variables give us.

:>Can we use the STCKCONV macro in a GLUE?  Could it cause all of CICS to
:>enter a wait?  Or is it essentially pure CPU?

Pretty much pure CPU. But one of your other options are to do a STCK(F) while
in the tight parts of the code and STCKCONV it later. Or if you are
calculating intervals use the value directly.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: CBTTAPE

2020-06-15 Thread Binyamin Dissen
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
:>::DISCLAIMER::
:>
:>The contents of this e-mail and any attachment(s) are confidential and 
intended for the named recipient(s) only. E-mail transmission is not guaranteed 
to be secure or error-free as information could be intercepted, corrupted, 
lost, destroyed, arrive late or incomplete, or may contain viruses in 
transmission. The e mail and its contents (with or without referred errors) 
shall therefore not attach any liability on the originator or HCL or its 
affiliates. Views or opinions, if any, presented in this email are solely those 
of the author and may not necessarily reflect the views or opinions of HCL or 
its affiliates. Any form of reproduction, dissemination, copying, disclosure, 
modification, distribution and / or publication of this message without the 
prior written consent of authorized representative of HCL is strictly 
prohibited. If you have received this email in error please delete it and 
notify the sender immediately. Before opening any email and/or attachments, 
please check them
for
:>viruses and other defects.
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**
:>
:>**DO NOT open attachments or click on links from unknown senders or 
unexpected emails**
:>
:>This e-mail transmission contains information that is confidential and may be 
privileged. It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: missing FMIDs

2020-06-12 Thread Binyamin Dissen
I don't know how you were "given" the setup, but it is quite possible that
there are multiple GLOBAL CSI's. If you can talk to whomever set it up before
they quit, do it. Otherwise you are going to do a bit of looking around.

On Fri, 12 Jun 2020 10:13:31 -0500 Bill Giannelli 
wrote:

:>So I had a CSI setup and provided for by someone else. As I am going thru it 
it seems there are FMIDs for a couple of products missing:
:>DB2 BASE Z/OS
:>HDREC10   DB2 RACF EXIT Z/OS
:>HIYCC10   DB2 IMS ATTACH Z/OS
:>HIZCC10   DB2 SUBSYS INIT Z/OS
:>JDBCC1Z   DB2 12 VUE
:>JDBCC12   DB2 JDBC/SQLJ Z/OS

:>Db2 QMF for z/OS V12
:>HHPCC10   QMF HPO
:>JYQCC10   QMF ANALYTICS TSO

:>If I order maintenance supplying an "installed Software Report" will the 
missing FMIDs be ordered?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: SMPe Apply not working

2020-06-11 Thread Binyamin Dissen
Show the APPLY statement.

On Thu, 11 Jun 2020 12:27:00 -0500 Bill Giannelli 
wrote:

:>GIM59603IENQ WAS SUCCESSFUL FOR SHARED USE OF OEMPP.DB2.V12R02M0.SMPPTS1 
FOR
:>GIM59603IENQ WAS SUCCESSFUL FOR SHARED USE OF OEMPP.DB2.V12R02M0.SMPPTS2 
FOR
:>GIM24801S ** NO SYSMODS SATISFIED THE OPERANDS SPECIFIED ON THE APPLY 
COMMAND.  
:>GIM59606IDEQ WAS SUCCESSFUL FOR EXCLUSIVE USE OF 
OEMPP.DB2.V12R02M0.GLOBAL.C
:>GIM59607IDEQ WAS SUCCESSFUL FOR SHARED USE OF OEMPP.DB2.V12R02M0.SMPPTS 
FOR 
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Don't Hire Chuck Norris was Re: restart GIMSMP in unpack step

2020-06-10 Thread Binyamin Dissen
On Wed, 10 Jun 2020 15:18:40 -0300 Clark Morris  wrote:

:>[Default] On 10 Jun 2020 07:43:41 -0700, in bit.listserv.ibm-main
:>ku...@us.ibm.com (Kurt Quackenbush) wrote:
:>
:>>> snip
:>>Kurt Quackenbush -- IBM, SMP/E Development
:>>Chuck Norris never uses CHECK when he applies PTFs.
:>
:>Don't Hire Chuck Norris for any systems work.

Well..

Back  years ago, it was much faster to backup the resvol+smp datasets,
do the apply, and then do a restore than the APPLY CHECK.

Now, APPLYing to the running system ...

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Debug Tool for recovery routine

2020-06-05 Thread Binyamin Dissen
Get a dump of the abend. Look at the SCBs.

Look at the trace table to see how you got there.

Confirm that the abend is what you think it is where you think it is.

On Thu, 4 Jun 2020 09:38:35 -0400 Joseph Reichman 
wrote:

:>I don’t know what other information to provide I code Estae/x followed by H’0’
:>Or deliberate s0c7 and debug tool abend on the PC or SVC of the Estae/X in 
anticipation of the abend 
:>
:>
:>
:>> On Jun 4, 2020, at 9:34 AM, Binyamin Dissen  
wrote:
:>> 
:>> ?Does it make you feel better for people to ask you to show the doc? Has 
there
:>> been a single time where you actually provided information?
:>> 
:>> On Thu, 4 Jun 2020 08:09:17 -0400 Joseph Reichman 
:>> wrote:
:>> 
:>> :>Has Anyone used debug tool to debug a recovery routine I cant seem to 
drive the code I code the Estaex and after wards have a H’0’ to drive the code 
and tool abends at the PC or SVC of the estaex 


--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Debug Tool for recovery routine

2020-06-04 Thread Binyamin Dissen
Does it make you feel better for people to ask you to show the doc? Has there
been a single time where you actually provided information?

On Thu, 4 Jun 2020 08:09:17 -0400 Joseph Reichman 
wrote:

:>Has Anyone used debug tool to debug a recovery routine I cant seem to drive 
the code I code the Estaex and after wards have a H’0’ to drive the code and 
tool abends at the PC or SVC of the estaex 


--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: TSO EXec syntax (was: ... ISPF publication)

2020-06-03 Thread Binyamin Dissen
Because EXEC does not invoke a load module. 

"

On Wed, 3 Jun 2020 09:21:46 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>On Tue, 2 Jun 2020 23:44:50 -0400, Steve Smith wrote:
:>
:>>I'm not sure this is relevant, but today I ran into this:
:>>
:>>EX 'yadda.zadda.exec(blah)' ',,foo'  /* works */
:>>
:>>but
:>>
:>>%blah ,,foo /* does not work */
:>>
:>>"blah" starts with
:>>
:>>parse arg a ',' b ',' c
:>>
:>>The leading commas disappear with the so-called indirect invocation, ...
:>>
:>The deficiency of EXec is that it does not use the standard load module
:>search sequence for the member name.  Someone should submit an RFE
:>for support of
:>EXec *(blah)
:>to use the standard exec search sequence for the member name similar
:>to what was doe for CALL within my memory:
:>
:>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikjc500/ikj2l2_CALL_command_operands.htm
:>
:>CALL command operands
:>z/OS TSO/E Command Reference
:>SA32-0975-00 
:>
:>dsname
:>specifies the name of a PDS or a PDSE from which the program 
:>is to be executed. If dsname is not fully qualified, it is 
:>assumed to be 'prefix.dsname.LOAD'.
:>*
:>specifies that CALL should use the standard load module search 
:>sequence for the member name.
:>
:>-- gil
:>
:>------
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: FW: Your comment on ISPF publication

2020-06-03 Thread Binyamin Dissen
It would appear that IKJSCAN considers leading commas to be similar to leading
blanks in ignoring them when calculating the parameter offset.

TSO/E Programming Services states:

The Command Scan Service Routine examines the command buffer and performs the
following functions:

It translates all lowercase characters in the subcommand name to
uppercase.
If a valid operand is present, it resets the offset to the number of text
bytes preceding the first non-blank character in the operand field. If a valid
operand is not present, the offset equals the length of the text portion of
the buffer.
It returns a pointer to the subcommand name, the length of the subcommand
name, and a code explaining the results of its scan to the calling routine.
It optionally checks the syntax of the subcommand name.
It recognizes an implicit EXEC command that has a percent sign as the
first character.
It handles leading blanks and embedded comments.

It appears that the second clause is not precise. Probably will be closed by
IBM with a DOC APAR.


On Tue, 2 Jun 2020 23:44:50 -0400 Steve Smith  wrote:

:>I'm not sure this is relevant, but today I ran into this:
:>
:>EX 'yadda.zadda.exec(blah)' ',,foo'  /* works */
:>
:>but
:>
:>%blah ,,foo /* does not work */
:>
:>"blah" starts with
:>
:>parse arg a ',' b ',' c
:>
:>The leading commas disappear with the so-called indirect invocation, and so
:>'foo' is assigned to a, not c.  According to the REXX reference, this is
:>what TSO does.  For some reason.  I'm sure it's a good reason.  Possibly a
:>really good and wonderful reason.  But it interferes somewhat with
:>maintaining my sanity.
:>
:>sas
:>
:>On Tue, Jun 2, 2020 at 11:28 PM Seymour J Metz  wrote:
:>
:>> Does anybody know of other characters that are problematical in the TSO
:>> command?
:>>
:>>
:>> --
:>> Shmuel (Seymour J.) Metz
:>> http://mason.gmu.edu/~smetz3
:>>
:>>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: GTF and SLIP vs. 64-bit execution

2020-05-26 Thread Binyamin Dissen
VPH/VPA seems to be documented.

On Tue, 26 May 2020 13:52:49 -0400 Gord Tomlin
 wrote:

:>On 2020-05-25 17:04, Ed Jaffe wrote:
:>> For the record, we diagnose issues using the events you've listed all 
:>> the time, no matter what the AMODE. In fact, we even have RMODE(64) code 
:>> nowadays.
:>> 
:>> There is a bug with 64-bit PTRACE formatting and we got a custom fix 
:>> from Jim Mulder for that (it will be GA with z/OS 2.5), but otherwise 
:>> everything we need is there.
:>> 
:>> What sort of information were you expecting that you did not see?
:>
:>I probably painted with too broad a brush in my initial post, and for 
:>that I apologize. The real offender is the PGM trace entry captured by 
:>PI=56 in the GTF trace specification:
:>
:>PGM. 056  ASCB 00FBF880 CPU.  JOBN 
:>   OLD-PSW. 47543001 8038  0149ADEE 
:>
:>   TCB. 008CBA08 VPH. 7000 VPA. 7800 
:>
:>   MODN SVC-RES  R0.. 84C85DFA R1.. 00FFF5FF 
:>
:>   R2.. 7F6ADD38 R3.. 7F6ADE34 R4.. 8050 
:>
:>   R5.. 7F6ADCE5 R6.. 008C46D0 R7.. 008C46FC 
:>
:>   R8.. 0050 R9.. 84C85936 R10. 01D9AE20 
:>
:>   R11. 008C4C68 R12. 84C85936 R13. 008C4010 
:>
:>   R14.  R15. 7000 
:>
:>  GMT-05/22/2020 14:40:47.514205  LOC-05/22/2020 10:40:47.514205
:>
:>Despite being in AMODE 64, it only presents 32-bit registers. From 
:>another source that I am prohibited by NDA from revealing, I know that 
:>the entire contents of R15 were 7000_7000; I know that if the 
:>problem was repeatable I could use SLIP (which does show register high 
:>halves) to trace in the vicinity of the program check. But this would 
:>have been immediately obvious if the GTF trace entry showed 64-bit 
:>registers.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: GTF and SLIP vs. 64-bit execution

2020-05-25 Thread Binyamin Dissen
On Mon, 25 May 2020 16:07:30 -0400 Gord Tomlin
 wrote:

:>We recently had the need to use GTF to collect SLIP IF, SVC, USR and PI 
:>events to help diagnose a PIC 38 program check where the address to be 
:>resolved was above the bar. Unfortunately, the trace was of almost no 
:>use in diagnosis due to the more or less complete lack of 64-bit support 
:>in the trace. The only nod is that 128-bit PSWs are shown.

:>I expect that I either missed or forgot some statement from IBM that GTF 
:>would not be enhanced for 64-bit; I can't imagine any other credib;e 
:>reason for the lack or support. However. I can't find such a statement, 
:>nor can I find any complaint or RFE about the lack of such support.

:>Anyone have any relevant information on this?

What was missing? I am sure that I have done SLIP GTF with 64 bit code.

One thing that is a serious pain is that if the storage you wish to TRDATA is
not paged in you do not get it. Also, IIRC, even the DATA qualifier does not
match if it is not paged in (even though the instruction will be reexecuted
after the page in).

Show the SLIP IF and what you got.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Where do started PROC errors go?

2020-05-21 Thread Binyamin Dissen
Try running the PROC in a batch  job.

You do realize that without proper setup the STC is probably using a different
userid.

On Thu, 21 May 2020 09:11:10 -0700 Charles Mills  wrote:

:>I have a program that runs successfully in a job. I just cloned the JCL
:>appropriately into a PROC. When I issue a START for the PROC I get a started
:>message and an ended message but no clue as to why it failed. (It is
:>supposed to be long-running, so ending is a failure.) I don't think it is a
:>JCL error because I get a JCL error message in that case, and I have
:>evidence that it actually ran "some."
:>
:>The PROC includes //SYSTSPRT DD SYSOUT=H. (H is a held class.) I have strong
:>evidence that the program is getting far enough that it would have written
:>several lines to SYSTSPRT. 
:>
:>I see nothing in SDSF, even with PREFIX * and OWNER *. 
:>
:>Where is my output going? How do I determine that? How do I view it?
:>
:>There is nothing in the PROC statement: //procname PROC and no operands on
:>the START other than the PROC name. The program is IKJEFT01 and a Rexx EXEC
:>FWIW. Again, it works in a job.
:>
:>Thanks,
:>Charles 

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: s0c4 accessing RAX control Block

2020-05-13 Thread Binyamin Dissen
As always, show your code and what the system reported as the abend details.

On Wed, 13 May 2020 19:02:34 -0400 Joseph Reichman 
wrote:

:>Hi 
:>
:> 
:>
:>I am trying to get info on virtual storage towards that end  I got a s0c4
:>pic 10 accessing a field in the RAX control block I got the address from the
:>ASCB->ASCBRSME the doc says its in SQA not fetch protected
:>
:>I later did  VSMSQA,AREA(RAXID,800),LINKAGE=SYSTEM and got a RC 4
:>
:> 
:>
:>The ASCBRSME seems to have a valid pointer   

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Question About Dormant MVS Resource Managers

2020-04-29 Thread Binyamin Dissen
My understanding is that if an EOM resource manager does not complete in a
timely manner it will be abended. The clock starts when it is invoked.

On Wed, 29 Apr 2020 17:04:21 GMT "esst...@juno.com"  wrote:

:>Hello,.
:>I reading about Resource Managers - and its capability to be "dormant".
:>I understand if the Resource Manager is "dormant" for four minutes, the system
:>will abend the Resource Manager with a 40D Abend.
.
:>What exactly does it mean when a Resource Manager is "dormant" ?
.
:>If I have three Started Tasks and they all issue a RESMNGR ADD for the
:>same program, when is the Resource Manager considered to be dormant ?
:>What eactly needs to occur for the system to deem the Resource Manager to be
:>"dormant" ?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

2020-04-28 Thread Binyamin Dissen
On Tue, 28 Apr 2020 13:58:06 + Chris Hoelscher 
wrote:

:>examples of an IPCS RUNARRY ???
:>the side of a milk carton?

Why would you suggest that RUNARRAY be dropped?

Because code can be written to simulate it?

:>Thank You,
:>Chris Hoelscher
:>Lead Database Administrator
:>IBM Global Technical Services
:>T 502.476.2538  or 502.407.7266
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List  On Behalf Of 
Binyamin Dissen
:>Sent: Sunday, April 26, 2020 9:59 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: [External] [IBM-MAIN] Request: Examples of an IPCS RUNARRAY command 
where the EXEC clause display storage using a pointer as a displacement off of X
:>
:>[External Email: Use caution with links and attachments]
:>
:>
:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X.
:>
:>So far I have not been able to make it work.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

2020-04-28 Thread Binyamin Dissen
As an exercise, I invoked a REXX out of the EXEC(()) which did an EVALSYM on
X.

The (unexpected and counter-intuitive) results were that ADDRESS was the same
for every entry (the address of the first entry). The only thing that changed
was ENTRY.

I had to write a REXX to do the simple LIST command that I wished - EVALSYM
and then  (address+entry*length)

Another issue is that the LIST command from the REXX (with an explicit
calculated address) somehow inherited the ARRAY attribute and displayed much
more storage than the specified LENGTH. I had to explicitly specify MULT(1) to
get the results I expected^W wanted.




On Mon, 27 Apr 2020 17:18:00 + Seymour J Metz  wrote:

:>I don't have access to a live system, so I have to rely on the documentation, 
which sometimes omits critical information. One thought is to package the IPCS 
command in a REXX, possibly preceded by an EQ, and to use that member name in 
the RUNARRAY subcommand.
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Monday, April 27, 2020 9:38 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>
:>Unrelated.
:>
:>Can you provide a working example?
:>
:>On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz  wrote:
:>
:>:>Is it failing even when everything is in the same address space?
:>
:>:>Shmuel (Seymour J.) Metz
:>:>http://mason.gmu.edu/~smetz3
:>
:>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>:>Sent: Sunday, April 26, 2020 9:59 AM
:>:>To: IBM-MAIN@LISTSERV.UA.EDU
:>:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>:>
:>:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC
:>:>clause display storage using a pointer as a displacement off of X.
:>:>
:>:>So far I have not been able to make it work.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

2020-04-27 Thread Binyamin Dissen
Unrelated.

Can you provide a working example?

On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz  wrote:

:>Is it failing even when everything is in the same address space?

:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3

:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Sunday, April 26, 2020 9:59 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause 
display storage using a pointer as a displacement off of X
:>
:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC
:>clause display storage using a pointer as a displacement off of X.
:>
:>So far I have not been able to make it work.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

2020-04-26 Thread Binyamin Dissen
I would like to see an examples of an IPCS RUNARRAY command where the EXEC
clause display storage using a pointer as a displacement off of X.

So far I have not been able to make it work.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: IPCS - RUNARRAY EXEC problem

2020-04-22 Thread Binyamin Dissen
The automatic LIST X is working, thus the command is valid.

The EXEC is not working properly.

On Tue, 21 Apr 2020 20:39:03 + Seymour J Metz  wrote:

:>Did you run it without the ADDRESS keyword?
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Tuesday, April 21, 2020 3:32 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: IPCS - RUNARRAY EXEC problem
:>
:>Typo when I copied it.
:>
:>The command is as you wrote and the result is as below.
:>
:>On Tue, 21 Apr 2020 19:07:48 + Seymour J Metz  wrote:
:>
:>:>What is Xx?
:>:>
:>:>What output do you  get from
:>:>
:>:>RUNARRAY name EXEC((LIST X+8?+114 MULT(1) LENGTH(8)))
:>:>
:>:>
:>:>--
:>:>Shmuel (Seymour J.) Metz
:>:>http://mason.gmu.edu/~smetz3
:>:>
:>:>____
:>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>:>Sent: Tuesday, April 21, 2020 2:35 PM
:>:>To: IBM-MAIN@LISTSERV.UA.EDU
:>:>Subject: IPCS - RUNARRAY EXEC problem
:>:>
:>:>Array define via
:>:>
:>:>EQ name X LENGTH(16) ENTRIES(1:20)
:>:>
:>:>Issuing
:>:>
:>:>RUNARRAY ADDR(name) EXEC((LIST Xx+8?+114 MULT(1) LENGTH(8)))
:>:>
:>:>The LIST command constantly displays the data from the first entry.
:>:>
:>:>Without the MULT operand it would display much more storage.
:>:>
:>:>The only example available is from RUNCHAIN in where the value of X is as
:>:>expected.
:>:>
:>:>What am I doing wrong>

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: IPCS - RUNARRAY EXEC problem

2020-04-21 Thread Binyamin Dissen
Typo when I copied it.

The command is as you wrote and the result is as below.

On Tue, 21 Apr 2020 19:07:48 + Seymour J Metz  wrote:

:>What is Xx?
:>
:>What output do you  get from
:>
:>RUNARRAY name EXEC((LIST X+8?+114 MULT(1) LENGTH(8)))
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Tuesday, April 21, 2020 2:35 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: IPCS - RUNARRAY EXEC problem
:>
:>Array define via
:>
:>EQ name X LENGTH(16) ENTRIES(1:20)
:>
:>Issuing
:>
:>RUNARRAY ADDR(name) EXEC((LIST Xx+8?+114 MULT(1) LENGTH(8)))
:>
:>The LIST command constantly displays the data from the first entry.
:>
:>Without the MULT operand it would display much more storage.
:>
:>The only example available is from RUNCHAIN in where the value of X is as
:>expected.
:>
:>What am I doing wrong>

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


IPCS - RUNARRAY EXEC problem

2020-04-21 Thread Binyamin Dissen
Array define via

EQ name X LENGTH(16) ENTRIES(1:20)

Issuing

RUNARRAY ADDR(name) EXEC((LIST Xx+8?+114 MULT(1) LENGTH(8))) 

The LIST command constantly displays the data from the first entry.

Without the MULT operand it would display much more storage.

The only example available is from RUNCHAIN in where the value of X is as
expected.

What am I doing wrong>

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: IPCS LIST command to display storage when pointer is in a different address space

2020-04-21 Thread Binyamin Dissen
Yes, it can be done via code/clist/rexx. My query was whether it can be done
directly.

"Is there an IPCS command to list storage when the pointer is in a different
address space, or does this require an IPCS clist?"

Appreciate your effort.

On Tue, 21 Apr 2020 09:09:03 + Seymour J Metz  wrote:

:>Can't you do it incorrectly via an intermediate EQUATE or EVALUATE subcommand?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: IPCS LIST command to display storage when pointer is in a different address space

2020-04-20 Thread Binyamin Dissen
Full dump, including both address spaces.

I can type the address directly and display it.

I cannot seem to follow the pointer to another address space.

On Mon, 20 Apr 2020 20:45:11 + Seymour J Metz  wrote:

:>What are X and n? Are you working with a full dump of Z or a oartial dump. 
The message indicates that the pointer is not within the dump.
:>
:>It might be helpful to show how you got the pointer, especially if you're 
relying on storage that could have been freed before the dump or that was 
excluded from the dump.
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Monday, April 20, 2020 4:25 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: IPCS LIST command to display storage when pointer is in a 
different address space
:>
:>Well, I get
:>
:>BLS18075I Indirect address could not be resolved
:>
:>Not sure what I am doing wrong.
:>
:>Current AS = Z. X is within Z.
:>
:>List X+n? asid(Y) length(128)
:>
:>
:>
:>On Sun, 19 Apr 2020 21:35:21 + "Christopher Y. Blaicher"
:> wrote:
:>
:>:>That is basically the right syntax.  IPCS L address LEN(length) 
ASID(X'')
:>:>
:>:>Chris Blaicher
:>:>Technical Architect
:>:>Syncsort, Inc.
:>:>
:>:>-Original Message-
:>:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Binyamin Dissen
:>:>Sent: Sunday, April 19, 2020 5:14 PM
:>:>To: IBM-MAIN@LISTSERV.UA.EDU
:>:>Subject: IPCS LIST command to display storage when pointer is in a 
different address space
:>:>
:>:>[ External - This message originated Externally.  Use proper judgement and 
caution with attachments, links, or responses. ]
:>:>
:>:>Is there an IPCS command to list storage when the pointer is in a different 
address space, or does this require an IPCS clist?
:>:>
:>:>I would like to
:>:>
:>:> LIST  X+n? ASID(Y)
:>:>
:>:>where X is in address space Z.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: IPCS LIST command to display storage when pointer is in a different address space

2020-04-20 Thread Binyamin Dissen
Well, I get

BLS18075I Indirect address could not be resolved  

Not sure what I am doing wrong.

Current AS = Z. X is within Z.

List X+n? asid(Y) length(128)



On Sun, 19 Apr 2020 21:35:21 + "Christopher Y. Blaicher"
 wrote:

:>That is basically the right syntax.  IPCS L address LEN(length) ASID(X'')
:>
:>Chris Blaicher
:>Technical Architect
:>Syncsort, Inc.
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Binyamin Dissen
:>Sent: Sunday, April 19, 2020 5:14 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: IPCS LIST command to display storage when pointer is in a different 
address space
:>
:>[ External - This message originated Externally.  Use proper judgement and 
caution with attachments, links, or responses. ]
:>
:>Is there an IPCS command to list storage when the pointer is in a different 
address space, or does this require an IPCS clist?
:>
:>I would like to 
:>
:> LIST  X+n? ASID(Y)
:>
:>where X is in address space Z.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


IPCS LIST command to display storage when pointer is in a different address space

2020-04-19 Thread Binyamin Dissen
Is there an IPCS command to list storage when the pointer is in a different
address space, or does this require an IPCS clist?

I would like to 

 LIST  X+n? ASID(Y)

where X is in address space Z.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Linkage editor question: renaming duplicate entry points

2020-04-15 Thread Binyamin Dissen
Look at the binder CHANGE directive

On Wed, 15 Apr 2020 15:43:49 -0400 Phil Smith III  wrote:

:>I have a use case that's reasonable enough that it might be supported, yet 
odd enough that I'd be unsurprised if it isn't.
:>
:> 
:>
:>Suppose we have a function called AX that we call. At times it would be 
useful to be able to relink a program that calls AX to add a "shim"-let's call 
it AXPRIME-between the program and AX. Yet we don't want to change that program 
code, just relink it (or point at a different library and make a dynamic call 
to AX).
:>
:> 
:>
:>Ideally, we could tell the linker "OK, load deck AXPRIME [which has entry 
point AX defined]; now include deck AX but rename entry point AX in that deck 
to AXMINUS". And the AXPRIME code would call AXMINUS to do what AX usually does.
:>
:> 
:>
:>The alternative-hacking AX itself-is of course possible but undesirable, 
because we don't want the shim functionality to be there all the time, as it 
represents a security hole. The shim is added explicitly when needed, so it's a 
"your gun, your foot" deal.
:>
:> 
:>
:>Anyone know whether this is possible with IEWL or anything else?
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: ESPIE question (does ESPIE "cover" ATTACH'd sub-tasks)

2020-04-03 Thread Binyamin Dissen
Interesting numbers.

But I looked at the current doc and it still appears to be problem state only.

Also, do you numbers include setup or just program check handling? I figured
FRRs would be a lot better than ESTAE(X).

On Thu, 2 Apr 2020 19:28:13 -0500 Jim Mulder  wrote:

:> These are my results from a benchmark I did 4 years ago:
:>
:>Testcases which loop  recovering/retrying from an 
:>operation exception.
:>Using default system trace size - 1MB per CPU,  with 
:>20 CPUs, so 20MB of data to snap)
:>z13 machine
:>
:>RecoveryIterations  CPU seconds  Ratio
:>--  ---  -
:>ESPIE   x'20'  3.531.0
:>FRR x'20' 45.66   12.9
:>ESTAEX (no SNAPTRC) x' 2' 98.95   28.0
:>ESTAEX (SNAPTRC)x'  1000'102.83   14,914.7
:>
:>
:>Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
:>Poughkeepsie NY
:>(845) 435-4741
:>D10JHM1@PLPSC  (MVS)   JMULDER@S390VM  (VM)
:>
:>> From: "Lennie Dymoke-Bradshaw" 
:>> To: IBM-MAIN@LISTSERV.UA.EDU
:>> Date: 04/02/2020 08:13 PM
:>> Subject: Re: ESPIE question (does ESPIE "cover" ATTACH'd sub-tasks)
:>> Sent by: "IBM Mainframe Discussion List" 
:>> 
:>> I think the reason that handling interrupts in ESPIE is faster than 
:>> ESTAE is simply that ESPIE sets an exit to the FLIH, whereas ESTAE 
:>> sets an exit to the SLIH.
:>> 
:>> Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd  
:>> Web:  www.rsmpartners.com
:>> ‘Dance like no one is watching. Encrypt like everyone is.’
:>> 
:>> -Original Message-
:>> From: IBM Mainframe Discussion List  On 
:>> Behalf Of Charles Mills
:>> Sent: 02 April 2020 20:59
:>> To: IBM-MAIN@LISTSERV.UA.EDU
:>> Subject: Re: [IBM-MAIN] ESPIE question (does ESPIE "cover" ATTACH'd 
:>sub-tasks)
:>> 
:>> As Peter seems to imply, ESPIE interrupts are apparently noticeably 
:>> lower overhead than ESTAE interrupts. If data or addressing 
:>> exceptions were expected I definitely *would* use ESPIE. I would 
:>> save ESTAE for unexpected (well, expected unexpected) conditions. My
:>> opinion: no benchmarks, no source code.
:>> 
:>> Charles
:>
:>
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: ESPIE question (does ESPIE "cover" ATTACH'd sub-tasks)

2020-04-02 Thread Binyamin Dissen
On Thu, 2 Apr 2020 17:28:05 -0400 Mike Shaw  wrote:

:>On 4/2/2020 1:56 PM, Gord Tomlin wrote:
:>

:>> An irreverent take would be that they enjoy obfuscating abends by 
:>> transforming program checks into U4xxx abends.

:>

:>Good one Gord. I always wondered why LE did that. It makes_no_sense to me.

Much worse when they attempt to percolate via

   ABEND  X'0C?',DUMP,,,SYSTEM

and it takes a while until I see that it is a fake abend.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: ESPIE question (does ESPIE "cover" ATTACH'd sub-tasks)

2020-04-01 Thread Binyamin Dissen
What advantage do you see in an ESPIE over an ESTAE? 

IIRC, there are quite a few conditions where it doesn't get control. And no
clean way to percolate.


On Tue, 31 Mar 2020 18:21:46 -0400 Thomas David Rivers 
wrote:

:>I'm sure many on this list will know the answer to this,
:>and I've been reading various manuals trying to find it...
:>
:>But - if a primary task issues an ESPIE SET to establish
:>a ESPIE exit on a particular event, does that ESPIE exit
:>get control if an ATTACH'd sub-task triggers the event?
:>
:>In my casual testing it didn't seem to (the attached sub-tasks
:>were actually BPX pthread_create'd tasks, if that matters.)
:>
:>That is - if my initial task issues an ESPIE, does that ESPIE
:>"cover" my sub-tasks as well, or would each sub-task need
:>its own ESPIE.
:>
:>What seems to be happening is that some bad memory is
:>referenced in my sub-task, but my ESPIE exit (in the parent
:>task)  is not being driven...
:>
:>  - Thanks -
:>-  Dave Rivers -

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Upwards Compatibility of Code in Z series Boxes

2020-03-30 Thread Binyamin Dissen
Problem state instructions - pretty much the same (as long as your continue
running amode 24).

Supervisor state - differences exist.

On Sun, 29 Mar 2020 17:40:07 -0500 Grant Steele  wrote:

:>Impressed with the depth on this list from the contributors.  I am getting 
back into the z-series software and application development after years of 
being in another domain. 

:>Here is a very broad question: when you guys/girls are moving your app 
portfolio from one hardware platform to another (say, z14 to z15), to what 
extend are the apps compatible with the new platform without recompilation?  

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Problems with ESTAEX invoked in AMODE 64 when assembled without SYSTATE AMODE=64

2020-03-25 Thread Binyamin Dissen
:>
:>This is the ASM source:
:>
:>  LGR 4,13
:>  LGR 13,5
:>  LG  6,=AD(ESTAE_EXIT)
:>  XGR 1,1   clear upper bits of R1 ESTAEX needs it
:>  ESTAEX (6),PARAM=(2),MF=(E,(3)) 
:>  LGR 13,4
:>
:>R5 points to a temp DSA space for the ESTAEX macro (to avoid possible 
:>overwrites)
:>and R2 contains the parm to be placed in SDWAPARM.
:>
:>So - it _appears_ (but - I might be reading this wrong) that the PSW address
:>is pointing at the instruction just following the PC for the ESTAEX 
:>(which makes sense)
:>but it kinda looks like we are not quite right somehow?  
:>
:>Or - maybe it's just how the SYSUDUMP formatted the PSW at the top - and I
:>just might be really confused - because it looks like a 31-bit PSW but 
:>is in AMODE 64?
:>
:>If one of those values is incorrect though (like, say, R2) would that 
:>cause the ESTAEX
:>to blow-up with an 0C2 ?
:>
:>
:>  - Thanks! -
:>  - Dave Rivers -

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Problems with ESTAEX invoked in AMODE 64 when assembled without SYSTATE AMODE=64

2020-03-25 Thread Binyamin Dissen
On Tue, 24 Mar 2020 16:47:18 -0700 Ed Jaffe 
wrote:

:>On 3/24/2020 2:02 PM, Binyamin Dissen wrote:
:>> PC invoked? - pretty much anything. It really annoyed me that IBM trumpeted
:>> support for 64 bit callers for many services when the hardware did all the
:>> work.

:>Not true. In order for a service to officially support 64-bit callers, 
:>IBM must assign people to write test plans and validate every possible 
:>scenario. At a minimum, the macros and/or the code behind them must 
:>ensure garbage high-halves are not passed back in return registers.

My PC routines supported 64 bit callers on day 1.

:>Plus, most 64-bit callers expect to be able to pass parameters from 
:>their working storage areas (i.e., above the "bar"). Unchanged PCs hat 
:>are simply validated and nothing more will require special handling by 
:>64-bit callers to ensure all parameters reside in 31-bit storage. That's 
:>lame support at best. Full support implies new parameter lists that 
:>allow 8-byte pointers and such.

My comment was that many of the 64bit supported routines did not support 64
bit plists and thus 

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Problems with ESTAEX invoked in AMODE 64 when assembled without SYSTATE AMODE=64

2020-03-24 Thread Binyamin Dissen
On Tue, 24 Mar 2020 11:17:36 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>On Mon, 23 Mar 2020 05:15:15 -0400, Thomas David Rivers wrote:

:>>I think I've run into an interesting problem with ESTAEX
:>>when it is invoked in AMODE 64 without SYSTATE AMODE=64
:>>set at assembly time.
 
:>What services, IBM or ISV, nowadays can *not* be invoked:
:>o In AMODE 64?

PC invoked? - pretty much anything. It really annoyed me that IBM trumpeted
support for 64 bit callers for many services when the hardware did all the
work.

:>o With parameters above-the-bar?

That was the issue.

:>o Called from an address above-the-bar?

Should not be an issue for PC invoked.

:>I.e. when can programmers forget about 31 and 24?

Never.

:>And there's a residue of data with 31-bit (24?) pointers.

Yep. Downward compatibility and all that.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Problems with ESTAEX invoked in AMODE 64 when assembled without SYSTATE AMODE=64

2020-03-24 Thread Binyamin Dissen
I would question this.

Why not post the section from the system trace table showing this?

On Mon, 23 Mar 2020 05:15:15 -0400 Thomas David Rivers 
wrote:

:>I think I've run into an interesting problem with ESTAEX
:>when it is invoked in AMODE 64 without SYSTATE AMODE=64
:>set at assembly time.
:>
:>That is, this is code that could potentially run in either AMODE 31
:>or AMODE 64... so it's not assembled with SYSTATE AMODE=64.
:>
:>What it _looks_ like from the dump is that ESTAEX is invoked
:>(via  PC - this is just problem state) and on return, the address
:>in the PSW has the AMODE bit set - but we are in AMODE 64,
:>so now my PSW address is pointing to the wrong place.
:>
:>Of course - this doesn't work well when AMODE=64 and my
:>program gets lost.
:>
:>This didn't seem to happen with zOS 2.3 - we've recently upgrade
:>to zOS 2.4.
:>
:>Anyone seen anything like that for newer zOS?
:>
:>I _suppose_ I could always drop to AMODE 31 for invoking ESTAEX,
:>but then my ESTAE exit would be in AMODE 31, and I'd prefer for it
:>to be in the AMODE at the time ESTAEX is called...
:>
:>This "feels" unlikely - as the PC is hopefully just going to stack the
:>current PSW address for its return... and I'd be very surprised
:>of something changed that...   but - I thought I would just toss
:>that out to see if anyone has an idea.
:>
:> - Thanks -
:>- Dave R. -

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: DSPSERV CREATE, is ORIGIN parm a relic?

2020-03-07 Thread Binyamin Dissen
On Fri, 6 Mar 2020 16:01:41 -0600 Michael Hochee  wrote:

:>Ideally, I would like to create all future data spaces with a size of 2GB, 
rather than 2GB OR 2GB-4K (when the returned ORIGIN value is NZ).  I looked at 
assembler service reference manuals as far back as 1999, and they all state 
that a non-zero origin value (4K) is based on a processor dependency. I 
eventually found a vintage IBM-Amdahl presentation (1989) indicating the 
dependency is due to low-address protection being in effect when the PSF 
(Private-Space Facility) is not active. 

:>My question is... Is this still relevant 30 years later? Do any G10 or above 
customers run configurations where PSF is inactive? 

If you are already changing the code, why not change it to use 64 bit memory
objects. That way you can get the exact size.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: JCL error during TSO/E logon

2020-03-05 Thread Binyamin Dissen
Back in Ye Olde Days I had such a problem (very annoying when users would call
the support desk about these things).

We had a modified IKJEFLD that allowed overrides of PROCs and accounts without
requiring UADS entries.

What I did would call the accounting system to verify that the account was
valid and I added 2 libraries to MSTJCL00, the user proclibs and the SP
proclibs and verified that the override was in the proclib. This had the
advantage that users could create their procs for their applications but not
be able to use them for TSO.

They would get messages such as "not authorized to such an account" or "proc
not known" and would be able to reenter.

I also added code to allow the user to permanently update these as well as the
password from the logon prompt.


On Thu, 5 Mar 2020 23:08:32 + Jesse 1 Robinson 
wrote:

:>From the dawn of time, it was deucedly difficult to find the cause of a JCL 
error during TSO logon. Then several releases ago, we were treated to a 'fix'. 
The error would be displayed on the user's screen, allowing the problem to be 
corrected within seconds. Yesterday we had such a situation, but any helpful 
message flashed on the screen for milliseconds and then disappeared. In this 
case it turned out to be missing logon proc.

:>I hunted in vain for doc on this problem, including maybe a need to set a 
parm somewhere. We run TPX, which it just now occurs to me might be the 
problem...


--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: load modules

2020-03-05 Thread Binyamin Dissen
One would hope that testing would be via STEPLIB.

On Thu, 5 Mar 2020 14:39:31 -0500 Charles Mills  wrote:

:>Sometimes you make a code change, and the problem is no better, so you wonder 
"did I screw up the code change or am I still running the old code?" 
CharlesSent from a mobile; please excuse the brevity.
:> Original message ----From: Binyamin Dissen 
 Date: 3/5/20  11:07 AM  (GMT-05:00) To: 
IBM-MAIN@LISTSERV.UA.EDU Subject: Re: load modules On Thu, 5 Mar 2020 13:20:38 
+ "Nai, Dean"  wrote::>   Anyone know a way to see 
if a linklst load mode is being used? We made a userexit change and I wanted to 
see if it was using the new load module and not the old one?thanksDon't 
understand why the userexit is relevant. Assuming you changed the loadmodule, 
it should be doing something different. Just run your test case (youDO have a 
test case, don't you?)--Binyamin Dissen 
http://www.dissensoftware.comDirector, Dissen 
Software, Bar & Grill - IsraelShould you use the mailblocks package and expect 
a response from me,you should preauthorize the dissensoftware.com domain.I very 
rarely bother responding to challenge/response systems,especially those from 
irresponsible
:>companies.--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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: load modules

2020-03-05 Thread Binyamin Dissen
On Thu, 5 Mar 2020 13:20:38 + "Nai, Dean"  wrote:

:>   Anyone know a way to see if a linklst load mode is being used? We made a 
userexit change and I wanted to see if it was using the new load module and not 
the old one…thanks

Don't understand why the userexit is relevant. Assuming you changed the load
module, it should be doing something different. Just run your test case (you
DO have a test case, don't you?)

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: Two related alias entry address questions

2020-03-03 Thread Binyamin Dissen
On Tue, 3 Mar 2020 11:35:02 -0800 Charles Mills  wrote:

:>1. Is there a way to display the entry point address of a load module member
:>of a PDS? ISPF 3.1 shows Size, TTR, AM, RM, etc. but not the entry address.
:>The member in question is actually an alias FWIW.

Use the binder API. For PDS, it is in the userdata of the ALIAS directory
entry. Not sure how it works for PDSE.

:>2. The reason I ask is that I am trying to track down the following problem.
:>Perhaps someone knows the answer. I have a PDSE program object FOO with an
:>alias of BAR. BAR's entrypoint is *not* at offset 0 into the load module. I
:>copy the program object and alias to a PDS load module 

Probably the step that is failing.

How are you doing this copy?

:>   and then TSO XMIT it.
:>I FTP the XMIT file to another LPAR. I TSO RECEIVE the XMIT file into a
:>dataset. When I LOAD BAR I see the wrong entrypoint, an entrypoint of 0.
:>Does anyone know what I have to do to preserve the entrypoint? (I ask
:>question 1 because I am guessing at the problem, and do not know at which
:>stage of the process the entry offset got lost.)

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


  1   2   3   4   5   6   7   >