Re: Abend entry LE Assembler

[Joseph Reichman]

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

[Binyamin Dissen]

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

Re: SMS for tape

[Russell Witt]

Skip,
No problem, SMS-managed tape still does NOT have the same catalog requirement 
that SMS-managed DASD has. So, having multiple un-cataloged tape data sets with 
the same name is perfectly fine. No changes needed.
Russell WittCA 1 Architect


-Original Message-
From: Jesse 1 Robinson 
To: IBM-MAIN 
Sent: Tue, Jul 16, 2019 11:28 am
Subject: SMS for tape

For the first time ever, we are considering turning on SMS for tape. We've had 
decades of business practice where SMS and tape never intersect. My main 
concern is this: without SMS, a tape data set can be created and used without 
involving any ICF catalog. One 'benefit' of this practice is that multiple 
like-named tape data sets can coexist in the tape library as long a user is 
careful to provide correct volser information. The tape management system must 
support this option. We used CA-1 for years, and now RMM for years. As long as 
the user is careful, uncataloged tape data sets can be handled just fine.

SMS, however, introduces a whole new variable. In general, an SMS data 
set-certainly for DASD-must be cataloged. This precludes duplicate names. I 
don't want to argue the merits of this restriction. The point is that we may 
have countless cases of duplicate names. If they're not a problem within SMS, 
then we're cool. If we have to change business practices to accommodate SMS, we 
have a long and winding road to hoe.

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


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

Abend entry LE Assembler

[Joseph Reichman]

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

Re: Displaying raw disk data

[Peter Van Dyke]

Hi,
If you have IBM File Manager (FM) you could use the Disk Browse or Edit
functions available from option 5 on the main menu. For option 5.1 (Disk
Browse) you provide the data set name. After you press enter the data at
the start of the data set is displayed on a panel where you can change the
location in the data set by entering a chhh address value. See:
https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dbuse.html


For option 5.2 (Disk Track Edit) you supply the chhh address value (or
track number) along with the data set name on the entry panel. See:
https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dteuse.html


Note these are IBM Data Interfile Transfer, Testing, and Operations Utility
(DITTO) functions that have been included in FM.

You can also do similar processing in a batch job using the FM DP (Disk
Print) and DSR (Disk Record Scan) functions. See:
https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dpfun.html

https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/drsfun.html


Regards,
Peter Van Dyke
HCL Software

On Thu, 18 Jul 2019 at 05:41, Binyamin Dissen 
wrote:

> On Wed, 17 Jul 2019 13:01:05 -0400 Billy Ashton 
> wrote:
>
> :>Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
> :>seems to have been corrupted, as it does not contain the data that it
> :>should have.
>
> What does that mean? Completely wrong structure? Some records wrong?
> Unexpected end of file?
>
> :>Is there a way that I can examine the disk, using a chhh address and
> :>look at the raw data for the dataset and just before it, to see if I can
> :>identify anything?
>
> How would you calculate which disk addresses might contain the "real" data?
> Examine the entire disk?
>
> Is there some reason that reloading a backup wouldn't 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
>

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

[Jim Carpenter]

On 7/17/19 9:55 AM, David Crayford wrote:

On 2019-07-16 4:44 AM, Tom Marchant wrote:
Some C programmers are fond of if (7 == foo) rather than the more 
conventional if (foo == 7) because if one gets in the habit of doing 
so and then accidentally codes if (7 = foo) one gets a compile error 
rather than unexpected behavior.


For those not familiar with C, foo == 7 is a relational expression, 
foo = 7 is an assignment, and if (foo = 7) ... compiles as though 
one had coded


foo = 7; if (foo != 0) /* which will be true of course */ ...

which is not at all what was presumably intended.

7 = foo is always a compile-time error; you can't assign a variable 
to a constant.

It's one of the things that I don't like about C.
While you can code if 7 = foo and the compiler will catch your error, 
there is nothing

you can do to protect yourself against the mistake of if foo = bar.


It's not just C it's just about every programming language invented in 
the last 30 years. Of the languages I use I can list them:


C/C++, Java, JavaScript, Python, Lua, Ruby, Rust etc, etc.

Once you get used to it it's second nature. I get confused now when I 
code REXX with all the superfluous operators it has like <>, />. /< etc.




