Re: 3270 emulator / telnet with encryption

[David Spiegel]

Hi Richard,
This reminds me of a story.
Approximately 26 years ago, myself and a colleague were invited to a 
multi-vendor meeting at a customer site to help solve a problem.
My colleague had the misfortune of pronouncing "SAP" as "sap" (rather 
than Ess-Ay-Pee). The SAP guys there went stark raving mad and were

almost screaming at my colleague for this perceived infraction.
I suggested to my colleague that it was probably time for a B-E-E-R.

Regards,
David

On 2021-05-07 16:19, PINION, RICHARD W. wrote:

M-I-C-K-E-Y  M-O-U-S-E.  Who remembers that song?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Radoslaw Skorupka
Sent: Friday, May 7, 2021 4:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 3270 emulator / telnet with encryption

[External Email. Exercise caution when clicking links or opening attachments.]

Poland:
kicks for CICS
C-P-A-C-F for CPACF (*) , (**)

* Polish pronunciacion of letters. To start a war: we have consistent rules. 
Not like Cincinnati and car.  ;-) Actually it's very similar to Latin.

** While CICS is rather not used very much on the streets, the CPACF is almost 
unknown even in among mainframers.
I used to teach Introduction to ICSF and mainframe crypto HW. BTW: In the past 
I had to explain mainframe CE IBMers what is CCF and how to enable it. 
Fortunately I forbade to drop anything from mainframe add-ons and we found 
enablement diskette. It was valid for given serial number, so it wouldn't be 
nice to loose it. Old story. Few years later some CE performed checkout test on 
z800 and ...cleared all the master keys in CCF. Fortunately I had some 
procedures and backup copies...

--
Radoslaw Skorupka
(looking for new job)
Lodz, Poland






W dniu 07.05.2021 o 21:24, Eric D Rossman pisze:

I'm probably the odd one out, but I say "SEE-pack-eff" and "kicks" for
CPACF and CICS and I'm on the east coast of the US.

And, yes, we (ICSF) do exploit the new z15 CPACF functions available
with
MSAE9 (Compute Digital Signature Authentication (KDSA)) for EC key
pair generation, digital signature generate/verify, and key agreement
for curves P-256, P-384, P-521, Ed25519, and Ed448. Since System SSL
calls us for those curves, they get the performance benefit as well.

Eric Rossman, CISSP®
ICSF Cryptographic Security Development z/OS Enabling Technologies
edros...@us.ibm.com

IBM Mainframe Discussion List  wrote on
05/07/2021 12:57:01 PM:


From: Lennie Dymoke-Bradshaw

<032fff1be9b4-dmarc-requ...@listserv.ua.edu>

Tom,

CPACF is considered part of weaponry by the US government and so it
has to be capable of being disabled for those countries where
exportation of encryption is restricted by US Govt arms rules. This
is why it has to be explicitly selected.

CPACF is actually a pre-requisite for enabling a Crypto Express
device. CPACF is used extensively in TLS. TLS uses clear key
encryption for data transport and this is where the majority of
encryption work is performed in TLS. However, I see the latest CPACF
on Z15s have some new asymmetric functions, so maybe CPACF can be
used in the TLS handshake as well now.

Lennie Dymoke-Bradshaw

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Tom Brennan
Sent: 07 May 2021 16:55
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 3270 emulator / telnet with encryption

On 5/7/2021 6:19 AM, Phil Smith III wrote:


It's a reasonably safe bet that any machine today has CPACF; that
was not always true, of course.

When IBM or a business partner configures a new machine, there's a
checkmark for CPACF (zero charge), but it defaults to unchecked.  So
when ordering a new machine I'd suggest the customer ask to make sure
that free feature code is supplied.

If the machine comes with a crypto card, CPACF is automatically
selected and required.  No need to ask in that case.

Side subject - so how do you pronounce CPACF?  I always say each
letter, but some IBM crypto folks say C-Pack-F

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

Re: Now it's easier to find stuff on the CBT Tape

[David Spiegel]

Hi Peter/Brian,
Where did you turn on debug?

Thanks and regards,
David

On 2021-05-02 03:40, Peter Vels wrote:

Brian, you are too kind.  You did 99% of the work.
Peter

On Sun, 2 May 2021 at 16:22, Brian Westerman 
wrote:


Thanks to some timely help from Peter Vels who suggested tracing the FTP
routine, I was able to find the problem. At my site the "locsite
fwfriendly" is required.  I still don't know why that is, but it has been
that way at several of the site I manage as well, (but not all).  Changing
that to be there (it was commented out in the CBT exec), made it work.

Thanks again to Peter for pointing the way.

Brian

On Sun, 2 May 2021 00:03:15 -0500, Brian Westerman <
brian_wester...@syzygyinc.com> wrote:


Please ignore this problem.  When I went back and read the instructions I

saw that I'm suppose to UNZIP FILE001 before I upload it in binary format
to the sequential dataset.  Once I did that it loaded okay.

Just goes to show you, read the instructions closely before you complain.

:)

Now I have to work on getting the FTP part to work because it's not as

much use without that, (except I do like that you can see the comments when
you select the entry).

Does anyone know how to turn DEBUG on to see what's going wrong with FTP?

Brian


On Sat, 1 May 2021 23:52:08 -0500, Brian Westerman <

brian_wester...@syzygyinc.com> wrote:

I can't get CBTVIEW to work,  I get to the part where it tries to

download the File001 and it fails, so I downloaded it to my workstation and
uploaded it to the mainframe as a FB 80 9440 file and now I get a message
that says build completed (then it pauses for about 60 seconds) and then I
get:

IEC141I 013-18,IGG0191B,BRIANW,$SYSTEMS,CBT78000,1466,PROD04,
BRIANW.FILEIDX.PDS(CBTINDEX)
IRX0250E System abend code 013, reason code 0024.
IRX0255E Abend in host command execio or address environment routine

TSO.

IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013  REASON CODE=0018
TIME=21.40.14  SEQ=37529  CPU=  ASID=00E0
PSW AT TIME OF ERROR  075C1000   80E74598  ILC 2  INTC 0D
   NO ACTIVE MODULE FOUND
   NAME=UNKNOWN
   DATA AT PSW  00E74592 - 4100302C  0A0D010D  A7E5014B
   AR/GR 0: 00AFBF84/_00E748A0   1: /00AA2D94_A4013000
 2: /_00072250   3: /_00E74874
 4: /_00AAA410   5: /_00AAA7A4
 6: /_00AAA74C   7: /_00AAA7A4
 8: /_00AAA76C   9: /_00072280
 A: /_00F9D658   B: /_7F515CE8
 C: /_0008   D: /_00AAA7A4
 E: /_80E73DF6   F: /_0018
END OF SYMPTOM DUMP
IRX0670E EXECIO error while trying to GET or PUT a record.
***
I agree with the s013-18 because the CBTINDEX member is not there to

open, but so much of this is hidden behind the CBT rexx exec that I can't
tell where it's failing.

I think that FILE001 being in ZIP format might be hurting this, but I

