Re: Extraneous blanks in SDSF issued command

2020-11-29 Thread David Spiegel

Hi Skip,
That's what I figured (i.e. Copy and Paste from Windows/Linux).
The blanks are a result of taking your text cross-platform.
One last thing ... Why do you bring up the panle with "/+"?
("/" alone is good enough)

Regards,
David

On 2020-11-29 14:03, Jesse 1 Robinson wrote:

I'll have to give this a try. What I did not mention in the original post was 
that we 'edited' this complicated command in a text file and then copy/pasted 
it into the command screen. Also did not reveal that the way we got it to work 
was to enter it as a subcommand to TSO OPER. That was quite trip around the 
block for what should have been a few steps.

.
.
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 
David Spiegel
Sent: Sunday, November 29, 2020 10:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Extraneous blanks in SDSF issued command

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

Hi Skip,
Here is what my panel looks like:|
   EsssN
   e   Edit  Options Help e
   e  e
   e   System Command ExtensionEnd of data e
   e e
   e ===> SL SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,DB  e
   e ===> 04MSTR),SDATA=(RGN,CSA,TRT),END e
   e e

I just kept typing and the text wrapped to the second line.
BTW, the command worked.

Regards,
David


On 2020-11-29 12:52, Jesse 1 Robinson wrote:

2) might work, but it doesn't explain the blank problem. 1) does not work 
because the two lines of SDSF command are not actually a single buffer the way 
TSO option 6 is. At the end of the line, the keyboard locks. Likewise, deleting 
blanks at the end of the line does pull the second line forward.

.
.
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 David Spiegel
Sent: Sunday, November 29, 2020 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Extraneous blanks in SDSF issued command

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

Hi Skip,
There are 2 things you can do:
1) Keep typing and let the text wrap
2) Strike Enter after "OPERTUNE," and continue the command by Replying to the 
next WTOR.

Regards,
David

On 2020-11-29 12:23, Jesse 1 Robinson wrote:

We were instructed by a vendor to set a two line SLIP trap for a
problem affecting their product. My colleague used the SDSF command
facility (/+) to enter the command. Working together, we could not
get it to work because trailing blanks on the first line were passed
to MVS, breaking the command. Here's the command. (? Is a single
character wildcard.)

|   System Command Extension|
|
| | ===> SL
| | SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,|
| ===> DB04MSTR),SDATA=(RGN,CSA,TRT),END|
|
| |

The four blanks () went to MVS and caused a break in the SLIP command so 
that everything after 'OPERTUNE' was apparently treated as a comment. We played 
with this for some time but could not get rid of the blanks. We eventually 
found  a different way to enter the command, but I'd like to know if we're 
missing something. Pored over online doc but could not see anything relevant.

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


Re: Extraneous blanks in SDSF issued command

2020-11-29 Thread David Spiegel

Hi Skip,
Here is what my panel looks like:|
 EsssN
 e   Edit  Options Help e
 e  e
 e   System Command Extension    End of data e
 e e
 e ===> SL SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,DB  e
 e ===> 04MSTR),SDATA=(RGN,CSA,TRT),END e
 e e

I just kept typing and the text wrapped to the second line.
BTW, the command worked.

Regards,
David


On 2020-11-29 12:52, Jesse 1 Robinson wrote:

2) might work, but it doesn't explain the blank problem. 1) does not work 
because the two lines of SDSF command are not actually a single buffer the way 
TSO option 6 is. At the end of the line, the keyboard locks. Likewise, deleting 
blanks at the end of the line does pull the second line forward.

.
.
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 
David Spiegel
Sent: Sunday, November 29, 2020 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Extraneous blanks in SDSF issued command

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

Hi Skip,
There are 2 things you can do:
1) Keep typing and let the text wrap
2) Strike Enter after "OPERTUNE," and continue the command by Replying to the 
next WTOR.

Regards,
David

On 2020-11-29 12:23, Jesse 1 Robinson wrote:

We were instructed by a vendor to set a two line SLIP trap for a
problem affecting their product. My colleague used the SDSF command
facility (/+) to enter the command. Working together, we could not get
it to work because trailing blanks on the first line were passed to
MVS, breaking the command. Here's the command. (? Is a single
character wildcard.)

|   System Command Extension|
|
| | ===> SL SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,|
| ===> DB04MSTR),SDATA=(RGN,CSA,TRT),END|
|
| |

The four blanks () went to MVS and caused a break in the SLIP command so 
that everything after 'OPERTUNE' was apparently treated as a comment. We played 
with this for some time but could not get rid of the blanks. We eventually 
found  a different way to enter the command, but I'd like to know if we're 
missing something. Pored over online doc but could not see anything relevant.

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


Re: Extraneous blanks in SDSF issued command

2020-11-29 Thread David Spiegel

Which version of z/OS are you running?
Do you have any ISPF or SDSF Usermods?

On 2020-11-29 12:52, Jesse 1 Robinson wrote:

2) might work, but it doesn't explain the blank problem. 1) does not work 
because the two lines of SDSF command are not actually a single buffer the way 
TSO option 6 is. At the end of the line, the keyboard locks. Likewise, deleting 
blanks at the end of the line does pull the second line forward.

.
.
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 
David Spiegel
Sent: Sunday, November 29, 2020 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Extraneous blanks in SDSF issued command

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

Hi Skip,
There are 2 things you can do:
1) Keep typing and let the text wrap
2) Strike Enter after "OPERTUNE," and continue the command by Replying to the 
next WTOR.

Regards,
David

On 2020-11-29 12:23, Jesse 1 Robinson wrote:

We were instructed by a vendor to set a two line SLIP trap for a
problem affecting their product. My colleague used the SDSF command
facility (/+) to enter the command. Working together, we could not get
it to work because trailing blanks on the first line were passed to
MVS, breaking the command. Here's the command. (? Is a single
character wildcard.)

|   System Command Extension|
|
| | ===> SL SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,|
| ===> DB04MSTR),SDATA=(RGN,CSA,TRT),END|
|
| |

The four blanks () went to MVS and caused a break in the SLIP command so 
that everything after 'OPERTUNE' was apparently treated as a comment. We played 
with this for some time but could not get rid of the blanks. We eventually 
found  a different way to enter the command, but I'd like to know if we're 
missing something. Pored over online doc but could not see anything relevant.

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


Re: Extraneous blanks in SDSF issued command

2020-11-29 Thread David Spiegel

Hi Skip,
There are 2 things you can do:
1) Keep typing and let the text wrap
2) Strike Enter after "OPERTUNE," and continue the command by Replying 
to the next WTOR.


Regards,
David

On 2020-11-29 12:23, Jesse 1 Robinson wrote:

We were instructed by a vendor to set a two line SLIP trap for a problem 
affecting their product. My colleague used the SDSF command facility (/+) to 
enter the command. Working together, we could not get it to work because 
trailing blanks on the first line were passed to MVS, breaking the command. 
Here's the command. (? Is a single character wildcard.)

|   System Command Extension|
|   |
| ===> SL SET,A=SVCD,ID=SKIP,C=522,J=CSSW?L01,JL=(CSSW?L01,OPERTUNE,|
| ===> DB04MSTR),SDATA=(RGN,CSA,TRT),END|
|   |

The four blanks () went to MVS and caused a break in the SLIP command so 
that everything after 'OPERTUNE' was apparently treated as a comment. We played 
with this for some time but could not get rid of the blanks. We eventually 
found  a different way to enter the command, but I'd like to know if we're 
missing something. Pored over online doc but could not see anything relevant.

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


Re: Running same stc in a LPAR

2020-11-21 Thread David Spiegel

Hi Peter,
I've seen this, but, not recently.

Regards,
David

On 2020-11-21 23:08, Peter wrote:

Hello

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

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

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

Could someone please shed your light on above ?


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: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Hi Radek,
After I sent it, I realized that I addressed you incorrectly. Sorry.

Regards,
David

On 2020-11-19 16:09, R.S. wrote:

W dniu 19.11.2020 o 21:48, David Spiegel pisze:

Hi Skip,
"... That means your job may contain DD * statements, etc.  ..."
As of z/OS 1.13, Cataloged Procedures can have DD *


Yes, I wanted to say that as well, but simply forgot. There are also 
new features in JCL since z/OS 2.1, which I didn't mention. However my 
point was to focus on started job - which is very, very close to the 
topic. And it is really simple, isn't it?



BTW: "Hi Skip" - is it some kind of idiom?





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


Re: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Hi Skip,
"... That means your job may contain DD * statements, etc.  ..."
As of z/OS 1.13, Cataloged Procedures can have DD *

Regards,
David

On 2020-11-19 15:23, R.S. wrote:

W dniu 19.11.2020 o 00:00, Charles Mills pisze:

Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
analogous to TSO SUBMIT?

I want to run a predefined job, unmodified, once a day. (No, I don't 
have a
real scheduler.) I figured I could do something with $T 
A,I=86400,'command'
but I don't see what the command would be. It seems like an obvious 
thing

for JES2 to be able to do.

Do I use $VS,'S proc' and run it like a started task that just 
happens to

end after a minute or so?

I vaguely recall there is a way to submit a job (via TSO or whatever) 
such
that it gets held and then could be released with a JES2 command but 
also
left in the input queue for another release? Am I on the right track? 
Or ...

?

Thanks. Sorry for the newbie question. I'm a newbie operator.


My €0.02:
1. For professional scheduling there are commercial tools like BMC 
CTM, IBM TWS, CA ESP, etc. Of course it is not worth to pay just to 
schedule one job a day. However ...maybe you have it already in your 
shop? Just check it.



2. For JES2 (and no batch scheduler) I would use $TA... $VS S member.
That means your JES2 'wannabe-scheduler'  periodically issue START 
command, which is MVS command.
Old farts say it is for starting members of PROCLIB, that mean JCL 
procedures. It is no longer true (for years), you can start a job 
using same command and same library. That means your job may contain 
DD * statements, etc.

Not enough? Well you started job/procedure may submit regular job.

Caution: is it SIMPLE. Mainframe gurus will hate it ;-)


3. There are other ways to skin a cat. Some of them include existing 
tools, like cron, however really aspiring way is to start with 
assembler, APF and MODESET 0. ;-)

(yes, this is kind of joke)



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


Re: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

I'm not sure that I would give users access to update such JCL.

On 2020-11-19 14:13, Tom Brennan wrote:
So if the JCL dataset can be updated by the user and they decide to 
remove the USER= parm, then the STC userid would get control.  And in 
that case the unique userid set up for that STC would have little 
access and would likely fail on the first dataset.


Do I have that about right?

On 11/19/2020 11:04 AM, David Spiegel wrote:

Hi Skip,
"... the default SAF userid for STCs will be propagated to the 
submitted job ..."
If the submitted job has a USER= on the Job Card and the RDR STC's 
Userid has SURROGAT to all owner of SUBMIT'd Jobs, this is not a 
problem.

(I also would not give RDR the default STCID.)

Regards,
David

On 2020-11-19 13:45, Jesse 1 Robinson wrote:
We use a similar process. The supplied RDR proc is a bit clumsy with 
stuff coded that would work as is for pretty much no one. So like 
many other shops, ages ago we wrote our own version with customized 
data set and unit parameters.


The big problem with an RDR-like solution is that the default SAF 
userid for STCs will be propagated to the submitted job. That might 
be wildly inappropriate for the average user.


.
.
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 Herring, Bobby

Sent: Thursday, November 19, 2020 8:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Is there a JES2 command to submit a job?

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

We have a rather simple solution we use.

We have this command in the JES commands member:

$TA,T=23.00,''$VS,S JOB,J=CLEANJES'''

That starts a started task called JOB. It is in a library that is in 
the JES PROCLIB concatenation.


It looks like this:

//JOB    PROC J=XXX,   /* MEMBER NAME TO SUBMIT    */
//   L='SYS1.TXFZ.OPERJOBS.TZ' /* LIBRARY TO SUBMIT FROM   */
//**/
//*@ STARTED TASK TO SUBMIT JOBS   */
//**/
//STEP1  EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD SYSOUT=(A,INTRDR)
//SYSUT1   DD DISP=SHR,DSN=()
//SYSIN    DD DUMMY

The JES command formats out like this:

S JOB,J=CLEANJES

Which starts JOB and it submits CLEANJES from the 
SYS1.TXFZ.OPERJOBS.TZ library to the queue.


The commands member gets submitted each day at midnight to refresh 
the commands.


//CMDSTXFZ  JOB (HSKP),'CMDSTXFZ',CLASS=K,MSGCLASS=9,
// MSGLEVEL=(1,1),REGION=0M
//*
//*   LIB: SYS1.TXFZ.OPERJOBS.TZ(CMDSTXFZ)
//*@   COMMANDS TO ISSUE AT IPL TIME AND EVERY 24 HOURS
//*
// COMMAND '$CA,ALL'
// COMMAND '$TA,T=05.00,''$VS,S JOB,J=CLEANJES'''
// COMMAND '$TA,T=24.00,''$VS,S JOB,J=CMDSTXFZ'''
// COMMAND '$SA,ALL'
//STEP1    EXEC PGM=IEFBR14
/*

Bobby Herring
Texas Farm Bureau Insurance
Waco, Tx


-Original Message-
From: IBM Mainframe Discussion List  On 
Behalf Of Charles Mills

Sent: Thursday, November 19, 2020 9:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

I was and am under control on the $TA part and fully intend to use 
that.
It's not the whole solution, though. My question was "what can the 
$TA schedule that will run a job" and these replies have provided 
the answer.

The answer is something like

$T A,,86400,'$VS ''S RDR,DSN=MY.PDS(MYJOB)'' '

I may not have the syntax and all the quotes perfect, but that's the 
idea.


Charles


-Original Message-
From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeremy Nicoll

Sent: Thursday, November 19, 2020 1:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

On Thu, 19 Nov 2020, at 00:19, Charles Mills wrote:

Right! I remember that. I remember that was how you ran anything. You
started a real reader: it fired up the 2540 and read in the job. And
then you did a S WTR (?) to print the output. OS/360 on a 360/40.
But the S RDR... command doesn't start a real reader.  It's just 
starting a
started task.   The previous reply talking about $TA etc was for 
faking a


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


[https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.txfb-ins.com%2FTFBICImages%2Fjdpower.jpgdata=04%7C01%7C%7C2ed2c540f7174e5df14308d88cbf4520%7C84df9e7fe9f640afb435%7C1%7C0%7C637414100415404820%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Vkv5drNfprnI4Af%2B%2B0CJ8j4apUHeOd6WsTtF4%

Re: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Yeah, but, the STC Userid has to have SURROGAT to it, otherwise it fails.

On 2020-11-19 14:16, Tom Brennan wrote:
I just thought of one more problem with my scenario.  If the JCL can 
be updated by the user, then they could set USER= to whatever they 
want, spoiling the idea of using a single STC for multiple users.


On 11/19/2020 11:13 AM, Tom Brennan wrote:
So if the JCL dataset can be updated by the user and they decide to 
remove the USER= parm, then the STC userid would get control.  And in 
that case the unique userid set up for that STC would have little 
access and would likely fail on the first dataset.


Do I have that about right?

On 11/19/2020 11:04 AM, David Spiegel wrote:

Hi Skip,
"... the default SAF userid for STCs will be propagated to the 
submitted job ..."
If the submitted job has a USER= on the Job Card and the RDR STC's 
Userid has SURROGAT to all owner of SUBMIT'd Jobs, this is not a 
problem.

(I also would not give RDR the default STCID.)

Regards,
David

On 2020-11-19 13:45, Jesse 1 Robinson wrote:
We use a similar process. The supplied RDR proc is a bit clumsy 
with stuff coded that would work as is for pretty much no one. So 
like many other shops, ages ago we wrote our own version with 
customized data set and unit parameters.


The big problem with an RDR-like solution is that the default SAF 
userid for STCs will be propagated to the submitted job. That might 
be wildly inappropriate for the average user.


.
.
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 Herring, Bobby

Sent: Thursday, November 19, 2020 8:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Is there a JES2 command to submit a job?

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

We have a rather simple solution we use.

We have this command in the JES commands member:

$TA,T=23.00,''$VS,S JOB,J=CLEANJES'''

That starts a started task called JOB. It is in a library that is 
in the JES PROCLIB concatenation.


It looks like this:

//JOB    PROC J=XXX,   /* MEMBER NAME TO SUBMIT    */
//   L='SYS1.TXFZ.OPERJOBS.TZ' /* LIBRARY TO SUBMIT FROM   */
//**/
//*@ STARTED TASK TO SUBMIT JOBS   */
//**/
//STEP1  EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD SYSOUT=(A,INTRDR)
//SYSUT1   DD DISP=SHR,DSN=()
//SYSIN    DD DUMMY

The JES command formats out like this:

S JOB,J=CLEANJES

Which starts JOB and it submits CLEANJES from the 
SYS1.TXFZ.OPERJOBS.TZ library to the queue.


The commands member gets submitted each day at midnight to refresh 
the commands.


//CMDSTXFZ  JOB (HSKP),'CMDSTXFZ',CLASS=K,MSGCLASS=9,
// MSGLEVEL=(1,1),REGION=0M
//*
//*   LIB: SYS1.TXFZ.OPERJOBS.TZ(CMDSTXFZ)
//*@   COMMANDS TO ISSUE AT IPL TIME AND EVERY 24 HOURS
//*
// COMMAND '$CA,ALL'
// COMMAND '$TA,T=05.00,''$VS,S JOB,J=CLEANJES'''
// COMMAND '$TA,T=24.00,''$VS,S JOB,J=CMDSTXFZ'''
// COMMAND '$SA,ALL'
//STEP1    EXEC PGM=IEFBR14
/*

Bobby Herring
Texas Farm Bureau Insurance
Waco, Tx


-Original Message-
From: IBM Mainframe Discussion List  On 
Behalf Of Charles Mills

Sent: Thursday, November 19, 2020 9:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

I was and am under control on the $TA part and fully intend to use 
that.
It's not the whole solution, though. My question was "what can the 
$TA schedule that will run a job" and these replies have provided 
the answer.

The answer is something like

$T A,,86400,'$VS ''S RDR,DSN=MY.PDS(MYJOB)'' '

I may not have the syntax and all the quotes perfect, but that's 
the idea.


Charles


-Original Message-
From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeremy Nicoll

Sent: Thursday, November 19, 2020 1:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

On Thu, 19 Nov 2020, at 00:19, Charles Mills wrote:

Right! I remember that. I remember that was how you ran anything. You
started a real reader: it fired up the 2540 and read in the job. And
then you did a S WTR (?) to print the output. OS/360 on a 360/40.
But the S RDR... command doesn't start a real reader.  It's just 
starting a
started task.   The previous reply talking about $TA etc was for 
faking a


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


[https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.txfb-ins.com%2FTFBICImages%2Fjdpowe

Re: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Hi Charles,
If you code all of my overrides, the problem of VOL=, DCB= etc. will be 
bypassed and you will be able to use the RDR Cataloged Procedure forever.


Regards,
David

On 2020-11-19 14:02, Charles Mills wrote:

stuff coded that would work as is for pretty much no one

At least on this system (which I inherited) IEFRDER specifies UNIT=TAPE,DCB=BLKSIZE=80, 
and a hard-coded VOLSER. "Work for pretty much no one" is overly optimistic!

I'm aware of the userid issue and think I can live with it. I suppose USER= on 
the JOB (with appropriate SURROGAT permissions) might alleviate it somewhat.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Thursday, November 19, 2020 10:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

We use a similar process. The supplied RDR proc is a bit clumsy with stuff 
coded that would work as is for pretty much no one. So like many other shops, 
ages ago we wrote our own version with customized data set and unit parameters.

The big problem with an RDR-like solution is that the default SAF userid for 
STCs will be propagated to the submitted job. That might be wildly 
inappropriate for the average user.

--
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: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Hi Skip,
"... the default SAF userid for STCs will be propagated to the submitted 
job ..."
If the submitted job has a USER= on the Job Card and the RDR STC's 
Userid has SURROGAT to all owner of SUBMIT'd Jobs, this is not a problem.

(I also would not give RDR the default STCID.)

Regards,
David

On 2020-11-19 13:45, Jesse 1 Robinson wrote:

We use a similar process. The supplied RDR proc is a bit clumsy with stuff 
coded that would work as is for pretty much no one. So like many other shops, 
ages ago we wrote our own version with customized data set and unit parameters.

The big problem with an RDR-like solution is that the default SAF userid for 
STCs will be propagated to the submitted job. That might be wildly 
inappropriate for the average user.

.
.
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 
Herring, Bobby
Sent: Thursday, November 19, 2020 8:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Is there a JES2 command to submit a job?

*** EXTERNAL EMAIL - Use caution when opening links or attachments ***

We have a rather simple solution we use.

We have this command in the JES commands member:

$TA,T=23.00,''$VS,S JOB,J=CLEANJES'''

That starts a started task called JOB. It is in a library that is in the JES 
PROCLIB concatenation.

It looks like this:

//JOBPROC J=XXX,   /* MEMBER NAME TO SUBMIT*/
//   L='SYS1.TXFZ.OPERJOBS.TZ' /* LIBRARY TO SUBMIT FROM   */
//**/
//*@ STARTED TASK TO SUBMIT JOBS   */
//**/
//STEP1  EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD SYSOUT=(A,INTRDR)
//SYSUT1   DD DISP=SHR,DSN=()
//SYSINDD DUMMY

The JES command formats out like this:

S JOB,J=CLEANJES

Which starts JOB and it submits CLEANJES from the SYS1.TXFZ.OPERJOBS.TZ library 
to the queue.

The commands member gets submitted each day at midnight to refresh the commands.

