Re: EQA10OSM

[Lizette Koehler]

Just by looking at the dataset names.

Typically the AEQAMOD should be a DLIB dataset
The SEQAMOD would be your TLIB.

TLIBs would go into your live environment

DLIB would only be used when an SMP/e ACCEPT is done.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Joseph Reichman
> Sent: Thursday, July 18, 2019 6:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EQA10OSM
> 
> Hi
> 
> Does any know the significance  of this debug tool module with regards to
> initializing  a LE Assembler main program the BALR to CEEINIT is aborting in
> this module PSW 02 it’s comes from a base just googling seems like I
> don’t have the right version which doesn’t make sense Have the SVC’s
> installed SEQAMOD SEQAMMOD
> 
> In fact there seems to be 2 versions of the program one in SEQAMOD and in
> AEQAMOD if different sizes
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Buying an IBM mainframe

[Mike Schwab]

Newer HMC code can control 1,2, perhaps more generations back of z
processors.  Older HMC code cannot control newer z processors. This
prevents the need for one HMC for each generation at a site.

On Fri, Jul 19, 2019 at 2:20 AM Laurence Chiu  wrote:
>
> This blog resonated a lot with me since the generation of Z box being built
> is more recent.
>
> Having just put a Z14 ZR1 in the points he raised were quite relevant even
> today.
>
> https://blog.mainframe.dev/2019/05/buying-ibm-mainframe.html
>
> Good luck to him.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

Buying an IBM mainframe

[Laurence Chiu]

This blog resonated a lot with me since the generation of Z box being built
is more recent.

Having just put a Z14 ZR1 in the points he raised were quite relevant even
today.

https://blog.mainframe.dev/2019/05/buying-ibm-mainframe.html

Good luck to him.

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

Re: CMS OS SIMULATION BSAM OPEN and ABEND for non-existing files on INPUT

[Paul Gilmartin]

On Thu, 18 Jul 2019 16:54:40 -0400, Thomas David Rivers wrote:
>
>There is some mumbling in the CMS OS SIMULATION doc that says it allows
>the opening of non-existing files for INPUT because CMS can't mimic an empty
>(but existing) file vs. a non-existing file.
>
The ANSI C standard does not require implementations to distinguish between
empty files and non-existing files.  Presumably because some file systems
(e.g. MDFS) don't support empty files.  SFS suppports empty files so grudgingly
that XEDIT warns the user and requires confirmation to create an empty file.

The ANSI C standard cautions that reading a file may return more trailing
blanks than were written, or fewer.  RECFM=F is an offender, and neither
MDFS nor SFS permits empty lines, so the sequence "\n\n" may either generate
a padding blank or elide the empty line.

CMS is a moron.

-- gil

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

EQA10OSM

[Joseph Reichman]

Hi

Does any know the significance  of this debug tool module with regards to 
initializing  a LE Assembler main program the BALR to CEEINIT is aborting in 
this module PSW 02 it’s comes from a base just googling seems like I don’t 
have the right version which doesn’t make sense 
Have the SVC’s installed SEQAMOD SEQAMMOD

In fact there seems to be 2 versions of the program one in SEQAMOD and in 
AEQAMOD if different sizes 
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CMS OS SIMULATION BSAM OPEN and ABEND for non-existing files on INPUT

[Charles Mills]

I would think you might want to post the two DCBs?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Thomas David Rivers
Sent: Thursday, July 18, 2019 1:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CMS OS SIMULATION BSAM OPEN and ABEND for non-existing files on
INPUT

I'm getting down-in-the-weeds on OS SIMULATION on CMS.

I have an older program where it does a FILEDEF for a non-existing
file; then the program does an OPEN (..,INPUT)  for the given DDNAME
from the filedef.

In the older program, the ABEND exit is driven - so we fail the OPEN
gracefully.

But - in a newer program, the ABEND exit is _not_ driven, and it believes
that same file is "there" (although it promptly gets an EOD when trying
to BSAM READ it.)  The DCBOFLGS bit indicates the DCB was "opened".
I've stared at the coding of the EXTLIST, etc... it _looks_ right... but my
ABEND exit is just not happening.

There is some mumbling in the CMS OS SIMULATION doc that says it allows
the opening of non-existing files for INPUT because CMS can't mimic an 
empty
(but existing) file vs. a non-existing file.

But - this older code clearly is getting the ABEND in this case... while 
the newer code
doesn't.

Whatever the difference is, it's subtle... so, I'm not sure what it 
could be.

I'm wondering if this triggers any thoughts for anyone...   if anyone 
has any
thoughts/pointers it would be appreciated.

   - Many thanks! -
   - Dave Rivers -

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Charles Mills]

2**X where X is negative is legal. 2**-X = 1/(2**X). 2**-17 = 0.076

A language might -- I am not an expert -- refuse N**2.0 where N was negative
because fractional powers of a negative number are illegal, and 2.0, as a
floating point number, could be seen as fractional.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Thursday, July 18, 2019 2:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL
COND Parameter)

I hope that he meant 2**X when X is negative. I checked some old Fortran
manuals and couldn't find anything about what is allowed on the left and
right hand side in foo**bar, except in constant expressions..


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


From: IBM Mainframe Discussion List  on behalf of
Clark Morris 
Sent: Thursday, July 18, 2019 4:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL
COND Parameter)

[Default] On 18 Jul 2019 09:42:13 -0700, in bit.listserv.ibm-main
000433f07816-dmarc-requ...@listserv.ua.edu (Paul Gilmartin) wrote:

>On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>>
>>The cardinal sin in language design is to make the compiler simpler at the
expense of the user. ...
>>
>I see a notable example of this in Rexx's not supporting expressions in
compound
>symbol tails which some have justified as making recognition of assignments
easier.
>
>OTOH, Pascal declined to provide an exponentiation operator in order to
expose
>to programmers the underlying costly implementation:
>X ** Y is implemented in other languages as exp( log( X ) * Y )
>
>Physics graduate students complained to me when the FORTRAN runtime
>threw an exception on X ** 2.0 when X was negative.  "Why can't I square
>a negative number?"

Why won't FORTRAN square a negative number?  Is this behavior peculiar
to FORTRAN?

Clark Morris
>
>(Some BASIC interpreters take special paths when a number has an integral
value.)
>
>And they complained when (FORTRAN, but easier in C pseudocode):
>for ( X = 0; X!=1.0; X+=0.1 ) { ...; }
>... never terminated.  "Roundoff error!?  Why doesn't it just use the exact
value
>of one tenth?"
>
>DWIM?
>
>-- gil
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

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

Re: Abend entry LE Assembler Has to so with :> " WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138"

[Joseph Reichman]

I installed the TWO Debug tool SVC in Addition to putting the following
libraries EQAE10.SEQABMOD IN APF library and link list I have this library
in the TSOLIB of my clist

This module is a CSECT in seems to be a LE module  in debug tool library
would anyone know significance of this
thanks 

---
 BROWSEEQAE10.SEQAMOD(CEEEV006) Li   CHARS 'EQA10OSM'
found 
 Command ===>  Scroll ===>
CSR  
* Top of Data
**


xY...WxM...W.Ú;0¬Q.>..xà..à0¬>.. -&.x4..xÇ...ÄxM...Ä.W;\¬Q.Óxà..à\¬>..
-&..Ä.Áx8
0OHTDXC10OSMEQA00OSXEQA10OSM-..üØ.ç.Ø...
Ø.ÜQ
..×? .xd...Îx4...Ì.ÏxÈ..×Õ}Hxd..×|S4xd..×? .xd...Î.Ïxd..×|#Ìxd..×?
.xd..K.-.¨©&µ
Jçì .J ì-&.ì0-..Õ.7 .¬..Õx4...7
.¬*.Õ.Dx4."xV.¡x4.#ì...xì..&&..ì-..P.-.-.ì ..
 


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, July 18, 2019 3:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

Try adding

 ENTRY TESTPRGE


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


From: IBM Mainframe Discussion List  on
behalf of Joseph Reichman 
Sent: Thursday, July 18, 2019 1:04 PM
To: mailto:IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