FYI, Python does not let you do 'if foo = bar'. It's a syntax error. But 
the newest Python, 3.8, will allow you to do 'if (foo := bar)' . Note 
the colon and parenthesis.


https://www.python.org/dev/peps/pep-0572/

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

[Frank Swarbrick]

I ended up using the VTOC utility functions in IBM File Manager.  Much nicer.  


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

Thanks!
Now to figure out how to read the results!  


From: IBM Mainframe Discussion List  on behalf of Tom 
Marchant <000a2a8c2020-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, July 17, 2019 2:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: LISTCAT by VOLUME

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

--
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: LISTCAT by VOLUME

[Mike Schwab]

Volume stats you can do a IDCAMS DCOLECT VOL(xxx*)
ODS(hlq.volume.dcolect) and generate a report from the records.
DSN stats available too.

On Wed, Jul 17, 2019 at 8:21 PM 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?
> Thanks!
>
> --
> 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

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

[Paul Gilmartin]

On Wed, 17 Jul 2019 23:59:04 +0200, Bernd Oppolzer wrote:
>
>One program had a coding like this:
>
>    IF 9 < ZZ < 20 THEN DO;
>      ...
There's an argument here for strong typing, prohibiting comparing
a boolean to a numeric without a cast.

> ... 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;
>   ...
I have used one language that supported the prior construct, with the
mathematicians' semantic.  I avoided using that.

-- gil

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

[Bernd Oppolzer]

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

Re: Displaying raw disk data

[Binyamin Dissen]

On Wed, 17 Jul 2019 13:01:05 -0400 Billy Ashton 
wrote:

:>Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
:>seems to have been corrupted, as it does not contain the data that it
:>should have.

What does that mean? Completely wrong structure? Some records wrong?
Unexpected end of file?

:>Is there a way that I can examine the disk, using a chhh address and
:>look at the raw data for the dataset and just before it, to see if I can
:>identify anything?

How would you calculate which disk addresses might contain the "real" data?
Examine the entire disk?

Is there some reason that reloading a backup wouldn't 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: LISTCAT by VOLUME

[Frank Swarbrick]

Thanks!
Now to figure out how to read the results!  


From: IBM Mainframe Discussion List  on behalf of Tom 
Marchant <000a2a8c2020-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, July 17, 2019 2:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: LISTCAT by VOLUME

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

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

Re: TapeTools VEHSYNC job

[Erika Dawson]

Here is the email address for the IBM Tape Tools Team:  tapet...@us.ibm.com

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

[Feller, Paul]

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

Re: SMS for tape

[Jesse 1 Robinson]

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.

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

Re: LISTCAT by VOLUME

[Tom Marchant]

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

LISTCAT by VOLUME

[Frank Swarbrick]

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

Re: x3270 on Mac Homebrew

[Jack J. Woehr]

On 7/17/19 11:19 AM, Martin Packer wrote:

Is anyone here in a position to encourage / facilitate Homebrew on Mac to
move x3270 on from 3.6ga5 to 3.6ga8?



Someone already did. https://github.com/Homebrew/homebrew-core/pull/42020


--
Jack J. Woehr # Science is more than a body of knowledge. It's a way of
www.well.com/~jax # thinking, a way of skeptically interrogating the universe
www.softwoehr.com # with a fine understanding of human fallibility. - Carl Sagan

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

Re: Displaying raw disk data

[Mike Stramba]

ZZSA on a "scratch / playground" LPAR ?

http://www.cbttape.org/~jjaeger/zzsa.html

Mike

On 7/17/19, Mark Jacobs <0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote:
> Here's two possibilities
>
> AMASPZAP with the CCHHR and ABSDUMPT control statements
> ADRDSSU with the PRINT TRACKS control statement
>
>
> I assume that FDR has something too, but I don't know what it is.
>
> Mark Jacobs
>
>
> Sent from ProtonMail, Swiss-based encrypted email.
>
> GPG Public Key -
> https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com
>
> ‐‐‐ Original Message ‐‐‐
> On Wednesday, July 17, 2019 1:01 PM, Billy Ashton 
> wrote:
>
>> Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
>> seems to have been corrupted, as it does not contain the data that it
>> should have.
>>
>> Is there a way that I can examine the disk, using a chhh address and
>> look at the raw data for the dataset and just before it, to see if I can
>> identify anything?
>>
>> Thank you for your recommendations.
>> Billy
>>
>> -
>>
>> 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: Displaying raw disk data [EXTERNAL]