//CMDSTXFZ  JOB (HSKP),'CMDSTXFZ',CLASS=K,MSGCLASS=9,
// MSGLEVEL=(1,1),REGION=0M
//*
//*   LIB: SYS1.TXFZ.OPERJOBS.TZ(CMDSTXFZ)
//*@   COMMANDS TO ISSUE AT IPL TIME AND EVERY 24 HOURS
//*
// COMMAND '$CA,ALL'
// COMMAND '$TA,T=05.00,''$VS,S JOB,J=CLEANJES'''
// COMMAND '$TA,T=24.00,''$VS,S JOB,J=CMDSTXFZ'''
// COMMAND '$SA,ALL'
//STEP1EXEC PGM=IEFBR14
/*

Bobby Herring
Texas Farm Bureau Insurance
Waco, Tx


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Thursday, November 19, 2020 9:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

I was and am under control on the $TA part and fully intend to use that.
It's not the whole solution, though. My question was "what can the $TA schedule that 
will run a job" and these replies have provided the answer.
The answer is something like

$T A,,86400,'$VS ''S RDR,DSN=MY.PDS(MYJOB)'' '

I may not have the syntax and all the quotes perfect, but that's the idea.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jeremy Nicoll
Sent: Thursday, November 19, 2020 1:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

On Thu, 19 Nov 2020, at 00:19, Charles Mills wrote:

Right! I remember that. I remember that was how you ran anything. You
started a real reader: it fired up the 2540 and read in the job. And
then you did a S WTR (?) to print the output. OS/360 on a 360/40.

But the S RDR... command doesn't start a real reader.  It's just starting a
started task.   The previous reply talking about $TA etc was for faking a

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

[https://eur05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.txfb-ins.com%2FTFBICImages%2Fjdpower.jpgdata=04%7C01%7C%7Cdbe10b7b8aec4101bfa808d88cbb5cf6%7C84df9e7fe9f640afb435%7C1%7C0%7C637414083644530352%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=FYz%2BlCiv3iZUyAe2nX4slghEUb0KeeVXqP5N0XIf9e4%3Dreserved=0]

Re: Is there a JES2 command to submit a job?

2020-11-19 Thread David Spiegel

Hi Charles,
If you are using the "stock" Cataloged Procedure, you will have to 
include all of the "overrides" I specified.


Regards,
David

On 2020-11-19 10:34, Charles Mills wrote:

I was and am under control on the $TA part and fully intend to use that.
It's not the whole solution, though. My question was "what can the $TA
schedule that will run a job" and these replies have provided the answer.
The answer is something like

$T A,,86400,'$VS ''S RDR,DSN=MY.PDS(MYJOB)'' '

I may not have the syntax and all the quotes perfect, but that's the idea.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jeremy Nicoll
Sent: Thursday, November 19, 2020 1:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

On Thu, 19 Nov 2020, at 00:19, Charles Mills wrote:

Right! I remember that. I remember that was how you ran anything. You
started a real reader: it fired up the 2540 and read in the job. And
then you did a S WTR (?) to print the output. OS/360 on a 360/40.

But the S RDR... command doesn't start a real reader.  It's just starting a
started task.   The previous reply talking about $TA etc was for faking a

--
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: Is there a JES2 command to submit a job?

2020-11-18 Thread David Spiegel

Hi Charles,
All of the previous responses did not address your situation.

Here is a solution that only old-timers like myself would think of:
S 
RDR,DSN=mypds(mymember),UNIT=,VOL=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),DISP=SHR


RDR is available in SYs1.PROCLIB and has been since dinosaurs roamed the 
earth.


Regards,
David

On 2020-11-18 18:00, Charles Mills wrote:

Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
analogous to TSO SUBMIT?

I want to run a predefined job, unmodified, once a day. (No, I don't have a
real scheduler.) I figured I could do something with $T A,I=86400,'command'
but I don't see what the command would be. It seems like an obvious thing
for JES2 to be able to do.

Do I use $VS,'S proc' and run it like a started task that just happens to
end after a minute or so?

I vaguely recall there is a way to submit a job (via TSO or whatever) such
that it gets held and then could be released with a JES2 command but also
left in the input queue for another release? Am I on the right track? Or ...
?

Thanks. Sorry for the newbie question. I'm a newbie operator.

Charles

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


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


Re: How can you change TCAS defaults using the TSOKEYxx PARMLIB member?

2020-10-25 Thread David Spiegel

Hi Joe,
I got 404 when I tried to click on the last 2 Links.

Regards,
David

On 2020-10-25 09:04, Joe Monk wrote:

Hi Sam,

Just a bit of background...

If you go here : 
https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2Fdata=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=v4lwbphN9UTToLQ7wK1xLpUcnmcl1LoWg2xzBCj%2F55s%3Dreserved=0
 you can find a
mostly complete set of routines for MVS 3.8J.

In there you will find:
https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2FTSO%2520VTAM%2520data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3Dreserved=0(IKT)/
 which is the
source code for TCAS...

And in there you will find
https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2FTSO%2520VTAM%2520data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3Dreserved=0(IKT)/IKTCAS54
 which is
the TCAS parm processor.

If you check the logic you will see that it checks for a ',' to know how to
continue or to stop processing keywords. This is why all the keywords have
to come first in the member :)

Anyway, a little bit of trivia for you :)

Joe

On Sun, Oct 25, 2020 at 1:10 AM Sam Golob  wrote:


Dear Folks,

  Thanks to Joe Monk for getting me the correct information.  First
of all, the parameters, which have to be in "=" format, and not TSO
format with parentheses, must PRECEDE the comments, and all of them,
except the last one, have to be followed by a comma.  For example:

USERMAX=39,

RECONLIM=1

which is written BEFORE the comments.

  ALSO, I bounced the TSO address space.

The resulting SHOWTCAS display is:  (CBT File 731 - 
https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.cbttape.org%2Fdata=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Wu5oJl7x%2BwzrijrM9%2BNzMDNJugmLYPnQIc93qHKcuw4%3Dreserved=0
 -
Updates page)

SHOWTCAS - TERMINAL CONTROL ADDRESS SPACE - FIELDS
    --- --- - --
Display of Settings and Addresses having
 to do with the TSOKEYxx PARMLIB member
 at the beginning of the IKTTCAST macro
   8-CHARACTER USERID SUPPORT IS: ON
 TCAS ADDRESS: 00C2EDC8

addr  fieldvalue explanation
  -- ---
+0  TCASID   TCAS Control block identifier
+4  TCASUSEC 0001 Number of active users - HEX
 1Number of active users - DEC
+6  TCASUMAX 0027 TSO Maxusers number - HEX
39TSO Maxusers number - DEC
+8  TCASACBP  ACB Password
   +10  TCASRCON 0001 Reconnect time in minutes - HEX
 1Reconnect time in minutes - DEC
   +12  TCASCLSZ 0084 Buffer Size - HEX
   132Buffer Size - DEC
   +14  TCASHBUF BB80 High Buffer Threshold - HEX
 48000High Buffer Threshold - DEC
   +18  TCASLBUF 5DC0 Low Buffer Threshold - HEX
 24000Low Buffer Threshold - DEC
   +1C  TCASCRSZ 01E0 Screen Size - HEX
   480Screen Size - DEC
   +1E  TCASCHNL 04   Maximum Chain Length - HEX
 4Maximum Chain Length - DEC
   +1F  TCASENGT 00   ENGTRANS Value 0-Base,1-Ext,2-None

   Thanks very much to all of you for your interest, and thanks, Joe
Monk, for the correct reply.

   All the best of everything to all of you.

Sincerely, Sam

P.S.  The SHOWTCAS command has an ALL parameter, which will display the
entire real contents (mostly addresses) in the IKTTCAST macro, with all
the correct values for your LPAR, below the settings which are displayed
here.  I figured that most people don't want to see the whole thing.
They are just interested in the current settings.  So ALL is not the
default.



--
For IBM-MAIN subscribe / signoff / archive access instructions,

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

2020-10-20 Thread David Spiegel

Hi Peter,
Since SCSQAUTH contains all MQ LNKLSTd modules (and no MQ modules are in 
any other LNKLSTd PDS(e)) and MQ, CICS, IMS and Batch are down, I can 
guarantee that no User/Task/Job will attempt to fetch an MQ module.


There are 2 reasons why I would not compress SCSQAUTH:
1) It's a PDSE (not a PDS). My understanding (please correct me if I'm 
wrong) is that PDSEs do not need compression to reclaim space left 
behind by deleted/replaced members.
2) The Dataset has every member deleted. Afterwards, I IEBCOPY into it. 
Why would anyone compress an empty dataset (or a recently populated one)?


Stopping LLA ... that affects the customer's (not robust as it should 
be) Automation. Our implicit rule is that the fewer tasks involved, the 
greater chance of success (implementation and staying within the 
maintenance window).


The "real world" often has considerations that you won't find in a 
pristine laboratory setting. (I've worked many years in both.)


Regards,
David

On 2020-10-20 09:14, Peter Relson wrote:


How about this situation ...
I am part of a team of people who plan maintenance upgrades many months
in advance.
There is no possibility of IPL (for many of the maintenance upgrades).
All Batch is held (other than implementation jobs); DFSMShsm, CICS, IMS
and DB2 are down.
TSO is limited to implementers.
SCSQAUTH (an MQ LNKLSTd Dataset) is emptied, its contents replaced and
LLA is REFRESHd.
MQ, CICS, IMS and DB2 are started and tested by implementers and then by
the customer.
After everyone signs off, it's back to "business as usual" and Batch is
restarted.

Do you see any holes in this approach?


If you can guarantee that no one does any fetch that might involve a
member with the same name as one within the PDS that you emptied then
"maybe".
And if you don't need to compress the data set then "maybe".
The operating system cannot stop you from compressing the data set. But it
tries a little, by allocating the data set with DISP=SHR, so that if you
do what you really should do for a compress, of using DISP=OLD, you won't
be able to.

If you're going to refresh LLA anyway, why not be safer and stop LLA
first, then restart when you're ready? The refresh will negate any
relevant caching of directories or modules, so there's no real benefit to
having LLA up across the operations.

Peter Relson
z/OS Core Technology Design


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


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


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

2020-10-19 Thread David Spiegel

Hi Peter,
How about this situation ...
I am part of a team of people who plan maintenance upgrades many months 
in advance.

There is no possibility of IPL (for many of the maintenance upgrades).
All Batch is held (other than implementation jobs); DFSMShsm, CICS, IMS 
and DB2 are down.

TSO is limited to implementers.
SCSQAUTH (an MQ LNKLSTd Dataset) is emptied, its contents replaced and 
LLA is REFRESHd.
MQ, CICS, IMS and DB2 are started and tested by implementers and then by 
the customer.
After everyone signs off, it's back to "business as usual" and Batch is 
restarted.


Do you see any holes in this approach?

Thanks and regards,
David

On 2020-10-19 09:46, Peter Relson wrote:

You delete members (let alone delete all members) from any LNKLST data set
at your own risk. If you're going to do that, you'd better not have LLA
active.
Maybe you get away with it with LLA up and a refresh. That doesn't mean it
worked or didn't leave you undesirably exposed.

Peter Relson
z/OS Core Technology Design


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


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


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

2020-10-18 Thread David Spiegel

Hi Dave,
In case that it's a LNKLKSTd PDSE (i.e. not a PDS) and it's close to 
100% full (Of course, it's only 1 extent, because that's a good practice 
for LNKLST Datasets)  and more than a few large modules/program objects 
are deemed to be in use, your IEBCOPY Job will ABEND x37, even though in 
ISPF Option 3.2 it looks empty.


During MQ Maintenace/Upgrades I've had to run IEBPDSE for every system 
which LNKLSTs SCSQAUTH.


Regards,
David

On 2020-10-18 08:24, Jousma, David wrote:

Well, thanks for that.  It’s a new one on me.  For years, when replacing 
contents of linklisted datasets, I've just deleted all members, copied all new 
content in, and refreshed lla.

_
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Spiegel
Sent: Sunday, October 18, 2020 6:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Hi Dave,
For LNKLSTd PDSEs, modules deemed to be in use aren't "removed" from the PDSE, 
which could cause shortage of directory blocks or space.
I usually have to run it twice. The first time is without a PARM, the second 
time with PARM='PerformPendingDelete,NoAnalysis'.

Please see:
https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.idau100%2Fpdsexmp4.htmdata=04%7C01%7C%7Ca56a150920a8496a24f708d87360d67b%7C84df9e7fe9f640afb435%7C1%7C0%7C637386207048000830%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=aAbpMrMEEjDcjZVv6JSxQuQw30TaA1ix6tOrgaCFIuU%3Dreserved=0

Regards,
David


On 2020-10-18 01:18, Jousma, David wrote:

Never heard of the utility.  Why would that be needed?

__
___
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand
Rapids, MI 49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of David Spiegel
Sent: Sunday, October 18, 2020 12:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or
unexpected emails**

Hi Dave,
If it's a Linklisted PDSE, you also may have to run IEBPDSE after the members 
are deleted.

Regards,
David

On 2020-10-18 00:11, Jousma, David wrote:

That’s what I was going to say...doesnt get much easier.  I do this
all the time when I want to update the contents of a linklisted
dataset

//IDCAMS   EXEC PGM=IDCAMS
//SYSUDUMP DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//LIBRARY  DD DSN=your.pds.dataset,DISP=SHR //SYSIN DD *
 DELETE your.pds.dataset(*)   FILE(LIBRARY)
/*
_
_
___
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand
Rapids, MI 49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Steve Horein
Sent: Saturday, October 17, 2020 6:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or
unexpected emails**

Good ole IDCAMS anyone?
https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.4.0%2Fcom.ibm.zos.v2r4.
idai200%2Fdgt3i231.htmdata=04%7C01%7C%7Cffe03d56aebe4262c3d308d8
7
31bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C6373859112847796
2
1%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI
6
Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPS
d
ryGpw8M8cBiwg%3Dreserved=0


On Sat, Oct 17, 2020 at 5:34 PM Chris Hoelscher

wrote:


I have employed this REXX script for years:

/* REXX */
DSNAME = 'my PDS'
DSN = STRIP(DSNAME, 'BOTH', ) /* IN CASE IT'S IN QUOTES */ QUOTE
= "'"
QDSN  = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */

ADDRESS ISPEXEC
"LMINIT  DATAID( MYDATAID)  DATASET(" QDSN ") ENQ(SHRW)"
"LMOPEN  DATAID("MYDATAID") OPTION(OUTPUT)"
"LMMDEL  DATAID("MYDATAID") MEMBER(*)"
"LMCLOSE DATAID("MYDATAID")"
"LMFREE  DATAID("MYDATAID")"

SAY DSN " IS NOW EM

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

2020-10-18 Thread David Spiegel

Hi Dave,
For LNKLSTd PDSEs, modules deemed to be in use aren't "removed" from the 
PDSE, which could cause shortage of directory blocks or space.
I usually have to run it twice. The first time is without a PARM, the 
second time with PARM='PerformPendingDelete,NoAnalysis'.


Please see: 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.idau100/pdsexmp4.htm


Regards,
David


On 2020-10-18 01:18, Jousma, David wrote:

Never heard of the utility.  Why would that be needed?

_
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Spiegel
Sent: Sunday, October 18, 2020 12:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Hi Dave,
If it's a Linklisted PDSE, you also may have to run IEBPDSE after the members 
are deleted.

Regards,
David

On 2020-10-18 00:11, Jousma, David wrote:

That’s what I was going to say...doesnt get much easier.  I do this
all the time when I want to update the contents of a linklisted
dataset

//IDCAMS   EXEC PGM=IDCAMS
//SYSUDUMP DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//LIBRARY  DD DSN=your.pds.dataset,DISP=SHR //SYSIN DD *
DELETE your.pds.dataset(*)   FILE(LIBRARY)
/*
__
___
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand
Rapids, MI 49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Steve Horein
Sent: Saturday, October 17, 2020 6:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or
unexpected emails**

Good ole IDCAMS anyone?
https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.4.0%2Fcom.ibm.zos.v2r4.
idai200%2Fdgt3i231.htmdata=04%7C01%7C%7Cffe03d56aebe4262c3d308d87
31bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C63738591128477962
1%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6
Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPSd
ryGpw8M8cBiwg%3Dreserved=0


On Sat, Oct 17, 2020 at 5:34 PM Chris Hoelscher

wrote:


I have employed this REXX script for years:

/* REXX */
DSNAME = 'my PDS'
DSN = STRIP(DSNAME, 'BOTH', ) /* IN CASE IT'S IN QUOTES */ QUOTE
= "'"
QDSN  = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */

ADDRESS ISPEXEC
"LMINIT  DATAID( MYDATAID)  DATASET(" QDSN ") ENQ(SHRW)"
"LMOPEN  DATAID("MYDATAID") OPTION(OUTPUT)"
"LMMDEL  DATAID("MYDATAID") MEMBER(*)"
"LMCLOSE DATAID("MYDATAID")"
"LMFREE  DATAID("MYDATAID")"

   SAY DSN " IS NOW EMPTY"

Chris Hoelscher
Lead Sys DBA
IBM Global Technical Services on assignmemt to Humana Inc.
T 502.476.2538  or 502.407.7266


The information transmitted is intended only for the person or entity
to which it is addressed and may contain CONFIDENTIAL material.  If
you receive this material/information in error, please contact the
sender and delete or destroy the material/information.

Humana Inc. and its subsidiaries comply with applicable Federal civil
rights laws and do not discriminate on the basis of race, color,
national origin, ancestry, age, disability, sex, marital status,
gender, sexual orientation, gender identity, or religion.
Humana Inc. and its subsidiaries do not exclude people or treat them
differently because of race, color, national origin, ancestry, age,
disability, sex, marital status, gender, sexual orientation, gender
identity, or religion.

English: ATTENTION: If you do not speak English, language assistance
services, free of charge, are available to you. Call 1‐877‐320‐1235
(TTY: 711).

Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición
servicios gratuitos de asistencia lingüística. Llame al
1‐877‐320‐1235
(TTY: 711).

繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
服務。請致電 1‐877‐320‐1235 (TTY: 711)。

Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen,
gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235
(TTY: 711).

Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z
bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY:
711).

한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다.
1‐877‐320‐1235 (TTY: 711)번으로 전화해

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

2020-10-17 Thread David Spiegel

Hi Dave,
If it's a Linklisted PDSE, you also may have to run IEBPDSE after the 
members are deleted.


Regards,
David

On 2020-10-18 00:11, Jousma, David wrote:

That’s what I was going to say...doesnt get much easier.  I do this all the 
time when I want to update the contents of a linklisted dataset

//IDCAMS   EXEC PGM=IDCAMS
//SYSUDUMP DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//LIBRARY  DD DSN=your.pds.dataset,DISP=SHR
//SYSIN DD *
   DELETE your.pds.dataset(*)   FILE(LIBRARY)
/*
_
Dave Jousma
AVP | Director, Technology Engineering

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Horein
Sent: Saturday, October 17, 2020 6:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Good ole IDCAMS anyone?
https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.4.0%2Fcom.ibm.zos.v2r4.idai200%2Fdgt3i231.htmdata=04%7C01%7C%7Cffe03d56aebe4262c3d308d8731bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C637385911284779621%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPSdryGpw8M8cBiwg%3Dreserved=0


On Sat, Oct 17, 2020 at 5:34 PM Chris Hoelscher 
wrote:


I have employed this REXX script for years:

/* REXX */
DSNAME = 'my PDS'
DSN = STRIP(DSNAME, 'BOTH', ) /* IN CASE IT'S IN QUOTES */ QUOTE =
"'"
QDSN  = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */

ADDRESS ISPEXEC
"LMINIT  DATAID( MYDATAID)  DATASET(" QDSN ") ENQ(SHRW)"
"LMOPEN  DATAID("MYDATAID") OPTION(OUTPUT)"
"LMMDEL  DATAID("MYDATAID") MEMBER(*)"
"LMCLOSE DATAID("MYDATAID")"
"LMFREE  DATAID("MYDATAID")"

  SAY DSN " IS NOW EMPTY"

Chris Hoelscher
Lead Sys DBA
IBM Global Technical Services on assignmemt to Humana Inc.
T 502.476.2538  or 502.407.7266


The information transmitted is intended only for the person or entity
to which it is addressed and may contain CONFIDENTIAL material.  If
you receive this material/information in error, please contact the
sender and delete or destroy the material/information.

Humana Inc. and its subsidiaries comply with applicable Federal civil
rights laws and do not discriminate on the basis of race, color,
national origin, ancestry, age, disability, sex, marital status,
gender, sexual orientation, gender identity, or religion.
Humana Inc. and its subsidiaries do not exclude people or treat them
differently because of race, color, national origin, ancestry, age,
disability, sex, marital status, gender, sexual orientation, gender
identity, or religion.

English: ATTENTION: If you do not speak English, language assistance
services, free of charge, are available to you. Call 1‐877‐320‐1235
(TTY: 711).

Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición
servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235
(TTY: 711).

繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
服務。請致電 1‐877‐320‐1235 (TTY: 711)。

Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen,
gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235
(TTY: 711).

Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z
bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY:
711).

한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다.
1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.


--
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 **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access 

Re: Cbttape - dataset being used

2020-10-14 Thread David Spiegel

Hi Jake,
Please look at DAF on File 94.
(There might be a newer (pre-built) version on File 135.)

Regards,
David

On 2020-10-14 02:29, Jake Anderson wrote:

Hello

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

Jake

--
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: searching for CP-67 source or microfiche listings

2020-10-05 Thread David Spiegel

Hi Mark,
That's what I had in mind.
The term NSS, I'm pretty sure, wasn't coined until they were spool files.

Regards,
David

On 2020-10-05 17:33, Mark S Waterbury wrote:

To clarify, what I meant was CP's "saved system" facility that used much the 
same mechanisms to define named segments to CP, e.g. DMKSNT.

This capability existed even in CP-67 CP, so that users could type "IPL CMS" 
for example.

--
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: searching for CP-67 source or microfiche listings

2020-10-05 Thread David Spiegel

Hi Mark,
IIRC, NSSs didn't come on the scene until much later than Vm/370 Rel. 6. 
Did you mean DCSS perhaps?


Regards,
David

On 2020-10-05 11:00, Mark S Waterbury wrote:

Hello, IBM mainframe enthusiasts:

Recently we have obtained images of some old tapes containing source code for 
the original Cambridge Monitor System (CMS) from CP-67.

We can restore that source under VM/370 Rel. 6 CMS, running on older hardware or under the Hercules-390 emulator or the 
new SIMH IBM360 simulator (that also simulates non-XA models of S/370).  Several people are now working to recreate 
CMS67 by re-assembling the source code, to geneate a nucleus and save it as a "named saved system" under 
VM/370 Rel. 6, so that people can experience what "early CMS" was like, compared to the more 
"modern" VM/370 CMS, (but under VM/370 vs. CP-67), e.g. by logging on to VM/370 and typing "IPL 
CMS67" ...

For historical accuracy, the SIMH IBM360 simulator also supports the 360 model 
67, and so we would really like to find a copy of the source code for CP.

IBM apparently made microfiche listings available for the CP component of CP-67, as well 
as the CMS component. The complete microfiche set for CP-67/CMS was IBM form # 
GYB0-0789-0, or for just the CP-67 listings on microfiche, form # GYB0-0592-1, and for 
CMS microfiche listings only, form # GYB0-0593-1.  If anyone can find a copy of 
microfiche listings for CP-67 CP, we can re-create the source code from that, using IBM 
microfiche; some shops had "COM" (Computer Output to Microfiche), so perhaps 
someone may still have a copy of those listings in that format.

Also, If anyone recalls any IBM customer sites that ran CP-67/CMS back in the 
day, where we might find possibly some old tapes containing those source 
materials, please let me know here on this list, or you can reply privately.  
(Even better would be to find a copy of the original CP-67/CMS distribution 
tape for 360D-05.2.005, but due to age, etc., this now seems less likely.)

Thanks in advance for any help with these "computer software archaeology" and 
historical restoration efforts.

All the best,

Mark S. Waterbury

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


LPSTAT Fails

2020-10-05 Thread David Spiegel

Hi,
A user issues /usr/lpp/Printsrv/bin/lpstat -a
and gets:
/usr/lpp/Printsrv/bin: FSUM9209 cannot execute: reason code = 0b1b011f: 
EDC5111I Permission denied.


The user is COnnected to AOPADMIN which is PErmitted UPDATE to PRINTSRV 
AOP.ADMINISTRATOR


Here are the z/OS V2.3 Files and Permission Bits:
Dir    755   rwxr-xr-x  2020-02-06 04:35 OMVSKERN 8192  .
Dir    755   rwxr-xr-x  2020-02-06 04:35  OMVSKERN 8192 ..
Syml   777   rwxrwxrwx  2019-04-29 20:56  OMVSKERN   42 .aokcinit
Syml   777   rwxrwxrwx  2019-04-29 20:56  OMVSKERN   48 afpxpcl
Syml   777   rwxrwxrwx  2019-04-29 21:24  OMVSKERN   34 afpxpcld
Syml   777   rwxrwxrwx  2019-04-29 20:56  OMVSKERN   48 afpxpdf
Syml   777   rwxrwxrwx  2019-04-29 21:24  OMVSKERN   34 afpxpdfd
Syml   777   rwxrwxrwx  2019-04-29 20:56  OMVSKERN   46 afpxps
Syml   777   rwxrwxrwx  2019-04-29 21:24  OMVSKERN   33 afpxpsd
File   755   rwxr-xr-x  2017-05-24 17:40  OMVSKERN  2162688 aopchkinv
File   700   rwx--  2017-05-24 17:40  OMVSKERN    20480 aopcstart
File   700   rwx--  2020-02-06 04:34  OMVSKERN  3911680 aopd
File   754   rwxr-xr--  2020-02-06 04:34  OMVSKERN    32768 aopdemon
File   700   rwx--  2020-02-06 04:34  OMVSKERN   286720 aopippd
File   750   rwxr-x---  2020-02-06 04:34  OMVSKERN  3092480 aoplogu
File   700   rwx--  2020-02-06 04:34  OMVSKERN   299008 aoplpd
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  5517312 aopmig
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  2396160 aopmigns
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  1810432 aopmigpw
File   700   rwx--  2020-02-06 04:34  OMVSKERN   176128 aopnetd
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  3534848 aopoms
File   700   rwx--  2020-02-06 04:35  OMVSKERN  3198976 aopoutd
File   755   rwxr-xr-x  2020-02-06 04:35  OMVSKERN  2408448 aopsapd
File   750   rwxr-x---  2020-02-06 04:35  OMVSKERN  2625536 aopsend
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN 5292 aopsetup
File   700   rwx--  2020-02-06 04:35  OMVSKERN  1835008 aopssid
File   755   rwxr-xr-x  2017-05-24 17:40  OMVSKERN    13399 aopstart
File   755   rwxr-xr-x  2020-02-06 04:35  OMVSKERN  2625536 aopstat
File   750   rwxr-x---  2020-02-06 04:35  OMVSKERN  2519040 aopstop
File   700   rwx--  2020-02-06 04:35  OMVSKERN   847872 aopsubd
File   700   rwx--  2020-02-06 04:35  OMVSKERN   663552 aopwsmd
File   750   rwxr-x---  2017-05-24 17:40  OMVSKERN  2633728 aopxcfut
File   700   rwx--  2020-02-06 04:35  OMVSKERN   532480 aopxfd
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  3358720 cancel
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  2871296 filter
File   750   rwxr-x---  2020-02-06 04:34  OMVSKERN  2072576 hinvu
Dir    755   rwxr-xr-x  2017-05-24 17:40  OMVSKERN 8192 IBM
File   750   rwxr-x---  2017-05-24 17:40  OMVSKERN 1760 
loadprinterinventory