This is the whole Job   I ran TESTPRGD under test and Made a break point at
the BALR to CEEINIT expansion from CEEENTRY

  your edit profile using the command RECOVERY ON.
//IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=,REGION=0M
//*
//STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)'
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=CEE.SCEEMAC
//SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSADATA DD DSN=&,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR
//SYSLIN   DD DSN=&(TESTPRGD),DISP=(,PASS),
//UNIT=SYSDA,SPACE=(80,(200,50,1))
//SYSINDD  *
TESTPRGD CSECT
TESTPRGD AMODE 31
TESTPRGD RMODE ANY
**
*TEST PROGRAM TO CALL C/C++ DLL  *
**
 YREGS
 STMR14,R12,12(R13)
 LR R3,R15
 USING  TESTPRGD,R3
 LR R14,R13
 LA R13,SAVEAREA
 ST R14,SAVEAREA+4
 ST R13,8(,R14)
*ESTAE  RECOVERY
 L  R15,A1C401B
 BALR   R14,R15
 L  R13,4(,R13)
 LM R14,R12,12(R13)
 XR R15,R15
 BR R14

 RECOVERY DS 0D
 DC X'0700'
SAVEAREA DS 18F
A1C401B  DC V(TESTPRGE)
 LTORG
TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
*LOADEP=CEETEST
*LA  R1,PARM
*LR  R15,R0
*BASRR14,R15
 CEEPCALL opendata,MF=(E,)
 XR  R15,R15
 CEETERM  RC=(R15)
*CEEPDDA OPENDATA,SCOPE=IMPORT
*ARM1DC A(STRING)
*ARM DC A(FEEDBACK)
*TRING   DS 0H
*DC H'8'
*DC C'AT ENTRY'
  *EEDBACK DS CL12
DLLPPA   CEEPPA
WORKAREA DSECT
 ORG  *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART
 DS 0D
WORKSIZE EQU *-WORKAREA
 CEEDSA MAPPING OF THE DYNAMIC SAVE AREA
 CEECAA MAPPING OF THE COMMON ANCHOR AREA
 CEEEDB MAPPING OF THE ENCLAVE DATA BLOCK
 END