[Feller, Paul]

I don't know if my response made it to the list so I'm sending it again.  Sorry 
for an repeats.

Thanks..

Paul Feller
AGT Mainframe Technical Support


-Original Message-
From: Feller, Paul 
Sent: Wednesday, July 17, 2019 12:09 PM
To: IBM Mainframe Discussion List 
Subject: RE: Displaying raw disk data [EXTERNAL]

Youi might try the ADRDSSU PRINT TRACK function.  I have not used this in a 
little while so I hope my notes in the JCL are still correct.

//*==*
//* ---  *
//* ¦+-,0,c1,max head #--+¦  *
//* +---TRACKS(--c1--+---+--)-+  *
//*   +-TRKS---+ ¦  +-,c1,max head #---+ ¦   *
//*  +-,h1--+--+-+   *
//* ¦  +-,max head #-+ ¦ *
//* +-,c2--+-+-+ *
//*+-,h2-+   *
//*  *
//* TRACKS specifies ranges of tracks to be printed. *
//* c1,h1*
//* Specifies the cylinder and head number of the beginning of the   *
//* range.  Specify hexadecimal numbers as X'c1' or X'h1'.   *
//*  *
//* c2,h2*
//* Specifies the cylinder and head number of the end of the range.  *
//* Specify hexadecimal numbers as X'c2' or X'h2'. The c2 must be*
//* greater than or equal to c1. If c2 equals c1, h2 must be greater *
//* than or equal to h1. *
//*  *
//*  PRINT  TRACKS(2,0,2,5) INDDNAME(DASD) CPVOLUME ADMINISTRATOR*
//*==*
//STEP0010 EXEC  PGM=ADRDSSU  
//SYSPRINT DDSYSOUT=* 
//DASD DDUNIT=3390,VOL=(PRIVATE,SER=ZOSPLA),DISP=SHR  
//SYSINDD*
 PRINT  TRACKS(0,0,2,5) INDDNAME(DASD) ADMINISTRATOR  