File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  3383296 lp
File   755   rwxr-xr-x  2020-02-06 04:34  OMVSKERN  3444736 lpstat
File   750   rwxr-x---  2020-02-06 04:35  OMVSKERN  3608576 pidu
File   755   rwxr-xr-x  2017-05-24 17:40  OMVSKERN 2223 remotexf
File   750   rwxr-x---  2020-02-06 04:35  OMVSKERN  2023424 sdbu

Other than giving the users UID(0), how can I allow them to issue LPSTAT 
(and other commands) successfully?


Thanks and regards,
David

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


Re: SVC 99 unallocating a concatenated dataset

2020-10-01 Thread David Spiegel

Hi Lennie,
I am interested. Please send it.

Thanks and regards,
David

On 2020-10-01 14:46, Lennie Dymoke-Bradshaw wrote:

Long ago (actually 1989 I think) I wrote a CONCAT TSO command which can be used 
to add or remove data sets from a concatenated list. It can also perform a 
FREE. This loops round each entry in the concatenated set and frees each data 
set.

It still works a treat.

I still have the code should anyone want it.

Lennie Dymoke-Bradshaw
Consultant working on contract for BMC mainframe Services by RSM Partners
‘Dance like no one is watching. Encrypt like everyone is.’


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Joseph Reichman
Sent: 01 October 2020 18:25
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SVC 99 unallocating a concatenated dataset

I’m running the program under test
After I do decocatenate verb 04
With the ddname text 01
I get a rc 0 from SVC 99
I then go to ISPF
Do a ISRDDN

And I have a number of files actually 100 Each with a ddname SYS7,SYS8  
etc. This indicates to me that although they are decocatenated they are still 
allocated

Thanks




On Oct 1, 2020, at 12:35 PM, Binyamin Dissen  wrote:

On Thu, 1 Oct 2020 07:58:56 -0400 Joseph Reichman

wrote:

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

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

--
Binyamin Dissen 
https://eur04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dissensoftware.com%2Fdata=02%7C01%7C%7C784d39c728784d60543b08d8663a5b14%7C84df9e7fe9f640afb435%7C1%7C0%7C637371748105900192sdata=ijSF4HpNgD4lFwe5t8oj5n4bbEO1UjVMXeytv8RSvG8%3Dreserved=0

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: Working link for current 3270 Data Stream

2020-09-29 Thread David Spiegel

Yeah, but it's not the latest one.

On 2020-09-29 09:05, Wendell Lovewell wrote:

GA23-0059-4 is already on Bitsavers:
https://eur06.safelinks.protection.outlook.com/?url=http%3A%2F%2Fbitsavers.trailing-edge.com%2Fpdf%2Fibm%2F3270%2FGA23-0059-4_3270_Data_Stream_Programmers_Reference_Dec88.pdfdata=02%7C01%7C%7Cbb7567d9d7814551292208d8647855be%7C84df9e7fe9f640afb435%7C1%7C0%7C637369815298845667sdata=MJHsTfV%2BqFlplSapgWpmCm11qEUSt3uRQHCTep3GxPY%3Dreserved=0

--
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: dataset list ISPF =3.4 batch job

2020-09-24 Thread David Spiegel

The VTOC Command Processor ...  CBT File 112

On 2020-09-24 12:32, Bill Giannelli wrote:

is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a 
total (or at least a list of) tracks for a dataset list.
thanks
Bill

--
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: J/TIP

2020-09-17 Thread David Spiegel

No.

On 2020-09-16 23:18, Seymour J Metz wrote:

JTIP is more of an unsupported SAPI; it doesn't do what SDSF does. Various 
versions of Wylbur supported it as an alternative SPOOL access. Do you have a 
batch version of Wylbur at your shop?


--
Shmuel (Seymour J.) Metz
https://eur03.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Cdb4c227bfa7f486bc2f008d85ab86eda%7C84df9e7fe9f640afb435%7C1%7C0%7C637359095472893843sdata=lE4zbYs8fbfko5TfxYBfnSac4cme6F%2B7Um47YsZsN5I%3Dreserved=0



From: IBM Mainframe Discussion List  on behalf of David 
Spiegel 
Sent: Wednesday, September 16, 2020 9:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: J/TIP

Hi,
I have been asked to investigate a number of JES2 Exits which are being
used to support remnants of J/TIP.
Does anyone here have J/TIP documentation or know where to find it?

J/TIP is from University of Illinois in the '70s-'8-80s  and the acronym
is short for JES2 TSO Interface Program.
Apparently quite a few of its features are built into SDSF.
I am trying to figure out (among other things) what purpose(s) it has in
JCL of Batch Jobs.

Thanks in Advance,
David

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


J/TIP

2020-09-16 Thread David Spiegel

Hi,
I have been asked to investigate a number of JES2 Exits which are being 
used to support remnants of J/TIP.

Does anyone here have J/TIP documentation or know where to find it?

J/TIP is from University of Illinois in the '70s-'8-80s  and the acronym 
is short for JES2 TSO Interface Program.

Apparently quite a few of its features are built into SDSF.
I am trying to figure out (among other things) what purpose(s) it has in 
JCL of Batch Jobs.


Thanks in Advance,
David

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


Re: SMPe holddata for previous apply run

2020-09-16 Thread David Spiegel

Hi Bill,
Add CHECK and REDO.

Regards,
David

On 2020-09-16 09:17, Bill Giannelli wrote:

I have applied a round of maintenance a few months back but havent moved it into our 
"run time libraries" yet. Is there a way to run a SMPe report and get the 
HOLDDATA from that previous APPLY?
thanks
Bill

--
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 EMAIL: How get a user to use his own catalog rather than master?

2020-09-15 Thread David Spiegel

Hi Charles,
I have a self-imposed rule: Always do it in Batch (rather than via TSO 
and/or ISPF).

This has at least 2 benefits:
1) It's repeatable and a history is automatically kept (assuming that 
you save every Batch Job).

2) You get to learn the Utilities faster.

Regards,
David

On 2020-09-15 19:27, Charles Mills wrote:

Well geez, now you tell me, after I have it all working. :-)

I followed @John McKown's instructions: DEF ALIAS(NAME('NEWUSER') RELATE('name 
of existing user high level catalog'))

1. How would I decide whether to give the user his or her own catalog? I would 
guess I do *not* need one. There will be a handful of very specialized userids 
with zero or nearly zero long-term cataloged datasets.

2. What would the above command look like if NEWUS01 through NEWUS20 were all 
going to share the same user catalog?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, David Allen
Sent: Tuesday, September 15, 2020 3:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL EMAIL: How get a user to use his own catalog rather than 
master?

It is a bit of an overkill for each individual user to have their own catalog 

--
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: How get a user to use his own catalog rather than master?

2020-09-15 Thread David Spiegel

Hi Charles,
I'd also make sure that you have a GAC Rule for user-owned Datasets 
(assuming that TSO Prefix=Userid)


|RALTER GLOBAL DATASET ADDMEM('**'/ALTER) Regards, David |

On 2020-09-15 18:20, Charles Mills wrote:

I really apologize for the incredible newbie question. I am a developer; I
only pretend to be a sysadmin.

I don't even know where to look for this answer. Is it a RACF question or
???

I have defined a new user in RACF. Let's call him or her NEWUSER. I have
defined a generic profile 'NEWUSER.**' (with quotes!) and given NEWUSER
ACC(ALTER) to it.

When NEWUSER tries to create a dataset it fails with