think the CBT exec is supposed to unzip it first, but maybe I'm wrong.  Has
anyone got this to work or should I just start debugging now?

--
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: MQ For z/os

[David Spiegel]

Hi Mark,
I recently upgraded 9.0-9.1 on z/OS V2.3

One thing to know is that (ZPARM ) OPMODE (in CSQ6SYSP Macro) no longer 
available, chooses between COMPAT and NEWFUNC.
(As of 9.1, it's all effectively NEWFUNC). This also (besides not 
allowing going backwards) means that you should set your REGION=0M and 
MEMLIMIT=3G.


Before upgrading, I would backup all of the VSAMs
// JOB
//STEP001 EXEC PGM=ADRDSSU
//SYSPRINT DD  SYSOUT=*
//ODD  DD  DISP=(.CATLG,DELETE),
// UNIT=TAPE,
// RECFM=U,BLKSIZE=27998,
// DSN=VSAMBKUP
//SYSIN    DD  *
  DUMP DS( -
   INCL( -
    PSID00 -
    BSDS01 -
    BSDS02 -
    LOGCOPY1.DS01 -
    LOGCOPY2.DS01 -
 ) -
 ODD(ODD) -
 OPT(4) -
 SHR -
 SPHERE -
 TOL(ENQF)

 and also generate the definitions (as commands) via MAKEDEF Commands:
//PS00 EXEC PGM=CSQUTIL,PARM=CSQ1
//STEPLIB DD DISP=SHR,DSN=.SCSQAUTH
// DD DISP=SHR,DSN=.SCSQANLE
//OUTPUT1 DD DISP=OLD,DSN=COMMANDS(CFSTRUCT)
//OUTPUT2 DD DISP=OLD,DSN=COMMANDS(CHANNEL)
//OUTPUT3 DD DISP=OLD,DSN=COMMANDS(CHLAUTH)
//OUTPUT4 DD DISP=OLD,DSN=COMMANDS(AUTHINFO)
//OUTPUT5 DD DISP=OLD,DSN=COMMANDS(NAMELIST)
//OUTPUT6 DD DISP=OLD,DSN=COMMANDS(PROCESS)
//OUTPUT7 DD DISP=OLD,DSN=COMMANDS(QALIAS)
//OUTPUT8 DD DISP=OLD,DSN=COMMANDS(QLOCAL)
//OUTPUT9 DD DISP=OLD,DSN=COMMANDS(QMODEL)
//OUTPUT0 DD DISP=OLD,DSN=COMMANDS(QREMOTE)
//OUTPUTA DD DISP=OLD,DSN=COMMANDS(QUEUE)
//OUTPUTB DD DISP=OLD,DSN=COMMANDS(STGCLASS)
//OUTPUTC DD DISP=OLD,DSN=.COMMANDS(TOPIC)
//OUTPUTD DD DISP=OLD,DSN=COMMANDS(QMGRALL)
//OUTPUTE DD DISP=OLD,DSN=COMMANDS(CHLAUTH)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMMAND DDNAME(CMDINP1) MAKEDEF(OUTPUT1)
COMMAND DDNAME(CMDINP2) MAKEDEF(OUTPUT2)
COMMAND DDNAME(CMDINP3) MAKEDEF(OUTPUT3)
COMMAND DDNAME(CMDINP4) MAKEDEF(OUTPUT4)
COMMAND DDNAME(CMDINP5) MAKEDEF(OUTPUT5)
COMMAND DDNAME(CMDINP6) MAKEDEF(OUTPUT6)
COMMAND DDNAME(CMDINP7) MAKEDEF(OUTPUT7)
COMMAND DDNAME(CMDINP8) MAKEDEF(OUTPUT8)
COMMAND DDNAME(CMDINP9) MAKEDEF(OUTPUT9)
COMMAND DDNAME(CMDINP0) MAKEDEF(OUTPUT0)
COMMAND DDNAME(CMDINPA) MAKEDEF(OUTPUTA)
COMMAND DDNAME(CMDINPB) MAKEDEF(OUTPUTB)
COMMAND DDNAME(CMDINPC) MAKEDEF(OUTPUTC)
COMMAND DDNAME(CMDINPD) MAKEDEF(OUTPUTD)
COMMAND DDNAME(CMDINPE) MAKEDEF(OUTPUTE)
//CMDINP1 DD *
DISPLAY CFSTRUCT(*) ALL
//CMDINP2 DD *
DISPLAY CHANNEL(*) ALL
//CMDINP3 DD *
DISPLAY CHLAUTH(*) ALL
//CMDINP4 DD *
DISPLAY AUTHINFO(*) ALL
//CMDINP5 DD *
DISPLAY NAMELIST(*) ALL
//CMDINP6 DD *
DISPLAY PROCESS(*) ALL
//CMDINP7 DD *
DISPLAY QALIAS(*) ALL
//CMDINP8 DD *
DISPLAY QLOCAL(*) ALL
//CMDINP9 DD *
DISPLAY QMODEL(*) ALL
//CMDINP0 DD *
DISPLAY QREMOTE(*) ALL
//CMDINPA DD *
DISPLAY QUEUE(*) ALL
//CMDINPB DD *
DISPLAY STGCLASS(*) ALL
//CMDINPC DD *
DISPLAY TOPIC(*) ALL
//CMDINPD DD *
DISPLAY QMGR ALL
//CMDINPE DD *
DISPLAY CHLAUTH(*) ALL

Once it comes up, run a Batch Job:
// JOB
//STEP001 EXEC PGM=CSQUTIL,PARM=CSQ1 (where CSQ1 is the "name" of your 
Queue Manager)