/*

Thanks..

Paul Feller
AGT Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Billy Ashton
Sent: Wednesday, July 17, 2019 12:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Displaying raw disk data [EXTERNAL]

Hi everyone, I have an unusual problem. Somehow, one of my disk datasets seems 
to have been corrupted, as it does not contain the data that it should have.

Is there a way that I can examine the disk, using a chhh address and look 
at the raw data for the dataset and just before it, to see if I can identify 
anything?

Thank you for your recommendations.
Billy

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

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

[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

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

Re: Displaying raw disk data

[Seymour J Metz]

No sample, but use DSN=FORMAT4.DSCB and the ABSDUMP statement. ABSDUMPT, if you 
want EBCDIC as well as hex, will also give translated opcodes tht will be 
useless in your case.

Note that the format of the start and stop are different depending on whether 
you are looking at an EAV..


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


From: IBM Mainframe Discussion List  on behalf of 
Billy Ashton 
Sent: Wednesday, July 17, 2019 1:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Displaying raw disk data

I am authorized, but have never done it...do you have a sample available
that I could start from?
B

On Wed, Jul 17, 2019 at 1:05 PM Seymour J Metz  wrote:

> If you're authorized, you can use AMASPZAP.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Billy Ashton 
> Sent: Wednesday, July 17, 2019 1:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Displaying raw disk data
>
> Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
> seems to have been corrupted, as it does not contain the data that it
> should have.
>
> Is there a way that I can examine the disk, using a chhh address and
> look at the raw data for the dataset and just before it, to see if I can
> identify anything?
>
> Thank you for your recommendations.
> Billy
>
> --
> 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: SMS for tape

[Erika Dawson]

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

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

[Mike Beer]

Ken Iverson, the inventor of APL differentiated also between the "-" as an 
operator
And the "-" as the sign of a negative number.

http://www.softwarepreservation.org/projects/apl/Books/APROGRAMMING%20LANGUAGE

best regards
Mike

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
John McKown
Gesendet: Wednesday, July 17, 2019 19:09
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Where put the notional constant in a condition (Was RE: JCL COND 
Parameter)

On Wed, Jul 17, 2019 at 11:59 AM Seymour J Metz  wrote:

> That's an excuse for Fortran, but PL/I already used colons, so why not :=?
>

I will go even farther that than. In today's world, especially outside of the z 
Series, I would prefer the APL assignment character: ← Of course, that is not 
on a keyboard. Well, except when I'm in my TN3270 emulator and turn on APL and 
press the [ key. But I love APL. So much so that I have a PC keyboard which has 
APL symbols on it. Because I use APL on Linux.



>
> By the time C came along that excuse was even less viable.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on 
> behalf of John McKown 
> Sent: Wednesday, July 17, 2019 12:50 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Where put the notional constant in a condition (Was RE: 
> JCL COND Parameter)
>
> On Wed, Jul 17, 2019 at 11:23 AM 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 haven't said anything, but I think you're correct. Of course, in the 
> "bad old days" of punch cards, there weren't a whole lot of choices. 
> For these types of languages, where = can mean either comparison or 
> assignment, I like to code comparisons with literals with the literal 
> on the left hand side. E.g. IF 0 = X THEN rather than IF X = 0 THEN.
>
>
>
> >
> > sas
> >
> >
> --
> 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
>
> --
> 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

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

x3270 on Mac Homebrew

[Martin Packer]

Is anyone here in a position to encourage / facilitate Homebrew on Mac to 
move x3270 on from 3.6ga5 to 3.6ga8?

Any reason not to?

Thanks, Martin

Martin Packer

zChampion, Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker

Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker

Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/or 
  
https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2


Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU


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

[John McKown]

On Wed, Jul 17, 2019 at 11:59 AM Seymour J Metz  wrote:

> That's an excuse for Fortran, but PL/I already used colons, so why not :=?
>

I will go even farther that than. In today's world, especially outside of
the z Series, I would prefer the APL assignment character: ← Of course,
that is not on a keyboard. Well, except when I'm in my TN3270 emulator and
turn on APL and press the [ key. But I love APL. So much so that I have a
PC keyboard which has APL symbols on it. Because I use APL on Linux.



>
> By the time C came along that excuse was even less viable.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of John McKown 
> Sent: Wednesday, July 17, 2019 12:50 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Where put the notional constant in a condition (Was RE: JCL
> COND Parameter)
>
> On Wed, Jul 17, 2019 at 11:23 AM 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 haven't said anything, but I think you're correct. Of course, in the "bad
> old days" of punch cards, there weren't a whole lot of choices. For these
> types of languages, where = can mean either comparison or assignment, I
> like to code comparisons with literals with the literal on the left hand
> side. E.g. IF 0 = X THEN rather than IF X = 0 THEN.
>
>
>
> >
> > sas
> >
> >
> --
> 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
>
> --
> 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

Re: Displaying raw disk data [EXTERNAL]

[Feller, Paul]

Youi might try the ADRDSSU PRINT TRACK function.  I have not used this in a 
little while so I hope my notes in the JCL are still correct.

//*==*
//* ---  *
//* ¦+-,0,c1,max head #--+¦  *
//* +---TRACKS(--c1--+---+--)-+  *
//*   +-TRKS---+ ¦  +-,c1,max head #---+ ¦   *
//*  +-,h1--+--+-+   *
//* ¦  +-,max head #-+ ¦ *
//* +-,c2--+-+-+ *
//*+-,h2-+   *
//*  *
//* TRACKS specifies ranges of tracks to be printed. *
//* c1,h1*
//* Specifies the cylinder and head number of the beginning of the   *
//* range.  Specify hexadecimal numbers as X'c1' or X'h1'.   *
//*  *
//* c2,h2*
//* Specifies the cylinder and head number of the end of the range.  *
//* Specify hexadecimal numbers as X'c2' or X'h2'. The c2 must be*
//* greater than or equal to c1. If c2 equals c1, h2 must be greater *
//* than or equal to h1. *
//*  *
//*  PRINT  TRACKS(2,0,2,5) INDDNAME(DASD) CPVOLUME ADMINISTRATOR*
//*==*
//STEP0010 EXEC  PGM=ADRDSSU  
//SYSPRINT DDSYSOUT=* 
//DASD DDUNIT=3390,VOL=(PRIVATE,SER=ZOSPLA),DISP=SHR  
//SYSINDD*
 PRINT  TRACKS(0,0,2,5) INDDNAME(DASD) ADMINISTRATOR  
/*

Thanks..

Paul Feller
AGT Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Billy Ashton
Sent: Wednesday, July 17, 2019 12:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Displaying raw disk data [EXTERNAL]

Hi everyone, I have an unusual problem. Somehow, one of my disk datasets seems 
to have been corrupted, as it does not contain the data that it should have.

Is there a way that I can examine the disk, using a chhh address and look 
at the raw data for the dataset and just before it, to see if I can identify 
anything?

Thank you for your recommendations.
Billy

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

Re: Displaying raw disk data

[Mark Jacobs]

Here's two possibilities

AMASPZAP with the CCHHR and ABSDUMPT control statements
ADRDSSU with the PRINT TRACKS control statement


I assume that FDR has something too, but I don't know what it is.

Mark Jacobs


Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com

‐‐‐ Original Message ‐‐‐
On Wednesday, July 17, 2019 1:01 PM, Billy Ashton  
wrote:

> Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
> seems to have been corrupted, as it does not contain the data that it
> should have.
>
> Is there a way that I can examine the disk, using a chhh address and
> look at the raw data for the dataset and just before it, to see if I can
> identify anything?
>
> Thank you for your recommendations.
> Billy
>
> -
>
> 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: Displaying raw disk data

[Billy Ashton]

I am authorized, but have never done it...do you have a sample available
that I could start from?
B

On Wed, Jul 17, 2019 at 1:05 PM Seymour J Metz  wrote:

> If you're authorized, you can use AMASPZAP.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Billy Ashton 
> Sent: Wednesday, July 17, 2019 1:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Displaying raw disk data
>
> Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
> seems to have been corrupted, as it does not contain the data that it
> should have.
>
> Is there a way that I can examine the disk, using a chhh address and
> look at the raw data for the dataset and just before it, to see if I can
> identify anything?
>
> Thank you for your recommendations.
> Billy
>
> --
> 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: Displaying raw disk data

[Seymour J Metz]

If you're authorized, you can use AMASPZAP.


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


From: IBM Mainframe Discussion List  on behalf of 
Billy Ashton 
Sent: Wednesday, July 17, 2019 1:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Displaying raw disk data

Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
seems to have been corrupted, as it does not contain the data that it
should have.

Is there a way that I can examine the disk, using a chhh address and
look at the raw data for the dataset and just before it, to see if I can
identify anything?

Thank you for your recommendations.
Billy

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

Displaying raw disk data

[Billy Ashton]

Hi everyone, I have an unusual problem. Somehow, one of my disk datasets
seems to have been corrupted, as it does not contain the data that it
should have.

Is there a way that I can examine the disk, using a chhh address and
look at the raw data for the dataset and just before it, to see if I can
identify anything?

Thank you for your recommendations.
Billy

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

That's an excuse for Fortran, but PL/I already used colons, so why not :=? 

By the time C came along that excuse was even less viable.


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


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

On Wed, Jul 17, 2019 at 11:23 AM 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 haven't said anything, but I think you're correct. Of course, in the "bad
old days" of punch cards, there weren't a whole lot of choices. For these
types of languages, where = can mean either comparison or assignment, I
like to code comparisons with literals with the literal on the left hand
side. E.g. IF 0 = X THEN rather than IF X = 0 THEN.



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

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

[John McKown]

On Wed, Jul 17, 2019 at 11:23 AM 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 haven't said anything, but I think you're correct. Of course, in the "bad
old days" of punch cards, there weren't a whole lot of choices. For these
types of languages, where = can mean either comparison or assignment, I
like to code comparisons with literals with the literal on the left hand
side. E.g. IF 0 = X THEN rather than IF X = 0 THEN.



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

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

[Seymour J Metz]

> A somewhat complementary sin is to enrich the facilities of the language
> to the benefit of the sophisticated user but to the detriment of the naive
> user.

If by "enrich" you mean to change the semantics of existing code, then that is 
not to the benefit of the sophisticated user. Enhancements to the language 
should be transparent to those not using them.


--
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: Tuesday, July 16, 2019 4:16 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 21:37:38 +0200, Bernd Oppolzer wrote:

>Am 16.07.2019 um 21:22 schrieb Seymour J Metz:
>>> Furthermore: the more modern languages like Pascal, C and Java etc.
>>> forbid the use of reserved symbols as variable names. This may be
>>> restrictive, but makes the compilers much much simpler.
>> The cardinal sin in language design is to make the compiler simpler at the 
>> expense of the user. An enhancement to a language with reserved word can 
>> render a previously valid program invalid. Contrast this with PL/I, where 
>> several times keywords have been added without affecting existing code.
>>
>Yes, I agree somehow to that statement ...
>
A somewhat complementary sin is to enrich the facilities of the language
to the benefit of the sophisticated user but to the detriment of the naive
user.

I'll add near-ambiguities such as assignment vs. comparison and tricky
semantics of semicolon.  A co-worker once tried removing ";" from the
definition of Pascal and running a meta-parser on the BNF.  The only
further change he needed to make the syntax valid at the same Chomsky
level was to remove the null statement from the language definition.

>since I am working on my version of Stanford Pascal,
>I sometimes felt the need for adding new keywords. I always had bad feelings
>when doing this.
>
>The compiler already had OTHERWISE (but no abbreviation to his, obviously),
>EXTERNAL and FORTRAN.
>
>I added BREAK, CONTINUE, RETURN, MODULE, LOCAL and STATIC;
>this was in the years from 2011 to 2016. No more need since.
>
I've done many of these as predefined quasi-identifiers, similar to Pascal's
predefined standard types.  A programmer could choose to declare CONTINUE
as an identifier, overriding its predefined meaning within the block containing
the declaration.

I've heard partisans rail that the standard types can be overridden by
local declarations.  If it bothers them, they shouldn't do it.  But I've seen:
TYPE -32768 .. 32767 INTEGER;
to force 16-bit behavior on machines with other word sizes.  I'm
uncomfortable with that.

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

[Seymour J Metz]

It should be safe as long as you don't do UPDATE.


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


From: IBM Mainframe Discussion List  on behalf of 
Peter 
Sent: Wednesday, July 17, 2019 4:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Dynamic LINKLIST impact

Hi

This is a general question.

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.

Please share me your opinion on this and your thoughts.



Peter

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

[Steve Smith]

The original sin was making "=" the assignment operator.  I guess we can
blame that on FORTRAN, and it must make mathematicians cringe still.

sas

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

Re: IBM Software License Review

[Jesse 1 Robinson]

One mainframe issue was PSF. We had run it for *years*, but our usage data had 
not been updated. I don't think any of us knew that was necessary. 

.
.
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 
ITschak Mugzach
Sent: Wednesday, July 17, 2019 8:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: IBM Software License Review

They do not request anything. they send you a team that installs a software 
auditing product that scans all servers and workstations to discover IBM 
software installed. they than compare it to the licenses they sold to you.
it is mostly a non mainframe issue.

I have a client that had to pay huge amount of money after such review.

ITschak

On Wed, Jul 17, 2019 at 5:16 PM Dazzo, Matt < 
00a854d4f854-dmarc-requ...@listserv.ua.edu> wrote:

> We have been notified by IBM that we have been selected for a 
> 'Software License Review'. I have not experienced this pleasure before 
> and I am wondering what the  experience is like? What kinds of 
> information do they request?  How is the info gathered?
>
>
> Thanks,
>
> Matt


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

[Tom Marchant]

On Wed, 17 Jul 2019 09:28:57 -0500, Elardus Engelbrecht wrote:

>I was also lucky, but when we do a LNKLST UPDATE, we rather do it after hours 
>if we simply cannot do a IPL.

If you simply cannot IPL, can you justify LNKLST UPDATE, knowing that it might 
cause you to have to IPL?

I will admit that I have used LNKLST UPDATE, occasionally with JOB(*), but only 
when an IPL would have been tolerable.

When creating a new LNKLST set, IMO you should consider carefully the reason 
for it and, 
if possible, recycle the address space(s) that you want to use the new LNKLST 
set.

When you do an UPDATE of an address space, and all goes well, any new modules 
that are 
LOADed from LNKLST will come from the new LNKLST. However, modules that have 
already 
been LOADed from the old LNKLST set are still in memory, and you may end up 
with modules 
modules in that address space that are not compatible with each other.

-- 
Tom Marchant

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

Re: IBM Software License Review

[ITschak Mugzach]

They do not request anything. they send you a team that installs a software
auditing product that scans all servers and workstations to discover IBM
software installed. they than compare it to the licenses they sold to you.
it is mostly a non mainframe issue.

I have a client that had to pay huge amount of money after such review.

ITschak

On Wed, Jul 17, 2019 at 5:16 PM Dazzo, Matt <
00a854d4f854-dmarc-requ...@listserv.ua.edu> wrote:

> We have been notified by IBM that we have been selected for a 'Software
> License Review'. I have not experienced this pleasure before and I am
> wondering what the  experience is like? What kinds of information do they
> request?  How is the info gathered?
>
>
> Thanks,
>
> Matt
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
for Legacy **|  *

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

[Elardus Engelbrecht]

Joel C. Ewing wrote:

>Have things changed?   There has been considerable discussion on Dynamic 
>LNKLIST in the past on this list.  

Yes, I remember those discussions.


>Basically "ACTIVATE" was always safe, provided it is OK that newly started 
>address spaces use the new LNKLST and old address spaces continue with the 
>previous LNKLST concatenation until restarted.   But "UPDATE" has always been 
>advertised as with risk. 

>"Be careful when you use UPDATE. Updating an address space while a program in 
>that address space is fetching a module can cause the fetch to fail or to 
>locate an incorrect copy of the module. The system does not attempt to verify 
>the validity of the data for UPDATE".

I agree 100% with that quote. 


>I was always lucky when I did LNKLST UPDATE, but I also did this with the 
>awareness that if it did cause some critical address space to fail that an IPL 
>might be the safest recovery -- that there was a nonzero, hopefully low, 
>probability that using this to avoid a service interruption could instead 
>cause a  bigger service interruption.

I was also lucky, but when we do a LNKLST UPDATE, we rather do it after hours 
if we simply cannot do a IPL.


>As the nature of potential UPDATE-induced failures is highly dependent on 
>address space activity, ...

Agreed. First thing IPL, if not possible, do that UPDATE during a quit time 
while taking an extreme risk that something may go down the drain...

As always YMMV. I still want to see why the OP wants that route.

Thanks Joel for your kind comments.

Groete / Greetings
Elardus Engelbrecht

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

IBM Software License Review

[Dazzo, Matt]

We have been notified by IBM that we have been selected for a 'Software License 
Review'. I have not experienced this pleasure before and I am wondering what 
the  experience is like? What kinds of information do they request?  How is the 
info gathered?


Thanks,

Matt


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

[David Crayford]

On 2019-07-16 4:44 AM, Tom Marchant wrote:

Some C programmers are fond of if (7 == foo) rather than the more conventional 
if (foo == 7) because if one gets in the habit of doing so and then 
accidentally codes if (7 = foo) one gets a compile error rather than unexpected 
behavior.

For those not familiar with C, foo == 7 is a relational expression, foo = 7 is 
an assignment, and if (foo = 7) ... compiles as though one had coded

foo = 7; if (foo != 0) /* which will be true of course */ ...