ICH408I USER(NEWUSER ) GROUP(etc.
   CATALOG.MASTER.xxx CL(DATASET ) VOL(xx)
   INSUFFICIENT ACCESS AUTHORITY
   FROM CATALOG.MASTER.** (G)
   ACCESS INTENT(UPDATE )  ACCESS ALLOWED(READ   )

What else do I need to do? I don't think I want to PERMIT NEWUSER to
CATALOG.MASTER.xxx; I think it should have its own catalog? Am I
confused or on the right track?

Charles

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



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


Re: Architectural Level Sets

2020-09-09 Thread David Spiegel

Hi Clark,
Did you run MVS on a 4341?
If yes, which version?

Thanks and regards,
David

On 2020-09-09 19:12, Clark Morris wrote:

[Default] On 9 Sep 2020 14:47:15 -0700, in bit.listserv.ibm-main
sme...@gmu.edu (Seymour J Metz) wrote:


In XA mode the problem is the SIO instruction. DOS.360, OS/360, OS/VS, etc. 
don't support SSCH. Does OS/360 need BC when you sysgen for S/370? I'm 
certain;ly not aware of such a dependency in OS/VS or VM.

MVT ran on a 4341 generated as a 370/158 in my shop while we were
upgrading to MVS.

Clark Morris

--
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: PL/I integers

2020-09-07 Thread David Spiegel

... and the compile options

On 2020-09-07 10:48, Bob Bridges wrote:

All of this is really fascinating (and no, I'm not being facetious):  A
bunch of apparently knowledgeable PL/1 programmers cannot agree on a point
that would seem to have a single indisputable answer.  Rather than keep on
saying "yes it is" / "no it isn't", couldn't one or two of you from both
sides run a program demonstrating your claim?  It would probably be
necessary to define the compiler you're running, too.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* Oh good.  Now he'll be bi-ignorant.  -Texas Agriculture Commissioner Jim
Hightower when told that Texas Governor Bill Clements had been studying
Spanish */

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


ICONV

2020-09-04 Thread David Spiegel

Hi,
Does anyone here have experience with using GENXLT and EDCSUSNM Macros 
to do a "custom" translation?
Briefly, I would like to know which Dataset(s) the ICONV Utility uses to 
load its tables. (Is it LNKLST or LPALST possibly?)


Thanks and regards,
David

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


Re: Architectural Level Sets

2020-09-01 Thread David Spiegel
Yes. I took care of VS1 1.7D with BPE (Basic Programming Extensions) on 
a 4341.



On 2020-09-01 22:56, Mike Schwab wrote:

Well, this is what confused me.  OS/VS1 1.7 was released to run on the IBM 4300.
VS2 is multiple address spaces, vs VS1 is a single 16MB address space, correct?

https://nam05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FIBM_4300%23Operating_systemsdata=02%7C01%7C%7C6fa1bedaf4bb4215188808d84eebd988%7C84df9e7fe9f640afb435%7C1%7C0%7C637346122168286714sdata=WbBo0CYQaxXI%2B%2B8BSChV1384pI802SAupW8ye5QjTQw%3Dreserved=0

On Tue, Sep 1, 2020 at 6:27 PM Phil Smith III  wrote:

mike.a.sch...@gmail.com (Mike Schwab) wrote:


Well, XA+ machines only supported 4K pages / 1M segments and not 2K
pages / 64K segments.  Then DAS and Access register additions.  The
43xx series only supported a single virtual address space, like
DOS/VSE.  3090s were the only processors to support Vector
instructions, and op codes were re-used in z series.



What does this mean, "a single virtual address space"? VM ran fine on it, with 
many virtual address spaces. Are you perhaps thinking of V=R/V=F? I disremember whether 
43xx supported those.



...phsiii



P.S. "zSeries" (RIP)


--
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: MVS modify command capture

2020-08-27 Thread David Spiegel

Hi Ed,
Do EMCS messages not go to SYSLOG?
If yes, please provide an example.

Regards,
David

On 2020-08-26 23:55, Ed Jaffe wrote:

On 8/26/2020 5:03 PM, Steve Beaver wrote:

The only reason I can think of a case where the syslog is way behind.


Syslog is not relevant here. This is an EMCS console.




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


Re: MVS modify command capture

2020-08-26 Thread David Spiegel

Hi Peter,
If you have SDSF, you can write a Rexx program to scan the SYSLOG 
(either active or offloaded) for messages output by your modify command.


Regards,
David

On 2020-08-26 05:39, Peter wrote:

I have a command

F STARTEDTASK, STATUS

it gives the output in SYSLOG but I would like to write it's output to a
Dataset

On Wed, 26 Aug, 2020, 1:38 pm Seymour J Metz,  wrote:


Your question is unclear. By capture, do you mean log to a dataset or
suppress? In neither case would IEFBR14 have any relevance. Exactly what
are you trying to do and exactly what did you attempt?



--
Shmuel (Seymour J.) Metz
https://eur04.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Ce6ba2472a0494b9e207508d849a400c3%7C84df9e7fe9f640afb435%7C1%7C0%7C637340316055184199sdata=4cUUhK2fOOpt3c8b4%2BBd%2BSIJzxNOAGY6S5iUSEEqOCY%3Dreserved=0



From: IBM Mainframe Discussion List  on behalf
of Peter 
Sent: Wednesday, August 26, 2020 4:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: MVS modify command capture

Hello

I am trying to capture Modify command of a product which is running as
started task.

I tried issuing the command using IEFBR14 but it did not capture to a
Dataset.

Is there a way to capture a MODIFY command ?

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


--
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: How to determine which SMP CSI is used

2020-08-19 Thread David Spiegel

Hi Bill,
Another idea in conjunction with Tom's below ...
Using the PDS Comand Processor (CBT File 182), you can sort the member 
list by Link Edit Date. You could also display the HIStory of a given 
member which should show you the APARs/PTFs APPLYd.


Regards,
David

On 2020-08-19 09:33, Tom Conley wrote:

On 8/19/2020 9:12 AM, Bill Giannelli wrote:
I have a component, DB2 Query Monitor, that I need to apply PTFs to. 
I have found 2 CSIs. How do I determine which CSI was used for the 
currently running "Run Time Libraries"?

thanks
Bill

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



Bill,

This is a tough one.  DDDEFs are where to start.  You may want to 
sample some load modules to see if there are PTF eyecatchers in there. 
Unfortunately, there is no standard for this within IBM. So you're 
pretty much on your own trying to match target libraries to the zones 
they came from.  I ran this by Kurt Quackenbush once, and there aren't 
any good answers here.  If you think you've got it right, I recommend 
applying a small PTF that you can easily verify.  If it works, you can 
proceed with some confidence that you got the right targets.


Good luck,
Tom Conley

--
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: Anybody still running a 3270 setup?

2020-08-07 Thread David Spiegel

4331/4341/4381 perhaps?

On 2020-08-07 11:15, Stefan Skoglund wrote:

lör 2020-08-01 klockan 21:14 + skrev Alexander Huemer:

Hi

Question about 3270, once again.
As you might know, interest in 3270 hardware increased recently, due
to
the emerge of Andrew Kay's oec[0,1].
I have built the required hardware in order to be able to talk to
the
3290 display that I have. Unfortunately this is a DFT terminal that
is
currently not supported. Implementing support for it will only be
possible if protocol traces can be acquired between an establishment
controller and a DFT terminal, hence the question:


LSSM in Pittsburg (Kensington ?) has a 3290 with its accessory, ie 43xx
machine. Though if he have time (and the 4351 ?) takes some power.

--
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: OOBOL and English was Re: Still COBOL After All These Years?

2020-08-04 Thread David Spiegel

Hi Rex,
In the Northeast, interstates are generally 55-70. I haven't encountered 
any interstate that is 80. There can also be sections of the same 
highway with differing speeds.


Regards,
David

On 2020-08-04 09:01, Pommier, Rex wrote:

Radoslaw,

Speed limits are different in the States based on which state you're in.  Each 
state can set its own speed limit.  I am in South Dakota, and most smaller 2 
lane roads are 55 MPH.  Many of the state 2 lane roads are 65, and the 
interstates have an 80 MPH speed limit, the equivalent of about 130 KPH.  So 
the divided highways - at least in South Dakota - are reasonable.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of R.S.
Sent: Tuesday, August 4, 2020 7:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: OOBOL and English was Re: Still COBOL After All These 
Years?

(I know it's off-topic)
My opinion: I like american cars and roads.
However I don't understand common speed limit 55 mph which is in my opinion too 
low for the road on desert.

BTW:
Here in Poland default limit on highway is 140 km/h.
However in Germany default is ...your sanity. No speed limit. Most cars have 
factory limit at 250 km/h, but not luxury ones. And yes, it is legal to drive 
300 km/h Of course this is for highways only. And speed limit signs may reduce 
it.

--
Radoslaw Skorupka
Lodz, Poland







W dniu 21.07.2020 o 20:24, Tony Thigpen pisze:

Too many things

That context was with regard to driving in Canada and should have been
100 KPM, not 100 knots. :-(

Last time I was in Canada, we still were stuck with mostly 55mph
limits in USA while Canada seemed to have a standard of 100kpm so I
equate the two.

My point was that I don't bother to convert. I just use the
measurement as presented.

Tony Thigpen

Pew, Curtis G wrote on 7/21/20 12:28 PM:

On Jul 21, 2020, at 11:12 AM, David Spiegel 
wrote:

"... 100 knots is about 55mph ..."
Assuming you meant Kilometers/Hour (based upon the context), it's
actually 62.5 MPH.


Well, if the posted limit is 55 mph, 62.5 mph seems about the right
speed to go. 

But duck-duck-go tells me 100 knots is 115.078 mph, or 185.2001 km/h.




==

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

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

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,https://nam03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.mbank.pl%2Fdata=02%7C01%7C%7C1ecf9cb025e64e562a8f08d83876becd%7C84df9e7fe9f640afb435%7C1%7C0%7C637321429944562409sdata=HevLSeeXiuLHxJwyH0zOJ65fIBnr5VGCP1DZodVDgSo%3Dreserved=0,
 e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy 
Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy 
(opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych.

If you are not the addressee of this message:

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

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,https://nam03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.mbank.pl%2Fdata=02%7C01%7C%7C1ecf9cb025e64e562a8f08d83876becd%7C84df9e7fe9f640afb435%7C1%7C0%7C637321429944562409sdata=HevLSeeXiuLHxJwyH0zOJ65fIBnr5VGCP1DZodVDgSo%3Dreserved=0,
 e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial 
Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up 
share capital amounting to PLN 169.401.468 as at 1 January 2020.

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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you hav

Re: Query ESM from REXX

2020-08-02 Thread David Spiegel

Shkoyach

On 2020-08-02 07:25, Itschak Mugzach wrote:

You need to use this or wright an assembler program to execute a third
party check on the resource in question. Easier in rexx with irrxutil.

בתאריך יום א׳, 2 באוג׳ 2020, 14:20, מאת Gadi Ben-Avi ‏:


IRRXUTIL extracts information from the RACF Database  for reporting.
It doesn't tell you if a user has access to a resource.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf
Of Itschak Mugzach
Sent: Sunday, August 2, 2020 2:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Query ESM from REXX

Look at IRRXUTIL

ITschak

בתאריך יום א׳, 2 באוג׳ 2020, 14:06, מאת Gadi Ben-Avi ‏:


Hi,
Does anyone know of a way to query an ESM (RACF in this case) from a
REXX program running under TSO/E and ISPF?
We are currently at z/OS v2.2.

I would like to know if a user has a certain access level to a
resource in FACILITY.

Thanks

Gadi

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

Email secured by Check Point

--
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: Started task stopping immediately. No error messages.

2020-07-27 Thread David Spiegel

Hi R'Shmuel AMV"SH,
Please see: http://www.redbooks.ibm.com/redpapers/pdfs/redp4531.pdf

Regards,
David

On 2020-07-27 11:31, Seymour J Metz wrote:

It looks like you're using JES3. I thought thad SDSF didn't support it.

CC 0 would have been a useful datum in the original question. It looks like the 
FTP server doesn't issue an informational message when a copy is already 
running. RFE?


--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C6021693a92ca4c144c2f08d832421f55%7C84df9e7fe9f640afb435%7C1%7C0%7C637314606868155889sdata=IL9519W%2FFddRjKEIuP9cn1z4JEz2HND1JmVk%2BVWpNn4%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Skippy the Ancient [kkin...@email.com]
Sent: Monday, July 27, 2020 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Started task stopping immediately. No error messages.

Responding to all posters, not just Mr Metz.

1. I already tried calling the proc from JCL.  It ran, stopped immediately and 
returned no error messages.
2. I started the proc with the MSGCLASS and did receive output.  It was 
identical to the JCL call; immediate stop and no error messages.  I will post 
this below.
3. The started task is a second FTP server supporting FTPS. To simplify, I 
copied the FTPD proc and renamed it FTPSD.  In theory, it is running exactly as 
the original FTPD task with a different port. (990)
4. The PROFILE update reads like this -
AUTOLOG
FTPSD JOBNAME FTPSD  ; FTPS SERVER
ENDAUTOLOG
PORT
989 TCP OMVS; FTPS SERVER
990 TCP FTPSD NOAUTOLOG ; FTPS SERVER

Here is the output of running the started task - (system specifics changed for 
security reasons)
  08:26:31  IAT6853 THE CURRENT DATE IS MONDAY,27 JUL 2020 
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=STEPLIB  DSN=SYSX.TCPIP.SEZATCP
  08:26:31 IAT4402 UNIT=3390,VOL(S)=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=STEPLIB  DSN=SYSX.TCPIP.XXLOAD
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=SYSFTPD  DSN=SYSX.TCPIP.PARMLIB
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=SYSTCPD  DSN=SYSX.TCPIP.PARMLIB
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31  IEF695I START FTPSDWITH JOBNAME FTPSDIS ASSIGNED TO USER 
FTPSD   , GROUP 
  08:26:31  ACF9CCCD USERID FTPSDIS ASSIGNED TO THIS JOB - FTPSD
  08:26:31  IEF403I FTPSD - STARTED - TIME=08.26.31
  08:26:31  IEF404I FTPSD - ENDED - TIME=08.26.31
//FTPSDJOB MSGCLASS=T, *
// MSGLEVEL=1
//STARTING EXEC FTPSD
 1 //FTPSDJOB MSGCLASS=T,   
  *
   // MSGLEVEL=1
 2 //STARTING EXEC FTPSD
 3 XXFTPSD  PROC MODULE='FTPD',PARMS='TRACE PORT 990'
 4 XXFTPD   EXEC PGM=,REGION=0M,TIME=NOLIMIT,
   XX  PARM='POSIX(ON) ALL31(ON)/'
   IEFC653I SUBSTITUTION JCL - 
PGM=FTPD,REGION=0M,TIME=NOLIMIT,PARM='POSIX(ON) ALL31(ON)/TRACE PORT 990'
 5 XXSTEPLIB  DD DSN=SYSX.TCPIP.SEZATCP,DISP=SHR
 6 XX DD DSN=SYSX.TCPIP.XXLOAD,DISP=SHR
 7 XXCEEDUMP  DD SYSOUT=*
 8 XXSYSOUT   DD SYSOUT=*
 9 XXSYSFTPD DD DISP=SHR,DSN=SYSX.TCPIP.PARMLIB(FTPSSL)
10 XXSYSTCPD DD DISP=SHR,DSN=SYSX.TCPIP.PARMLIB(TCPDATA)
  STMT NO. MESSAGE
 2 IEFC001I PROCEDURE FTPSD WAS EXPANDED USING SYSTEM LIBRARY 
SYSX.PROCLIB
IEF695I START FTPSDWITH JOBNAME FTPSDIS ASSIGNED TO USER FTPSD   , 
GROUP USSGRPX
IEF043I Actions taken by SMFLIMxx parmlib policy for FTPSDFTPD
 Step MEMLIMIT set to ONOUDONT by policy - SMFLIM00 0002
IEF142I FTPSD FTPSD - STEP WAS EXECUTED - COND CODE 
IEF373I STEP/FTPD/START 2020209.0826
IEF032I STEP/FTPD/STOP  2020209.0826
 CPU: 0 HR  00 MIN  00.08 SECSRB: 0 HR  00 MIN  00.00 SEC
 VIRT:80K  SYS:   216K  EXT: 2220K  SYS: 9108K
 ATB- REAL:12K  SLOTS: 0K
  VIRT- ALLOC:   7M SHRD:   0M
IEF375I  JOB/FTPSD   /START 2020209.0826
IEF033I  JOB/FTPSD   /STOP  2020209.0826
 CPU: 0 HR  00 MIN  00.08 SECSRB: 0 HR  00 MIN  00.00 SEC

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

Re: Started task stopping immediately. No error messages.

2020-07-27 Thread David Spiegel

Hi,
The start and stop happen because, another task is started, usually 
named FTPD1.

To see it, you can issue (on the console or via SDSF/EJES):
D A,FTPD1

As an aside, z/OS V2.5 will be the last release supporting IBM JES3.
After that, you will be unsupported, convert to Phoenix's JES3 or 
convert to JES2.


Regards,
David

On 2020-07-27 08:48, Skippy the Ancient wrote:

Responding to all posters, not just Mr Metz.

1. I already tried calling the proc from JCL.  It ran, stopped immediately and 
returned no error messages.
2. I started the proc with the MSGCLASS and did receive output.  It was 
identical to the JCL call; immediate stop and no error messages.  I will post 
this below.
3. The started task is a second FTP server supporting FTPS. To simplify, I 
copied the FTPD proc and renamed it FTPSD.  In theory, it is running exactly as 
the original FTPD task with a different port. (990)
4. The PROFILE update reads like this -
AUTOLOG
FTPSD JOBNAME FTPSD  ; FTPS SERVER
ENDAUTOLOG
PORT
989 TCP OMVS; FTPS SERVER
990 TCP FTPSD NOAUTOLOG ; FTPS SERVER

Here is the output of running the started task - (system specifics changed for 
security reasons)
  08:26:31  IAT6853 THE CURRENT DATE IS MONDAY,27 JUL 2020 
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=STEPLIB  DSN=SYSX.TCPIP.SEZATCP
  08:26:31 IAT4402 UNIT=3390,VOL(S)=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=STEPLIB  DSN=SYSX.TCPIP.XXLOAD
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=SYSFTPD  DSN=SYSX.TCPIP.PARMLIB
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31 IAT4401  LOCATE FOR STEP=FTPD DD=SYSTCPD  DSN=SYSX.TCPIP.PARMLIB
  08:26:31 IAT4402 STORCLAS=XYZZY, MGMTCLAS=XYZZY
  08:26:31  IEF695I START FTPSDWITH JOBNAME FTPSDIS ASSIGNED TO USER 
FTPSD   , GROUP 
  08:26:31  ACF9CCCD USERID FTPSDIS ASSIGNED TO THIS JOB - FTPSD
  08:26:31  IEF403I FTPSD - STARTED - TIME=08.26.31
  08:26:31  IEF404I FTPSD - ENDED - TIME=08.26.31
//FTPSDJOB MSGCLASS=T, *
// MSGLEVEL=1
//STARTING EXEC FTPSD
 1 //FTPSDJOB MSGCLASS=T,   
  *
   // MSGLEVEL=1
 2 //STARTING EXEC FTPSD
 3 XXFTPSD  PROC MODULE='FTPD',PARMS='TRACE PORT 990'
 4 XXFTPD   EXEC PGM=,REGION=0M,TIME=NOLIMIT,
   XX  PARM='POSIX(ON) ALL31(ON)/'
   IEFC653I SUBSTITUTION JCL - 
PGM=FTPD,REGION=0M,TIME=NOLIMIT,PARM='POSIX(ON) ALL31(ON)/TRACE PORT 990'
 5 XXSTEPLIB  DD DSN=SYSX.TCPIP.SEZATCP,DISP=SHR
 6 XX DD DSN=SYSX.TCPIP.XXLOAD,DISP=SHR
 7 XXCEEDUMP  DD SYSOUT=*
 8 XXSYSOUT   DD SYSOUT=*
 9 XXSYSFTPD DD DISP=SHR,DSN=SYSX.TCPIP.PARMLIB(FTPSSL)
10 XXSYSTCPD DD DISP=SHR,DSN=SYSX.TCPIP.PARMLIB(TCPDATA)
  STMT NO. MESSAGE
 2 IEFC001I PROCEDURE FTPSD WAS EXPANDED USING SYSTEM LIBRARY 
SYSX.PROCLIB
IEF695I START FTPSDWITH JOBNAME FTPSDIS ASSIGNED TO USER FTPSD   , 
GROUP USSGRPX
IEF043I Actions taken by SMFLIMxx parmlib policy for FTPSDFTPD
 Step MEMLIMIT set to ONOUDONT by policy - SMFLIM00 0002
IEF142I FTPSD FTPSD - STEP WAS EXECUTED - COND CODE 
IEF373I STEP/FTPD/START 2020209.0826
IEF032I STEP/FTPD/STOP  2020209.0826
 CPU: 0 HR  00 MIN  00.08 SECSRB: 0 HR  00 MIN  00.00 SEC
 VIRT:80K  SYS:   216K  EXT: 2220K  SYS: 9108K
 ATB- REAL:12K  SLOTS: 0K
  VIRT- ALLOC:   7M SHRD:   0M
IEF375I  JOB/FTPSD   /START 2020209.0826
IEF033I  JOB/FTPSD   /STOP  2020209.0826
 CPU: 0 HR  00 MIN  00.08 SECSRB: 0 HR  00 MIN  00.00 SEC

--
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: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-22 Thread David Spiegel

*98.6

On 2020-07-22 14:38, Bob Bridges wrote:

For weather I don't feel the need to distinguish between 67°F and 68°F.  "High 
60s" is close enough for most conversations.

I suppose you already know this, but when someone (I forget who) first worked out the 
normal human temperature, he measured a number of people and arrived at an average of 
37°C, plus or minus a few degrees.  37°C got translated to 96.6°F, which became a 
way-too-precise number adhered to by way-too-many moms.  "99!  You have a 
temperature!  Get to bed!"

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* It's so simple to be wise.  Just think of something stupid to say and then 
don't say it.  -Sam Levenson */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Spiegel
Sent: Wednesday, July 22, 2020 12:22

Yeah, except that Fahrenheit degrees are smaller. For the same accuracy,
you'd have to resort to digits to the right of the decimal point. Feh!

--- On 2020-07-22 12:15, Bob Bridges wrote:

Interesting; centigrade is the one system I use nowadays without having to
think much about it.  It's so easy:  0s are cold, 10s are cool, 20s are
warm, 30s are hot.

--
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: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-22 Thread David Spiegel
Yeah, except that Fahrenheit degrees are smaller. For the same accuracy, 
you'd have to resort to digits to the right of the decimal point. Feh!


On 2020-07-22 12:15, Bob Bridges wrote:

Interesting; centigrade is the one system I use nowadays without having to
think much about it.  It's so easy:  0s are cold, 10s are cool, 20s are
warm, 30s are hot.

I get kilometers but I think in miles.  For short measurements I like
centimeters and millimeters, but I couldn't tell you how tall I am in cm.
I'm happy in either pounds or kilos, but I'd have to calculate to tell you
how many kg I weigh.  But centigrade makes complete sense to me.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* If you read the New Testament with an Old-Covenant heart, it will be just
Law to you.  Likewise, if you read the Old Testament with a New-Covenant
heart, you will see Christ in all of it.  -Rick Joyner, "The Apostolic
Ministry" */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jackson, Rob
Sent: Monday, July 20, 2020 23:23

It disturbs me that I agree with Shmuel three times in as many days.

Tony, what's your mass here lately after Insanity-19?  Let's have it in
slugs, please, since that's the unit.  Take you a dram and a scruple; add in
a grain or two for precision, but make sure you convert it to mass.

American standard--Imperial units; they're rubbish.  Abject garbage.  SI is
not a fad, despite its origins.  No fan of the "French;" no fan of "Trump;"
no fan of anything political.  But SI, revised a couple times or three, is a
beautiful system of units in which one may compute physics.  If you
disagree, then I assert you have a challenge understanding many things about
physics.  I'm talking about mechanics and fluid dynamics.  I'm too stupid
for E, although the same equivalency attempts apply there.

P.S.  Apparently Imperial units have been redefined as relative to SI.
Imagine that.  
https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.britannica.com%2Ftopic%2FImperial-unitdata=02%7C01%7C%7C1f08f9d644ff4478e52508d82e5a8d55%7C84df9e7fe9f640afb435%7C1%7C0%7C637310313750326496sdata=o2W5RPBIlDxJdEtgYt8W%2BlOzErmp8kN5apiWIkk624A%3Dreserved=0

P.P.S.  This reminds me of many conversations with my father.  He absolutely
couldn't stand this type of thing, i.e. SI being obviously superior.  I
don't get it.  It is what it is.

As a disclaimer, I'm not a complete bigot.  I say miles and yards; but I
have this nasty habit of converting them to meters in my mind every time I
say them.  The one thing I cannot get used to in every-day life is Celsius
degrees.  I think in Fahrenheit degrees.  Oddly enough, since they're
exactly the same thing, I find it easier to talk in Kelvins rather than
Celsius degrees.  Maybe I just like starting at zero.  :)  I couldn't tell
you what absolute zero in Fahrenheit is; I guess I never cared.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Monday, July 20, 2020 5:02 PM

The practical value doesn't depend on how it started. Yes, I could say all
sorts of things about how the mob interpreted "Liberté, égalité,
fraternité", but it doesn't change the fact that nobody understands the
English system of units. How many gills in a gallon? (That's a trick
question; it depends on which kind of gallon.) How many ounces in a ton? Can
you convert furlongs per fortnight to miles per hour?

--
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: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-21 Thread David Spiegel

Hi Tony,
"... 100 knots is about 55mph ..."
Assuming you meant Kilometers/Hour (based upon the context), it's 
actually 62.5 MPH.


Regards,
David

On 2020-07-21 12:00, Tony Thigpen wrote:
It's all perspective and how precise you need to be. And what we are 
measuring.


The only thing I know that is measured in yards is cloth and football. 
In football, we never measure in feet or inches, just yards. We just 
care if it crosses the line.


For construction, we never use yards, it's always feet. It can be 300 
feet and we still call it feet. We don't convert it to yards.


In home improvements, boards and such are measured in feet,inch,16ths. 
That is it. Not yards,feet,inch,16th.


When driving down the road, it's all miles or 1/10 of a mile. We don't 
say Mile,yard,feet,inch,16th.


When I am flying my plane, I only care about height in 100 feet 
increments. If I say I am at 3100 feet, that can be anywhere between 
3050 and 3150. And, if I am talking to ATC, its "N1234 level at 3.1".


And, speaking of flying, I fly in KPH , not MPH. I don't don't convert 
between knots or miles, I just use what is applicable.


When I drive in Canada, I just use the other markings on the 
speedometer. I know that 100 knots is about 55mph, but I don't really 
care as I don't convert it back and forth. I just go by what the sign 
says. (Which, as a good American, I add 10 to, or maybe 20 if I am on 
an interstate highway.)


So, as a USAns (as someone called us), we don't worry about conversion 
between lengths that much. So, that is why the whole "must be base 10" 
issue does not matter to me.


Tony Thigpen

David Crayford wrote on 7/21/20 9:57 AM:
I agree that cups are useful! The only time I find Imperial useful is 
reading US recipes that use cups. Other than that Imperial is brain 
damaged! And I say that having grown up in the UK to a family which 
used Imperial all the time in my youth.
I used to go to the sweet shop and ask for a quarter of a pound of 
American hard gums!


I recently watched a US home improvements show and couldn't fathom 
how anybody could make sense of 1/16th of an inch. I couldn't tell 
you how many yards to a mile but meters to a KM is simple.


On 2020-07-21 9:46 PM, Pew, Curtis G wrote:
On Jul 20, 2020, at 10:22 PM, Jackson, Rob 
 wrote:
American standard--Imperial units; they're rubbish.  Abject 
garbage.  SI is not a fad, despite its origins.  No fan of the 
"French;" no fan of "Trump;" no fan of anything political.  But SI, 
revised a couple times or three, is a beautiful system of units in 
which one may compute physics.  If you disagree, then I assert you 
have a challenge understanding many things about physics.  I'm 
talking about mechanics and fluid dynamics.  I'm too stupid for 
E, although the same equivalency attempts apply there.
For science and engineering I totally agree: you should never use 
anything but SI units. They have precise definitions, and being 
decimal-based make calculations easier. Not to mention being used 
world-wide.


For everyday life, though, I think American/Imperial units (and any 
other traditional systems that may survive elsewhere) have their 
advantages. They evolved because people found them useful. For 
example, when I’m cooking I could say 250 milliliters or one cup 
(they’re close enough for the precision I need) but one cup is 
simpler. Or if my pedometer says I’ve walked 2000 steps I know I’ve 
gone about a mile. (“Mile” comes from “mille passuum” = “a thousand 
of steps”; my pedometer counts left and right as separate steps but 
for the Romans you had to move both before they counted it.)



P.S.  Apparently Imperial units have been redefined as relative to 
SI.  Imagine that.

Yep. For precision definitions, always use SI.

I think it’s cool that SI units are now defined by specifying exact 
values for physical constants.



P.P.S.  This reminds me of many conversations with my father.  He 
absolutely couldn't stand this type of thing, i.e. SI being 
obviously superior.  I don't get it.  It is what it is.


As a disclaimer, I'm not a complete bigot.  I say miles and yards; 
but I have this nasty habit of converting them to meters in my mind 
every time I say them.  The one thing I cannot get used to in 
every-day life is Celsius degrees.  I think in Fahrenheit degrees. 
Oddly enough, since they're exactly the same thing, I find it 
easier to talk in Kelvins rather than Celsius degrees.  Maybe I 
just like starting at zero.  :)  I couldn't tell you what absolute 
zero in Fahrenheit is; I guess I never cared.
This supports my point about the convenience of traditional units. 
Fahrenheit is more granular than Celsius, so you can be a bit more 
precise without having to go to decimals.





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



Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-21 Thread David Spiegel

Hi Tom,
Don't forget that Metric was foisted upon us (as was federal 
bilingualism) by Justin's father as a political move after he quelled 
the FLQ Crisis.
It also was a sneaky way to get more tax revenue. That is, 1 penny/liter 
gasoline tax seems more palatable than an extra 4.5 cents/gallon.


One other thing ... When I worked at Environment Canada (for Americans 
think EPA+NOAA)  (1980), I was writing FORTRAN (CDC and IBM) to decipher 
weather-related data based upon MANOBS (a world-wide convention).
Believe it or not, EVERY item was measured in Imperial units (e.g. 
inches of rain/snow, candlepowers of sunlight, windspeed in miles per 
hour, atmospheric pressure in inches of mercury etc.). There was nary a 
Meter, Joule, Newton nor Kilopascal.


Regards,
David

On 2020-07-21 10:57, Tom Russell wrote:

Do we really want to stick with a system of units that few of us understand, 
with the
same name denoting different quantities depending on context?

I agree with Shmuel.  As a Canadian I was always mildly amused that the 
Americans had different quarts and gallons from us.  They were wrong of course, 
but in a naïve way.  Their quart was 32 ounces and ours was 40, their gallon 
was four quarts and so was ours. However I remember my shock when I discovered 
the ounce is different as well.  A US fluid ounce is 1.040843 of our fluid 
ounces.  That just seems so *wrong*.

G. Tom Russell
“Stay calm. Be brave. Wait for the signs” — Jasper FriendlyBear
“… and remember to leave good news alone.” — Gracie HeavyHand

--
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: Is /usr/lpp reserved solely for IBM products?

2020-07-12 Thread David Spiegel

Hi Israel AMV"SH,
Shavua Tov!
A side point ... If SYS1.PARMLIB is CATALOGd via a Symbolic (e.g. 
) your IPL will fail, however, for a successful it can be CATALOGd 
via VOL(*).


Regards,
David

On 2020-07-12 04:50, Israel Wagshal wrote:

On Sat, 11 Jul 2020 17:09:32 -0500, Al Ferguson  
wrote:

Thank you for the insights.

How do you change dynamically root filesystem's mount mode to R/W and back to 
R/O?

What do you mean by saying "the IBM Root Filesystem is actually mount at /ipl-vol/ 
"?
The Version root has to be mounted R/O off a mountpoint at the Sysplex root.
We do not place any VSAM dataset on the iplvol. Only non-VSAMs are placed there, 
because we use symbolic cataloging via  and , which isn't 
possible (I think) for VSAM datasets.


Isreal,



On 11 July 2020, at 15:30, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

On Sat, 11 Jul 2020 12:51:04 -0500, Israel Wagshal wrote:

I'm installing a software that has to have its own zFS aggregate mounted and 
available.

Looking into the USS filesystem I can see many IBM products' zFS aggregates 
mounted off /usr/lpp.
I can see no foreign aggregate mounted off /usr/lpp.


I believe LPP abbreviated Licensed Program Products.


That is what IBM has designated it. IBM though does not say it is for IBM 
Licensed Program Products. CA (now Broadcom) uses /usr/lpp/CA/product_name quit 
a bit; as do a few others.



The convention elsewhere seems to be /usr/local:

https://eur03.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.pathname.com%2Ffhs%2Fpub%2Ffhs-2.3.html%23USRLOCALLOCALHIERARCHYdata=02%7C01%7C%7C9d3dc01b67ef44ab8c8808d82640a954%7C84df9e7fe9f640afb435%7C1%7C0%7C637301406451711143sdata=I0CvGO6pfyxJAx8hwrhR%2Ft5qlflYoYpIIBumuYthphQ%3Dreserved=0

The common place to put most Open Source tools is /usr/local/tool_name; 
particularly in Linux installations. Occasionally some 3rd Party Products use 
this as well (though they also end up in /var and /opt quite a bit).



However, /usr/lpp is in IBM's Version root which is mounted R/O.

This is recommended configuration



Is it proper to change Version root's mount mode temporarily to R/W and mkdir 
another mountpoint off /usr/lpp for the product I'm installing, or should this 
be avoided and made elsewhere?
Is there a general recommendation where to mount aggregates for non-IBM 
products?
The vendor says nothing about this.

Can mount mode of the Version root be changed on the fly by some command or 
will this require bouncing the system?

You can dynamically change the IBM Root Filesystem (or any mounted Filesystem) 
from r/o to r/w and back again (line commands or via ISHELL Filesystem 
utility), you do need to be root (either via “su” command or your UID being 0).

What I have found to do to try to align with IBM’s intentions is the following:

1. Create a mount point in the root filesystem to mount 3rd party products, say 
/products.
I use a Automount to dynamically mount filesystems here. With proper naming 
standards you can code a general rule in the /etc/automount/product config file 
(or just hard code then as needed and refresh vial the automount command).

2. Copy the 3rd Party Product to a Filesystem of its own.
If the vendor, say CA, suggests /usr/lpp/CA/caldap/...; I install it at the 
/caldap/… level at the Filesystem.

3. Mount the filesystem so it is available, say the Filesystem is mounted at 
/products/CALDAP … the product directory would be at /products/CALDAP/caldap.

4. Dynamically change root filesystem to r/w

5. Create a Soft Link in the /usr/lpp directory (e.g. “ln -sf 
/products/CALDAP/caldap /usr/lpp/CA/caldap”)

6. Verify it is available via “ls -alF /usr/lpp/CA/caldap”

7. Dynamically change root filesystem back to r/o

I prefer to do it this way for a couple of reasons:

  1. Under Unix (USS is Posix 3 Unix) this wil behave exactly like it was 
mounted at /usr/lpp/CA/caldap
  2. I want to keep the IBM root Filesystem as close to what is coming out of 
SMP/E as possible
  3. I do not want to mount Filesystems on the IBM Root Filesystem, if possible*
  4. May products (I have seen this with IBM, CA, Rocket, …) have configuration 
files that point to their “suggested” mount point and these are not alway 
documented and/or auto configured correctly.
  5. It is always easier talking with a vendors support is everything looks to 
be configured as closely to the manual as possible.

* I run in a Sysplex, with a share Sysplex Root Filesystem and the IBM Root 
Filesystem is actually mount at /ipl-vol/


___

Al Ferguson   | mailto:afergu...@neptunescove.org
Milwaukee, WI USA |   
https://eur03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.neptunescove.org%2Fdata=02%7C01%7C%7C9d3dc01b67ef44ab8c8808d82640a954%7C84df9e7fe9f640afb435%7C1%7C0%7C637301406451711143sdata=WC2ujOQpU648IeVHcGW9mK6PnvYyYczjuHufB06Wn%2Bo%3Dreserved=0

Dulcius ex Asperis





Re: potential catalog search error - shown by IGGCSI00 [EXTERNAL]

2020-07-10 Thread David Spiegel

Are the ALIASs blown?

On 2020-07-10 11:22, Bruce Lightsey wrote:

Slight (or major) correction Kirk - datasets cataloged in the master catalog return 
correctly. Any dataset in any user catalog is "not found".

I can, for example, find the SYS1.CPU1.VTAMLST dataset that is cataloged in the 
master catalog CATALOG.VMVSMCA but I cannot find CCITS.DATACOM.R12.MSG015  in 
catalog CATALOG.VSYS023 or PH.PROD.PR731P.RW.P0703.FILE08 in catalog 
CATALOG.VDSK204 or any other dataset cataloged in any user catalog.




Bruce Lightsey
Database Manager
MS Department of Information Technology Services
601-432-8144 | 
https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.its.ms.gov%2Fdata=02%7C01%7C%7Cc20ba429ef0e4517255f08d824e51736%7C84df9e7fe9f640afb435%7C1%7C0%7C637299913653415409sdata=hVbYEVxYZ%2BY7xqxrthC6GkLCreItpCz08GDmgOZXO5U%3Dreserved=0

DISCLAIMER: This email and any files transmitted with it are confidential and 
intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error please notify the system 
manager. This message contains confidential information and is intended only 
for the individual named. If you are not the named addressee you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this e-mail by mistake and delete 
this e-mail from your system. If you are not the intended recipient you are 
notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this information is strictly prohibited
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kirk Wolf
Sent: Friday, July 10, 2020 9:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: potential catalog search error - shown by IGGCSI00 [EXTERNAL]

On Thu, Jul 9, 2020 at 4:14 PM Feller, Paul < 
02fc94e14c43-dmarc-requ...@listserv.ua.edu> wrote:


This all sounds like similar behavior of the option in 3.4 called
"Include Additional Qualifiers".  If you don't set the option on you
have to wild card your dataset list.  With the option set on you don't
have to use wild card to get a dataset list.

All the code I've ever written using IGGCSI00 I've had to use wild
cards to get the list of datasets I wanted.  In the manual they talk
about how the use of wild cards or no wild cards will affect the output from 
IGGCSI00.


I'm not sure what you are referring to in the IGGCSI00 documentation.
The

first paragraph says:


*"The generic filter key can be a fully-qualified entry name, in which case one entry is 
returned, or the generic filter key can contain "wild cards"
so thatmultiple entries can be selected on a single invocation."*

You can verify proper behavior with the following use of IBM's sample REXX
program:

READY
exec 'sys1.samplib(iggcsirx)'
  ENTER FILTER KEY
MYHLQ.DSN

On *one* of Bruce's LPARs, this fails for *any* dataset, even those cataloged 
in the master catalog.


Kirk Wolf
Dovetailed Technologies
https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fdovetail.com%2Fdata=02%7C01%7C%7Cc20ba429ef0e4517255f08d824e51736%7C84df9e7fe9f640afb435%7C1%7C0%7C637299913653425397sdata=zK86Os3rOOOqCLn6m3F7F1NTIO0j6stji3GcBkfWOZI%3Dreserved=0

Thanks..

Paul Feller
GTS Mainframe Technical Support


--
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: ISPF 3.4 DSLIST questions

2020-07-09 Thread David Spiegel

Both are one call.

On 2020-07-09 14:25, Jesse 1 Robinson wrote:

One call to your program, or one call to RACF?

.
.
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 
David Spiegel
Sent: Thursday, July 9, 2020 1:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: ISPF 3.4 DSLIST questions

CAUTION EXTERNAL EMAIL

Hi Skip,
My program does it in one call.

Regards,
David

On 2020-07-09 00:20, Jesse 1 Robinson wrote:

My experience with RACF echoes Bob Bridges, as does the excellent code sample 
from David Spiegel. A single call directly to RACF returns a yes/no for the 
level of access queried in that call.

Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to 
determine the highest level of access allowed. In any case, it's a shame that 
RACF requires multiple calls. David's code appears to do that but masks it for 
the user.

.
.
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 Mike Hochee
Sent: Wednesday, July 8, 2020 9:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: ISPF 3.4 DSLIST questions

CAUTION EXTERNAL EMAIL

Hi Bob,

If was unfamiliar with assembler, I would not start by attempting to use 
RACROUTE macros, as the combination of the two is a lot to chew on IMO.

RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM
some years ago. Documentation and assembler source are available
here...
https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.ww
w.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdfdata=02%
7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435a
aaa%7C1%7C0%7C637298652463812056sdata=eEwr70f%2BfqMkQRw60AnpP
PIXMcSfXd0BZUtBrqf0a8s%3Dreserved=0  It is certainly callable
from Rexx and is something you can customize if desired.  Rather than
RACROUTE, the program makes use of the RACF R_admin callable service.
RACF callable service functionality may map more closely to the kind
of permission/resource related questions you posed. The RACF callable
services are documented here...
https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww-
01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa
232293%2F%24file%2Fichd100_v2r3.pdfdata=02%7C01%7C%7Cc1ba10f375ae
4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C6372
98652463812056sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOK
Ck%3Dreserved=0

HTH,
Mike

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Behalf Of Bob Bridges
Sent: Wednesday, July 8, 2020 7:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF 3.4 DSLIST questions

Caution! This message was sent from outside your organization.

I've been doing mainframe security for a few decades now, but I've never learned IBM's version of 
assembler (I still have ambitions of doing that eventually) so I may be mistaken about how RACROUTE 
works.  But my impression is that the question the OS asks the security system might look like 
this:  "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?"  In 
other words, the question specifies the class, the resource name, the user's ID and the level of 
access (READ or whatever), and the answer is a simple Yes or No (or in rare cases "I can't 
tell").

Am I mistaken in that?  If not, then how do you learn what access ABC has to 
HLQ.XYZ without asking once for READ, once for UPDATE and so on?

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* People don't really want to go back to a time when the world was
simpler. They want to go back to a time when they didn't understand
how complicated the world has always been. */


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Behalf Of David Spiegel
Sent: Tuesday, July 7, 2020 18:15

"...  But if you want to know all the kinds of access you have, you'd need to ask 
the question three or four times, for read, update, execute and create. ..."

This statement is not true.

I published an Assembler program and a Rexx Exec here on June 14.
My program has been placed on CBT File 836 (for now, it's in the Update section 
of the website).

--- On 2020-07-07 17:45, Bob Bridges wrote:

Nothing useful to say about your first question, but about the second:  I can 
think of two ways to pull your access information for a list of datasets.

1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the 
commands and parse the output.  Display only the brief results, eg "RW" fo

Re: ISPF 3.4 DSLIST questions

2020-07-09 Thread David Spiegel

Hi Skip,
My program does it in one call.

Regards,
David

On 2020-07-09 00:20, Jesse 1 Robinson wrote:

My experience with RACF echoes Bob Bridges, as does the excellent code sample 
from David Spiegel. A single call directly to RACF returns a yes/no for the 
level of access queried in that call.

Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to 
determine the highest level of access allowed. In any case, it's a shame that 
RACF requires multiple calls. David's code appears to do that but masks it for 
the user.

.
.
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 
Mike Hochee
Sent: Wednesday, July 8, 2020 9:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: ISPF 3.4 DSLIST questions

CAUTION EXTERNAL EMAIL

Hi Bob,

If was unfamiliar with assembler, I would not start by attempting to use 
RACROUTE macros, as the combination of the two is a lot to chew on IMO.

RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM some years ago. Documentation 
and assembler source are available here... 
https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.www.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdfdata=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056sdata=eEwr70f%2BfqMkQRw60AnpPPIXMcSfXd0BZUtBrqf0a8s%3Dreserved=0
  It is certainly callable from Rexx and is something you can customize if desired.  Rather than 
RACROUTE, the program makes use of the RACF R_admin callable service.  RACF callable service 
functionality may map more closely to the kind of permission/resource related questions you posed. The 
RACF callable services are documented here... 
https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww-01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa232293%2F%24file%2Fichd100_v2r3.pdfdata=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOKCk%3Dreserved=0

HTH,
Mike

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bob Bridges
Sent: Wednesday, July 8, 2020 7:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF 3.4 DSLIST questions

Caution! This message was sent from outside your organization.

I've been doing mainframe security for a few decades now, but I've never learned IBM's version of 
assembler (I still have ambitions of doing that eventually) so I may be mistaken about how RACROUTE 
works.  But my impression is that the question the OS asks the security system might look like 
this:  "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?"  In 
other words, the question specifies the class, the resource name, the user's ID and the level of 
access (READ or whatever), and the answer is a simple Yes or No (or in rare cases "I can't 
tell").

Am I mistaken in that?  If not, then how do you learn what access ABC has to 
HLQ.XYZ without asking once for READ, once for UPDATE and so on?

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* People don't really want to go back to a time when the world was simpler. 
They want to go back to a time when they didn't understand how complicated the 
world has always been. */


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Spiegel
Sent: Tuesday, July 7, 2020 18:15

"...  But if you want to know all the kinds of access you have, you'd need to ask 
the question three or four times, for read, update, execute and create. ..."

This statement is not true.

I published an Assembler program and a Rexx Exec here on June 14.
My program has been placed on CBT File 836 (for now, it's in the Update section 
of the website).

--- On 2020-07-07 17:45, Bob Bridges wrote:

Nothing useful to say about your first question, but about the second:  I can 
think of two ways to pull your access information for a list of datasets.

1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the 
commands and parse the output.  Display only the brief results, eg "RW" for 
"read/write".  I have a REXX that can tell you which security app is running, if you're 
interested.

That involves a lot of coding.  It might be simpler (if you can find a way to 
do it) to 2) do a RACROUTE query, since that sends the question to existing 
security system and returns simply 0 (access allowed), 8 (not allowed) or very 
rarely 4 (can't tell).  But if you want to know all the kinds of access you 
have, you'd need to ask the question three or four times, for read, update, 
execute and create

Re: SuperWylbur Users

2020-07-09 Thread David Spiegel

Hi Paul,
Translating the Zohar into Sanskrit is not as strange as it sounds.

Regards,
David

On 2020-07-08 23:58, Paul Gilmartin wrote:

On Wed, 8 Jul 2020 17:28:17 -0700, Charles Mills wrote:


Regarding 2: *if* it was a "round trip" translate table and *if* one could
get a copy of the table then the IEBCOPY data could be reconstructed
programmatically.

Even if not, I suspect that if one defined the problem not as "do a 100% job
of recovering *any* IEBCOPY unload that has been translated to ASCII" but
rather as "do a 95% job of recovering FB/80 source code" that one might have
a manageable task. Not trying to "undo" the translate but just looping
through the unload data and pulling out the actual source records.


One of the worst possibilities is that they used the "dd" utility:
 
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpubs.opengroup.org%2Fonlinepubs%2F9699919799%2Futilities%2Fdd.html%23tag_20_31_18data=02%7C01%7C%7C6ac9a5ba28e04769d61f08d823bc51ad%7C84df9e7fe9f640afb435%7C1%7C0%7C637298639011683886sdata=STK3M%2B4F2X6FlAfVm2cjN5WMgyR7kyYH1bWoLsTbNeQ%3Dreserved=0
... which converts between no two identifiable code pages.

Why is a utility targeted for IBM mainframes (other than Linux for z)
translated into "ASCII"?  That makes about as much sense as translating
the Zohar into Sanskrit.

It appears that the "ASCII" translation was never validated, and that
for a long interval there was no interest in having or maintaining
the source.


-Original Message-
From: Seymour J Metz
Sent: Wednesday, July 8, 2020 4:55 PM

1. I would be willing to bet that if Gerhard gave up on it then it was well
and truly hosed.

2. The web site mentions IEBCOPY unload. If they translated that to ASCII then
you're in for interesting times.

-- 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: ISPF 3.4 DSLIST questions

2020-07-08 Thread David Spiegel

Hi Bob,
Here is my RACROUTE program from CBT File 836:
RACROUTE TITLE 'RACROUTE STATUS=ACCESS'
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*
*    Author:   David Spiegel
*
*    Update:   Sam Golob  - June 17, 2020
*  Return words instead of only the reason code.
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*
*  This program is meant to be used with the following REXX:
*
*  /*   rexx */
*  Arg dsn
*  Address TSO "Call *(Racrout) '"dsn"'"
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
RACROUTE CSECT ,
RACROUTE AMODE 31
RACROUTE RMODE ANY
 SAVE  (14,12),,RACROUTE. Save caller's regs.
 LR    R12,R15    Load address of entry point
 USING RACROUTE,R12   Give assembler program's base reg.
*
 LR    R11,R1 Save Pointer to Parameter Address Blk
 USING ARGS,R11
*
 GETMAIN R,LV=SAVESIZE,LOC=BELOW
 XC    0(CLEARSIZ,R1),0(R1)  Clear the save/work area
 ST    R1,8(,R13) Save new save area addr.in old area
 ST    R13,4(,R1) Save old save area addr.in new area
 LR    R13,R1 Replace old save area with new one
 USING SAVEAREA,R13   Tell assembler about save area
*
*
*
 L R11,0(,R11)
 LH R5,0(,R11)
 C R5,=F'0' PARM?
 BE    RETURN  No, RETURN
*
 BCTR R5,0
 EX R5,MVC
 B CONTINUE
*
MVC  MVC THEENT(*-*),2(R11)
*
*
*
CONTINUE DS 0F
 RACROUTE REQUEST=AUTH,    x
RELEASE=1.9,    x
STATUS=ACCESS,  x
CLASS='DATASET',    x
ATTR=UPDATE,    x
ENTITY=THEENT,VOLSER=THEVOL,    x
WORKA=SAFWORKA
 LM    R3,R4,CONTINUE+4    Save Return Code, Reason Code
 ST R4,SAVER4A
*
*
*
RETURN   DS 0H
*    WTO   'RACROUTE About to Exit'
 L R4,SAVER4A
 B *+4(R4)
 B NONE
 B READ
 B UPDATE
 B CONTROL
 B ALTER
 B OUTFREE
 B OUTFREE
OUTFREE  DS 0H
 LR    R1,R13 Save old save area addr. for FREEMAIN
 L R13,4(,R13)    Restore old save area address
 FREEMAIN R,LV=SAVESIZE,A=(1)
EXIT DS 0H
*    SLR   R15,R15    Set a return code of zero
 LR    R15,R4 Return with Reason Code
 RETURN (14,12),RC=(15)   Return to caller, return code zero
*
NONE DS 0H
 MVI OUTLINE-1,X'40'
 MVC OUTLINE,OUTLINE-1
 MVC   OUTLINE,=CL17'Access is NONE '
 TPUT OUTLINE,17
 B OUTFREE
READ DS 0H
 MVI OUTLINE-1,X'40'
 MVC OUTLINE,OUTLINE-1
 MVC OUTLINE,=CL8'READ'
 MVC   OUTLINE,=CL17'Access is READ '
 TPUT OUTLINE,17
 B OUTFREE
UPDATE   DS 0H
 MVI OUTLINE-1,X'40'
 MVC OUTLINE,OUTLINE-1
 MVC   OUTLINE,=CL17'Access is UPDATE '
 TPUT OUTLINE,17
 B OUTFREE
CONTROL  DS 0H
 MVI OUTLINE-1,X'40'
 MVC OUTLINE,OUTLINE-1
 MVC   OUTLINE,=CL17'Access is CONTROL'
 TPUT OUTLINE,17
 B OUTFREE
ALTER    DS 0H
 MVI OUTLINE-1,X'40'
 MVC OUTLINE,OUTLINE-1
 MVC   OUTLINE,=CL17'Access is ALTER '
 TPUT OUTLINE,17
 B OUTFREE
*
*
*
 DS 0D
SAFWORKA DS CL512
THEENT   DC    CL44' '
THEVOL   DC CL6'THEVOL'
*
*
*
SAVEAREA DSECT ,  Register save area and work area
 DS    18F    Register save area
CLEARSIZ EQU   *-SAVEAREA Save and work area size
 DS X
OUTLINE  DS CL19
SAVER4A  DS F
RECORD   DS 0CL16
USERID   DS CL8
PASSWORD DS CL8
RECSIZE  EQU *-RECORD
WTO0 WTO ' ',X
MF=L
WTO0L    EQU *-WTO0
SAVESIZE EQU   *-SAVEAREA Save and work area size
*
*
*
ARGS DSECT
  DS 0D
LENGTH    DS H
DSNAME    DS   CL44   Dataset Name to Check
YREGS
END


Please run my RACROUTE program  by calling it with this Rexx EXEC:
/* Rexx */
/* Trace I */
/*
   Return Codes from RACROUTE:

   00  The user has no access.
   04  The user has READ authority.
   08  The user has UPDATE authority.
   0C  The user has CONTROL authority.
   10  The user has ALTER authority

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.
v2r1.ichc600/ich2c6_Return_codes_and_reason_codes1.htm
 */
Arg dsn
Address TSO "Call *(Racroute) '"dsn"'"
Say rc

Please note that the Load Module must be in a //STEPLIB  to LNKLST.
If not, you can specify the PDS where it resides:
Address TSO "Call 'USER.LOAD(Racroute)' '"dsn"'"

Regards,
David

On 2020-07-08 19:03, Bob Bridges wrote:

I've been doing mainframe security for a few decades now,

Re: SuperWylbur Users

2020-07-08 Thread David Spiegel

Hi Joe,
Why is it useless?

Thanks and regards,
David

On 2020-07-08 16:25, Joe Monk wrote:

Yep. And its useless.

Joe

On Wed, Jul 8, 2020 at 1:39 PM David Spiegel 
wrote:


Hi Joe,
I GUNZIPd and UNTARd WYLBUR via CYGWIN on Windows 10 Pro.

Regards,
David

On 2020-07-08 14:25, Joe Monk wrote:

Here is some info from a while back ...

There is definitely interest, but the UCLA version, instead of being
offloaded on the mainframe in AWS or Transmit format, was converted to
ASCII, losing some needed characters, and was then compressed as a tar
file. The result won't unpack under Windows; unpacked files have
unacceptable directory and member names. At this point I'm not aware of
anyone who has successfully assembled any component. If you search the
internet for Wylbur, you'll find a discussion group, with membership
partly overlapping this and the IBM-MAIN groups, according to which some
people are fairly close to a zOS version. I just got my files unpacked a
few weeks ago, and will be using a REXX/Regina program to convert them
to something I can actually process under MVS 3.8j.

And please, don't try to upload the tar/tgz file - it's useless in its
current form.



https://apc01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fhercules-390.yahoogroups.narkive.com%2FygahqIHc%2Fwylbur-orvyl-milten-and-friendsdata=02%7C01%7C%7C6ce4721ad7de46a4d74908d8237d19a1%7C84df9e7fe9f640afb435%7C1%7C0%7C637298367511061503sdata=hHlHH8doCTvQPoZqlyKvbvHprP8eEnck5JuoWoh3SJk%3Dreserved=0

Joe

On Wed, Jul 8, 2020 at 1:15 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Wed, 8 Jul 2020 09:18:01 -0700, Charles Mills  wrote:


I would *think* -- perhaps I am being naïve -- that one could come up

with an automated fix for that that would do a 90% job, and then fix the
last 10% manually.

How many lines of source is it (approximately) and in a few words what

was the mistranslation error? The usual stuff with braces, brackets and
such?

-Original Message-
Fromf Joe Monk
Sent: Wednesday, July 8, 2020 4:13 AM

Theres a big problem with the stanford distribution that makes it

unusable.

Basically, when they did the ASCII<>EBCDIC translation, some characters

got

mistranslated. So, it will not assemble.


"they"?

What CCSIDs did they presume?  What should it have been?
Iconv is your friend.  Translate back with CCSIDs to undo what they did,
then re-translate with the correct pair.

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


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


Re: SuperWylbur Users

2020-07-08 Thread David Spiegel

Hi Joe,
I GUNZIPd and UNTARd WYLBUR via CYGWIN on Windows 10 Pro.

Regards,
David

On 2020-07-08 14:25, Joe Monk wrote:

Here is some info from a while back ...

There is definitely interest, but the UCLA version, instead of being
offloaded on the mainframe in AWS or Transmit format, was converted to
ASCII, losing some needed characters, and was then compressed as a tar
file. The result won't unpack under Windows; unpacked files have
unacceptable directory and member names. At this point I'm not aware of
anyone who has successfully assembled any component. If you search the
internet for Wylbur, you'll find a discussion group, with membership
partly overlapping this and the IBM-MAIN groups, according to which some
people are fairly close to a zOS version. I just got my files unpacked a
few weeks ago, and will be using a REXX/Regina program to convert them
to something I can actually process under MVS 3.8j.

And please, don't try to upload the tar/tgz file - it's useless in its
current form.

https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fhercules-390.yahoogroups.narkive.com%2FygahqIHc%2Fwylbur-orvyl-milten-and-friendsdata=02%7C01%7C%7C18bdfcd062254ca256d008d8236c669e%7C84df9e7fe9f640afb435%7C1%7C0%7C637298295792505848sdata=ybsKDKHqNbzz9n5xhKEcwGIFCKNu3RrbuiC1hbvaPB8%3Dreserved=0

Joe

On Wed, Jul 8, 2020 at 1:15 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Wed, 8 Jul 2020 09:18:01 -0700, Charles Mills  wrote:


I would *think* -- perhaps I am being naïve -- that one could come up

with an automated fix for that that would do a 90% job, and then fix the
last 10% manually.

How many lines of source is it (approximately) and in a few words what

was the mistranslation error? The usual stuff with braces, brackets and
such?

-Original Message-
Fromf Joe Monk
Sent: Wednesday, July 8, 2020 4:13 AM

Theres a big problem with the stanford distribution that makes it

unusable.

Basically, when they did the ASCII<>EBCDIC translation, some characters

got

mistranslated. So, it will not assemble.


"they"?

What CCSIDs did they presume?  What should it have been?
Iconv is your friend.  Translate back with CCSIDs to undo what they did,
then re-translate with the correct pair.

-- 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: SuperWylbur Users

2020-07-08 Thread David Spiegel

Hi R"Shmuel AMV"SH,
Your first link didn't work.

Regards,
David

On 2020-07-08 08:09, Seymour J Metz wrote:

Of course SuperWylbur is not WYLBUR:

Why do you say that? Ceertainly the wiki article [[ORVYL and WYLBUR# 
SuperWylbur™]] says no such thing.




--
Shmuel (Seymour J.) Metz
https://nam11.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699sdata=ZQ4dobwcoLWi2W%2BDqrnTKm9QYY8JWJowzuipjpnRMf4%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Timothy Sipples [sipp...@sg.ibm.com]
Sent: Wednesday, July 8, 2020 3:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SuperWylbur Users

There's precedent. Stanford graciously offers WYLBUR's source code for
download:

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecure-web.cisco.com%2F1teuCyFGs9BAWRNo-DbBQH4w1M36Kh46JDdUH-a7Ft0cyO1AvKHP6hhlw9H9IrfXN3OBLX_ztno12F6N0aS6tCNm9-1dz3THoS7MDTRVoTyJpKv4fSiHakfOrYZk498d0bfLkHA7e_AKCVlDK-8pn_CqxHDCe_XGIfOiBpjJhq3Csvs1JAB5UR8aGvV5g_Ro_1wT6qFaonDa51wwa3nGrEHmJt-uZ8H8wHfNgf9ZdaPGTGExuODJqW125UdrH-xCrKmxYmnqL1qHHTZF0WBVDEpXBZ6jWuzPvLi0oQ430v_v_mz3Mj9bUBAtpgTMnag-I0pbo8N5t-r0xnQwW09ji1bJsnv6t-_X131Ya17Xhjmd-kyfa-ATRBUYaSW41enOY_iUQvknkYlJTvQiHEnWb0IUOm7MNonzEFA312gihaqASQsFqI1JeRIMnjdCkzjhI%2Fhttps%253A%252F%252Fweb.stanford.edu%252Fdept%252Fits%252Fsupport%252Fwylorv%252Fdata=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699sdata=RdiQ3r62LbdaVJChYU6ij%2BcqHDKVE9B7RW6jrfGzbEU%3Dreserved=0

Of course SuperWylbur is not WYLBUR:

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecure-web.cisco.com%2F1b9Ze-F9dHG9FU-k0LY9VHZ3cTfP1h9ycET6kq2Z_hQAXyul0GSW9LCUiMKxmhozLJP3UwomEI1sFvQvc1b3tOGSb7CIpM_g2ezRBhox9I2GsqrwhxsJxF56ADhC3-VjbIZY2Wv9mchfGoRP0sm9VceG0VEAwf0pJ6YDkzyIXTlfL6h-fpiB7lLHomDqPyDh952T0lsxzGHk2783McXeT7aPVH8JLgh1wCF_am1dHf2sJLGYko9D2GSlo7nNS9mdX0Pa5BbRfcfdhpCdAsuBfrVeMeng5-l-MRAoUMSAU7yMPcZPtjKeHlh_m1IVrodlnVgRr_FlzZZAWmFr-sEPNYVzitAO1wtq9FYcOhCEiPQMAcTLblQ1OWgoKWClPAHoS_wMFHQpGncEveRK5tOrlW7BHgSBlMQKm-Ao87vyH0WwSwbVfSy0q8ucJzg5MJvvz%2Fhttps%3A%252F%252Fen.wikipedia.org%252Fwiki%252FORVYL_and_WYLBUR%23SuperWylbur%25E2%2584%25A2data=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699sdata=NQY1SIBbRqhhO%2FKvsdgAp0Wbo3LHeHrUSHmBVOgwrBg%3Dreserved=0

- - - - - - - - - -
Timothy Sipples
I.T. Architect Executive
Digital Asset & Other Industry Solutions
IBM Z & LinuxONE
- - - - - - - - - -
E-Mail: sipp...@sg.ibm.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
.


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


Re: ISPF 3.4 DSLIST questions

2020-07-07 Thread David Spiegel

Hi Bob,
"...  But if you want to know all the kinds of access you have, you'd 
need to ask the question three or four times, for read, update, execute 
and create. ..."

This statement is not true.

I published an Assembler program and a Rexx Exec here on June 14.
My program has been placed on CBT File 836 (for now, it's in the Update 
section of the website).


Regards,
David

On 2020-07-07 17:45, Bob Bridges wrote:

Nothing useful to say about your first question, but about the second:  I can 
think of two ways to pull your access information for a list of datasets.

1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the 
commands and parse the output.  Display only the brief results, eg "RW" for 
"read/write".  I have a REXX that can tell you which security app is running, if you're 
interested.

That involves a lot of coding.  It might be simpler (if you can find a way to 
do it) to 2) do a RACROUTE query, since that sends the question to existing 
security system and returns simply 0 (access allowed), 8 (not allowed) or very 
rarely 4 (can't tell).  But if you want to know all the kinds of access you 
have, you'd need to ask the question three or four times, for read, update, 
execute and create.

And for both methods you'd have to do the query for every dataset in the list.  
If you do long lists and/or do this often, it puts a burden on the system that 
might get you talked about (and to) by the operations folks.  Probably not a 
good idea.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* People don't really want to go back to a time when the world was simpler. 
They want to go back to a time when they didn't understand how complicated the 
world has always been. */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tim 
Hare
Sent: Tuesday, July 7, 2020 1:08 PM

I have some questions about the ISPF 3.4 utility.

1. Why does 'Referred' show on the "total" display for datasets,  but if you 
print the dataset list, you don't get it?

2. Are there ways to extend what is displayed?  For one example:  I would like to have  
column for 'Your Access' that would show me what RACF says my access is,  rather than 
having to do LD DA(/) ALL GEN on a line, and "suffer" through the TSO command 
output  (as I've rarely worked with ACF2 and never with Top Secret I don't know if such a 
request  can be done for 'generic security system')

--
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: RACF-SailPoint

2020-07-02 Thread David Spiegel

"... BREECH ..." Congratulations on the new baby!

On 2020-07-02 09:19, Ron Wells wrote:

That is what concerns me...too me it is a BREECH of security

Want to stay off list.. my email is ron.we...@omf.com

They only mentioned a exit/api needs to be installed >> bother me ... trying to 
get pros/cons and what others have experienced..

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Thursday, July 02, 2020 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RACF-SailPoint

** EXTERNAL EMAIL - USE CAUTION **


Unfortunately, yes, a bit.  I only have to deal with the mainframe connector 
and at this point it's only used for reporting but they're looking at making it 
do a bunch more.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Wells
Sent: Thursday, July 2, 2020 7:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] RACF-SailPoint

Anyone have any dealing with Sailpoint product..


Email Disclaimer

This E-mail contains confidential information belonging to the sender, which 
may be legally privileged information. This information is intended only for 
the use of the individual or entity addressed above. If you are not the 
intended recipient, or an employee or agent responsible for delivering it to 
the intended recipient, you are hereby notified that any disclosure, copying, 
distribution, or the taking of any action in reliance on the contents of the 
E-mail or attached files is strictly prohibited.

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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.

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


Email Disclaimer

This E-mail contains confidential information belonging to the sender, which 
may be legally privileged information. This information is intended only for 
the use of the individual or entity addressed above. If you are not the 
intended recipient, or an employee or agent responsible for delivering it to 
the intended recipient, you are hereby notified that any disclosure, copying, 
distribution, or the taking of any action in reliance on the contents of the 
E-mail or attached files is strictly prohibited.

--
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: Installing Java

2020-06-30 Thread David Spiegel

Hi Gadi AMV"SH,
If later PTFs are truly replacements, the hierarchy of PTFs should be 
that every new PTF should SUPersede any old one.

This means that only the last one actually gets installed.

Regards,
David

On 2020-06-30 03:14, Gadi Ben-Avi wrote:

Hi,
When I ordered z/OS v2.4, I only ordered the 64 bit version of Java.
When we tried to start PFA, it failed. A quick search showed that PFA requires 
the 31 bit version of java.
I ordered it using shopzseries.
The resulting package was over 13GB.
It looks like I have the base version and over 50 PTF's that upgrade it to the 
current version.

Can I prevent SMP/E from installing all of those versions, and just install the 
final fix?
>From past experience I know that each PTF is a full replacement of the who 
java SDK.

Gadi


--
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: dfdss equivalent to fdr map

2020-06-18 Thread David Spiegel

Hi Brian,
Please discard all of those other weak-kneed potential solutions. This 
one is the Cadillac!
Here is a JCL sample that will not only map 1 volume, but, will also 
include maps of all volumes with a common prefix (think SMS Storage Group):

//STEP001 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,DSN=FILE135.PDS
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  VTOC STG0 -
   CAT -
   LIM(CAT NE C) -
  PRINT(NEW (CAT ALLOC  UNUSED PCT EX DSO RFM LRECL BLKSZ CDATE REFDT -
  VOLUME DSNAME))
//STEP002 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,DSN=FILE135.PDS
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  VTOC STG0 -
   CAT -
    /* LIM(CAT NE C) */ -
  PRINT(NEW (CAT ALLOC  UNUSED PCT EX DSO RFM LRECL BLKSZ CDATE REFDT -
  VOLUME DSNAME))
//STEP003 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,DSN=FILE135.PDS
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  VTOC STG0 -
   CAT -
    /* LIM(CAT NE C) */ -
    SORT(ALLOC,D) -
  PRINT(NEW (CAT ALLOC  UNUSED PCT EX DSO RFM LRECL BLKSZ CDATE REFDT -
  VOLUME DSNAME))
//STEP004 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,DSN=FILE135.PDS
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  VTOC STG0 -
   CAT -
    /* LIM(CAT NE C) */ -
    SORT(UNUSED,D) -
  PRINT(NEW (CAT ALLOC  UNUSED PCT EX DSO RFM LRECL BLKSZ CDATE REFDT -
  VOLUME DSNAME))

STEP001 - Find all Datasets on all volumes whose VOLSER starts with STG0 
that are not Cataloged or are Catalog Entries with no actual Dataset
STEP002 - Find all Datasets on all volumes whose VOLSER starts with STG0 
that are Cataloged
STEP003 - Find all Datasets on all volumes whose VOLSER starts with STG0 
that are Cataloged. Print output by descending sort of Allocated space
STEP004 - Find all Datasets on all volumes whose VOLSER starts with STG0 
that are Cataloged. Print output by descending sort of Unused space


Please also note that you can search a volume (or range of volumes) for 
partial DSNAMEs, even when the partial DSNAME does not contain an HLQ. 
(This may take a while and should be used with caution.)

VTOC runs in TSO interactively or batch.

Regards,
David

On 2020-06-18 09:46, Brian France wrote:

Howdy Dave,

   I will have a look at it. Thanks...

On 6/18/2020 9:01 AM, David Spiegel wrote:

Hi Brian,
You may be interested in File 112 on the "CBT Tape" (cbttape.org) . 
I've been using it for more than 35 years and it has many filtering 
and print options.


Regards,
David

On 2020-06-18 08:53, Brian France wrote:
 I can't find a dfdss equivalent to fdr's map. I see the print 
command but can't seem to get a whole volume list of data sets as we 
do with fdr's map. If it exists would someone please point me to 
it... THANX!!!




--
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: dfdss equivalent to fdr map

2020-06-18 Thread David Spiegel

Hi John,
I am well aware of this capability, and I really do not want to appear 
to be overly chauvinistic, BUT, VTOC (File 112 on the CBT Tape) beats 
the pants off of your solution.


Regards,
David

On 2020-06-18 09:36, John McKown wrote:

On Thu, Jun 18, 2020 at 7:53 AM Brian France  wrote:


   I can't find a dfdss equivalent to fdr's map. I see the print command
but can't seem to get a whole volume list of data sets as we do with
fdr's map. If it exists would someone please point me to it... THANX!!!


I don't know what an FDR MAP does. but if you need to know what datasets
are on a DFDSS dump tape, then run a RESTORE with PARM='TYPRUN=NORUN'

Something like:

//JS010EXEC  PGM=ADRDSSU,PARM='TYPRUN=NORUN',
// REGION=0M
//SYSPRINT DD  SYSOUT=*
//TAPE1DD  DSN=JES2DISK.ADRDSSU,
// DISP=OLD
//SYSINDD  *
  RESTORE  -
 DATASET( -
   INCL( -
**-
 ) -
) -
 IDD(TAPE1) -
 ADMINISTRATOR -
 TOL(ENQF) WAIT(0,0)





--
Brian W. France
Systems Administrator (Mainframe)
Pennsylvania State University
Penn State IT - Infrastructure/SYSARC
Rm 25 Shields Bldg., University Park, Pa. 16802
814-863-4739
b...@psu.edu

There's no such thing as The Cloud - it's just someone else's computer...

"To make an apple pie from scratch, you must first invent the universe."

Carl Sagan

--
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: dfdss equivalent to fdr map

2020-06-18 Thread David Spiegel

Hi Brian,
You may be interested in File 112 on the "CBT Tape" (cbttape.org) . I've 
been using it for more than 35 years and it has many filtering and print 
options.


Regards,
David

On 2020-06-18 08:53, Brian France wrote:
 I can't find a dfdss equivalent to fdr's map. I see the print command 
but can't seem to get a whole volume list of data sets as we do with 
fdr's map. If it exists would someone please point me to it... THANX!!!




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


Re: z/OS Master Console Commands

2020-06-17 Thread David Spiegel

Hi Elaine.
That probably depends upon which 3270 Emulation software you are using.
Which one is it?

Regards,.
David

On 2020-06-17 22:14, Elaine Beal wrote:

so I don't know where my PA1 key is except in my TN3270 session keyboard
what is it when I'm on the console?

I can display and change the PFkeys but don't know what the PA1 key is.
and as expected, the TN3270 key doesn't work on the console

--
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: Good FTP client for MVS data set access

2020-06-17 Thread David Spiegel

Hi Gil,
I have painfully experienced instances where IND$FILE (on z/VM) mangled 
a Binary Upload from my MS-Windows 10 Pro workstation.

It works every time I use FTP, though (via CLI or WinSCP).

Regards,
David

On 2020-06-17 21:38, Paul Gilmartin wrote:

On Wed, 17 Jun 2020 20:29:08 -0500, Shawn Prenevost wrote:


I am pretty happy with Bluezone as a paid product (Not sure if the FTP
client is free) has GUI and I helped a user script an FTP to the mainframe
that stored their password in an encrypted session definition... In the
past I was also happy to use windows command line FTP when I was allowed a
non TLS encrypted connection into the mainframe.


If you have an encrypted tn3270 client, I'd expect you have 
IND$FILE.  But I'm less than sure the mainframe side supports zFS.

-- 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: [External] Re: z/OS 2.4 and SDSF question

2020-06-17 Thread David Spiegel

Hi Rex,
It does not appear to be SDSF per se.
I displayed the Job output with the (TSO) OUTPUT Command ... Same result 
as yours.


Regards,
David

On 2020-06-17 17:37, Pommier, Rex wrote:

Hi Lizette,

I'm the OP.  :-)

My expectation is that when a job gets submitted with TYPRUN=COPY, I get a 
listing of the job - including all the JCL and in-stream SYSIN etc.  
TYPRUN=COPY is used because TYPRUN=SCAN doesn't include in-stream SYSIN data.  
I'm not really that interested in which vendor spool display software you are 
using, except to make sure it isn't limited to the vendor we use.  At this 
point based on the responses I've seen, TYPRUN=COPY works like it always has if 
you're running z/OS prior to 2.4.  Under 2.4, it's hit and miss, TYPRUN=COPY 
works for some customers and it doesn't for others, only displaying the JOB 
card.  Most people use SDSF and since we don't, I wanted to know if the problem 
was limited to my spool display software.  Since it isn't, and others have 
confirmed that the problem is only at 2.4, it appears to me to be a problem 
more in JES2 than in the spool display software.

Unfortunately I don't have access to a printer in my sandbox so I can't test to 
see if printing the output from TYPRUN=COPY prints the entire output or if it 
is limited to just the JOB card like the display.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lizette Koehler
Sent: Wednesday, June 17, 2020 3:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

This is an interesting discussion.

So TYPRUN=COPY is just suppose to copy the JCL to SYSOUT.  I am not sure what 
the expectation is by the OP

But on my z/OS 2.3 system with SDSF (I know he wants to know about other vendors

I can see the JCL as part of the output of the TYPRUN=COPY

If I have it use the MSGCLASS to our JCL repository it is in the Repository as 
expected.

Once we upgrade to V2.4 (or other) I will repeat the process.

But for me a z/OS V2.3 - works as expected

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Al 
Loeffler
Sent: Wednesday, June 17, 2020 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS 2.4 and SDSF question

I get the same result under z/OS 2.4.  I submit the following job:

//ALOEFTST JOB $,CLASS=A,MSGCLASS=Y,TYPRUN=COPY
//IEFBR14  EXEC  PGM=IEFBR14

SDSF has a record count of 12 on the Held Output Display panel, but only shows 
11 when the job is selected. The JESJCLIN DDNAME has an incorrect number for 
the Record Count.

//ALOEFTST JOB $,CLASS=A,MSGCLASS=Y,TYPRUN=COPY J0056548
-- JES2 JOB STATISTICS --
 2 CARDS READ
11 SYSOUT PRINT RECORDS
 0 SYSOUT PUNCH RECORDS
 0 SYSOUT SPOOL KBYTES
  0.00 MINUTES EXECUTION TIME
 J E S 2  J O B  L O G  --  S Y S T E M  X E 1 0  --  N O D 
E  N J E X E 1 0

11.24.16 J0056548  WEDNESDAY, 17 JUN 2020 

11.24.16 J0056548  IRR010I  USERID ALOEFIS ASSIGNED TO THIS JOB.

Regards,

Al Loeffler

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Tuesday, June 16, 2020 11:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: z/OS 2.4 and SDSF question

Hello list,

I have a "does it work" question.  We don't run SDSF, instead have a competing 
product.  As part of our testing of 2.4, one of my coworkers submitted a job with 
TYPRUN=COPY on the job card and found it doesn't work.  Under 2.2, we get the entire 
input stream before the JES2 job statistics.  Under 2.4, all we get is the JOB card then 
the statistics report.  The spool display product says all the lines are there, but they 
won't show.  When we contacted our vendor about this, they said SDSF displays the same 
thing, working under earlier releases, but under 2.4, only the JOB card is 
printed/displayed.  Can somebody who is running 2.4 and SDSF (or a third party SDSF 
competitor) confirm this for me?

Our vendor has a case open with IBM but I'd like to know if others are seeing 
this situation.  I'm not second guessing the vendor, just curious if others 
have run into the situation.

TIA,

Rex

Example:

Job run under both 2.2 and 2.4.

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS

Spool display under both 2.2 and 2.4 says the output is 14 lines long.

2.2 spool display (all 14 lines displayed including entire JCL stream):

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),   JOB03289
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS
-- JES2 JOB STATISTICS --
 4 CARDS READ
11 SYSOUT PRINT RECORDS
 0 SYSOUT PUNCH RECORDS
 

Re: z/OS Master Console Commands

2020-06-15 Thread David Spiegel

PA1

On 2020-06-15 13:51, Elaine Beal wrote:

Isn't there a way to recall previous commands on the console?
I can't find anything and it's killin me!
Thanks, Elaine

--
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: WP vs MS [was:: Quote style (was: ... Passive FTP ... )]

2020-06-15 Thread David Spiegel

Hi Peter,
Printed Labels? ... I've done this at least 10 times using Avery labels 
and MS-Word. It's not that difficult.


Regards,
David

On 2020-06-15 00:43, Farley, Peter x23353 wrote:

And WP still exists and is still thriving, AFAICT.  I run WP X8 on my home 
machines, and version X9 is out since last year.  I just haven't upgraded yet.

Use WP reveal codes on any reasonably complex MS document to see just what kind 
of cr*p is generated.  It takes a long time to clean up the mess.

My wife won't use anything but WP on her machine, and I don't blame her.

AFAIK, MS still can't do lawyerly "Tables of Authority" at all.  WP has done it 
forever, and as a result pretty much dominates the professional lawyer niche.  Plus they 
have a huge medical office professional following for other features unique to that 
environment.

And don't even try to do printed labels with MS.  WP has done it right and easy 
forever.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
Bridges
Sent: Saturday, June 13, 2020 11:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Quote style (was: ... Passive FTP ... )

Old WP users, among whom I count myself, mourn the loss of reveal-codes mode.  
When my company switched from WP to Word (which I still think was largely my 
fault), I judged that Word was easier to use for the easy things
- italics and bold at keystroke, for instance - but harder to control for the 
more advanced things.  I've figured out headers/footers, for example, 
footnotes, even indices and ToCs.  But I struggle with them still.  WP was 
better in that regard, in my opinion.

---

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

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


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


Re: HOW DO I VERIFY A USERID'S ACCESS TO A DATASET

2020-06-13 Thread David Spiegel

Hi Arthur,
I am aware of CBT 106. I presented my solution in case the user wanted 
to know if s/he had access.
If so, s/he could avoid all of the paperwork and permission required to 
change IKJTSOxx etc. (which is probably almost never granted).
I had a job at a large bank and asked for IKJTSOxx to be changed, so 
that DFSMSdss could be invoked via Rexx/CLIST (interactively).

To make a long story short, the head MVS guy refused.
It seems as if some people are not aware of some of the theoretical 
aspects of Address Spaces and how each Address Space's Virtual Private 
Storage is actually private.


Regards,
David

On 2020-06-14 00:31, Arthur wrote:
On 13 Jun 2020 21:22:07 -0700, in bit.listserv.ibm-main 
(Message-ID:) 
dspiegel...@hotmail.com (David Spiegel) wrote:



Here is my solution ...
1) An Assembler program ... Does not to be APF Authorized, if ESM is 
RACF. (If ESM is ACF/2 or TSS, it needs APF Authorization).


Your program asks "Do I have access?" CBT file 106 needs to run 
authorized because it asks, "Does this *other* user have access?" The 
OPs question could be interpreted either way.

--
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: HOW DO I VERIFY A USERID'S ACCESS TO A DATASET

2020-06-13 Thread David Spiegel

Hi Colleagues,
Here is my solution ...
1) An Assembler program ... Does not to be APF Authorized, if ESM is 
RACF. (If ESM is ACF/2 or TSS, it needs APF Authorization).

2) A Rexx Exec