//STEPLIB  DD  DISP=SHR,DSN=.SCSQAUTH
// DISP=SHR,DSN=.SCSQANLE
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
ALTER BUFFERPOOL(0) LOCATION(ABOVE)
ALTER BUFFERPOOL(1) LOCATION(ABOVE)
ALTER BUFFERPOOL(2) LOCATION(ABOVE)
ALTER BUFFERPOOL(30 LOCATION(ABOVE)

Regards,
David

On 2021-04-27 11:52, Steely.Mark wrote:

Has anyone upgraded from MQ 9.0 to 9.2 ?

Is there any PTF's that need to be applied to 9.0 before going to 9.2. This is 
the only thing I have found:

While at MQ 9.0, take a full backup of the queue managers. Why? Because the 
upgrade process is NOT reversible. If you need to revert back from MQ 9.1 to 
9.0, then you must delete the queue managers and restore the backup taken at MQ 
9.0.

I know this statement is talking about 9.1 but I think it would also relate 
going to 9.2.

Any information relating to upgrading MQ would be appreciated.

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
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: Diagram of MVS Control Blocks

[David Spiegel]

*MSS

On 2021-04-25 08:55, Seymour J Metz wrote:

3850 MSF (3851, 3830 and connected 3330-1, 3330-11 or 3350 staging drives)?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7Cf5a28c62b9754344266e08d907e97ca6%7C84df9e7fe9f640afb435%7C1%7C0%7C637549521670911175%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=HIEwOompNqzqSvT00rXLK4yj7FXNFRRhYaJiBWQauOQ%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tom 
Brennan [t...@tombrennansoftware.com]
Sent: Friday, April 23, 2021 5:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

Oh... maybe a drum?

At first I was thinking of that old IBM robot that grabbed spools of
very wide tape and unrolled them to read.

On 4/23/2021 2:23 PM, Tom Brennan wrote:

I see the normal tape and disk icons at the upper right, but what's that
donut shaped thing next to them?

On 4/23/2021 1:37 PM, Lizette Koehler wrote:

How about here

https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fsecure-web.cisco.com%2F1Fbjh5jJ98Su-cGh8SZtU4DVNWgR9tdnL8jhl7QndYkBiOfqYpt3b_urihwbVuIo6swChAIqrRkAwvfjYatcxNLO-bDx2ynt-sile7oque8EBUOfp4gRGnoQC2FJkfW6_CKL9a4Y1xYjCcLt2_u5xVJNJuEv77eoGaY64ZN4qDfPwe6gWkfVJ_K8DXd6cxW8rvhS8OG4ALiCPkS8wDHVZwI0rJVdo3fJW6euvQkDmWNCZY50XwSjc6_7roAQooNcxngxnoNnoMngkDjrifzUOZr5dnnVSTy1nsOBiZMtloOkHKaE2jq5001QDeOz17kXhqtYxXRozh6HZTLjSZIH4rJJ8cjppaef3l3NpNtSdsOSZVNm0HE7oj843VehTYoW-q2yX3XGn7UyuyGI_MDQjiYl6a38dA5ztVbEea4sHi3v5AqdCbwpgIwV1QoF5AXS5%2Fhttp%253A%252F%252Fwww.lbdsoftware.com%252Fos360.jpg&data=04%7C01%7C%7Cf5a28c62b9754344266e08d907e97ca6%7C84df9e7fe9f640afb435%7C1%7C0%7C637549521670911175%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=TqPcCr%2FfgQkEVN1U8CtT%2BR7R1aE98yZk9DPrsyKzuBo%3D&reserved=0



-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of PINION, RICHARD W.
Sent: Friday, April 23, 2021 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

I did Google, but I didn't find the old spaghetti diagram of MVS
control blocks.

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Lizette Koehler
Sent: Friday, April 23, 2021 4:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

[External Email. Exercise caution when clicking links or opening
attachments.]

Should be able to Google (or other favorite browser search engine)

Very common on the internet

So any specific control blocks?  Or just general diagram



Lizette

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Rupert Reynolds
Sent: Friday, April 23, 2021 1:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

I have been looking for mine. I was given a map by IMI Computing.  I
think it got lost during a stressful house move!

Roops

On Fri., Apr. 23, 2021, 20:43 PINION, RICHARD W.,

wrote:


Many years ago, 1982, I took my first MVS class, MVS Structure and
Logic.
One of
the first handouts our class was given was a spaghetti diagram of MVS
control blocks.
Unfortunately, I threw mine away in 2016, when I thought my system
programming days were over.

Would anyone happen to have that diagram?  If you do, please send it
to my email address of rpinion at firsthorizon.com  Thanks in advance.

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

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

Re: SMPe receive e37-04 on SMPPTS1

[David Spiegel]

Hi Allan,
That is not necessarily true.
You're correct if PURGE=YES in the Global Zone OPTIONS.

Regards,
David

On 2021-04-23 15:27, Allan Staller wrote:

Classification: Confidential

You might want to run an accept after the maintenance has been successfully 
deployed. This will clean out the SMPPTS datasets.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Allan Staller
Sent: Friday, April 23, 2021 12:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMPe receive e37-04 on SMPPTS1

[CAUTION: This Email is from outside the Organization. Unless you trust 

the sender, Don’t click links or open attachments as it may be a Phishing 
email, which can steal your Information and compromise your Computer.]


Classification: Confidential

You need to review the receive job to see if smpe recovered from the E37.

If not:
1) Compress/resize SMPPTS, SMPPTS1 if required. Allocate SMPPTS2 if required.
1) rerun the receive
3) rerun the apply

HTH,


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Giannelli
Sent: Friday, April 23, 2021 12:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMPe receive e37-04 on SMPPTS1

[CAUTION: This Email is from outside the Organization. Unless you trust 

the sender, Don’t click links or open attachments as it may be a Phishing 
email, which can steal your Information and compromise your Computer.]


I ran a SMPe receive and got a CC 0. Assuming all was ok I went on to the 
Apply. When I looked back at the receive job I now noticed it got a E37-04 on 
the SMPPTS1 dataset.
Now I am not sure all the PTFs were loaded into SMPPTS1.
Should I rerun the receive making sure I address the E37 issue?
thanks
Bill

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

The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred 
errors) shall therefore not attach any liability on the originator or HCL 
or its affiliates. Views or opinions, if any, presented in this email are 
solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of 
this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects.



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

--
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 vertical split in ISPF?

[David Spiegel]

Maybe you're thinking XEDIT?

On 2021-04-16 16:43, Bob Bridges wrote:

Somewhere in the dim reaches of my past I think I saw mention of the ability to 
split an ISPF screen vertically rather than horizontally.  I've never tried it, 
and I'm not sure I didn't just imagine the capability.

But today someone asked me how to split the screen more than once, and in the process of describing it to him I got 
curious and went looking for it.  I easily found this link, 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.1.0%3Ftopic%3Dinterface-splitting-screen-horizontally-vertically&data=04%7C01%7C%7Cc463d2808ea34c2f305408d9011859e4%7C84df9e7fe9f640afb435%7C1%7C0%7C637542026379275392%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=CQBB56Qtzu7IeMzXWtoZc8j9ofFe%2FJzf8%2BiZ34LoP8g%3D&reserved=0,
 which is entitled "Splitting the screen horizontally or vertically".  But it's a short page and nowhere on it 
(except in that title) is there any mention of either "horizontal" or "vertical".  Is this something 
IBM meant to talk about and just forgot?

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

/* How strange that there was once a time when Americans philosophized hotly, 
in the passionate assurance that their ideas would have practical consequences! 
 And oddly enough, they did.  Now we just shrug and cough up the [tax] money, 
with the resignation of an old New Yorker facing a mugger.  -Joseph Sobran */

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


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

Re: LISTCAT for a VTOC

[David Spiegel]

Hi John, Bob,
Please see File 112, the VTOC Command Processor.
(In 1999, I had the honour of extending it to allow for 4-digit device 
addresses and other things).


Regards,
David

On 2021-04-08 21:36, John McKown wrote:

In TSO, I use ISPF option 3.4 with no DSN and something in the VOLUME.

In batch, I use IEHLIST LISTVTOC. I think there is TSO command on the
CBTTabe somewhere that does a TSO LISTVTOC.

On Thu, Apr 8, 2021, 20:29 Bob Bridges  wrote:


I'm gonna kick myself, I just know I am, but if I know the answer to this
already I can't dredge it up.  I want to list all the datasets on a
particular DASD volume.  I'd use LISTCAT LVL('hlq'), but these are not
catalogued.  Where's the TSO command for that?

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

/* If you're not failing when you train or test your security, you're not
learning anything.  -Craig Tucker */

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

DGAXxxxx (z/OS Connect Direct (formerly NDM)) Programming

[David Spiegel]

Hi,
I would like to speak to anyone who has experience with coding DGAX 
Modules.

Please PM me if you're available.

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: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

[David Spiegel]

Hi Dave,
The JCLIN is not an actual job. It is just a bunch of statements which 
get scanned for keywords, much like what recruiters do on LinkedIn.
I usually try to make sure that it is not executable in case in gets  
SUBMITd accidentally.
Another thing, real Dataset Names are unnecessary. All that's needed is 
the DDDEF name.

Here is how I code it:
++USERMOD(LMSIA38)
  /* INSTALL CICS HPO (TYPE 6) SVC 255 (DFHHPSVC) TO NUCLEUS */ .
++VER(Z038) FMID(HBB7740).
++MOD(DFHHPSVC) LMOD(DFHHPSVC) LKLIB(SDFHLOAD) DISTLIB(SDFHLOAD).
++JCLIN.
//COPYSVC EXEC PGM=IEBCOPY
//SDFHLOAD DD  DSN=SDFHLOAD
//NUCLEUS  DD  DSN=NUCLEUS
  C I=((SDFHLOAD,R)),O=NUCLEUS
  S M=((DFHHPSVC,,R))

On 2021-03-22 11:51, Dave Jousma wrote:

Jerry,

I wouldnt move it, just write a usermod to copy it to NUCLEUS, and update your 
NUCLSTxx member.Let the CICS guy tell you when it changes, and you need to 
re-apply your usermod.

We incidentally dont install DFHHPSVC.   Not sure why, I did ask the CICS guy 
about it.

Here is an old copy of a usermod i had laying around