which is not at all what was presumably intended.

7 = foo is always a compile-time error; you can't assign a variable to a 
constant.

It's one of the things that I don't like about C.
While you can code if 7 = foo and the compiler will catch your error, there is 
nothing
you can do to protect yourself against the mistake of if foo = bar.


It's not just C it's just about every programming language invented in 
the last 30 years. Of the languages I use I can list them:


C/C++, Java, JavaScript, Python, Lua, Ruby, Rust etc, etc.

Once you get used to it it's second nature. I get confused now when I 
code REXX with all the superfluous operators it has like <>, />. /< etc.




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

On 7/17/19 4:08 AM, Elardus Engelbrecht wrote:
> Peter wrote:
>
>> Is it recommended to do a dynamic LINKLIST during a peak production hours ?
> Rather not, but this is not my dog.
>
>
>> Will there be any impact to the system during that time as we stop LLA as 
>> well.
> Why do you want to stop it? What are you trying to solve?
>
> Why not rebuild a new linklist table and then do a refresh on that new table?
>
> Something like this in a PROGxx member:
>
> LNKLST DEFINE NAME(A) COPYFROM() 
> LNKLST ADD NAME(A)   
> DSN(.LOAD)  
> LNKLST ACTIVATE NAME(A)  
> LNKLST UPDATE JOB(*) 
>
>
>> Please share me your opinion on this and your thoughts.
> I would practise first on a sandbox and then do the same on to a prod LPAR 
> during AFTER HOURS!
>
> Groete / Greetings
> Elardus Engelbrecht
>
Have things changed?   There has been considerable discussion on Dynamic
LNKLIST in the past on this list.  