RACROUTE TITLE 'RACROUTE STATUS=ACCESS'
RACROUTE CSECT ,
RACROUTE AMODE 31
RACROUTE RMODE ANY
 SAVE  (14,12),,RACROUTE. Save caller's regs.
 LR    R12,R15    Load address of entry point
 USING RACROUTE,R12   Give assembler program's base reg.
*
 LR    R11,R1 Save Pointer to Parameter Address Blk
 USING ARGS,R11
*
 GETMAIN R,LV=SAVESIZE,LOC=BELOW
 XC    0(CLEARSIZ,R1),0(R1)  Clear the save/work area
 ST    R1,8(,R13) Save new save area addr.in old area
 ST    R13,4(,R1) Save old save area addr.in new area
 LR    R13,R1 Replace old save area with new one
 USING SAVEAREA,R13   Tell assembler about save area
*
*
*
 L R11,0(R11)
 LH R5,0(R11)
 C R5,=F'0' PARM?
 BE    RETURN No, RETURN
*
 BCTR R5,0
 EX R5,MVC
 B CONTINUE
*
MVC  MVC THEENT(*-*),2(R11)
*
*
*
CONTINUE DS 0F
 RACROUTE REQUEST=AUTH,    x
RELEASE=1.9,    x
STATUS=ACCESS,  x
CLASS='DATASET',    x
ATTR=UPDATE,    x
ENTITY=THEENT,VOLSER=THEVOL,    x
WORKA=SAFWORKA
 LM    R3,R4,CONTINUE+4  Save Return Code, Reason Code