/*
//*
//* LINK EDIT THE PROGRAM *
//*
//STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100),
// PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED'
//SYSPRINT DD SYSOUT=*
//SYSDEFSD DD SYSOUT=*
//OBJ  DD DSN=&,DISP=(OLD,PASS)
 //SYSDEFSD DD SYSOUT=*

//OBJ  DD DSN=&,DISP=(OLD,PASS)
//SYSLIB   DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB
// DD DISP=SHR,DSN=CEE.SCEELKED
//SYSLMOD  DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)
//SYSLIN   DD *
  IMPORT CODE,SYSADATA,opendata
  INCLUDE OBJ(TESTPRGD)
  INCLUDE SYSLIB(SYSADATA)
  ENTRY TESTPRGD
  NAME TESTPRGD(R)
/*
//



-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Don Poitras
Sent: Thursday, July 18, 2019 12:57 PM
To: mailto:IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

In your link-edit, what did you set the entry point to? You were 

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Seymour J Metz]

I hope that he meant 2**X when X is negative. I checked some old Fortran 
manuals and couldn't find anything about what is allowed on the left and right 
hand side in foo**bar, except in constant expressions..


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


From: IBM Mainframe Discussion List  on behalf of 
Clark Morris 
Sent: Thursday, July 18, 2019 4:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

[Default] On 18 Jul 2019 09:42:13 -0700, in bit.listserv.ibm-main
000433f07816-dmarc-requ...@listserv.ua.edu (Paul Gilmartin) wrote:

>On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>>
>>The cardinal sin in language design is to make the compiler simpler at the 
>>expense of the user. ...
>>
>I see a notable example of this in Rexx's not supporting expressions in 
>compound
>symbol tails which some have justified as making recognition of assignments 
>easier.
>
>OTOH, Pascal declined to provide an exponentiation operator in order to expose
>to programmers the underlying costly implementation:
>X ** Y is implemented in other languages as exp( log( X ) * Y )
>
>Physics graduate students complained to me when the FORTRAN runtime
>threw an exception on X ** 2.0 when X was negative.  "Why can't I square
>a negative number?"

Why won't FORTRAN square a negative number?  Is this behavior peculiar
to FORTRAN?

Clark Morris
>
>(Some BASIC interpreters take special paths when a number has an integral 
>value.)
>
>And they complained when (FORTRAN, but easier in C pseudocode):
>for ( X = 0; X!=1.0; X+=0.1 ) { ...; }
>... never terminated.  "Roundoff error!?  Why doesn't it just use the exact 
>value
>of one tenth?"
>
>DWIM?
>
>-- gil
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Allan Staller]

" Why won't FORTRAN square a negative number?  Is this behavior peculiar to 
FORTRAN?"

It did when I learned FORTRAN (circa 1971). Haven't touched FORTRAN in about 35 
years.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Clark Morris
Sent: Thursday, July 18, 2019 3:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

[Default] On 18 Jul 2019 09:42:13 -0700, in bit.listserv.ibm-main 
000433f07816-dmarc-requ...@listserv.ua.edu (Paul Gilmartin) wrote:

>On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>>
>>The cardinal sin in language design is to make the compiler simpler at the 
>>expense of the user. ...
>>
>I see a notable example of this in Rexx's not supporting expressions in
>compound symbol tails which some have justified as making recognition of 
>assignments easier.
>
>OTOH, Pascal declined to provide an exponentiation operator in order to
>expose to programmers the underlying costly implementation:
>X ** Y is implemented in other languages as exp( log( X ) * Y )
>
>Physics graduate students complained to me when the FORTRAN runtime
>threw an exception on X ** 2.0 when X was negative.  "Why can't I
>square a negative number?"

Why won't FORTRAN square a negative number?  Is this behavior peculiar to 
FORTRAN?

Clark Morris
>
>(Some BASIC interpreters take special paths when a number has an
>integral value.)
>
>And they complained when (FORTRAN, but easier in C pseudocode):
>for ( X = 0; X!=1.0; X+=0.1 ) { ...; } ... never terminated.
>"Roundoff error!?  Why doesn't it just use the exact value of one
>tenth?"
>
>DWIM?
>
>-- gil
>
>--
>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
::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

CMS OS SIMULATION BSAM OPEN and ABEND for non-existing files on INPUT

[Thomas David Rivers]

I'm getting down-in-the-weeds on OS SIMULATION on CMS.

I have an older program where it does a FILEDEF for a non-existing
file; then the program does an OPEN (..,INPUT)  for the given DDNAME
from the filedef.

In the older program, the ABEND exit is driven - so we fail the OPEN
gracefully.

But - in a newer program, the ABEND exit is _not_ driven, and it believes
that same file is "there" (although it promptly gets an EOD when trying
to BSAM READ it.)  The DCBOFLGS bit indicates the DCB was "opened".
I've stared at the coding of the EXTLIST, etc... it _looks_ right... but my
ABEND exit is just not happening.

There is some mumbling in the CMS OS SIMULATION doc that says it allows
the opening of non-existing files for INPUT because CMS can't mimic an 
empty

(but existing) file vs. a non-existing file.

But - this older code clearly is getting the ABEND in this case... while 
the newer code

doesn't.

Whatever the difference is, it's subtle... so, I'm not sure what it 
could be.


I'm wondering if this triggers any thoughts for anyone...   if anyone 
has any

thoughts/pointers it would be appreciated.

  - Many thanks! -
  - Dave Rivers -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Clark Morris]

[Default] On 18 Jul 2019 09:42:13 -0700, in bit.listserv.ibm-main
000433f07816-dmarc-requ...@listserv.ua.edu (Paul Gilmartin) wrote:

>On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>>
>>The cardinal sin in language design is to make the compiler simpler at the 
>>expense of the user. ...
>> 
>I see a notable example of this in Rexx's not supporting expressions in 
>compound
>symbol tails which some have justified as making recognition of assignments 
>easier.
>
>OTOH, Pascal declined to provide an exponentiation operator in order to expose
>to programmers the underlying costly implementation:
>X ** Y is implemented in other languages as exp( log( X ) * Y )
>
>Physics graduate students complained to me when the FORTRAN runtime
>threw an exception on X ** 2.0 when X was negative.  "Why can't I square
>a negative number?"

Why won't FORTRAN square a negative number?  Is this behavior peculiar
to FORTRAN?

Clark Morris
>
>(Some BASIC interpreters take special paths when a number has an integral 
>value.)
>
>And they complained when (FORTRAN, but easier in C pseudocode):
>for ( X = 0; X!=1.0; X+=0.1 ) { ...; }
>... never terminated.  "Roundoff error!?  Why doesn't it just use the exact 
>value
>of one tenth?"
>
>DWIM?
>
>-- gil
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Abend entry LE Assembler

[Joseph Reichman]

Thanks I’ll try lt






> On Jul 18, 2019, at 1:16 PM, Don Poitras  wrote:
> 
> You might be able to get away with changing:
> 
> A1C401B  DC V(TESTPRGE)
> to:
> A1C401B  DC V(CEESTART)
> 
> but your comment is wrong, you're not calling a DLL, you're calling an
> LE main program. The LE environment will be destroyed when you return
> from the call to A1C401B. I'm not sure what your intent is in having
> the non-LE assembler bit call the LE program. 
> 
> 
> In article <003f01d53d8a$e26579e0$a7306da0$@gmail.com> you wrote:
>> This is the whole Job   I ran TESTPRGD under test and Made a break point at
>> the BALR to CEEINIT expansion from CEEENTRY 
> 
>>  your edit profile using the command RECOVERY ON.  
>> //IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=,REGION=0M   
>> //* 
>> //STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)'
>> //SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB  
>> // DD DISP=SHR,DSN=CEE.SCEEMAC  
>> //SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
>> //SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
>> //SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
>> //SYSADATA DD DSN=&,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)   
>> //SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR  
>> //SYSLIN   DD DSN=&(TESTPRGD),DISP=(,PASS),  
>> //UNIT=SYSDA,SPACE=(80,(200,50,1))  
>> //SYSINDD  *
>> TESTPRGD CSECT  
>> TESTPRGD AMODE 31   
>> TESTPRGD RMODE ANY  
>> **  
>> *TEST PROGRAM TO CALL C/C++ DLL  *  
>> **  
>> YREGS  
>> STMR14,R12,12(R13) 
>> LR R3,R15  
>> USING  TESTPRGD,R3 
>> LR R14,R13 
>> LA R13,SAVEAREA
>> ST R14,SAVEAREA+4  
>> ST R13,8(,R14) 
>> *ESTAE  RECOVERY
>> L  R15,A1C401B 
>> BALR   R14,R15 
>> L  R13,4(,R13) 
>> LM R14,R12,12(R13) 
>> XR R15,R15 
>> BR R14   
>> 
>> RECOVERY DS 0D 
>> DC X'0700'
>> SAVEAREA DS 18F
>> A1C401B  DC V(TESTPRGE)
>> LTORG 
>> TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
>> *LOADEP=CEETEST
>> *LA  R1,PARM   
>> *LR  R15,R0
>> *BASRR14,R15   
>> CEEPCALL opendata,MF=(E,) 
>> XR  R15,R15   
>> CEETERM  RC=(R15) 
>> *CEEPDDA OPENDATA,SCOPE=IMPORT 
>> *ARM1DC A(STRING)  
>> *ARM DC A(FEEDBACK)
>> *TRING   DS 0H 
>> *DC H'8'   
>> *DC C'AT ENTRY'
>>  *EEDBACK DS CL12
>> DLLPPA   CEEPPA 
>> WORKAREA DSECT  
>> ORG  *+CEEDSASZ LEAVE SPACE FOR 

Re: Abend entry LE Assembler

[Seymour J Metz]

Try adding

 ENTRY TESTPRGE


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


From: IBM Mainframe Discussion List  on behalf of 
Joseph Reichman 
Sent: Thursday, July 18, 2019 1:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

This is the whole Job   I ran TESTPRGD under test and Made a break point at
the BALR to CEEINIT expansion from CEEENTRY

  your edit profile using the command RECOVERY ON.
//IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=,REGION=0M
//*
//STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)'
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=CEE.SCEEMAC
//SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSADATA DD DSN=&,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR
//SYSLIN   DD DSN=&(TESTPRGD),DISP=(,PASS),
//UNIT=SYSDA,SPACE=(80,(200,50,1))
//SYSINDD  *
TESTPRGD CSECT
TESTPRGD AMODE 31
TESTPRGD RMODE ANY
**
*TEST PROGRAM TO CALL C/C++ DLL  *
**
 YREGS
 STMR14,R12,12(R13)
 LR R3,R15
 USING  TESTPRGD,R3
 LR R14,R13
 LA R13,SAVEAREA
 ST R14,SAVEAREA+4
 ST R13,8(,R14)
*ESTAE  RECOVERY
 L  R15,A1C401B
 BALR   R14,R15
 L  R13,4(,R13)
 LM R14,R12,12(R13)
 XR R15,R15
 BR R14

 RECOVERY DS 0D
 DC X'0700'
SAVEAREA DS 18F
A1C401B  DC V(TESTPRGE)
 LTORG
TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
*LOADEP=CEETEST
*LA  R1,PARM
*LR  R15,R0
*BASRR14,R15
 CEEPCALL opendata,MF=(E,)
 XR  R15,R15
 CEETERM  RC=(R15)
*CEEPDDA OPENDATA,SCOPE=IMPORT
*ARM1DC A(STRING)
*ARM DC A(FEEDBACK)
*TRING   DS 0H
*DC H'8'
*DC C'AT ENTRY'
  *EEDBACK DS CL12
DLLPPA   CEEPPA
WORKAREA DSECT
 ORG  *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART
 DS 0D
WORKSIZE EQU *-WORKAREA
 CEEDSA MAPPING OF THE DYNAMIC SAVE AREA
 CEECAA MAPPING OF THE COMMON ANCHOR AREA
 CEEEDB MAPPING OF THE ENCLAVE DATA BLOCK
 END
/*
//*
//* LINK EDIT THE PROGRAM *
//*
//STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100),
// PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED'
//SYSPRINT DD SYSOUT=*
//SYSDEFSD DD SYSOUT=*
//OBJ  DD DSN=&,DISP=(OLD,PASS)
 //SYSDEFSD DD SYSOUT=*

//OBJ  DD DSN=&,DISP=(OLD,PASS)
//SYSLIB   DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB
// DD DISP=SHR,DSN=CEE.SCEELKED
//SYSLMOD  DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)
//SYSLIN   DD *
  IMPORT CODE,SYSADATA,opendata
  INCLUDE OBJ(TESTPRGD)
  INCLUDE SYSLIB(SYSADATA)
  ENTRY TESTPRGD
  NAME TESTPRGD(R)
/*
//



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Don Poitras
Sent: Thursday, July 18, 2019 12:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

In your link-edit, what did you set the entry point to? You were previously
using 64-bit, and CELQSTRT is what I mentioned would be correct for that.
Now that you're 31-bit, it needs to be CEESTART.

In article <834432fa-2af1-4e01-abc7-ad0fa62c4...@gmail.com> you wrote:
> As I told Binyamin I got a clean link
> > On Jul 18, 2019, at 12:26 PM, Charles Mills  wrote:
> >
> > PSW 078D1400 8002
> >
> > GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000
> >
> > A wild guess would be that you took a BALR 14,15 from address 2EC7C
> > to an unresolved EXTRN.
> >
> > Charles
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > Sent: Wednesday, July 17, 2019 10:26 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Abend entry LE Assembler
> >
> > That is the reason I pasted the CEEENTRY macro I did get a clean
> > return code from the binder
> >
> >
> >
> >
> >> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen
> >> 
> > wrote:
> >>
> >> This should be a clue.
> >>
> >> PSW 078D1400 8002
> >>
> >> Follow normal debugging techniques.
> >>
> >>
> >> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman
> >> 
> >> wrote:
> >>
> >> :>Hi
> >> :>
> >> :>
> >> :>
> >> :>
> >> :>
> >> :>I am getting the following abend  in the beginning of CEEETRY
> >> macro
> > seems
> >> :>like 

Re: LISTCAT by VOLUME

[David Spiegel]

Hi Frank,
The CBT VTOC Command Processor (File 112).
Caveat: I am partial to this (having used it for 37 years and having 
written a fix for it).

Regards,
David

On 2019-07-18 13:26, Seymour J Metz wrote:
> There are lot's of ways. IEHLIST has been an option for half a century, there 
> are some newer IBM utilities, and there are many more user friendly 
> facilities on the CBT tape.
>
>
> --
> Shmuel (Seymour J.) Metz
> https://nam02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C0099373e6f9f4c5a583508d70ba51a1c%7C84df9e7fe9f640afb435%7C1%7C0%7C636990676073513852sdata=8r09ynC49WtwvQ82x3%2F6gzJIjGF3xSlHdgTOWl2Gyec%3Dreserved=0
>
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Frank Swarbrick 
> Sent: Wednesday, July 17, 2019 4:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: LISTCAT by VOLUME
>
> Is there a way to use IDCAMS LISTCAT (or something else, I suppose) to show 
> what datasets are on each volume (or specified volumes) and how much space 
> they are taking?  If so, how?
> Thanks!
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .
>


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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Seymour J Metz]

I refer to such helpful operators as "Molly Malone", from "She of a faever, 
from which none could save her, and that was the end of sweet Molly Malone".


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


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, July 18, 2019 1:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

On Thu, 18 Jul 2019 16:51:57 +, Seymour J Metz wrote:

>OOREXX now allows the equivalent of expressions in tails:
>
>  stem[tail expression]
>
What are those strange characters, "[" and "]"?  What are their EBCDIC code 
points?

>If X is a floating point (REAL) variable, why shouldn't x**(-1) be legal?
>
X**(-0.5) is more a problem when X may be negative.

>A for using a floating point variable as a control variable, I have no 
>sympathy. In the real world, measuring devices have errors and you should 
>never expect equality of floating point numbers.
>
C really hasn't a control variable; merely initial, final, and terminal 
conditions.

Rexx has control variables, but unlike other languages they may be modified
within the loop, with well-specified semantics.

In ALGOL-68, the loop statement itself declares the control variable, which is
local to the repetitive block and acts like a constant in that it's 
syntactically
prohibited to modify it.

>I have never seen DWIM. ...
>
Indeed.  And a Bad Example is batch operators who "fix" programmers' coding
errors to do the favor of sparing a turnaround latency.

-- gil

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

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Seymour J Metz]

Which EBCDIC code page?

Brackets (ASCII 5B and 5D) are not in the same position for all EBCDIC code 
pages. The important ones are:

 037
   BA
   BB

1047
AD
BD

I don't know where they are


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


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, July 18, 2019 1:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

On Thu, 18 Jul 2019 16:51:57 +, Seymour J Metz wrote:

>OOREXX now allows the equivalent of expressions in tails:
>
>  stem[tail expression]
>
What are those strange characters, "[" and "]"?  What are their EBCDIC code 
points?

>If X is a floating point (REAL) variable, why shouldn't x**(-1) be legal?
>
X**(-0.5) is more a problem when X may be negative.

>A for using a floating point variable as a control variable, I have no 
>sympathy. In the real world, measuring devices have errors and you should 
>never expect equality of floating point numbers.
>
C really hasn't a control variable; merely initial, final, and terminal 
conditions.

Rexx has control variables, but unlike other languages they may be modified
within the loop, with well-specified semantics.

In ALGOL-68, the loop statement itself declares the control variable, which is
local to the repetitive block and acts like a constant in that it's 
syntactically
prohibited to modify it.

>I have never seen DWIM. ...
>
Indeed.  And a Bad Example is batch operators who "fix" programmers' coding
errors to do the favor of sparing a turnaround latency.

-- gil

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

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Paul Gilmartin]

On Thu, 18 Jul 2019 16:51:57 +, Seymour J Metz wrote:

>OOREXX now allows the equivalent of expressions in tails:
>
>  stem[tail expression]
>
What are those strange characters, "[" and "]"?  What are their EBCDIC code 
points?

>If X is a floating point (REAL) variable, why shouldn't x**(-1) be legal? 
>
X**(-0.5) is more a problem when X may be negative.

>A for using a floating point variable as a control variable, I have no 
>sympathy. In the real world, measuring devices have errors and you should 
>never expect equality of floating point numbers.
>
C really hasn't a control variable; merely initial, final, and terminal 
conditions.

Rexx has control variables, but unlike other languages they may be modified
within the loop, with well-specified semantics.

In ALGOL-68, the loop statement itself declares the control variable, which is
local to the repetitive block and acts like a constant in that it's 
syntactically
prohibited to modify it.

>I have never seen DWIM. ...
>
Indeed.  And a Bad Example is batch operators who "fix" programmers' coding
errors to do the favor of sparing a turnaround latency.

-- gil

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

Re: LISTCAT by VOLUME

[Seymour J Metz]

There are lot's of ways. IEHLIST has been an option for half a century, there 
are some newer IBM utilities, and there are many more user friendly facilities 
on the CBT tape.


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


From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Wednesday, July 17, 2019 4:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: LISTCAT by VOLUME

Is there a way to use IDCAMS LISTCAT (or something else, I suppose) to show 
what datasets are on each volume (or specified volumes) and how much space they 
are taking?  If so, how?
Thanks!

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

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Seymour J Metz]

Implicit conversion is always problematical; you're damned if you do and damned 
if you don't. The tradeoff in PL/I was in favor of expressive power, and I sort 
of agree, although experience with Ada has given me an appreciation of strict 
typing.


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


From: IBM Mainframe Discussion List  on behalf of 
Bernd Oppolzer 
Sent: Wednesday, July 17, 2019 5:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

Am 17.07.2019 um 19:54 schrieb Paul Gilmartin:
> On Wed, 17 Jul 2019 12:22:35 -0400, Steve Smith wrote:
>
>> The original sin was making "=" the assignment operator.  I guess we can
>> blame that on FORTRAN, and it must make mathematicians cringe still.
>>
> I once (ca. 1967) needed to enlighten and disillusion a naive
> but persistent physics graduate student who had coded in what
> he believed was FORTRAN something akin to:
>
> B( 1 ) = X( 1 ) * 1 + X( 2 ) * 2
> B( 2 ) = X( 1 ) * 3 + X( 2 ) * 4
>
> B( 1 ) = 3.14
> B( 2 ) = 2.718
>
> PRINT X( 1 ) X( 2 )
> ...
> expecting to solve a system of linear equations, apparently assuming
> that "=" was not assignment but a sort of identity declaration.  I.e.
> determine the values of X() that satisfy all the "equations".  I can
> barely imagine the number of false starts he needed to circumvent
> syntax errors before he approached me for counsel.
>
> -- gil
>

This reminds me of a similar story :-)

I wrote a PL/1 parser for a customer of mine some years ago;
the idea was to detect some logic errors and flag some language constructs
which the customer did not want (not allowed by site standards); and to
issue
warnings on some constructs which the compiler at that time couldn't.

There were several thousand sources to be checked, because it was a
large company.

About 10 percent of the programs had some sort of issue.

One program had a coding like this:

IF 9 < ZZ < 20 THEN DO;
  ...

this was flagged by my parser; it complained because a BIT value
(9 < ZZ) is compared with a numeric value (20). The PL/1 compiler
didn't say anything, no error or warning.

Obviously this is not what the coder intended; the coder must have had
a mathematics background.  He (or she) apparently asked for

IF (9 < ZZ) & (ZZ < 20) THEN DO;
   ...

The original coding is always TRUE, BTW. ('0'B and '1'B are both < 20).

This error has not been detected for more than 20 years :-)
and IMHO in this case again the problem is the PL/1 language definition,
because it allows all these implicit type conversions, even very strange
ones.

Kind regards

Bernd

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

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

Re: Abend entry LE Assembler

[Don Poitras]

You might be able to get away with changing:

A1C401B  DC V(TESTPRGE)
 to:
A1C401B  DC V(CEESTART)

but your comment is wrong, you're not calling a DLL, you're calling an
LE main program. The LE environment will be destroyed when you return
from the call to A1C401B. I'm not sure what your intent is in having
the non-LE assembler bit call the LE program. 


In article <003f01d53d8a$e26579e0$a7306da0$@gmail.com> you wrote:
> This is the whole Job   I ran TESTPRGD under test and Made a break point at
> the BALR to CEEINIT expansion from CEEENTRY 

>   your edit profile using the command RECOVERY ON.  
> //IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=,REGION=0M   
> //* 
> //STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)'
> //SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB  
> // DD DISP=SHR,DSN=CEE.SCEEMAC  
> //SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
> //SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
> //SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
> //SYSADATA DD DSN=&,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)   
> //SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR  
> //SYSLIN   DD DSN=&(TESTPRGD),DISP=(,PASS),  
> //UNIT=SYSDA,SPACE=(80,(200,50,1))  
> //SYSINDD  *
> TESTPRGD CSECT  
> TESTPRGD AMODE 31   
> TESTPRGD RMODE ANY  
> **  
> *TEST PROGRAM TO CALL C/C++ DLL  *  
> **  
>  YREGS  
>  STMR14,R12,12(R13) 
>  LR R3,R15  
>  USING  TESTPRGD,R3 
>  LR R14,R13 
>  LA R13,SAVEAREA
>  ST R14,SAVEAREA+4  
>  ST R13,8(,R14) 
> *ESTAE  RECOVERY
>  L  R15,A1C401B 
>  BALR   R14,R15 
>  L  R13,4(,R13) 
>  LM R14,R12,12(R13) 
>  XR R15,R15 
>  BR R14   
>   
>  RECOVERY DS 0D 
>  DC X'0700'
> SAVEAREA DS 18F
> A1C401B  DC V(TESTPRGE)
>  LTORG 
> TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
> *LOADEP=CEETEST
> *LA  R1,PARM   
> *LR  R15,R0
> *BASRR14,R15   
>  CEEPCALL opendata,MF=(E,) 
>  XR  R15,R15   
>  CEETERM  RC=(R15) 
> *CEEPDDA OPENDATA,SCOPE=IMPORT 
> *ARM1DC A(STRING)  
> *ARM DC A(FEEDBACK)
> *TRING   DS 0H 
> *DC H'8'   
> *DC C'AT ENTRY'
>   *EEDBACK DS CL12
> DLLPPA   CEEPPA 
> WORKAREA DSECT  
>  ORG  *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART 
>  DS 0D  
> 

Re: Abend entry LE Assembler

[Seymour J Metz]

Look at R15. the bottom half is 0 with a 31-bit mode flag. EQA10OSM is calling 
an external routine that was not resolved, presumably due to, e.g., NCAL. Back 
up from 8002EC7C and look for the load of R15, then look for the relocation 
information at that location.


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


From: IBM Mainframe Discussion List  on behalf of 
Joseph Reichman 
Sent: Wednesday, July 17, 2019 10:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Abend entry LE Assembler

Hi





I am getting the following abend  in the beginning of CEEETRY macro seems
like the call to CEEINIT





This is the abend



CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET: IBMUSER.D

03169.IBMUSER

IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ()

IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO IBMUSER.D198.T2203169.IBMUSE

CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.

CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 

 WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138

 AT THE TIME OF INTERRUPT

 PSW 078D1400 8002

 GPR 0-3 270F 1F7E1750 1F7D9170 1F7E1364

 GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C

 GPR 8-B   1F808670 0002EE78

 GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000

 FLT 0-2 2610  1800

 FLT 4-6 40517CC1B727220B  40A2F9836E4E4415

CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 

 WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138

 AT THE TIME OF INTERRUPT

 PSW 078D0400 8002







This is the entry CEEENTRY macro







TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE





Running it under TEST it abends at the balr to CEEINIT



   STM   14,12,CEEDSAR14-C

   L 2,CEEINPL0002

   L 15,CEEINT0002

   DROP  15

   BALR  14,15

   LR2,1

   L 14,752(,12)

   OI8(14),X'80'

   L 1,CEEDSANAB-CEEDS

   IILH  0,CEEY0002/65536

   IILL  0,CEEY0002-(CEEY0

   ALR   0,1








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

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

Re: Abend entry LE Assembler

[Joseph Reichman]

This is the whole Job   I ran TESTPRGD under test and Made a break point at
the BALR to CEEINIT expansion from CEEENTRY 

  your edit profile using the command RECOVERY ON.  
//IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=,REGION=0M   
//* 
//STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)'
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB  
// DD DISP=SHR,DSN=CEE.SCEEMAC  
//SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
//SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
//SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100)) 
//SYSADATA DD DSN=&,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)   
//SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR  
//SYSLIN   DD DSN=&(TESTPRGD),DISP=(,PASS),  
//UNIT=SYSDA,SPACE=(80,(200,50,1))  
//SYSINDD  *
TESTPRGD CSECT  
TESTPRGD AMODE 31   
TESTPRGD RMODE ANY  
**  
*TEST PROGRAM TO CALL C/C++ DLL  *  
**  
 YREGS  
 STMR14,R12,12(R13) 
 LR R3,R15  
 USING  TESTPRGD,R3 
 LR R14,R13 
 LA R13,SAVEAREA
 ST R14,SAVEAREA+4  
 ST R13,8(,R14) 
*ESTAE  RECOVERY
 L  R15,A1C401B 
 BALR   R14,R15 
 L  R13,4(,R13) 
 LM R14,R12,12(R13) 
 XR R15,R15 
 BR R14   
  
 RECOVERY DS 0D 
 DC X'0700'
SAVEAREA DS 18F
A1C401B  DC V(TESTPRGE)
 LTORG 
TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
*LOADEP=CEETEST
*LA  R1,PARM   
*LR  R15,R0
*BASRR14,R15   
 CEEPCALL opendata,MF=(E,) 
 XR  R15,R15   
 CEETERM  RC=(R15) 
*CEEPDDA OPENDATA,SCOPE=IMPORT 
*ARM1DC A(STRING)  
*ARM DC A(FEEDBACK)
*TRING   DS 0H 
*DC H'8'   
*DC C'AT ENTRY'
  *EEDBACK DS CL12
DLLPPA   CEEPPA 
WORKAREA DSECT  
 ORG  *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART 
 DS 0D  
WORKSIZE EQU *-WORKAREA 
 CEEDSA MAPPING OF THE DYNAMIC SAVE AREA
 CEECAA MAPPING OF THE COMMON ANCHOR AREA   
 CEEEDB MAPPING OF THE ENCLAVE DATA BLOCK   
 END
/*  
//* 
//* LINK EDIT THE PROGRAM * 

Re: Abend entry LE Assembler

[Don Poitras]

In your link-edit, what did you set the entry point to? You were previously
using 64-bit, and CELQSTRT is what I mentioned would be correct for that.
Now that you're 31-bit, it needs to be CEESTART. 

In article <834432fa-2af1-4e01-abc7-ad0fa62c4...@gmail.com> you wrote:
> As I told Binyamin I got a clean link
> > On Jul 18, 2019, at 12:26 PM, Charles Mills  wrote:
> > 
> > PSW 078D1400 8002   
> > 
> > GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000 
> > 
> > A wild guess would be that you took a BALR 14,15 from address 2EC7C to an
> > unresolved EXTRN.
> > 
> > Charles
> > 
> > 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> > Behalf Of Joseph Reichman
> > Sent: Wednesday, July 17, 2019 10:26 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Abend entry LE Assembler
> > 
> > That is the reason I pasted the CEEENTRY macro I did get a clean return code
> > from the binder 
> > 
> > 
> > 
> > 
> >> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen 
> > wrote:
> >> 
> >> This should be a clue.
> >> 
> >> PSW 078D1400 8002
> >> 
> >> Follow normal debugging techniques.
> >> 
> >> 
> >> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman 
> >> wrote:
> >> 
> >> :>Hi 
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :>I am getting the following abend  in the beginning of CEEETRY macro
> > seems
> >> :>like the call to CEEINIT
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :>This is the abend
> >> :>
> >> :> 
> >> :>
> >> :>CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET:
> > IBMUSER.D
> >> :>
> >> :>03169.IBMUSER
> > 
> >> :>
> >> :>IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ()
> > 
> >> :>
> >> :>IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO
> > IBMUSER.D198.T2203169.IBMUSE
> >> :>
> >> :>CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.
> > 
> >> :>
> >> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> > 
> >> :>
> >> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> > 
> >> :>
> >> :> AT THE TIME OF INTERRUPT
> > 
> >> :>
> >> :> PSW 078D1400 8002
> > 
> >> :>
> >> :> GPR 0-3 270F 1F7E1750 1F7D9170 1F7E1364
> > 
> >> :>
> >> :> GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C
> > 
> >> :>
> >> :> GPR 8-B   1F808670 0002EE78
> > 
> >> :>
> >> :> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000
> > 
> >> :>
> >> :> FLT 0-2 2610  1800
> > 
> >> :>
> >> :> FLT 4-6 40517CC1B727220B  40A2F9836E4E4415
> > 
> >> :>
> >> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> > 
> >> :>
> >> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> > 
> >> :>
> >> :> AT THE TIME OF INTERRUPT
> > 
> >> :>
> >> :> PSW 078D0400 8002
> > 
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :>This is the entry CEEENTRY macro
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :>TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
> >> :>
> >> :> 
> >> :>
> >> :> 
> >> :>
> >> :>Running it under TEST it abends at the balr to CEEINIT
> >> :>
> >> :> 
> >> :>
> >> :>   STM   14,12,CEEDSAR14-C
> >> :>
> >> :>   L 2,CEEINPL0002
> >> :>
> >> :>   L 15,CEEINT0002
> >> :>
> >> :>   DROP  15   
> >> :>
> >> :>   BALR  14,15
> >> :>
> >> :>   LR2,1  
> >> :>
> >> :>   L 14,752(,12)  
> >> :>
> >> :>   OI8(14),X'80'  
> >> :>
> >> :>   L 1,CEEDSANAB-CEEDS
> >> :>
> >> :>   IILH  0,CEEY0002/65536 
> >> :>
> >> :>   IILL  0,CEEY0002-(CEEY0
> >> :>
> >> :>   ALR   0,1  
> >> :>
> >> :> 
> >> :>
> >> :>  
> >> :>
> >> :> 
> >> :>
> >> :>
> >> :>--
> >> :>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
> > 

Re: Abend entry LE Assembler

[Charles Mills]

Unresolved WXTRN? What is at 2EC76? I am *guessing* something like

LR15,something
BALR R14,R15

and 'something' contains zero at run time.

(There might be some intervening instructions between the L and the BALR.)

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Thursday, July 18, 2019 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

As I told Binyamin I got a clean link





> On Jul 18, 2019, at 12:26 PM, Charles Mills  wrote:
> 
> PSW 078D1400 8002   
> 
> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000 
> 
> A wild guess would be that you took a BALR 14,15 from address 2EC7C to an
> unresolved EXTRN.
> 
> Charles
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Joseph Reichman
> Sent: Wednesday, July 17, 2019 10:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Abend entry LE Assembler
> 
> That is the reason I pasted the CEEENTRY macro I did get a clean return
code
> from the binder 
> 
> 
> 
> 
>> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen

> wrote:
>> 
>> This should be a clue.
>> 
>> PSW 078D1400 8002
>> 
>> Follow normal debugging techniques.
>> 
>> 
>> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman

>> wrote:
>> 
>> :>Hi 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>I am getting the following abend  in the beginning of CEEETRY macro
> seems
>> :>like the call to CEEINIT
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>This is the abend
>> :>
>> :> 
>> :>
>> :>CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET:
> IBMUSER.D
>> :>
>> :>03169.IBMUSER
> 
>> :>
>> :>IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ()
> 
>> :>
>> :>IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO
> IBMUSER.D198.T2203169.IBMUSE
>> :>
>> :>CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.
> 
>> :>
>> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> 
>> :>
>> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> 
>> :>
>> :> AT THE TIME OF INTERRUPT
> 
>> :>
>> :> PSW 078D1400 8002
> 
>> :>
>> :> GPR 0-3 270F 1F7E1750 1F7D9170 1F7E1364
> 
>> :>
>> :> GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C
> 
>> :>
>> :> GPR 8-B   1F808670 0002EE78
> 
>> :>
>> :> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000
> 
>> :>
>> :> FLT 0-2 2610  1800
> 
>> :>
>> :> FLT 4-6 40517CC1B727220B  40A2F9836E4E4415
> 
>> :>
>> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> 
>> :>
>> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> 
>> :>
>> :> AT THE TIME OF INTERRUPT
> 
>> :>
>> :> PSW 078D0400 8002
> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>This is the entry CEEENTRY macro
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>Running it under TEST it abends at the balr to CEEINIT
>> :>
>> :> 
>> :>
>> :>   STM   14,12,CEEDSAR14-C
>> :>
>> :>   L 2,CEEINPL0002
>> :>
>> :>   L 15,CEEINT0002
>> :>
>> :>   DROP  15   
>> :>
>> :>   BALR  14,15
>> :>
>> :>   LR2,1  
>> :>
>> :>   L 14,752(,12)  
>> :>
>> :>   OI8(14),X'80'  
>> :>
>> :>   L 1,CEEDSANAB-CEEDS
>> :>
>> :>   IILH  0,CEEY0002/65536 
>> :>
>> :>   IILL  0,CEEY0002-(CEEY0
>> :>
>> :>   ALR   0,1  
>> :>
>> :> 
>> :>
>> :>  
>> :>
>> :> 
>> :>
>> :>
>> :>--
>> :>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
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the 

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Seymour J Metz]

OOREXX now allows the equivalent of expressions in tails:

  stem[tail expression]

If X is a floating point (REAL) variable, why shouldn't x**(-1) be legal? 

A for using a floating point variable as a control variable, I have no 
sympathy. In the real world, measuring devices have errors and you should never 
expect equality of floating point numbers.

I have never seen DWIM. I have seen Do what I didn't mean but he erroneously 
assumed I meant (DWIDMBHETIM).


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


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, July 18, 2019 12:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>
>The cardinal sin in language design is to make the compiler simpler at the 
>expense of the user. ...
>
I see a notable example of this in Rexx's not supporting expressions in compound
symbol tails which some have justified as making recognition of assignments 
easier.

OTOH, Pascal declined to provide an exponentiation operator in order to expose
to programmers the underlying costly implementation:
X ** Y is implemented in other languages as exp( log( X ) * Y )

Physics graduate students complained to me when the FORTRAN runtime
threw an exception on X ** 2.0 when X was negative.  "Why can't I square
a negative number?"

(Some BASIC interpreters take special paths when a number has an integral 
value.)

And they complained when (FORTRAN, but easier in C pseudocode):
for ( X = 0; X!=1.0; X+=0.1 ) { ...; }
... never terminated.  "Roundoff error!?  Why doesn't it just use the exact 
value
of one tenth?"

DWIM?

-- gil

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

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

Re: Dynamic LINKLIST impact

[Joel C. Ewing]

The descriptions I find for the UPDATE DELAY=nn parameter are rather
terse.  It only claims to delay "closing and unallocating LNKLST data
sets that are no longer in use", which sounds like it shouldn't reduce
the exposure unless the "no  longer in use" determination is
inaccurate.  Does the maximum of 255 seconds delay actually inhibit
starting new actions on any of the old LNKLST datasets that that might
cause problems, while allowing some problematic usage to complete?  If
so, perhaps DELAY=255 should be the default.  If not, why ever use it?

It seems rather obvious that what you would want LNKLIST UPDATE do is
insure that any in-flight or incomplete loads of modules are forced to
complete before the old LNKLST definitions are allowed to disappear, so
that the only concern would be whether versions of complete load modules
fetched after the UPDATE were compatible with any complete load modules
fetched before the UPDATE. 

More often than not you know precisely what modules have changed (in
some cases that is nothing if the  only object was to re-size or move a
data set), and  one can frequently make a reasonable, and sometimes
exact, evaluation as to whether there is any exposure from module
incompatibility.  For those cases where you know that incompatibility at
the module level is impossible, or that looping a few specific address
spaces will resolve all compatibility issues, someone should be able to
re-design LNKLST UPDATE so that it is 100% safe when used within those
contraints!
    Joel C Ewing

On 7/18/19 7:10 AM, Peter Relson wrote:
> 
> Is it recommended to do a dynamic LINKLIST during a peak production hours 
> ?
> Will there be any impact to the system during that time as we stop LLA as
> well.
> 
>
> I agree with all the responses.
>
> The real answer depends on what the OP means by "do a dynamic LINKLIST". 
> If it means only "define and activate a new LNKLST set", then there is no 
> problem. That is the design point for the dynamic LNKLST function. I think 
> of "LNKLST update" as "unpredictably dangerous", both for the module 
> mismatch case that Tom M mentioned and for the cases where you rip things 
> out from underneath a fetch-in-progress or where PDSE operations are 
> involved (which can have longer durations iof sensitivity) -- the DELAY 
> option of LNKLST UPDATE should be considered for any use of UPDATE. 
>
> There is potentially significant performance impact to any system if you 
> "stop LLA". But activating a new LNKLST set does not require stopping LLA. 
> You should not stop LLA if activating a new LNKLST set.
>
> Peter Relson
> z/OS Core Technology Design
>
> ...


-- 
Joel C. Ewing

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

Re: Where put the notional constant in a condition (Was RE: JCL COND Parameter)

[Paul Gilmartin]

On Tue, 16 Jul 2019 19:22:51 +, Seymour J Metz wrote:
>
>The cardinal sin in language design is to make the compiler simpler at the 
>expense of the user. ...
> 
I see a notable example of this in Rexx's not supporting expressions in compound
symbol tails which some have justified as making recognition of assignments 
easier.

OTOH, Pascal declined to provide an exponentiation operator in order to expose
to programmers the underlying costly implementation:
X ** Y is implemented in other languages as exp( log( X ) * Y )

Physics graduate students complained to me when the FORTRAN runtime
threw an exception on X ** 2.0 when X was negative.  "Why can't I square
a negative number?"

(Some BASIC interpreters take special paths when a number has an integral 
value.)

And they complained when (FORTRAN, but easier in C pseudocode):
for ( X = 0; X!=1.0; X+=0.1 ) { ...; }
... never terminated.  "Roundoff error!?  Why doesn't it just use the exact 
value
of one tenth?"

DWIM?

-- gil

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

Re: Abend entry LE Assembler

[Joseph Reichman]

As I told Binyamin I got a clean link





> On Jul 18, 2019, at 12:26 PM, Charles Mills  wrote:
> 
> PSW 078D1400 8002   
> 
> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000 
> 
> A wild guess would be that you took a BALR 14,15 from address 2EC7C to an
> unresolved EXTRN.
> 
> Charles
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Joseph Reichman
> Sent: Wednesday, July 17, 2019 10:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Abend entry LE Assembler
> 
> That is the reason I pasted the CEEENTRY macro I did get a clean return code
> from the binder 
> 
> 
> 
> 
>> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen 
> wrote:
>> 
>> This should be a clue.
>> 
>> PSW 078D1400 8002
>> 
>> Follow normal debugging techniques.
>> 
>> 
>> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman 
>> wrote:
>> 
>> :>Hi 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>I am getting the following abend  in the beginning of CEEETRY macro
> seems
>> :>like the call to CEEINIT
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>This is the abend
>> :>
>> :> 
>> :>
>> :>CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET:
> IBMUSER.D
>> :>
>> :>03169.IBMUSER
> 
>> :>
>> :>IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ()
> 
>> :>
>> :>IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO
> IBMUSER.D198.T2203169.IBMUSE
>> :>
>> :>CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.
> 
>> :>
>> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> 
>> :>
>> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> 
>> :>
>> :> AT THE TIME OF INTERRUPT
> 
>> :>
>> :> PSW 078D1400 8002
> 
>> :>
>> :> GPR 0-3 270F 1F7E1750 1F7D9170 1F7E1364
> 
>> :>
>> :> GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C
> 
>> :>
>> :> GPR 8-B   1F808670 0002EE78
> 
>> :>
>> :> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000
> 
>> :>
>> :> FLT 0-2 2610  1800
> 
>> :>
>> :> FLT 4-6 40517CC1B727220B  40A2F9836E4E4415
> 
>> :>
>> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 
> 
>> :>
>> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138
> 
>> :>
>> :> AT THE TIME OF INTERRUPT
> 
>> :>
>> :> PSW 078D0400 8002
> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>This is the entry CEEENTRY macro
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
>> :>
>> :> 
>> :>
>> :> 
>> :>
>> :>Running it under TEST it abends at the balr to CEEINIT
>> :>
>> :> 
>> :>
>> :>   STM   14,12,CEEDSAR14-C
>> :>
>> :>   L 2,CEEINPL0002
>> :>
>> :>   L 15,CEEINT0002
>> :>
>> :>   DROP  15   
>> :>
>> :>   BALR  14,15
>> :>
>> :>   LR2,1  
>> :>
>> :>   L 14,752(,12)  
>> :>
>> :>   OI8(14),X'80'  
>> :>
>> :>   L 1,CEEDSANAB-CEEDS
>> :>
>> :>   IILH  0,CEEY0002/65536 
>> :>
>> :>   IILL  0,CEEY0002-(CEEY0
>> :>
>> :>   ALR   0,1  
>> :>
>> :> 
>> :>
>> :>  
>> :>
>> :> 
>> :>
>> :>
>> :>--
>> :>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
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Abend entry LE Assembler

[Charles Mills]

 PSW 078D1400 8002   

 GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000 

A wild guess would be that you took a BALR 14,15 from address 2EC7C to an
unresolved EXTRN.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Wednesday, July 17, 2019 10:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler

That is the reason I pasted the CEEENTRY macro I did get a clean return code
from the binder 




> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen 
wrote:
> 
> This should be a clue.
> 
> PSW 078D1400 8002
> 
> Follow normal debugging techniques.
> 
> 
> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman 
> wrote:
> 
> :>Hi 
> :>
> :> 
> :>
> :> 
> :>
> :>I am getting the following abend  in the beginning of CEEETRY macro
seems
> :>like the call to CEEINIT
> :>
> :> 
> :>
> :> 
> :>
> :>This is the abend
> :>
> :> 
> :>
> :>CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET:
IBMUSER.D
> :>
> :>03169.IBMUSER

> :>
> :>IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ()

> :>
> :>IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO
IBMUSER.D198.T2203169.IBMUSE
> :>
> :>CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.

> :>
> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 

> :>
> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138

> :>
> :> AT THE TIME OF INTERRUPT

> :>
> :> PSW 078D1400 8002

> :>
> :> GPR 0-3 270F 1F7E1750 1F7D9170 1F7E1364

> :>
> :> GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C

> :>
> :> GPR 8-B   1F808670 0002EE78

> :>
> :> GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000

> :>
> :> FLT 0-2 2610  1800

> :>
> :> FLT 4-6 40517CC1B727220B  40A2F9836E4E4415

> :>
> :>CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 

> :>
> :> WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138

> :>
> :> AT THE TIME OF INTERRUPT

> :>
> :> PSW 078D0400 8002

> :>
> :> 
> :>
> :> 
> :>
> :> 
> :>
> :>This is the entry CEEENTRY macro
> :>
> :> 
> :>
> :> 
> :>
> :> 
> :>
> :>TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE
> :>
> :> 
> :>
> :> 
> :>
> :>Running it under TEST it abends at the balr to CEEINIT
> :>
> :> 
> :>
> :>   STM   14,12,CEEDSAR14-C
> :>
> :>   L 2,CEEINPL0002
> :>
> :>   L 15,CEEINT0002
> :>
> :>   DROP  15   
> :>
> :>   BALR  14,15
> :>
> :>   LR2,1  
> :>
> :>   L 14,752(,12)  
> :>
> :>   OI8(14),X'80'  
> :>
> :>   L 1,CEEDSANAB-CEEDS
> :>
> :>   IILH  0,CEEY0002/65536 
> :>
> :>   IILL  0,CEEY0002-(CEEY0
> :>
> :>   ALR   0,1  
> :>
> :> 
> :>
> :>  
> :>
> :> 
> :>
> :>
> :>--
> :>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

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

Re: [EXTERNAL] Re: z/OS Client Web Enablement Toolkit

[Sankaranarayanan, Vignesh]

There are samples in SYS1.SAMPLIB(HWTH*) too..

– Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kurt Quackenbush
Sent: 15 July 2019 17:10
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: z/OS Client Web Enablement Toolkit

On 7/15/2019 8:27 AM, Mark Eddy wrote:
> I am working with the z/OS Client Web Enablement Toolkit in REXX attempting 
> to get a sample to send a HTTPS request.
> I see that Galina Gorelik posted this statement on  Wed, 24 Oct 2018:
> We understand that having a working sample is a priority to you and we are 
> working on getting the sample updated as soon as we possibly can.
> We hope to have something shipped very soon.
> Have there been any updates to the samples or new samples released since Oct 
> 2018 that could help?
I can't speak about any official samples from the toolkit team, but...
this is way more than a simple HTTPS GET request, but check out 
SYS1.SAMPLIB(IZUDXEXP).  This is a REXX to invoke several z/OSMF Software 
Management REST APIs, which are HTTPS.

Kurt Quackenbush -- IBM, SMP/E Development Chuck Norris never uses CHECK when 
he applies PTFs.

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

MARKSANDSPENCER.COM

 Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

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

Re: Dynamic LINKLIST impact

[Peter Relson]

Is it recommended to do a dynamic LINKLIST during a peak production hours 
?
Will there be any impact to the system during that time as we stop LLA as
well.


I agree with all the responses.

The real answer depends on what the OP means by "do a dynamic LINKLIST". 
If it means only "define and activate a new LNKLST set", then there is no 
problem. That is the design point for the dynamic LNKLST function. I think 
of "LNKLST update" as "unpredictably dangerous", both for the module 
mismatch case that Tom M mentioned and for the cases where you rip things 
out from underneath a fetch-in-progress or where PDSE operations are 
involved (which can have longer durations iof sensitivity) -- the DELAY 
option of LNKLST UPDATE should be considered for any use of UPDATE. 

There is potentially significant performance impact to any system if you 
"stop LLA". But activating a new LNKLST set does not require stopping LLA. 
You should not stop LLA if activating a new LNKLST set.

Peter Relson
z/OS Core Technology Design


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

Re: LISTCAT by VOLUME [EXTERNAL]

[Wheeler, Simon]

Hi,

Although maybe only good for a few disks (can get slow when using volser 
masking for many disks), but ISPF 3.4 and P would create a list in your SPF 
LIST dataset.

thanks,
Simon.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Feller, Paul
Sent: 17 July 2019 21:41
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LISTCAT by VOLUME [EXTERNAL]

Well if you don't mind writing some code you could use the DCOLLECT function of 
IDCAMS to create a dataset.  Then you could write some code to read the dataset 
and create a list.

Thanks..

Paul Feller
AGT Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Wednesday, July 17, 2019 3:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LISTCAT by VOLUME [EXTERNAL]

On Wed, 17 Jul 2019 20:20:58 +, Frank Swarbrick wrote:

>Is there a way to use IDCAMS LISTCAT (or something else, I suppose) to show 
>what datasets are on each volume (or specified volumes) and how much space 
>they are taking?  If so, how?

IEHLIST LISTVTOC

--
Tom Marchant

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

--
Please note:  This message originated outside your organization. Please use 
caution when opening links or attachments.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
**
SSE and associated brands: Southern Electric, Scottish Hydro, SWALEC and 
Atlantic are all trading names of SSE Electricity Limited registered in England 
and Wales number 04094263 (supply of electricity and Feed-In Tariffs); Southern 
Electric Gas Limited registered in England and Wales number 02716495 (supply of 
gas); SSE Retail Telecoms Limited registered in England and Wales number 
10086511 (supply of home phone and broadband); SSE Home Services Limited 
registered in Scotland number SC292102 (boiler and heating repair, servicing, 
cover, boiler Installations and electrical wiring cover); SSE Energy Solutions 
Limited registered in Scotland number SC386054 (energy efficiency installations 
and insulation products). All members of the SSE Group. The registered office 
of SSE Electricity Limited, Southern Electric Gas Limited and SSE Retail 
Telecoms Limited is No. 1 Forbury Place, 43 Forbury Road, Reading, RG1 3JH. The 
registered office of SSE Home Services Limited and SSE Energy Solutions Limited 
is Inveralmond House, 200 Dunkeld Road, Perth, PH1 3AQ. SSE Electricity Limited 
is an appointed representative of SSE Home Services Limited. SSE Home Services 
Limited is authorised and regulated by the Financial Conduct Authority (FCA) 
under reference number 695476. You can check this on the Financial Services 
Register by visiting the FCA website.
**


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

Re: SMS for tape

[John McKown]

On Wed, Jul 17, 2019 at 3:28 PM Jesse 1 Robinson 
wrote:

> Thanks, this is encouraging. (We're still trying to figure out a
> non-disruptive non-chaotic way to test with SMS on for tape.) If we run
> this step for DASD
>
> // EXEC PGM=IEFBR14
> //SMSDSN   DD DISP=(NEW,KEEP),DSN=any.SMS.name,UNIT=SYSALLDA,...
>
> the data set gets cataloged even though not requested. Then a second run
> of the same step then fails because of dup name in the catalog.
>
> If this step can be run multiple times with UNIT=TAPE, then I think we'll
> be fine. Again, we don't know how common this practice is, but we don't
> want any nasty surprise.
>

Silly me will ask: "Why not DISP=(NEW,DELETE)?"

TRANSCRIPT:


3 //DD1 DD DISP=(NEW,DELETE),DSN=ASH009.JUNK.BAD,UNIT=SYSALLDA,
  // SPACE=(TRK,1)
ICH70001I ASH009   LAST ACCESS AT 06:23:02 ON THURSDAY, JULY 18, 2019
IEF236I ALLOC. FOR DOCMD9XX ALLOC
IGD101I SMS ALLOCATED TO DDNAME (DD1 )
DSN (ASH009.JUNK.BAD )
STORCLAS (SCTSO) MGMTCLAS (MCNOMIG) DATACLAS (DCSTD1)
VOL SER NOS= TD1367

I will also ask why you don't the ACSTEST facility in ISMF? We test changes
to ACS routines by using ISMF option 7 -- Automatic Class Selection. In
that menu, option 1 to EDIT the appropriate ACS source routine. Then option
2 to TRANSLATE it into a "testing" SCDS dataset (which had been previously
refreshed from the production one). Option 3 to VALIDATE it. And finally
option 4 to set up tests. And we keep a number of test members around to
validate that everything is working as we desire.




>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ⇐=== NEW
> robin...@sce.com
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Erika Dawson
> Sent: Wednesday, July 17, 2019 10:35 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: SMS for tape
>
> With system-managed (SMStape), we SMS-manage the tape libraries and tape
> volumes and we do not manage the datasets on the tape volume (we leave this
> up to the tape management system and the application that owns the data).
> And though we use an ICF catalog for our meta data (tape volume and tape
> library-related information) we do not require that the tape datasets on an
> SMS-managed volume be cataloged.   This is where we differ from SMS-managed
> disk where the datasets are cataloged.   And with SMS-managed tape, the ACS
> routines and constructs are then used to manage the tape volumes and tape
> libraries.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
We all agree on the necessity of compromise. We just can't agree on when
it's necessary to compromise. -- Larry Wall

Maranatha! <><
John McKown

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