Basically "ACTIVATE" was always safe, provided it is OK that newly
started address spaces use the new LNKLST and old address spaces
continue with the previous LNKLST concatenation until restarted.   But
"UPDATE" has always been advertised as with risk. 

To quote from the Knowledge Center on "Updating LNKLST Concatenations"
for z/OS 2.3.0: 
"Be careful when you use UPDATE. Updating an address space while a
program in that address space is fetching a module can cause the fetch
to fail or to locate an incorrect copy of the module. The system does
not attempt to verify the validity of the data for UPDATE".

If your  only choice is between UPDATEing a running address space or
causing a service interruption to critical users, sometimes you can
reduce possible exposure by only updating the specific address spaces
that must see the change, rather than updating all running address spaces.

I was always lucky when I did LNKLST UPDATE, but I also did this with
the awareness that if it did cause some critical address space to fail
that an IPL might be the safest recovery -- that there was a nonzero,
hopefully low, probability that using this to avoid a service
interruption could instead cause a  bigger service interruption.

Testing this out on a sandbox system only proves the command syntax and
sequences are correct.   As the nature of potential UPDATE-induced
failures is highly dependent on address space activity, I wouldn't draw
any conclusions that lack of failures on a sandbox means there is no
UPDATE risk on a much more active production system.

    Joel C Ewing