*
*
*
RETURN   DS 0H
*    WTO   'RACROUTE About to Exit'
 LR    R1,R13 Save old save area addr. for FREEMAIN
 L R13,4(,R13)    Restore old save area address
 FREEMAIN R,LV=SAVESIZE,A=(1)
EXIT DS 0H
 LR    R15,R4 Return with Reason Code
*    SLR   R15,R15    Set a return code of zero
 RETURN (14,12),RC=(15)   Return to caller, return code zero
*
*
*
 DS 0D
SAFWORKA DS CL512
THEENT   DC    CL44' '
THEVOL   DC CL6'THEVOL'
*
*
*
SAVEAREA DSECT ,  Register save area and work area
 DS    18F    Register save area
CLEARSIZ EQU   *-SAVEAREA Save and work area size
RECORD   DS 0CL16
USERID   DS CL8
PASSWORD DS CL8
RECSIZE  EQU *-RECORD
WTO0 WTO ' ',X
MF=L
WTO0L    EQU *-WTO0
SAVESIZE EQU   *-SAVEAREA Save and work area size
*
*
*
ARGS DSECT
 DS 0D
LENGTH   DS H
DSNAME   DS    CL44   Dataset Name to Check
YREGS
 END

/* Rexx */
/* Trace I */
/*
   00  The user has no access.
   04  The user has READ authority.
   08  The user has UPDATE authority.
   0C  The user has CONTROL authority.
   10  The user has ALTER authority

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.
v2r1.ichc600/ich2c6_Return_codes_and_reason_codes1.htm
 */
Arg dsn
Address TSO "Call *(Racroute) '"dsn"'"
Say rc

On 2020-06-13 23:32, Bob Bridges wrote:

Gil, you mustn't think I plan to make it a habit but I think I'm going to 
disagree with you on every point, here:

o Well, maybe not on the first one:  What's "TOCTTOU"?

o Access rules are indeed complicated to simulate.  But why simulate them?  Just
   ask RACROUTE and get an answer.  Mind you a) I'm a security geek, so maybe 
the
   rules seem less complicated to me.  And b) I've never used RACROUTE directly;
   as a security geek I talk to RACF/ACF2/TSS through their TSO-level commands,
   so maybe RACROUTE is more difficult.

o Of course the rules are subject to change.  I can't see that that makes any
   difference, makes it any less handy to know what the rules are.  If he takes
   your advice (just try the access and report the failure), the rule may 
~still~
   change; so what?

o I've never had occasion to try in it TSS or ACF2 - being a security jock, I
   always ~have~ the elevated privileges, so I'm generally unaware of how they
   behave for hoi polloi - but I know that it's possible even for regular folks
   to use the RACF commands to determine whether they have read access to a
   dataset.  I don't know about update.  This question came up in TSO-REXX back
   in 2013, and I described how to do it and saved it away in case I wanted to
   use it again.  I've sent it off-line to Mr DeChirico already; if anyone else
   wants to see it, just ask.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* Never miss a good chance to shut up.  -from A Cowboy's Guide to Life */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Saturday, June 13, 2020 22:09

Don't.

o There's a TOCTTOU hazard.
o The rules are probably too complicated to simulate.
I'll add:
o The rules are subject to change.
o You may need elevated privilege even to perform the check.


Re: SMPe Apply not working

2020-06-11 Thread David Spiegel

Maybe the Zone is set to an incorrect Zone. (i.e SET BDY(TZONE).)

On 2020-06-11 13:17, Bill Giannelli wrote:

I ran a GIMSUP download, unpack, receive which ran clean. I see the received ptfs in a 
LIST NOAPPLY. But when I run theAPPLY I get "NO SYSMODS SATISFIED THE OPERANDS 
SPECIFIED ON THE APPLY".
What could I be doing wrong?
thanks
Bill

--
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: Separate SMPe environments for maintenance levels

2020-06-11 Thread David Spiegel
SMP/e ZONECOPY, UCLIN (to fix the DDDEFs), DFSMSDss to COPY and RENAME 
the Datasets


On 2020-06-11 11:38, Bill Giannelli wrote:

I want to setup separate SMPe environments, say 3 for different maintenance levels. One matching production 
then 2 others for maintenance levels "coming next". My question is, when I what to update my PROD 
environment with one of the other maintenance levels, do I need to go thru receive, apply, accept that I 
would have done in the "prior" SMPe environment? Or is there a quicker way to "synch" up 
the 2 environments?
thanks
Bill

--
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: COBOL Question

2020-06-09 Thread David Spiegel

+1 sleazy-freaking-trieve.
(I used to support it, Panvalet and Librarian)

On 2020-06-09 16:27, Joe Monk wrote:

"Easytrieve plus"

You mean sleazytrieve plus? :)

There was also DYL280 and QUIKJOB.

Joe

On Tue, Jun 9, 2020 at 12:55 PM Mike Schwab  wrote:


4GL - I've used Telon which takes a screen layout and database layout
and generates the cobol code and editing rules.  ADR-Datacom had Ideal
which was similar, later CA.  Easytrieve plus I really liked,
especially the report generation part.

--
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: COBOL Question

2020-06-05 Thread David Spiegel

+1

On 2020-06-05 16:47, Gibney, Dave wrote:

The entire original confusion had to do with the fact that the 1st question 
involving HiGH-VALUE was not processed as expected because the AND took 
precedent over the OR.

I don't remember exactly how COBOL does X = 'A' OR 'B', If NATURAL, this would be X = 'A' OR = 
'B", The "OR =" is the operator required by the language syntax.

Personally, if I was writing this in COBOL,  I'd probably use the full, 
unambiguous SMOD (IND1) = 'B' OR SMOD (IND1) = 'R'


-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Paul Gilmartin
Sent: Friday, June 05, 2020 1:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL Question

On Fri, 5 Jun 2020 20:17:06 +, Gibney, Dave wrote:


Using OP
 IF TVOLL (IND1) NOT = HIGH-VALUE
 AND SMOD (IND1) = 'B' OR 'R'

I would do
 IF TVOLL (IND1) NOT = HIGH-VALUE
  IF SMOD (IND1) = 'B' OR 'R'
  Do the stuff


I have (almost) never coded COBOL, so I have trouble wrapping my head
around:
 SMOD (IND1) = 'B' OR 'R'

Does it mean:
 ( SMOD (IND1) = 'B' ) OR 'R'  or
 SMOD (IND1) = ( 'B' OR 'R' )  or (implied Distributive Law):
 SMOD (IND1) = 'B' OR SMOD (IND1) = 'R'

I'd have even more trouble with:
 SMOD (IND1) NOT = 'B' OR 'R'
 SMOD (IND1) NOT = 'B' OR SMOD (IND1) NOT = 'R'

... which seems to be a verbose expression for TRUE.  I've seen programmers
fall into that trap.

-- 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: What is GRXBIMG

2020-06-04 Thread David Spiegel