++USERMOD(MCIC001) .
++VER(Z038) FMID(HBB7707) . 00036000
++JCLIN.00037000
//JOB1JOB 'DFHHPSVC',MSGLEVEL=(1,1)
//STEP1   EXEC  PGM=IEBCOPY
//ESALINK   DD DSN=SYS1.ZOS15.LINKLIB,DISP=SHR,UNIT=3390,
// VOL=SER=TSG005
//NUCLEUS DD  DISP=SHR,DSN=SYS1.NUCLEUS,UNIT=3390,VOL=SER=TGT10A
//SYSIN DD  *
COPY  INDD=ESALINK,OUTDD=NUCLEUS  TYPE=MOD
SELECT  M=(DFHHPSVC)
/*  0005
++MOD(DFHHPSVC) LKLIB(LKLIB).   00051000
QX  00052000

--
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/TPF questions

[David Spiegel]

You're right -- probably 2311 (DASD)
3211, however, was a printer.

On 2021-03-21 15:08, Radoslaw Skorupka wrote:

W dniu 20.03.2021 o 09:47, Attila Fogarasi pisze:
Programs on ACP were limited to 4k size originally, and files were 
limited
to 2 record sizes (short and long), the sizes being optimized for 
3211 disk

geometry.  Those limitations were removed 40 years ago :) However the
speed of zTPF comes from not allowing applications to do things that
require expensive services, such as z/OS provides.


Excuse me, but what is 3211?
I suspect a typo, but I found nothing similar.
2311 is too old IMHO (1964).
Maybe 3330-11 ?




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

Re: Large block interface for VB

[David Spiegel]

Hi Paul,
I tried this using z/OS 2.4 ISPF OPT32 and got BLKSIZE=16385.

Regards,
David

On 2021-03-02 09:01, Paul Gilmartin wrote:

On Tue, 2 Mar 2021 08:24:09 -0500, David Spiegel wrote:


Hi Radek,
You said: "... which is usually close to half of the track (sometimes
third...) ..."
When is SDB 1/3 Track?


As a guess, try RECFM=FB,LRECL=16385,BLKSIZE=0.

In one astonishing extreme case, SDB is 1/7 track.

-- 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: Large block interface for VB

[David Spiegel]

Hi Radek,
You said: "... which is usually close to half of the track (sometimes 
third...) ..."

When is SDB 1/3 Track?

Thanks and regards,
David

On 2021-03-02 07:25, Radoslaw Skorupka wrote:

General comment about LBI, large blocks and performance:

1. Blocksize for tapes, especially for real tapes is very important 
for performance. LBI is something to legalize previously used large 
blocks - I mean blocks larger than officially supported 32760. Even 
3490E tapes supported larger blocks and it was used by ADRDSSU (read 
HSM backups). AFAIK LBI was proviced with OS/390 V2R10, long time 
after MAGSTAR family GA.


2. Blocksize on DASD *does affect performance*, but it is not so 
strong as with tapes. More: on tape there is no big reason not to use 
large blocks, but on DASD the blocksize is strictly related to track 
size. For 3390 blocksize of, let's imagine 160kB has no sense, because 
block has to fit in track. And even 32760 is not very reasonable 
(assuming same consecutive blocks), because waste of space. Yes, it 
would be nice to have blocksize limit at 56664B, but there is no such 
option (we talk about z/OS, not z/VSE). Optimal blocksize is SDB, 
which is usually close to half of the track (sometimes third...).


3. However "big enough" blocksize is good enough! In other words you 
will not observe big performance difference between BLKSIZE=32000 and 
BLKSIZE=8000. On DASD, of course.


4. So, in this case, hypothetical LBI=track would not provide 
important relief. That could mean maybe there are other ways to skin a 
cat. I don't know the application, but some ideas to consider:

- use VSAM, SMB, BLSR, etc.
- use index if applicable
- use LDS and DIV
- use DB2 table


My €0,02



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

Re: Assembler - Authorized program debug

[David Spiegel]

Hi David,
I like VI(m) too.
I'd like to point out, however, that ISPF and XEDIT allow the user to 
restrict edits to a column range.

This capability AFAIK is ONLY available on Mainframe.

Regards,
David

On 2021-02-28 02:45, David Crayford wrote:

On 27/02/2021 8:22 am, Tom Brennan wrote:

You take that back!! :)

Sorry... I just used vi a minute ago and although I finally 
remembered shift-g to move to the bottom, I had to goggle how to move 
back to the top.  gg  Of course! It's so obvious. 



:1 will also jump to the top. 'g' isn't a command, it's used to escape 
although people assume it's goto as it's used to jump around the buffer.


I can remember when I first started learning vim I didn't find it 
particularly intuitive. Once I got over the initial learning curve it 
all made perfect sense. People like vim because its design philosophy 
echos that of Unix. In both Unix and in vim, you have a collection of 
atomic commands that perform one task well. More complicated tasks are 
done by combining the smaller predefined tasks. For example, the vim 
command dl deletes the next character,  dw deletes the next word, and 
db deletes the previous word. Here, d represents the delete operator 
and must be followed by a movement task. lt means move to the next 
character. w for the next word and b for the previous word. d2b will 
delete the previous 2 words. dtx will delete every character up to the 
next x in the current line.  Once you grok this you won't want to use 
another editor as you will find them unproductive. I also use 
Slickedit and Intellij IDEA and I have Vim emulation running in both. 
The key design is maximum economy of keystrokes. Your hand should be 
glued to the home row. I've remapped the Windows caps lock key to ESC 
(single key) and CNTL (multiple keys) to make this easier.


BTW, no need to google. Vim has excellent help. Just type :h motion 
and use CNTL-] to follow links.


--
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: Assembler - Authorized program debug

[David Spiegel]

Hi Ravi, Barbara,
If you want to trace the execution of the program (instead of just one 
snapshot (as Barbara is suggesting)), you might want to consider setting 
up a SLIP Trap with TRACE, capturing your data with GTF and using IPCS 
(via ISPF or Batch) to print the Trace.


I am currently working on a situation like this. (I am also developing a 
Rexx Exec to make the output of the printed Trace more easily readable.)


If you'd like more information on this, please respond.

Sam: Please let me know if you'd like my finished product for the CBT Tape.

Regards,
David

On 2021-02-26 01:02, Barbara Nitz wrote:

On Thu, 25 Feb 2021 23:57:08 -0600, Ravi Gaur  wrote:


Writing and debugging an assembler code which has MODESET instruction to change 
key and while debugging it via IDF or Debug tool both abend with S047(APF) 
issue. Anyone know a way to debug facility for code without using IDF/Debug 
tool?

Set a  slip trap on s=047 and use IPCS to read the resulting sdump.

Regards, Barbara

--
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: Sharing data sets VSAM VB

[David Spiegel]

Hi Joseph,
You could also interrogate the job (provided that your employer has an 
SDSF licence) via the SDSF API.


Regards,
David

On 2021-02-25 09:02, Joseph Reichman wrote:

I am running all of this from Rex building JCL searching files there are a huge 
number of files so I break them up into different jobs

What I am going to try is do
Checkrc:
Address TSO “LISTBC”

If rc == 0 then go
  Address tso “submit *”
   Else
  Sleep(10)
Goto checkrc
End

Have to check the Rexx syntax but this will tell me I hope if the first job 
finished

Thanks




On Feb 25, 2021, at 8:51 AM, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

On Wed, 24 Feb 2021 21:48:54 -0600, Joel C. Ewing wrote:

   .., most job schedulers have ways to inhibit conflicting jobs from
running in parallel, like defining a single resource required ...


A scheduler seems overkill.  DISP=MOD should suffice.

-- 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: utility for dataset backups

[David Spiegel]

Hi Bill,
The EXCLUDEs seem unnecessary.

Regards,
David

On 2021-02-03 09:34, Bill Giannelli wrote:

I think my issue was that my control specification did not capture all the 
datasets I needed. I have now modified it with masks as follows and it seems to 
capture all the datasets I need now:
  
DUMP   OUTDD(TAPE80) -

 OPT(4) ALLDATA(*)  ALLEXCPSPHERE TOL(ENQF)-
 DATASET(INCLUDE(DB2X.DSNDB*.DSNDB0*-
 DB2X.DX11.BSDS*.**, -
 DB2X.DX11.LOGCOPY1.DS02,-
 DB2X.DX11.LOGCOPY2.DS02,-
 DB2X.DX12.BSDS*.**, -
 DB2X.DX12.LOGCOPY1.DS03,-
 DB2X.DX12.LOGCOPY2.DS03,-
 SYS2.DB2X.DSN*.**   -
 SYS2.DB2X.S*,   -
 SYS2.DB2X.S*.**,-
)  -
 EXCLUDE(DB2X.DX11.ARCLG*.**,-
 DB2X.DX12.ARCLG*.**,-
))

--
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: utility for dataset backups

[David Spiegel]

Hi Bill,
Can you please include your //SYSPRINT to see the error messages?

Regards,
David

On 2021-02-03 09:08, Bill Giannelli wrote:

I am preparing for a DB2 v12 upgrade. I need to backup and restore form (if necessary) 
the "runtime libraries". What utilities are normally used? I have been having 
issues with DFSMS ADRDSSU. My restores failed. Also having issues with EMCSNAP as I am 
not familiar with it.
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: Inspecting and extracting from /OS transportable files on other platforms?

[David Spiegel]

Hi Brian,
I tried to find the Sabrent device you referenced, but, did not find any 
that goes 16 Gb/sec.

Can you please supply a link to this?

Thanks and regards,
David

On 2021-01-29 03:36, Brian Westerman wrote:

I think I would use transmit format for transporting things between systems, 
it's easily transportable and common no matter where you go and is even usable 
on a desktop PC.

The other thing you can do (which I personally do) is simply FTP the PDS's and 
sequential files directly to your PC (on a USB drive) in ASCII format.  I do 
this weekly, rotating the encrypted USB drive that I have on my keychain so 
that if it's broken or lost (that's why I encrypt), I can just get the previous 
one.  My USB drives are pre-encrypted with Bitlocker so I really don't have to 
do much (ever).  Previously I used to use those little USB drives with the 
combination lock built in to them, but they are very unreliable (and slow).  So 
now, when fast USB drives go on sale at Amazon, I always buy several.  I like 
the sandisk 256GB ones because a) they are fast, and more importantly b) they 
have a lifetime warranty.

I have a batch file that I run to do this.  I plug in my USB drive and start 
the batch file and go get a diet coke.

I'm thinking about moving the process to one of the ruggedized external NVMe 
drives.  I'm currently testing the new Sabrent 2TB one and it's VERY fast 
(1Gb+/sec) and is small enough to easily fit in a pocket.  Plus being 
ruggedized it's waterproof and drop-proof (so far).  The sandisk drives 
typically load at around 140MB/s, but the Sabrent drive is almost 10 times 
faster.

The reason I want 2TB is that I would like to keep a whole Disaster recovery 
system on that drive (DF/DSS unloaded virtual tapes).  At the faster speed, 
it's actually not a bad process, I just need to work out the kinks a little bit 
more so that I can automate it.

Brian

--
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 for mainframe Linux

[David Spiegel]

Y E S ! (Could not use ISPF on floor system)
Also, sometimes (and this also happened to me) the ISPF Datasets are 
"not there" yet when the first wave of users LOGs ON after the first IPL.


On 2021-01-27 20:21, Seymour J Metz wrote:

If I have a working TSO logon proc then I can allocate the libraries that ISPF 
needs. It's only if someone clobbers those that I would need to resort to TSO 
EDIT.

Have you been at DRs where you couldn't use ISPF from the floor system?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 8:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Hi R'Shmuel AMV"SH,
I meant that your LOGON PROC has a JCL Error and you're stuck using a
bare-bones TSO LOGON PROC with no ISPF ALLOCATions (JCL or Dynamically
ALLOCATEd).
I've done DRs where this has actually occurred. Consider yourself fortunate.

Regards,
David

On 2021-01-27 19:43, Seymour J Metz wrote:

If my LOGON proc has a JCL error then I can't use TSO EDIT.

Every DR site I've been at has allowed use of its floor system to adjust things 
and sometimes to do the restores.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix
it, or, possibly a DR.

On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

--
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: ISPF for mainframe Linux

[David Spiegel]

Hi R'Shmuel AMV"SH,
I meant that your LOGON PROC has a JCL Error and you're stuck using a 
bare-bones TSO LOGON PROC with no ISPF ALLOCATions (JCL or Dynamically 
ALLOCATEd).

I've done DRs where this has actually occurred. Consider yourself fortunate.

Regards,
David

On 2021-01-27 19:43, Seymour J Metz wrote:

If my LOGON proc has a JCL error then I can't use TSO EDIT.

Every DR site I've been at has allowed use of its floor system to adjust things 
and sometimes to do the restores.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7Cdeb9033561d54903b8c408d8c325dcc9%7C84df9e7fe9f640afb435%7C1%7C0%7C637473914698372478%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=4vpjdBo2Xxnc%2Bc%2BQXxyBSaO9miYokXQfhqij3GiSXyE%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix
it, or, possibly a DR.

On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7Cdeb9033561d54903b8c408d8c325dcc9%7C84df9e7fe9f640afb435%7C1%7C0%7C637473914698372478%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=4vpjdBo2Xxnc%2Bc%2BQXxyBSaO9miYokXQfhqij3GiSXyE%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

--
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: ISPF for mainframe Linux

[David Spiegel]

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix 
it, or, possibly a DR.


On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7Cb9eec9b65a244425e9e208d8c3234bdc%7C84df9e7fe9f640afb435%7C1%7C0%7C637473903652729815%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=z4%2FXkAG0fXehGam928xP58W3a9QE6X3biLzN3ZDEDPw%3D&reserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

--
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: TSO RECEIVE and System Determined Blksize (was: TSO XMIT and no member list)

[David Spiegel]

"... Formerly some utilities (Linkage Editor?) imposed a limit of 3120. ..."
Linkage Editor //SYSLIN had a Max BLKSIZE of 3200.

On 2021-01-20 11:25, Paul Gilmartin wrote:

On Wed, 20 Jan 2021 10:03:01 -0600, Wendell Lovewell wrote:

Could you please elaborate on your comment "never solved issue like non-SDB (system 
determined blocksize) in XMIT and RECEIVE command"?


Long ago there were discussions here of ISPF SUBMIT's failing because
of inadequate (default?) SPACE for its workfiles.  The same might apply
to TRANSMIT.  Likewise old utilities might have hardcoded BLKSIZE
(3120?  6144?) suboptimal for recent DASD.  But if such utilities were
changed to BLKSIZE=0 the larger values supplied by SDB might cause
downstream programs to fail.

Formerly some utilities (Linkage Editor?) imposed a limit of 3120.

I had some Rexx programs fail when EXECIO removed its internal
BLKSIZE computation to let SDB operate.  Rapidly fixed by APAR,
but Support advised "Always code BLKSIZE."  An ironic consequence
of SDB.


I have been having an issue with TSO RECEIVE (and a program that also calls IEBCOPY) when 
SDB is "Y".  IEBCOPY is having some sort of problem and displaying this message:

IEB1139W THE OUTPUT DATA SET BLOCK SIZE IS BEING REDUCED FROM 32720 TO 27920 
BYTES.  ANY EXISTING PHYSICAL RECORDS
 LONGER THAN 27920 BYTES ARE FAT BLOCKS AND MAY CAUSE I/O ERRORS.

and ending with a return code of 4.  The dataset being RECEIVEd is actually 
fine, as the LRECL is always less than 27920 (80 in this case).  But RECEIVE 
sees the RC=4 from IEBCOPY and ends with RC=12.

IBM currently has case number TS004689510 open for this, but I assumed it was a 
new issue although I only have SDB=Y on right now for testing.

-- 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: TSO XMIT and no member list

[David Spiegel]

Hi Paul

ALLOC F(SYSPRINT) DA(DUMMY) REU
XMIT ...
ALLOC F(SYSPRINT) DA(*) REU

Regards,
David

On 2021-01-19 21:29, Jesse 1 Robinson wrote:

The messages issued during TSO TRANSMIT are actually coming from IEBCOPY. By 
custom in most shops, DD SYSPRINT is commonly allocated to the terminal, i.e. 
TERM=TS in the logon proc.

To bury these messages, allocate SYSPRINT to dummy or to a throwaway sysout 
class. Don't forget to reallocate back to TERM=TS afterwards. BTW the same 
issues apply to TSO RECEIVE.

StarTool ( On Behalf Of R.S.
Sent: Tuesday, January 19, 2021 4:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: TSO XMIT and no member list

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

W dniu 20.01.2021 o 01:23, Paul Gilmartin pisze:

On Wed, 20 Jan 2021 00:55:59 +0100, R.S. wrote:


I want to switch off member list when TSO XMIT ... DA(SOME.PDS) is running?
I just want to issue the command and I don't want to see loong
member list on the screen.
Any clue?


OUTTRAP?

Well, I think it would hide all messages. However it would be good to still see 
begin and end of step.
Antoher way I know is to run REXX in batch (why not IEBCOPY in JCL? - that's 
another story) and simply ignore output.

It seems quite obvious and never solved issue like non-SDB (system determined 
blocksize) in XMIT and RECEIVE command.

--
Radoslaw Skorupka
Lodz, Poland


--
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: Anyone using IBM Cloud Tape Connector?

[David Spiegel]

Hi Tim,
You said: "... but there are at least three choices ..."
Other than RACF, ACF2 and TSS are there others?

Thanks and regards,
David

On 2021-01-10 23:23, Timothy Sipples wrote:

Brian Westerman asks:

Is anyone using IBM's Cloud Tape Connector product that can tell me
about the software requirements for it?  Is it just the product that
needs to be licensed under z/OS, or do you need to license so "other"
stuff as well?

I can answer the licensing questions unofficially, i.e. based on my best
understanding. In the hopefully unlikely event IBM officially communicates
something at odds with what I'm writing, of course that'd be controlling.

IBM Cloud Tape Connector for z/OS does not have any particular software
product prerequisites or co-requisites except the base z/OS operating
system. Reference:

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSS6GQC_2.1.0%2Fconcepts%2Fcuzucon_requirements.html&data=04%7C01%7C%7Cbb994afea3d94ffaea8708d8b5e8b9d2%7C84df9e7fe9f640afb435%7C1%7C0%7C637459358454931897%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=9a95aqrqtqJ9D1yqJUoEtAd8uOOwwBFuZE%2FcJvURMmQ%3D&reserved=0

As a practical matter you'll need a SAF-compatible security manager. The
z/OS Security Server (RACF) is my favorite, but there are at least three
choices. You're highly likely to need some cloud object storage targets,
on and/or off premises, which may have their own licensing or subscription
requirements. However, there are sometimes free tiers available. IBM Cloud
Object Storage, for example, offers a free "Lite" tier that could serve as
a test target at least.

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fcloud%2Fobject-storage%2Fpricing&data=04%7C01%7C%7Cbb994afea3d94ffaea8708d8b5e8b9d2%7C84df9e7fe9f640afb435%7C1%7C0%7C637459358454931897%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Bwgxv2con7qADJs4iiBXN4g92f2El91YZAKtwdZ5jTQ%3D&reserved=0

You can license IBM Cloud Tape Connector for z/OS either separately (IBM
Program No. 5698-ABM) or as part of the IBM Advanced Storage Management
Suite for z/OS (5698-AAJ). License quantities are based on Value Unit
Exhibit 007 (VUE007). It's z/OS-based subcapacity licensing eligible,
including Tailored Fit Pricing eligible. On/Off Capacity On Demand (CoD)
licensing is also available. If you'd like me to elaborate on any of these
parts, just ask.

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

Re: [External] Re: Build and submit proc

[David Spiegel]

Hi Gil,
It's not UNIX for more than one reason:
- UNIX has no drive letter
- UNIX uses a forward-slash, not, a backward-slash
- UNIX does not have File Extensions (although theoretically it could)

Regards
David

On 2020-12-24 17:58, Paul Gilmartin wrote:

On Thu, 24 Dec 2020 22:14:15 +, Seymour J Metz wrote:


Eunix has even less typing:

Thu 12-24-20 12:49:37{2}[h:\] cp --help
Usage: G:\USR\BIN\cp.exe [OPTION]... [-T] SOURCE DEST
  or:  G:\USR\BIN\cp.exe [OPTION]... SOURCE... DIRECTORY


That doesn't look much like UNIX to me.  I guess that's the difference
between UNIX and Eunix.

-- 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: Build and submit proc

[David Spiegel]

Hi Fred,
The interpretation of JCL occurs before the execution starts. Hence, 
your result.
If you were to SUBMIT your JCL to the internal reader in STEP02 (rather 
than trying to execute the BKUP Cataloged Procedure), the new job  would 
read the updated BKUP PROC.


Regards,
David

On 2020-12-22 12:11, Fred Kaptein wrote:

Hello,
I would like to build a JCL batch job called BACKUPS, that does the following:
1) STEP01
 Create a JCL proc in MYLIB.PROCLIB(BKUP)
2) STEP02
 Execute the proc MYLIB.PROCLIB(BKUP)

My testing finds that STEP02 runs the proc in MYLIB.PROCLIB(BKUP) that was 
built prior to submitting job BACKUPS.

Is there a way to do these two steps in one job and not two?

Thanks

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


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

ZEKE15B Asistance

[David Spiegel]

Hi,
Does anyone have experience with coding ZEKE15B (security exit for ASG  
ZEKE)?
In particular, I'd like to set a SLIP to look at the registers and 
storage at the time of invocation.


Also, other than having the load module in the //STEPLIB or LNKLST, are 
there parameter(s) that need to be set to have ZEKE15B executed?


Thank you in advance.

Regards,
David

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

Re: IXGLOGR - system logger

[David Spiegel]

Hi Pierre,
I've run into this before.
It happens because, the logger uses UNIT=SYSDA.
If you add all of your STORAGE Volumes to UNIT=SYSDA,, problem solved.

Regards,
David

On 2020-12-14 13:55, Pierre Fichaud wrote:

I am trying to connect the the system logger but get the following:

12.35.35 STC07110  IXG231I IXGCONN REQUEST=CONNECT TO LOG STREAM 
XX.Y.PRF1.MSGS  045
045 DID NOT SUCCEED FOR JOB PRF1.  RETURN CODE: 0008  
REASON CODE:
045 080C  DIAG1: 0004  DIAG2: 4714041D  DIAG3: 0107001B 
 DIAG4:
045 

4714 means that there is no space left on the volume.
How can I point the system logger to other VOLSERs?
The allocations always go to the same VOLSER.

And how can I tell the system that I have other VOLSERs available for TSO 
allocations ?

Thanks in advance, Pierre.

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

[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

[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

[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

[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

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

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

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

[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=&L.(&J.)
//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.

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

[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=&L.(&J.)
//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


--

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

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

[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=&L.(&J.)
//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.jpg&data=04%7C01%7C%7Cdbe10b7b8aec4101bfa808d88cbb5cf6%7C84df9e7fe9f640afb435%7C1%7C0%7C637414083644530352%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=FYz%2BlCiv3iZUyAe2nX4slghEUb0KeeVXqP5N0XIf9e4%3D&reserved=0]
https://eur05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.txfb-ins.com%2F&data=04%7C01%7C%7Cdbe10b7b8aec4101bfa808d88cbb5cf6%7C84df9e7fe9f640afb435%7C1%7C0%7C637414083644530352%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=JNd1ZAKxaoP09C8pfNjmBaumN7bDzppD3Yw4dTTetLo%3D&reserved=0

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

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

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

[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%2F&data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=v4lwbphN9UTToLQ7wK1xLpUcnmcl1LoWg2xzBCj%2F55s%3D&reserved=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%2520&data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3D&reserved=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%2520&data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3D&reserved=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%2F&data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Wu5oJl7x%2BwzrijrM9%2BNzMDNJugmLYPnQIc93qHKcuw4%3D&reserved=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 instr

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

[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

[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

[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.htm&data=04%7C01%7C%7Ca56a150920a8496a24f708d87360d67b%7C84df9e7fe9f640afb435%7C1%7C0%7C637386207048000830%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=aAbpMrMEEjDcjZVv6JSxQuQw30TaA1ix6tOrgaCFIuU%3D&reserved=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.htm&data=04%7C01%7C%7Cffe03d56aebe4262c3d308d8
7
31bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C6373859112847796
2
1%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI
6
Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPS
d
ryGpw8M8cBiwg%3D&reserved=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(*)"
&qu

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

[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.htm&data=04%7C01%7C%7Cffe03d56aebe4262c3d308d87
31bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C63738591128477962
1%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6
Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPSd
ryGpw8M8cBiwg%3D&reserved=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

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

[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.htm&data=04%7C01%7C%7Cffe03d56aebe4262c3d308d8731bfa0e%7C84df9e7fe9f640afb435%7C1%7C0%7C637385911284779621%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPSdryGpw8M8cBiwg%3D&reserved=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 instructio

Re: Cbttape - dataset being used

[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

[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

[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

[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

[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%2F&data=02%7C01%7C%7C784d39c728784d60543b08d8663a5b14%7C84df9e7fe9f640afb435%7C1%7C0%7C637371748105900192&sdata=ijSF4HpNgD4lFwe5t8oj5n4bbEO1UjVMXeytv8RSvG8%3D&reserved=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

[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.pdf&data=02%7C01%7C%7Cbb7567d9d7814551292208d8647855be%7C84df9e7fe9f640afb435%7C1%7C0%7C637369815298845667&sdata=MJHsTfV%2BqFlplSapgWpmCm11qEUSt3uRQHCTep3GxPY%3D&reserved=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

[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

[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~smetz3&data=02%7C01%7C%7Cdb4c227bfa7f486bc2f008d85ab86eda%7C84df9e7fe9f640afb435%7C1%7C0%7C637359095472893843&sdata=lE4zbYs8fbfko5TfxYBfnSac4cme6F%2B7Um47YsZsN5I%3D&reserved=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

[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

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

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

[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('&RACUID.**'/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

[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

[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

[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

[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_systems&data=02%7C01%7C%7C6fa1bedaf4bb4215188808d84eebd988%7C84df9e7fe9f640afb435%7C1%7C0%7C637346122168286714&sdata=WbBo0CYQaxXI%2B%2B8BSChV1384pI802SAupW8ye5QjTQw%3D&reserved=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

[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

[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~smetz3&data=02%7C01%7C%7Ce6ba2472a0494b9e207508d849a400c3%7C84df9e7fe9f640afb435%7C1%7C0%7C637340316055184199&sdata=4cUUhK2fOOpt3c8b4%2BBd%2BSIJzxNOAGY6S5iUSEEqOCY%3D&reserved=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

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

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

[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%2F&data=02%7C01%7C%7C1ecf9cb025e64e562a8f08d83876becd%7C84df9e7fe9f640afb435%7C1%7C0%7C637321429944562409&sdata=HevLSeeXiuLHxJwyH0zOJ65fIBnr5VGCP1DZodVDgSo%3D&reserved=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%2F&data=02%7C01%7C%7C1ecf9cb025e64e562a8f08d83876becd%7C84df9e7fe9f640afb435%7C1%7C0%7C637321429944562409&sdata=HevLSeeXiuLHxJwyH0zOJ65fIBnr5VGCP1DZodVDgSo%3D&reserved=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, 
i

Re: Query ESM from REXX

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

[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~smetz3&data=02%7C01%7C%7C6021693a92ca4c144c2f08d832421f55%7C84df9e7fe9f640afb435%7C1%7C0%7C637314606868155889&sdata=IL9519W%2FFddRjKEIuP9cn1z4JEz2HND1JmVk%2BVWpNn4%3D&reserved=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=&MODULE,REGION=0M,TIME=NOLIMIT,
   XX  PARM='POSIX(ON) ALL31(ON)/&PARMS'
   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

Re: Started task stopping immediately. No error messages.

[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=&MODULE,REGION=0M,TIME=NOLIMIT,
   XX  PARM='POSIX(ON) ALL31(ON)/&PARMS'
   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?

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

[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&M, 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-unit&data=02%7C01%7C%7C1f08f9d644ff4478e52508d82e5a8d55%7C84df9e7fe9f640afb435%7C1%7C0%7C637310313750326496&sdata=o2W5RPBIlDxJdEtgYt8W%2BlOzErmp8kN5apiWIkk624A%3D&reserved=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?

[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&M, 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?

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

[David Spiegel]

Hi Israel AMV"SH,
Shavua Tov!
A side point ... If SYS1.PARMLIB is CATALOGd via a Symbolic (e.g. 
&SYSR1) 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 &SYSRS1 and &SYSRS2, 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%23USRLOCALLOCALHIERARCHY&data=02%7C01%7C%7C9d3dc01b67ef44ab8c8808d82640a954%7C84df9e7fe9f640afb435%7C1%7C0%7C637301406451711143&sdata=I0CvGO6pfyxJAx8hwrhR%2Ft5qlflYoYpIIBumuYthphQ%3D&reserved=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%2F&data=02%7C01%7C%7C9d3dc01b67ef44ab8c8808d82640a954%7C84df9e7fe9f640afb435%7C1%7C0%7C637301406451711143&sdata=WC2ujOQpU648IeVHcGW9mK6PnvYyYczjuHufB06Wn%2Bo%3D&reserved=0

Dulcius ex Asperis




-

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

[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%2F&data=02%7C01%7C%7Cc20ba429ef0e4517255f08d824e51736%7C84df9e7fe9f640afb435%7C1%7C0%7C637299913653415409&sdata=hVbYEVxYZ%2BY7xqxrthC6GkLCreItpCz08GDmgOZXO5U%3D&reserved=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%2F&data=02%7C01%7C%7Cc20ba429ef0e4517255f08d824e51736%7C84df9e7fe9f640afb435%7C1%7C0%7C637299913653425397&sdata=zK86Os3rOOOqCLn6m3F7F1NTIO0j6stji3GcBkfWOZI%3D&reserved=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

[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.pdf&data=02%
7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435a
aaa%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpP
PIXMcSfXd0BZUtBrqf0a8s%3D&reserved=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.pdf&data=02%7C01%7C%7Cc1ba10f375ae
4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C6372
98652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOK
Ck%3D&reserved=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 
c

Re: ISPF 3.4 DSLIST questions

[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.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpPPIXMcSfXd0BZUtBrqf0a8s%3D&reserved=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.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOKCk%3D&reserved=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 

Re: SuperWylbur Users

[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_18&data=02%7C01%7C%7C6ac9a5ba28e04769d61f08d823bc51ad%7C84df9e7fe9f640afb435%7C1%7C0%7C637298639011683886&sdata=STK3M%2B4F2X6FlAfVm2cjN5WMgyR7kyYH1bWoLsTbNeQ%3D&reserved=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

[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.&SYSDATE..&SYSTIME 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 LNKL

Re: SuperWylbur Users

[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-friends&data=02%7C01%7C%7C6ce4721ad7de46a4d74908d8237d19a1%7C84df9e7fe9f640afb435%7C1%7C0%7C637298367511061503&sdata=hHlHH8doCTvQPoZqlyKvbvHprP8eEnck5JuoWoh3SJk%3D&reserved=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

[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-friends&data=02%7C01%7C%7C18bdfcd062254ca256d008d8236c669e%7C84df9e7fe9f640afb435%7C1%7C0%7C637298295792505848&sdata=ybsKDKHqNbzz9n5xhKEcwGIFCKNu3RrbuiC1hbvaPB8%3D&reserved=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

[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~smetz3&data=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699&sdata=ZQ4dobwcoLWi2W%2BDqrnTKm9QYY8JWJowzuipjpnRMf4%3D&reserved=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%252F&data=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699&sdata=RdiQ3r62LbdaVJChYU6ij%2BcqHDKVE9B7RW6jrfGzbEU%3D&reserved=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%25A2&data=02%7C01%7C%7Cf798ed74996d4ba22c1008d82337da14%7C84df9e7fe9f640afb435%7C1%7C0%7C637298070104308699&sdata=NQY1SIBbRqhhO%2FKvsdgAp0Wbo3LHeHrUSHmBVOgwrBg%3D&reserved=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

[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

[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

[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

[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

[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

[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

[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

[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

[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=&SYSUID,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=&SYSUID,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

[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 ... )]

[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

[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

[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.&SYSDATE..&SYSTIME 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 perfor

Re: SMPe Apply not working

[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

[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

[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