-- 
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: Dynamic LINKLIST impact

[Elardus Engelbrecht]

Peter wrote:

>Is it recommended to do a dynamic LINKLIST during a peak production hours ?

Rather not, but this is not my dog.


>Will there be any impact to the system during that time as we stop LLA as well.

Why do you want to stop it? What are you trying to solve?

Why not rebuild a new linklist table and then do a refresh on that new table?

Something like this in a PROGxx member:

LNKLST DEFINE NAME(A) COPYFROM() 
LNKLST ADD NAME(A)   
DSN(.LOAD)  
LNKLST ACTIVATE NAME(A)  
LNKLST UPDATE JOB(*) 


>Please share me your opinion on this and your thoughts.

I would practise first on a sandbox and then do the same on to a prod LPAR 
during AFTER HOURS!

Groete / Greetings
Elardus Engelbrecht

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

Dynamic LINKLIST impact

[Peter]

Hi

This is a general question.

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.

Please share me your opinion on this and your thoughts.



Peter

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

[Vernooij, Kees (ITOP NM) - KLM]

AFAIK, SMS managing tapes is much simpler than dasd. 
The only thing SMS really does is to assign a DC, SC, MC and SG to a tape in 
the ACS routines and these constructs are passed to the tape library, which 
does its thing with them. 
We don't have uncatalogued tapes, but I am quite sure they can be.

What is the reason that you must go to SMS managed tape?

Kees.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Jesse 1 Robinson
> Sent: 16 July, 2019 18:28
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMS for tape
> 
> For the first time ever, we are considering turning on SMS for tape. We've
> had decades of business practice where SMS and tape never intersect. My
> main concern is this: without SMS, a tape data set can be created and used
> without involving any ICF catalog. One 'benefit' of this practice is that
> multiple like-named tape data sets can coexist in the tape library as long
> a user is careful to provide correct volser information. The tape
> management system must support this option. We used CA-1 for years, and
> now RMM for years. As long as the user is careful, uncataloged tape data
> sets can be handled just fine.
> 
> SMS, however, introduces a whole new variable. In general, an SMS data
> set-certainly for DASD-must be cataloged. This precludes duplicate names.
> I don't want to argue the merits of this restriction. The point is that we
> may have countless cases of duplicate names. If they're not a problem
> within SMS, then we're cool. If we have to change business practices to
> accommodate SMS, we have a long and winding road to hoe.
> 
> .
> .
> 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
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message.

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286


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