No and No.
I've been using Rexx on TSO since the day it came out and have never 
coded this DDNAME.


Regards,
David

On 2020-06-04 10:09, Paul Gilmartin wrote:

On Thu, 4 Jun 2020 09:27:59 -0400, David Spiegel wrote:


Hi Ken,
I had the same idea and 3.14d all of the relevant LNKLST and LPALST
Datasets.
It came up empty.


Is it in your LOGON proc (JCL or CLIST)?  Is it mentioned in SAMPLIB?

-- 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: What is GRXBIMG

2020-06-04 Thread David Spiegel

Hi Ken,
I had the same idea and 3.14d all of the relevant LNKLST and LPALST 
Datasets.

It came up empty.

Regards,
David

On 2020-06-04 09:13, Ken Smith wrote:

Has someone searched SYS1.LINKLIB and the rest for a reference to
GRBXBIMG?
also, is it GRBXBIMG or GRXBIMG?

On Thu, Jun 4, 2020 at 7:56 AM Scott Chapman 
wrote:


I was making a similar point to somebody recently that, the majority of
the words in the manuals do not change between versions and just because
some words were written back in the 90s (or earlier?) and are still in the
manual, doesn't mean that they're equally applicable in today's world.
Especially if they're performance advice.

Scott Chapman


On Wed, 3 Jun 2020 07:00:19 -0700, Charles Mills  wrote:


I must have time on my hands. I just dragged out the OS/390 V2R8 CDs from

1999, and the sentence is there verbatim.

It's the only hit on GRXBIMG on CD #1.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On

Behalf Of Steve Smith

Sent: Wednesday, June 3, 2020 6:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: What is GRXBIMG

It's still there in V2R4... and I am appalled that I've been running REXX
incorrectly for decades now.

sas


On Wed, Jun 3, 2020 at 9:35 AM Charles Mills  wrote:


Fascinating!

I'm looking at a V1R4 TSO/E Rexx manual and the sentence is in there.
Chapter 8, Using Rexx in Different Address Spaces.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]

On

Behalf Of Seymour J Metz
Sent: Tuesday, June 2, 2020 9:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: What is GRXBIMG

In the REXX Reference I saw this: "You can invoke a REXX exec in the

TSO/E

address space in several ways. To invoke an exec in TSO/E
foreground, use the TSO/E EXEC command processor to either implicitly or
explicitly invoke the exec and
you must have ddname GRXBIMG allocated." What is GRXBIMG?



--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Ce76dc9f13cb14d26c42b08d808892369%7C84df9e7fe9f640afb435%7C1%7C0%7C637268732382563717sdata=MWC8tSFsazdfxXwRh1gdT4X6tx6Sk162LXDvrN9C1Ko%3Dreserved=0



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


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


Re: Sort extracting values in PDS members

2020-05-27 Thread David Spiegel

Have you ever heard of the famous PDSLOAD Program from the CBT Tape?
It can generate the control cards (IEBUPDTE-like) and even maintain ISPF 
Statistics.


On 2020-05-27 21:39, Paul Gilmartin wrote:

On Thu, 28 May 2020 11:13:26 +1000, Wayne Bickerdike wrote:


I have used REXX to do this. One flavour uses IDCAMS REPRO, the other uses
EXECIO.

It builds the member list from a LISTDS MEMBERS.

It adds ./ADD IEBUPDTE statements to the flat file in order to move to
other systems. It's a readable option compared to using XMIT on a PDS>


What happens if your PDS members contain IEBUPDTE control statements?
TRANSMIT is robust with respect to such things.

-- 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: Sort extracting values in PDS members

2020-05-27 Thread David Spiegel

Vie Haist Du, Esther?

On 2020-05-27 18:02, Seymour J Metz wrote:

Ob וְכַאֲשֶׁר אָבַדְתִּי, אָבָדְתִּי

If they routinely lose programs, won't they also lose the ICEMAN and SuperC 
control statements? If it were me I'd do it in ISPF and keep a private copy of 
the source code for when they lose it.


--
Shmuel (Seymour J.) Metz
https://nam10.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C7f9fdafc80654742d7ed08d80289ad56%7C84df9e7fe9f640afb435%7C1%7C0%7C637262137661957843sdata=2ES3SvXn7Lrg2dDl7O68hEOCpTvdAJ4ArISoW5B7cv4%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Billy Ashton [bill00ash...@gmail.com]
Sent: Wednesday, May 27, 2020 4:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort extracting values in PDS members

Hi again! This group has been so helpful - especially Kolusu - and I
have one more question as I learn how to use SORT more creatively.

I have a bunch of PDS files where I have to read through each member and
create some control cards based on the content in the member (due to the
nature of these files, the request needs to be vague). So here are the
questions:
1. Is there a way to automatically read all members of a PDS? If not, I
can generate the individual file names with member in a separate
process.
2. When I read each member, I will be looking for KEYWORD(value) - the
keyword will be either "KEYWORD1" or "LONGKEYWORD2" and will be within
the first 5 lines of the member, at which point I stop reading (some of
the members have 25000 lines!), and the Keyword could be anywhere on the
line, in column 1 or with a space delimiter. Keyword can be 8 or 12
characters long, and Value can be 2 to 8 characters.
3. I then need to create a string of -ADD- Value.Keyword.Dmmdd
(Today's date) that I will use in my further processing.

Note that I could write a program to manage this, but am trying to keep
the processing in a control member rather than a program, as utility
programs seem to get lost around here.

Since I can't show you the real input, here is some contrived data:

Member1:
KEYWORD1(val) Otherkw(val) Otherkey2(anothervalue)
Line2
Line3
etc.

Member 2:
Line 1
Line 2
Otherkw(val) Otherkw2(val) LONGKEYWORD2(longvalu) Otherkw3(val)
etc.

Member 3:
Line 1
Otherkw1(withitslongvalue) LONGKEYWORD2(valu)
Line 3
etc.

Member 4:
Line 1
Line 2
Line 3
Line4
KW(val) Anotherkw(anditsvalue) Alongkeywordhere(withalongvalue)
KEYWORD1(va)
etc.

This would create the output (either in a single MOD file, or separate
files I can put together myself:
VAL.KEYWORD1.D20200527
LONGVALU.LONGKEYWORD2.D20200527
VALU.LONGKEYWORD2.D20200527
VA.KEYWORD1.D20200527

Can something like this be done in a DFSORT step? If not, I can write
the various utilities myself in Rexx and/or COBOL, so you don't need to
suggest that.

Thanks for your help once more!
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: Where do started PROC errors go?

2020-05-21 Thread David Spiegel

Hi Slivovitz drinkers,
Which brand do you prefer?

Regards,
David

On 2020-05-21 22:39, Jesse 1 Robinson wrote:

It may not be echt, but I like my Slivowitz well iced.

.
.
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 
Seymour J Metz
Sent: Thursday, May 21, 2020 5:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Where do started PROC errors go?

CAUTION EXTERNAL EMAIL

I would like a virtual Slivowitz; please don't refrigerate.


--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C4f2a1a64809b4e98893508d7fdf959a1%7C84df9e7fe9f640afb435%7C1%7C0%7C637257119702470001sdata=%2BqBiUmE7sxszSzZe%2BUnFoJ9cBgEMGvLP8tPz2EGkE7E%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tom 
Brennan [t...@tombrennansoftware.com]
Sent: Thursday, May 21, 2020 8:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where do started PROC errors go?

Maybe we should all have a six-pack in the fridge that we're not allowed to 
touch until someone offers one.

On 5/21/2020 4:44 PM, Jesse 1 Robinson wrote:

Sam Virtual Adams.

.
.
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 Charles Mills
Sent: Thursday, May 21, 2020 4:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Where do started PROC errors go?

CAUTION EXTERNAL EMAIL

It did not but now it does and it works!

Gosh, got it right on the first try. Guessed at the changes to make to the 
below and seem to have gotten them all right on the first try.

I owe you all a virtual beer in Boston.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Behalf Of Wayne Bickerdike
Sent: Thursday, May 21, 2020 12:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where do started PROC errors go?

Charles did your setup include something like this?

RDEFINE STARTED  MYSTC.* OWNER(SYS1) AUDIT(FAILURES(READ)) UACC(NONE)
PERMIT MYSTC.* CLASS(STARTED) GENERIC ID(WAYNE) ACCESS(ALTER) RALTER
STARTED  MYSTC.* STDATA(USER(STCOPER) GROUP(GROUPZ)) SETROPTS REFRESH
RACLIST(STARTED)


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


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


Re: How determine local time zone *name* in Rexx?

2020-05-18 Thread David Spiegel

OS/VS1 ... like CRJE and IEHIOSUP?

On 2020-05-18 12:32, Seymour J Metz wrote:

You would think that IBM's "Premiere OS" would be able to provide something this 
simple!  :-)>

Not when it's still missing features from OS/VS1 and z/VSE.


--
Shmuel (Seymour J.) Metz
https://eur02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Ce2cfea8e7f264316930108d7fb492b94%7C84df9e7fe9f640afb435%7C1%7C0%7C637254163998319036sdata=nbm8zGAFRQfvrx1NW2UXHnoKD%2F%2FjdMJwiY8uDcofbCk%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Dale R. Smith [dale-sm...@columbus.rr.com]
Sent: Monday, May 18, 2020 12:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How determine local time zone *name* in Rexx?

On Sun, 17 May 2020 12:21:20 -0700, Charles Mills  wrote:


The heck with it! I wanted it for the "Date:" line in an outgoing e-mail but
it appears that SMTP provides a sent timestamp if I don't, so the heck with
it!

Thanks all for your efforts. Why should something so basic be so hard?

Charles

A lot easier to let SMTP figure it out!

z/VM has a CP QUERY TIMEZONE command:
query timezone
Zone  Direction   Offset   Status
UTC  00.00.00  Inactive
GMT  00.00.00  Inactive
EDT West 04.00.00  Active
EST West 05.00.00  Inactive

So it's trivial to get the Zone name.  Of course, the name and the offset have to be defined 
to CP in either the system parms or via command.  You would think that IBM's "Premiere 
OS" would be able to provide something this simple!  :-)>

--
Dale R. Smith

--
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: DFSMS Move Dataset

2020-05-16 Thread David Spiegel

Hi Paul,
//DSSMOVE EXEC PGM=ADRDSSU,REGION=0M
//SYSPRINT DD SYSOUT=*
//ODD  DD  DISP=SHR,UNIT=SYSALLDA,VOL=SER=ZFSU01
//SYSIN    DD *
 COPY -
  DS( -
 INCL( -
ZFS.LOCAL   -
 ) -
    ) -
  ODD(ODD) -
  ALLX -
  ALLD(*) -
  CAT -
  DEL -
  OPT(4) -
SPHERE

LOGINDDNAME is not required, provided that the "from" Dataset is CATALOGd.
Since the "To" Dataset is VSAM (or SMS-Managed), CATALOG is not required.
You forgot OPT(4).
Only the Cluster Name is required. I code SPHERE also.
if the Dataset has not "expired", you might need PRG (PURGE) also.
Use abbreviations where possible, because, IMO it makes the Job easier 
to look at.
Also, lineup your operands in columns and develop an order for operands 
(e.g. alphabetical).


Regards,
David

VOL(PRIVATE is unnecessary
The "/*" is not needed, unless you are using a card reader.
Finally, UNIT=SYSALLDA is automatically built into every z/OS system. 
There is no need to hardcode 3390 (The big exception to this is IEHPROGM.)


Regards,
David

On 2020-05-16 15:54, esst...@juno.com wrote:

I am Not a DASD Administrator -
.
However I used the following JCL to move a PDS -
//STEP1EXEC  PGM=ADRDSSU
//SYSPRINT DDSYSOUT=A
//DASD1DDUNIT=3390,VOL=(PRIVATE,SER=USER12),DISP=OLD
//DASD2DDUNIT=3390,VOL=(PRIVATE,SER=USER01),DISP=OLD
//SYSINDD*
  COPY DATASET(INCLUDE(MONSOON.SRCLIB.BKUP)) -
   LOGINDDNAME(DASD1) OUTDDNAME(DASD2) DELETE CATALOG
/*
.
Would Anyone have an example of moving VSAM Datasets
Do I specify the base cluster ? Do I specify the base cluster, data component, 
and index
component ? An Example would be appreciated ?

-- Original Message --
From: David Spiegel 
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSMS Move Dataset
Date: Fri, 15 May 2020 14:20:08 -0400

Hi Paul,
A bit of advice (I've been using DFSMSdss for 30+ years).

Unless not possible, ALWAYS obtain your list of Datasets to be
processed, via Logical criteria.
(Do not, unless you have to, use Physical criteria).
The difference between them is that Physical criteria are generated by
coding INDDNAME or INDYNAM.
(If you code LOGINDDNAME or LOGINDYNAM it's Logical.)

You will likely hear that Physical means Full Volume and that Logical
means by Dataset.
This statement is ABSOLUTELY false.

One more thing ... always code OPT(4) to read a Cylinder at a time.

Good luck!

Regards,
David

On 2020-05-15 13:39, esst...@juno.com wrote:

Hello.
Does IBM (DFSMS) have a utility that will move VSAM and/or non-VSAM dataset  to 
a
different VOLUME ?
.
Paul D'Angelo
*
*
*

--
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: DFSMS Move Dataset

2020-05-15 Thread David Spiegel

Hi Paul,
A bit of advice (I've been using DFSMSdss for 30+ years).

Unless not possible, ALWAYS obtain your list of Datasets to be 
processed, via Logical criteria.

(Do not, unless you have to, use Physical criteria).
The difference between them is that Physical criteria are generated by 
coding INDDNAME or INDYNAM.

(If you code LOGINDDNAME or LOGINDYNAM it's Logical.)

You will likely hear that Physical means Full Volume and that Logical 
means by Dataset.

This statement is ABSOLUTELY false.

One more thing ... always code OPT(4) to read a Cylinder at a time.

Good luck!

Regards,
David

On 2020-05-15 13:39, esst...@juno.com wrote:

Hello.
Does IBM (DFSMS) have a utility that will move VSAM and/or non-VSAM dataset  to 
a
different VOLUME ?
.
Paul D'Angelo
*
*
*

--
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: Does allocating an HFS or zFS erase all existing data?intervals formatted?

2020-05-15 Thread David Spiegel

Hi Mike,
You said: "...  All VSAm Datasets including Linear are formatted when 
created ...".

Is this true for ESDSs?
Where is this documented?

Thanks and regards,
David

All VSAM datasets including Linear are formatted when created

On 2020-05-15 13:14, Mike Schwab wrote:

All VSAM datasets including Linear are formatted when created.  The
disk space used is not allocated to any other datasets.  Previous data
left by deleted datasets is usually left in place (erase on delete is
an option but not used frequently) but frequently overwritten in a
short time so restoring a deleted data set is almost always
impossible.

On Fri, May 15, 2020 at 4:25 PM Seymour J Metz  wrote:

I want to edit the wiki article [[Disk formatting]] to clarify the statement "s a 
general rule,[nb 1] formatting a disk erases most if not all existing data on the disk 
medium". Normally I would consult the logic manuals :-(

When you allocate an HFS or linear data set, does AMS preformat all of the 
tracks? When you format a zFS, does that force formatting of all tracks? Can 
you provide references that I can cite for the answers?

Thanks.



--
Shmuel (Seymour J.) Metz
https://eur03.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C74a32c4b87de48c2be2c08d7f8f38371%7C84df9e7fe9f640afb435%7C1%7C0%7C637251597081119599sdata=nFq8774EHZTWnk8RfMeRQIFWs8qBqBpq5TQ1VvgGuy4%3Dreserved=0

--
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: USS: su: User ID "SH" does not exist

2020-05-15 Thread David Spiegel

Hi R'Shmuel,
BPXBATCH allows only one Command Buffer. If the user wants to issue more 
than one command, then s/he must separate commands with a semicolon 
(much like the ISPF Command line).


Regards,
David

On 2020-05-15 09:32, Seymour J Metz wrote:

Possibly, but ; is definitely a command separator character, not a continuation 
character.


--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Ca1d14b2155ab4d26d96808d7f8d47ff5%7C84df9e7fe9f640afb435%7C1%7C0%7C637251463900660906sdata=0v7lCqOekIfyjsPxgu%2BQw9Rp%2FwNpXSERP%2F8lo5%2F04Tg%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Crayford [dcrayf...@gmail.com]
Sent: Friday, May 15, 2020 9:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: USS: su: User ID "SH" does not exist

Yes, in a shell, but no using BPXBATCH.

On 2020-05-15 9:17 PM, Seymour J Metz wrote:

ITYM \ at the end is a continuation.


--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Ca1d14b2155ab4d26d96808d7f8d47ff5%7C84df9e7fe9f640afb435%7C1%7C0%7C637251463900660906sdata=0v7lCqOekIfyjsPxgu%2BQw9Rp%2FwNpXSERP%2F8lo5%2F04Tg%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Crayford [dcrayf...@gmail.com]
Sent: Friday, May 15, 2020 8:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: USS: su: User ID "SH" does not exist

Nope. Semicolons are a continuation!

On 2020-05-15 8:13 PM, David Spiegel wrote:

Hi Jon,
Every line except for the last line needs a semicolon.

Regards,
David

On 2020-05-15 08:10, Jon Bathmaker wrote:

Hi Ed,

Thanks for this!  How *did* you find out about the semicolons, I
didn't see them anywhere in the doc.

Best regards,
*Jon Bathmaker,*
SYS1 Consulting Inc.
519-577-9661



On 5/15/2020 12:19 AM, Ed Jaffe wrote:

On 5/14/2020 5:23 PM, Jon Bathmaker wrote:

//STDPARM DD *
SH su
SH echo $PATH
SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS

The above looks wrong to me. I always do it this way:


//STDPARM  DD *
SH su;
 echo $PATH;
 unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS



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

--
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: USS: su: User ID "SH" does not exist

2020-05-15 Thread David Spiegel

Hi David,
Yes, I am aware of that. That is *why* they are necessary.
What is your point?

Regards,
David

On 2020-05-15 08:47, David Crayford wrote:

Nope. Semicolons are a continuation!

On 2020-05-15 8:13 PM, David Spiegel wrote:

Hi Jon,
Every line except for the last line needs a semicolon.

Regards,
David

On 2020-05-15 08:10, Jon Bathmaker wrote:

Hi Ed,

Thanks for this!  How *did* you find out about the semicolons, I 
didn't see them anywhere in the doc.


Best regards,
*Jon Bathmaker,*
SYS1 Consulting Inc.
519-577-9661



On 5/15/2020 12:19 AM, Ed Jaffe wrote:

On 5/14/2020 5:23 PM, Jon Bathmaker wrote:

//STDPARM DD *
SH su
SH echo $PATH
SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS



The above looks wrong to me. I always do it this way:


//STDPARM  DD *
SH su;
   echo $PATH;
   unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS




--
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: USS: su: User ID "SH" does not exist

2020-05-15 Thread David Spiegel

Hi Jon,
Every line except for the last line needs a semicolon.

Regards,
David

On 2020-05-15 08:10, Jon Bathmaker wrote:

Hi Ed,

Thanks for this!  How *did* you find out about the semicolons, I 
didn't see them anywhere in the doc.


Best regards,
*Jon Bathmaker,*
SYS1 Consulting Inc.
519-577-9661



On 5/15/2020 12:19 AM, Ed Jaffe wrote:

On 5/14/2020 5:23 PM, Jon Bathmaker wrote:

//STDPARM DD *
SH su
SH echo $PATH
SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS



The above looks wrong to me. I always do it this way:


//STDPARM  DD *
SH su;
   echo $PATH;
   unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS




--
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: Activate SMS configuration in batch

2020-05-14 Thread David Spiegel

You said: "... you could do it with CONDOLE ..."
Qu'est-ce que c'est "CONDOLE" (is he related to Bob Dole or Dole pineapple)?

On 2020-05-14 14:52, Seymour J Metz wrote:

If you just wanted to wait until the SETSMS command was comple you could do it 
with CONDOLE, but AFAIK SETSMS and SET SMS= hand off the request to an SMS 
address space and complete before the change is in effect. My guess is that the 
only way is wait for a message from SMS.


--
Shmuel (Seymour J.) Metz
https://nam04.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C65c7cf097c244c0ec69c08d7f838096d%7C84df9e7fe9f640afb435%7C1%7C0%7C637250791867491461sdata=gQvp8jk0y9EztvvjnfbxWS7lI2OLdeGdo64esMyNLV0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Gadi Ben-Avi [gad...@malam.com]
Sent: Thursday, May 14, 2020 6:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Activate SMS configuration in batch

Hi,
Does anyone know of a way to activate an SMS configuration in batch?

I know I can issue the SETSMS SCDS(xx) command in batch, but I am long for a 
way that will wait until the activation is complete before continuing to the 
next step.

We are running z/OS v2.2

Thanks

Gadi


--
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: Colossus, Strangelove, etc. was: Developers say...

2020-05-11 Thread David Spiegel

Hi Joe,
You beat me to it!

Regards,
David

On 2020-05-11 12:57, Joe Monk wrote:

An even better story ...

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FThe_Adolescence_of_P-1data=02%7C01%7C%7Ca75858d79d87417845d108d7f5cc8165%7C84df9e7fe9f640afb435%7C1%7C0%7C637248130998340065sdata=NhAxRmAC4HmPk73MgwB1TITh%2BMtPZ5Y3a5hDvhnSV0Y%3Dreserved=0

Joe

On Mon, May 11, 2020 at 11:31 AM Bob Bridges  wrote:


I'll cheerfully leave political partisanship aside.  But if I may
attribute this equally to both sides (and thus avoid partisanship), I'm
with Joel ~and~ Lionel on this.  Most folks who misuse their power start
out, at least, in hopes of doing good.  What I'm saying is that although we
value altruism, I don't trust even altruists in the matter of exercising
power, especially when in pursuit of The Good of Humanity.

Doesn't mean we won't keep building robots.  Doesn't even mean we
shouldn't.  But even altruists can be villains.  Ultron and Colossus both
wanted to save the world, after all.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* The historian Macaulay famously said that the Puritans opposed
bearbaiting not because it gave pain to the bears but because it gave
pleasure to the spectators. The Puritans were right: Some pleasures are
contemptible because they are coarsening. They are not merely private
vices, they have public consequences in driving the culture's downward
spiral.  -George Will, "The challenge of thinking lower", 2001-06-22 */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lionel B Dyck
Sent: Monday, May 11, 2020 11:22

Joel - can we please keep politics out of this listserv. Personally I
wouldn't trust anyone in power to act against their own self interests and
that applies to politicians and anyone else with power (as in money,
influence, etc.).

There are altruistic individuals in the world and when it comes to the
development of an AI robot one prays/hopes that those are the software
developers who implement the code for the three laws.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf
Of Joel C. Ewing
Sent: Monday, May 11, 2020 10:12 AM

I've greatly enjoyed Asimov's vision of future possibilities, but when I
step back to reality it occurs to me that his perfect laws of robotics
would have to be implemented by fallible human programmers.  Even if
well-intentioned, how would they unambiguously convey to a robot the
concepts of "human", "humanity", "hurt", and "injure" when there have
always been minorities or "others" that are treated by one group of humans
as sub-human to justify injuring them in the name of "protecting"
them or protecting humanity?  And then there is the issue of who might
make the decision to build sentient robots:   For example, who in our
present White House would you trust to pay any heed to logic or scientific
recommendations or long-term consequences, if they were given the
opportunity to construct less-constrained AI robots that they perceived
offered some short-term political advantage?

Humanity was also fortunate that when the hardware of Asimov's Daneel
began to fail, that he failed gracefully, rather than becoming a menace to
humanity.

--- On 5/11/20 8:43 AM, scott Ford wrote:

Well done JoelI agree , But I can help to to be curious about the
future of AI.
a bit of Isaac Asimov 

--- On Mon, May 11, 2020 at 9:25 AM Joel C. Ewing 

wrote:

 And of course the whole point of Colossus, Dr Strangelove, War
Games, Terminator,  Forbidden Planet, Battlestar Galactica, etc. was
to try to make it clear to all the non-engineers and non-programmers
(all of whom greatly outnumber us) why putting lethal force in the
hands of any autonomous or even semi-autonomous machine is something
with incredible potential to go wrong.  We all know that even if the
hardware doesn't fail, which it inevitably will, that all software
above a certain level of complexity is guaranteed to have bugs with
unknown consequences.
 There is another equally cautionary genre in sci-fi about society
becoming so dependent on machines as to lose the knowledge to
understand and maintain the machines, resulting in total collapse
when the machines inevitably fail.  I still remember my oldest sister

reading E.M.

Forster, "The Machine Stops" (1909), to me  when I was very young.
 Various Star Trek episodes used both of these themes as plots.
 People can also break down with lethal  side effects, but the
potential  damage one person can create is more easily contained by
other people.   The  only effective way to defend again a berserk lethal
machine may be with another lethal machine, and Colossus-Guardian
suggests why that may be an even worse idea.

-Original Message-
From: Bob Bridges
Sent: Sunday, May 10, 2020 10:21 PM

I've always loved "Colossus: The Forbin Project".  Not many people
have seen it, as far 

Re: IDCAMS not freeing file

2020-05-07 Thread David Spiegel

JES2 or JES3?
This could make a difference.

On 2020-05-07 08:27, Gadi Ben-Avi wrote:

Hi,
We have the following problem

I job runs IDCAMS that delete and redefines a VSAM KSDS file.
The next step uses a user program to send a command to CICS to open file file.

In one partition this works fine.
In another partition we get:
DFHFC0952 CICSTOR8
DYNAMIC ALLOCATION OF NON-RLS FILE LMFVPAPZ FAILED. RETURN CODE
X'0004',X'0210' IN MODULE DFHFCFS.

The manual says that this messaga is issued when the file is allocated with 
DISP=OLD.

If we run the second step after the first job has ended, it runs OK.

It looks like IDCAMS is not freeing the file after the step ends.

Does anyone have an idea what can be causing this?

Gadi

--
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: TSO/E SUBMIT exit

2020-05-06 Thread David Spiegel

+1

On 2020-05-06 16:43, Frank Swarbrick wrote:

Are you still wanting to limit "non OPER" users to only those jobs beginning 
with their user ID?  If so, for gods sake why?  Sounds very 1960s...


From: IBM Mainframe Discussion List  on behalf of Robert 
Hahne 
Sent: Wednesday, May 6, 2020 2:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: TSO/E SUBMIT exit

Hello listers ,

  I understand this is a RACF question . But thought someone can help me here . 
We have a requirement where TSO submit exit IKJEFF10 needs to be eliminated . 
Currently it is written to ensure only those users with TSOAUTH(OPER) are 
allowed to submit jobs with any name . Rest of the users are only allowed to 
submit jobs that begins with their USERID .

Also , the users are not allowed to issue JES commands in batch unless they 
have TSOAUTH(OPER) . Can we get both of these requirements done using RACF 
profiles ?

Any pointers are highly appreciated

Regards,
Robert

--
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: z/os d,a,l --- What does "owt" mean ?

2020-05-01 Thread David Spiegel

Swapped out, waiting, not ready to run.
(waiting for user to enter a command)

On 2020-05-01 15:09, Mike Stramba wrote:

When running the z/os  console display command :  d,a,l   --- What
does "owt" mean ?

Seems to be associated with TSO processes ?

Mike

--
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: Mainframe user ID length

2020-04-30 Thread David Spiegel

TSO used to have a limit of 7.

On 2020-04-30 16:43, Mike Schwab wrote:

USERID length can be 8.

TSO USED to have a limit of 8, with the SYS1.UADS emergency logon
adding a digit to access multiple records, and job submission adding a
character for the jobname.

The 8th character was/is the length in Binary, x'01'-x'07'.  Now you
can specify an 8 byte TSO USERID, with the 8th character being >
x'07'.

https://nam03.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.e0za100%2Fch1tso_23_8char.htmdata=02%7C01%7C%7C57136fbee2814281b18408d7ed47603c%7C84df9e7fe9f640afb435%7C1%7C0%7C637238763120777692sdata=VumiQcDjPdQQ9B1ZFQXiQHRSwCBEs%2FSKsKS9G62LpIM%3Dreserved=0.

On Thu, Apr 30, 2020 at 8:21 PM Frank Swarbrick
 wrote:

I'm asking about the user ID, not the password/pass phrase.  But thanks.


From: IBM Mainframe Discussion List  on behalf of Jesse 1 
Robinson 
Sent: Thursday, April 30, 2020 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: Mainframe user ID length

RACF can now handle 'password phrase' of considerable length and/or upper/lower 
case passwords. If you allow lower case, you can end up with a mess. With 
traditional upper-only system option, a password typed e.g. via TSO gets 
automatically translated to upper case with no user notification. With the 
system option set to lower case allowed, that translation does not occur. This 
means that every password entry *must* also be lower case. Some logon 
environments may not allow lower case. Worse, if there is a severe problem that 
requires fallback to upper only, a user with a lower case password may not be 
able to logon at all.

This is an all or nothing option. Allowing or disallowing lower case affects 
all environments at the same time.

.
.
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 
Frank Swarbrick
Sent: Thursday, April 30, 2020 12:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Mainframe user ID length

CAUTION EXTERNAL EMAIL

Is z/OS still limited in all cases to 8 upper case characters?  I am curious if 
a user that only has access to MQ might be able to have a longer and ideally 
mixed case user ID.  They wouldn't have access to TSO or CICS or IMS.


--
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: Here we go again;

2020-04-23 Thread David Spiegel

Hi R'Shmuel,
You said: "...  I had lust in my heart ..."
This is reminiscent of a former US president.

Regards,
David

On 2020-04-23 12:04, Seymour J Metz wrote:

CDC until STAR-100 and UNIVAC until 360 compatible line. There were some 
smaller companies that used it, but I can't remember who they were. My hands-on 
experience with 1s' complement was with the CDC 6400 and the UNIVAC 1230, 
although I had lust in my heart for the CDC 3600..


--
Shmuel (Seymour J.) Metz
https://eur04.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C46dd520a166449a9cd0508d7e7a01440%7C84df9e7fe9f640afb435%7C1%7C0%7C637232547029007963sdata=6Tc%2BdMoQWcieXngCXVB9X6a8A5Osis8Sul4WX4yQtXs%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Thursday, April 23, 2020 11:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

1s' complement as in ... CDC?
(I used to program FORTRAN on CDC and had to deal with "Negative Zeroes".)

On 2020-04-23 11:37, Seymour J Metz wrote:

Real programmers use ones' complement ;-)

I don't know of any machine that uses a ten's complement representation, but 
the idea is appealing.


--
Shmuel (Seymour J.) Metz
https://eur04.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C46dd520a166449a9cd0508d7e7a01440%7C84df9e7fe9f640afb435%7C1%7C0%7C637232547029007963sdata=6Tc%2BdMoQWcieXngCXVB9X6a8A5Osis8Sul4WX4yQtXs%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, April 23, 2020 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

On Thu, 23 Apr 2020 13:50:48 +0200, R.S. wrote:

It wasn't single byte per record in single table! It was (it *IS*)
element of some culture - to avoid dummy characters.
How many? It depends. For well constructed record the room for savings
is zero or close to zero.
For PFCSK ever date contains separators (2020-04-22 14:55:12), fields
are separated by blank etc.


I once wondered in these lists why, while F-type values wisely use
2's complement, P-type values are sign magnitude where 10's
complement would provide 5 times the range in the same storage
and avoid the need for a possible recomplement after subtraction.

The response seems to be that 10's complement representation of
negative values is unintuitive.  That strikes me as PFCSK-think.

Of course, there's the argument about reading dumps.

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


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


Re: Here we go again;

2020-04-23 Thread David Spiegel

1s' complement as in ... CDC?
(I used to program FORTRAN on CDC and had to deal with "Negative Zeroes".)

On 2020-04-23 11:37, Seymour J Metz wrote:

Real programmers use ones' complement ;-)

I don't know of any machine that uses a ten's complement representation, but 
the idea is appealing.


--
Shmuel (Seymour J.) Metz
https://nam10.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C7343764574a748ceaa7808d7e79c42af%7C84df9e7fe9f640afb435%7C1%7C0%7C637232530624151412sdata=O4UDTjodAoUB7pOFbMMf5Z8uwwixQnB6dSNu9XF0hpY%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, April 23, 2020 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

On Thu, 23 Apr 2020 13:50:48 +0200, R.S. wrote:

It wasn't single byte per record in single table! It was (it *IS*)
element of some culture - to avoid dummy characters.
How many? It depends. For well constructed record the room for savings
is zero or close to zero.
For PFCSK ever date contains separators (2020-04-22 14:55:12), fields
are separated by blank etc.


I once wondered in these lists why, while F-type values wisely use
2's complement, P-type values are sign magnitude where 10's
complement would provide 5 times the range in the same storage
and avoid the need for a possible recomplement after subtraction.

The response seems to be that 10's complement representation of
negative values is unintuitive.  That strikes me as PFCSK-think.

Of course, there's the argument about reading dumps.

-- 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: [External] Re: Here we go again;

2020-04-22 Thread David Spiegel
Because, one programmer produces JCL and shares it with his/her 
colleagues for the next 50 years.

Have you ever worked in a real company?

On 2020-04-22 15:41, Gerhard adam wrote:
   
   
   
 
 	Why did you have to go to the programmers to make sure they were using proper block sizes if this were common practice?




Get Outlook for iOS
 
   





On Wed, Apr 22, 2020 at 12:34 PM -0700, "Pommier, Rex" 
 wrote:










Sorry, we'll have to agree to disagree.  It wasn't mythology at my places of 
business.  When I was in application development, disk and other resource 
efficiency was of paramount concern and when I moved into systems programming I 
got to be the one going to the developers and making sure they didn't use bad 
blocking.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Gerhard adam
Sent: Wednesday, April 22, 2020 2:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: Here we go again;

   
   
   
 
 	... and so goes the mythology.  The truth is that programmers routinely used lousy block sizes and wastes tremendous amounts of space.  JCL sizes were rarely scrutinized nor was data set usage.  It was entirely possible for test data to exist for weeks or months beyond its usefulness This isn’t to say that money was obviousness spent and even wasted, but few installations took managing their DASD seriously.  They would worry about saving a byte by packing a date while wasting 100 tracks due to poor blocking.

This is why nothing really happened until System Determined Blocksize, and the 
Storage Administrator tools became available. People certainly wrung their 
hands but rarely did anything about it



Get Outlook for iOS
 
   





On Wed, Apr 22, 2020 at 12:08 PM -0700, "Pommier, Rex"  wrote:










Agreed.  Another thing to remember was that we were dealing with disk volumes 
measured in kilobytes or megabytes instead of terabytes.  In addition, the site 
I cut my teeth on had all removable disk packs that got rotated onto the drives 
for processing of each application.  Every byte saved per record gave us the 
better chance of fitting the entire set of datasets on a single disk set so we 
could process it.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Charles Mills
Sent: Wednesday, April 22, 2020 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: Here we go again;

Faulty logic there. A byte here and byte there and pretty soon you have to buy 
ANOTHER unit of DASD. It costs the same empty or full, but if it gets nearly 
full you have to pay for another.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard adam
Sent: Wednesday, April 22, 2020 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

   
   
   
 
 	The notion of “savings” was marketing nonsense.  The DASD was paid for regardless of whether it held a production database or someone’s golf handicap.

It cost the same whether it was empty or full.  The notion of “saving” was 
nonsense and even under the best of circumstances could only be deferred 
expenses

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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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






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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have 

Re: [External] Re: Here we go again;

2020-04-22 Thread David Spiegel
I'll bet that you never used the VTOC program (CBT File 112) to scan 
your DASD for underutilization, bad blocking, uncataloged datasets, 
phantom catalog entries etc.


On 2020-04-22 15:20, Gerhard adam wrote:
   
   
   
 
 	... and so goes the mythology.  The truth is that programmers routinely used lousy block sizes and wastes tremendous amounts of space.  JCL sizes were rarely scrutinized nor was data set usage.  It was entirely possible for test data to exist for weeks or months beyond its usefulness

This isn’t to say that money was obviousness spent and even wasted, but few 
installations took managing their DASD seriously.  They would worry about 
saving a byte by packing a date while wasting 100 tracks due to poor blocking.
This is why nothing really happened until System Determined Blocksize, and the 
Storage Administrator tools became available.
People certainly wrung their hands but rarely did anything about it



Get Outlook for iOS
 
   





On Wed, Apr 22, 2020 at 12:08 PM -0700, "Pommier, Rex" 
 wrote:










Agreed.  Another thing to remember was that we were dealing with disk volumes 
measured in kilobytes or megabytes instead of terabytes.  In addition, the site 
I cut my teeth on had all removable disk packs that got rotated onto the drives 
for processing of each application.  Every byte saved per record gave us the 
better chance of fitting the entire set of datasets on a single disk set so we 
could process it.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Charles Mills
Sent: Wednesday, April 22, 2020 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: Here we go again;

Faulty logic there. A byte here and byte there and pretty soon you have to buy 
ANOTHER unit of DASD. It costs the same empty or full, but if it gets nearly 
full you have to pay for another.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard adam
Sent: Wednesday, April 22, 2020 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

   
   
   
 
 	The notion of “savings” was marketing nonsense.  The DASD was paid for regardless of whether it held a production database or someone’s golf handicap.

It cost the same whether it was empty or full.  The notion of “saving” was 
nonsense and even under the best of circumstances could only be deferred 
expenses

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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


--
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: Here we go again;

2020-04-22 Thread David Spiegel

The 3200 Maximum Blocksize used to be a Linkage Editor restriction.
Also, better JCL does not pay dividends for any software vendor. As long 
as the old stuff works, nobody cares that it has been around since 2314s 
and 2319s.


On 2020-04-22 15:34, Seymour J Metz wrote:

Well, I used a DCB exit to select a block size if none was provided. OTOH, I 
kept seeing IBM procedures with 3200 long after that was too small.


--
Shmuel (Seymour J.) Metz
https://eur05.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Cfe4606446a024ce1ef3f08d7e6f42b0f%7C84df9e7fe9f640afb435%7C1%7C0%7C637231808688902735sdata=GUKRdPCZgletvLmWTX8AsrOEwexm2Ictr2aFQRNdU%2B0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Gerhard adam [gada...@charter.net]
Sent: Wednesday, April 22, 2020 3:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: Here we go again;

 ... and so goes the mythology.  The truth is that programmers 
routinely used lousy block sizes and wastes tremendous amounts of space.  JCL 
sizes were rarely scrutinized nor was data set usage.  It was entirely possible 
for test data to exist for weeks or months beyond its usefulness
This isn’t to say that money was obviousness spent and even wasted, but few 
installations took managing their DASD seriously.  They would worry about 
saving a byte by packing a date while wasting 100 tracks due to poor blocking.
This is why nothing really happened until System Determined Blocksize, and the 
Storage Administrator tools became available.
People certainly wrung their hands but rarely did anything about it



 Get Outlook for iOS






On Wed, Apr 22, 2020 at 12:08 PM -0700, "Pommier, Rex" 
 wrote:










Agreed.  Another thing to remember was that we were dealing with disk volumes 
measured in kilobytes or megabytes instead of terabytes.  In addition, the site 
I cut my teeth on had all removable disk packs that got rotated onto the drives 
for processing of each application.  Every byte saved per record gave us the 
better chance of fitting the entire set of datasets on a single disk set so we 
could process it.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Charles Mills
Sent: Wednesday, April 22, 2020 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: Here we go again;

Faulty logic there. A byte here and byte there and pretty soon you have to buy 
ANOTHER unit of DASD. It costs the same empty or full, but if it gets nearly 
full you have to pay for another.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard adam
Sent: Wednesday, April 22, 2020 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;





 The notion of “savings” was marketing nonsense.  The DASD was paid for 
regardless of whether it held a production database or someone’s golf handicap.
It cost the same whether it was empty or full.  The notion of “saving” was 
nonsense and even under the best of circumstances could only be deferred 
expenses

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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


--
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: Here we go again;

2020-04-22 Thread David Spiegel

It was also the physical size of the dataset.

On 2020-04-22 12:55, Gibney, Dave wrote:

In the 80's a byte of DASD savings could be thousands of dollars.


-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Phil Smith III
Sent: Wednesday, April 22, 2020 9:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;

As others have suggested, many companies do still have SSNs stored as
packed decimal. So sure, a namespace expansion is possible, but it's a bigger
change than one might think, however it's done. I've even seen at least one
company who stored them as binary! I sure hope someone got a big bonus
for saving that byte...





Peter Farley wrote:


There are also many non-human entities like corporations that use the

same SSN value space.




There are a LOT of those . . . and they spring up and fade away at a rate far

higher than human births and deaths.



They use the same namespace--that is, if your SSN is 123-45-6789, an estate
or business could also have that number. Since they're uses for different
things, it's more that they happened (!) to choose the same format than that
they're "the same". (And actually they're theoretically formatted differently:
an EIN is xx-xxx vs. the SSN xxx-xx-, not that most folks store them
with the hyphens.)



...phsiii


--
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: IPCS LIST command to display storage when pointer is in a different address space

2020-04-20 Thread David Spiegel

Hi R'Shmuel,
PKB ... Do you mean "Pot calling the kettle black 
"?


Regards,
David

On 2020-04-20 11:12, Seymour J Metz wrote:

PKB.


--
Shmuel (Seymour J.) Metz
https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Cdb5986b05f3a4d4a7f2e08d7e53d5b63%7C84df9e7fe9f640afb435%7C1%7C0%7C637229923996377874sdata=zLFEbwLzwvcDXb65ZnQGUJLfhrt%2BL1Rk0So%2FvRN82aA%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Christopher Y. Blaicher [cblaic...@syncsort.com]
Sent: Monday, April 20, 2020 10:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS LIST command to display storage when pointer is in a 
different address space

Seymour,
Why do you have to be such a putz?  The person asked a simple question.  There 
is no reason to denigrate him, or anyone else.
I have wanted to say this for a long time about your posts.  Think before you 
hit send.  Is your comment adding to the content of the thread?   If not, hit 
delete.

Chris Blaicher
Technical Architect
Syncsort, Inc.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Monday, April 20, 2020 9:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS LIST command to display storage when pointer is in a 
different address space

[ External - This message originated Externally.  Use proper judgement and 
caution with attachments, links, or responses. ]

That's been there from the beginning. What's new is the ability to specify 
31-bit pointers and the ability to specify 64-bit pointers. Even the latter is 
pretty long in the tooth, and there are readers of this list younger than the 
former.


--
Shmuel (Seymour J.) Metz
https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Furldefense.com%2Fv3%2F__http%3A%2F%2Fmason.gmu.edu%2F*smetz3__%3Bfg!!I6-MEfEZPA!ZW8b_MAhwMsNj4OVWCQyFs4kblYP5-8Eqqh63_YG8xT01Shps776rh2S1DKM8SzANw%24data=02%7C01%7C%7Cdb5986b05f3a4d4a7f2e08d7e53d5b63%7C84df9e7fe9f640afb435%7C1%7C0%7C637229923996377874sdata=UwPN%2BnivqwCOKOVWlx4GHJOrQHb0eUEyRcF5JKAQLLI%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
Sent: Sunday, April 19, 2020 5:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IPCS LIST command to display storage when pointer is in a different 
address space

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

I would like to

  LIST  X+n? ASID(Y)

where X is in address space Z.

--
Binyamin Dissen  
https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Furldefense.com%2Fv3%2F__http%3A%2F%2Fsecure-web.cisco.com%2F1bgPY9cQOe-2aPU4KW_tDmi6ZHDpIBxSHRrfR7QvRRzdwEZ6K1iPrfWSCot5X8uWXKNMYIKycgQtT_fFcW1hRvvhSJXTmCEts-1BoesxnyE8Jwlvo-hX--_EQCqsjGdi4rm0yNBM--jbfgfwdA6Pr3whaK9LJWWhP4pI7aaUVt23afCTl88G5qmSuypTRjuYO-fAE7EyxAu3E_dAKlBn0OLySLF_MuGyIbSiErrRyV286xQ4SIcU1JbokFuhxfgbnNMYWzuo1aGzpyF3LSiXQ6bYN7kIFjGMenrGpyEUx6ud7F-lmkgU36f69r7OZLrsEiOA__oh1ZH-4RgpCiypAz9WbJHjewlnZf06WPThvlJ06Fp9VmXM9rS3TvZnoJwRJV93cf8GWrndnhk8IgqMrnY58rxHzlKtTWIyVezyAcKYEw38f9U6k3QkrNG1KIZjL%2Fhttp*3A*2F*2Fwww.dissensoftware.com__%3BJSUl!!I6-MEfEZPA!ZW8b_MAhwMsNj4OVWCQyFs4kblYP5-8Eqqh63_YG8xT01Shps776rh2S1DJzFKAODw%24data=02%7C01%7C%7Cdb5986b05f3a4d4a7f2e08d7e53d5b63%7C84df9e7fe9f640afb435%7C1%7C0%7C637229923996377874sdata=F0QtoT9PwOgyYbghYYMjImCZVR2vx%2BAwuvUm20oeXCE%3Dreserved=0

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
.



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

Re: Apparent bug in CBT 617 SMFREPT

2020-04-14 Thread David Spiegel

What type of coffee?

On 2020-04-14 13:56, Seymour J Metz wrote:

Sorry, not enough coffee.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Seymour J Metz [sme...@gmu.edu]
Sent: Tuesday, April 14, 2020 12:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Apparent bug in CBT 617 SMFREPT


FOO = ARG(1)
BAR = ARG(2)
SOJACK = ARG(3)

No.  That works only for Rexx:

 CALL BINTDECR FOO, BAR, SOJACK

Ass opposed to what?


Use PARSE ARG FOO BAR SOJACK, which preserves case.

The parse arg may be better style, but it is fully equivalent to the three 
assignment statements. Don't confuse arg foo with foo=arg(1).


--
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, April 14, 2020 12:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Apparent bug in CBT 617 SMFREPT

On Tue, 14 Apr 2020 08:50:27 -0700, Charles Mills wrote:

I got an off-list note from Sam Golob asking me to submit an actual fix, so
I downloaded CBT 617 to have a clean copy to start from and it is *not* the
source of the program I am using (and complaining about here).

It *does* however have the same bug:

BINTDECR:
NUMERIC DIGITS 20
ARG LITERAL
INTZ = "LITERAL = C2X(''LITERAL'')"
INTERPRET INTZ
...

Ouch!  INTERPRET is unnecessary, and perhaps dangerous
because of the possibility of code injection via the value of ARG.
"A little learning is a dangerous thing."


Not sure exactly where to go from here. This misuse of ARG for binary fields
seems to be pervasive! I don't have the time to be "Mr. Fix all the CBT Rexx
misuses of ARG."


They probably expect you to prepare your input with CAPS ON.


If you are using any Rexx code that processes binary data (such as SMF
records) you might want to do a quick FIND on ARG and see if it has the same
problem. Easy to fix:

ARG FOO becomes FOO = ARG(1)


OK.


ARG FOO BAR SOJACK becomes

FOO = ARG(1)
BAR = ARG(2)
SOJACK = ARG(3)
Etc.


No.  That works only for Rexx:
 CALL BINTDECR FOO, BAR, SOJACK

Use PARSE ARG FOO BAR SOJACK, which preserves case.

-- 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: Any shop use UNIX in a production job?

2020-04-13 Thread David Spiegel

Tuna fish?

On 2020-04-13 12:09, PINION, RICHARD W. wrote:

How about a NIC card?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
Bridges
Sent: Monday, April 13, 2020 12:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any shop use UNIX in a production job?

[External Email. Exercise caution when clicking links or opening attachments.]

Like talking about a VIN number or an ATM machine.  It could be worse, though; I once 
heard someone refer (really!) to an "automatic ATM machine".

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* Another reason why creative individuals prefer to work at home, as opposed 
to an office, is that when you need to scratch yourself, you don't have to 
sneak behind the copying machine and settle for a hasty grope.  At home, you 
can rear back and assault the affected region with both hands, or, if you want, 
gardening implements.  -Dave Barry */


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, April 13, 2020 09:11

...USS (I would say USS services but that would be redundant)

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged 
and/or confidential information. If you are not the intended recipient(s), or 
the employee or agent responsible for delivery of this message to the intended 
recipient(s), you are hereby notified that any dissemination, distribution, or 
copying of this e-mail message is strictly prohibited. If you have received 
this message in error, please immediately notify the sender and delete this 
e-mail message from your computer.


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


  1   2   3   >