Hi,
Does anyone know of a way to activate an SMS configuration in batch?
I know I can issue the SETSMS SCDS(xx) command in batch, but I am long for a
way that will wait until the activation is complete before continuing to the
next step.
We are running z/OS v2.2
Thanks
Gadi
Hi Wayne!
If you'd like to recompile that C code too - just drop us a note!
Newer versions of Systems/C have better optimization too!
- Dave Rivers -
Wayne Bickerdike wrote:
We're going through the COBOL 6 compile exercise, on a Z13. The only
hiccups have been source control and the odd
In the USS REXX SYSCALL environment, is it normal for a command such as:
open /u/xx35/test, o_rdwr+o_creat+o_trunc, 755
To return a file descriptor of 0 (zero)?
The reason I ask is that the subsequent write fails with
RC 71 RSN 571011C
Which basically says: file is not opened
I thought fd 0 i
On Thu, 14 May 2020 00:59:04 +0200, R.S. wrote:
>
>However still I have no idea about system support. How to write data on
>diskette, how to read from diskette, how to recognize volume ID, etc.
>No, I'm not going to use it, but I'm just curious.
>
I only used 3540 on a DOS/VSE system. They could
I assume that you mean Unix syscall environment. The documentation is a bit
confusing, because the syscall commands set RETVAL, which is the behavior
associated with a function. Are you looking at RC or at RETVAL? could you show
your code? Are you running from IRXJCL, TSO or a Unix shell?
My g
Before launch IBM 3540 Diskette Unit (could write and read floppy 8 pol disks
and connected to a /370 parallel channel) after recording diskettes using IBM
3741 (single operator station) or IBM 3742 (double operator station) was
necessary to move data from them to a tape reel using IBM 3747 Conv
W dniu 14.05.2020 o 12:43, Gadi Ben-Avi pisze:
Hi,
Does anyone know of a way to activate an SMS configuration in batch?
I know I can issue the SETSMS SCDS(xx) command in batch, but I am long for a
way that will wait until the activation is complete before continuing to the
next step.
We are r
I have a peculiar question and hope the answer is easily found in this
group. Looking at these highlighted values
08.17.38 JOB57837 DJMU2DF:DB01900I - MUF
DJMU2DF,99,NO
08.17.38 JOB57837 DJMU2DF:DB01909E - *
- ASTERISK 682
682 POINTS NEAR ERRO
The formatting of the messages is a console function, not a JES function, and
is driven by parameters on the WTO macro and by how you are configured. One of
the options is ulti-line WTO and, AFAIK, there is no COBOL support for it.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
_
I'm too young to remember it, but in Poland there was very popular "key
to media" solution called SeeCheck from Redifon (UK company, famous for
flight simulators). It was multi-site solution. Other names were Entrex
480 or DATENSAMMELSYSTEM 620 (Nixdorf branded). Also some polish MERA
was a clo
All of the discussion of the 3540 reminded me of some older devices. Does
anybody remember IEBCTRIN? How about the key-to-tape devices from UNIVAC back
in the 1950s?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
--
Sorry Yes Unix System Services.
The code isn’t mine. It’s from IBM DBB which can be found here,
https://github.com/IBM/dbb/blob/master/IDE/GitISPFClient/sbgzexec/bgzinit.rexx
I can’t reproduce the problem with some sample code I cobbled up.
On Thu, May 14, 2020 at 8:46 AM Seymour J Metz wrote
The first thing I don't understand is the order of the code. Shouldn't the
syscalls('ON') come before Address SYSCALL 'readdir 'BGZUSDIR' ls. lsst.'?
OTOH, the code is looking where it should for the FD.
TSO doesn't create file descriptors, so an FD of 0 is what I would expect
calling the code
When using the JCL COMMAND statement, I think it gets executed as soon as
the job hits the Internal reader and may not execute on the system you want
it on. Worth testing it out.
Do you have any automation tools?
With CA OPS/MVS I have an MSF Plex that allows me to ship commands to any
LPAR that
Just highlights the need for an IBM provided "command issuer" instead of
everyone rolling their own. I personally like using the ISFSLASH facilities
for that. Uses the user's access to validate authority. I've posted this
before, which I stole from somewhere else, and tweaked it a bit. I wi
This would be a great add for Naviquest. Perhaps this can get kicked around
at the next Share storage Free for All.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Gadi Ben-Avi
Sent: Thursday, May 14, 2020 6:43 AM
To: IBM-MAIN@LISTSE
This question came to me from a co-worker: Is there any API to get the byte
file size of a non-VSAM, non-zFS, non-database file in z/OS? I.E., byte file
size for plain sequential files?
I am aware of the "old way" of reading the VTOC of a volume to get the various
DSCB's that total up disk ext
That's putting the CART before the horse. The problem isn't issuing the
command, but waiting for initialization to complete.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List on behalf of
Jousma, David <0
Well you might consider a REXX solution. For NON-VSAM on DISK you can use
the LISTDSI command then convert tracks to bytes but using 1 Track = 56664
bytes
For VSAM I do a LISTC and search for H-A--RBA and HI-U-RBA that is in bytes
But not sure about an API that is available.
Lizette
-Orig
For the simple case where you want to issue some commands at a particular
point in a batch job, it's easy enough to just use IEBGENER or something to
copy JCL commands to INTRDR.
For the complex cases, the CONSOLE command provides plenty of
functionality, and can be fairly easily programmed with R
On Thu, 14 May 2020 14:58:27 +, Seymour J Metz wrote:
>The first thing I don't understand is the order of the code. Shouldn't the
>syscalls('ON') come before Address SYSCALL 'readdir 'BGZUSDIR' ls. lsst.'?
>OTOH, the code is looking where it should for the FD.
>
I suspect it doesn't matter.
No, and I'm not even sure what the question means. If what you want is the sum
of the record lengths then you have to read through the entire file and add up
the lengths. If you want to know how big it will look to a Unix application hen
you'll need to add the number of records to account for th
Maybe the Catalog Search Function (CSI) might be able to help.
See it that could be something usable
Lizette
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz
Sent: Thursday, May 14, 2020 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there any
Thanks Lizette, I had forgotten about LISTDSI. The context here was a need for
an API callable from a batch COBOL program, but that could be done too, if
somewhat clumsily due to the requirement for LISTDSI to be executed in a TSO
environment.
I sent my co-worker on a search at cbttape.org for
I think the bottom line is that there is no single guaranteed perfect
method, but depending on what your need is there may be an adequate solution
(as suggested by the other replies).
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Beha
On Thu, 14 May 2020 16:31:45 +, Farley, Peter x23353 wrote:
>Thanks Lizette, I had forgotten about LISTDSI. The context here was a need
>for an API callable from a batch COBOL program, but that could be done too, if
>somewhat clumsily due to the requirement for LISTDSI to be executed in a T
Neither of those address the OP's question: how to issue the command AND WAIT
for the configuration change to take effect.
Oh, BTW, "CART before the horse" was a pun that already referred to CONSOLE,
but CONSOLE by itself doesn't solve the problem.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.
Thanks, Shmuel; now that I have some place to look, I think I will be fine
from here.
Don Johnson
On Thu, May 14, 2020 at 10:03 AM Seymour J Metz wrote:
> The formatting of the messages is a console function, not a JES function,
> and is driven by parameters on the WTO macro and by how you are
Of course it does not matter to COBOL!
But it might matter to one or more applications that might just happen to be
written in COBOL!
No disrespect @Gil but this kind of answer drives me crazy. One thinks about a
problem. It is a big and complex problem with multiple unknowns and tradeoffs.
Th
> The OP's command is not valid REXX. However, the original code was
'open' path,
O_rdwr+O_creat+O_trunc,
755
and *that* is valid; the commas are continuation characters.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
It is very common for someone with a problem to assume that it has to be fixed
in a certain way, and to ask about that way rather than the actual problem.
Asking for clarification never hurts, and often helps.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
___
I hear you @Shmuel and agree, but "why does it have to be solved in COBOL?"
Well gee, I would guess because the application that needs to know is
already written -- and it's written in COBOL.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Thu, 14 May 2020 17:26:28 +, Seymour J Metz wrote:
>> The OP's command is not valid REXX. However, the original code was
>
>'open' path,
> O_rdwr+O_creat+O_trunc,
> 755
>
>and *that* is valid; the commas are continuation characters.
>
I did n
There's cleverness and there's glitz; they're not the same modern e-mail
clients have lots of glitz and very little cleverness. A clever client makes it
easy to do what you need to do, doesn't automatically do things that you
shouldn't be doing and gives unobtrusive feedback when you do somethin
That wasn't what he wrote, but I agree that it could have been phrased better.
Still, the question is relevant; if we (TINW) knew why the OP was asking and
what was behind his question, we would be better positioned to address the
underlying problem.
--
Shmuel (Seymour J.) Metz
http://mason.gm
I dont see why you cant just call IDCAMS in batch (regardless of the
language used) and get the file size from the catalog?
Joe
On Thu, May 14, 2020 at 1:16 PM Seymour J Metz wrote:
> That wasn't what he wrote, but I agree that it could have been phrased
> better. Still, the question is relevan
That will only work for VSAM datasets. The information request by the OP is not
in the catalog for non-VSAM datasets.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Joe
Monk
Sent: Thursday, May 14, 2020 1:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there any
He wants NON VSAM - which is why I suggested to REXX to use LISTDSI
But there might be other functions on CBTTAPE.ORG that might be useful
Lizette
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Joe
Monk
Sent: Thursday, May 14, 2020 11:22 AM
To: IBM-MAIN@LISTSERV.U
The Catalog/VVDS data for VSAM can be wrong or out of date. These fields are
only updated on successful close. So, you can't count on it for files actively
updated by long running tasks, or tasks that end without properly closing the
VSAM files.
> -Original Message-
> From: IBM Mainfra
Because the information that he's asking for isn't in the catalog.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joe
Monk [joemon...@gmail.com]
Sent: Thursday, May 14,
Rightfully people would like to know what the purpose is. It isn’t
simply a question of acquiring the info, but also what you intend to do about
it afterwards. Since the question pertains to COBOL I’m guessing they haven’t
thought that far ahead
It is easy to say that a COBOL program needs to “know” this but it is
nonsense since there is nothing a COBOL program can do with this info.
If it turns out to really be necessary then a subroutine can be written (as it
has been done for decades) to provide this information.
If you just wanted to wait until the SETSMS command was comple you could do it
with CONDOLE, but AFAIK SETSMS and SET SMS= hand off the request to an SMS
address space and complete before the change is in effect. My guess is that the
only way is wait for a message from SMS.
--
Shmuel (Seymour
On Thu, 14 May 2020 18:52:09 +, Gerhard adam wrote:
>
> It is easy to say that a COBOL program needs to “know” this but it is
> nonsense since there is nothing a COBOL program can do with this info.
>
It could print it in a report.
I suspect cultural familiarity, the complement of
You said: "... you could do it with CONDOLE ..."
Qu'est-ce que c'est "CONDOLE" (is he related to Bob Dole or Dole pineapple)?
On 2020-05-14 14:52, Seymour J Metz wrote:
If you just wanted to wait until the SETSMS command was comple you could do it
with CONDOLE, but AFAIK SETSMS and SET SMS= han
I was giving my CONDOLEnces to the CONSOLE. BTW, that wasn't the only typo.
It was the keyboard. That's my story and I'm sticking to it.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.ED
Gentle listers, it's not that big a deal. As to why my co-worker wants that
information or what they think they need to do with it, I do not know nor did I
think to ask, as it was just phrased as "can I get this information from a
batch COBOL program?". And I did not have the luxury of time to
There is lots it could do! Make a decision on "strategy" based on the volume of
input, for example. Do I process it all or cut off after 'n' records and do
more on the next run? Do I read the file into an in-memory table and access
records there, or do I load it into a VSAM file for direct acces
Yep,
REXX and CONSOLE and
D SMS
trap and parse for time in all LPARS.
ACTIVATE new SCDS .
Wait the appropriate number of seconds for all LPARS to update.
D SMS
trap and parse and verify all LPARS are current, if not , D SMS again.
Been a long time since activation has failed .
Navi quest can d
Really? There’s lots that it could do? So why not just read the DSCB
for how much is free and do the calculation that has been on every 3390
Reference card for 30 years
This is done all the time and in a variety of ways. This problem was readily
assessed for decades usi
If a shop doesnt have automation, there are plenty of freebies that will
do the job. Tom Brennans Vista can even be programmed to look for text on a
screen and issue a command. REXX and ISFSLASH command issuance with a
suitable time delay should suffice.
On Fri, May 15, 2020, 07:00 Doug wrote:
Oh geez, CONSOLE and it must be getting really close to Friday too.
Pineapple
.
On May 14, 2020, at 15:39, David Spiegel wrote:
You said: "... you could do it with CONDOLE ..."
Qu'est-ce que c'est "CONDOLE" (is he related to Bob Dole or Dole pineapple)?
> On 2020-05-14 14:52, Seymour J Metz
Again, you're giving the right answer to the wrong question. The OP did not ask
how many tracks were allocated, he asked for the file size in bytes. Since the
OP hasn't told us why he wants the information, it is presumptuous to presume
that he should shut up and use something different from wha
If TSSO still works, its price is attractive.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Wayne Bickerdike [wayn...@gmail.com]
Sent: Thursday, May 14, 2020 5:23 PM
T
EXECIO in REXX will give you the record count in stem zero. For FB you
obtain LRECL using LENGTH function. Multiply the two. No good for VB, so
that would require reading whole file.
On Fri, May 15, 2020, 07:05 Gerhard adam wrote:
>
>
>
>
> Really? There’s lots that it could do? So
I'd probably use TSSO, but there are many options. The important part is to
know what messages to watch for.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Doug [dsh..
> EXECIO in REXX will give you the record count in stem zero
I believe only by reading the entire file.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Wayne Bickerdike
Sent: Thursday, May 14, 2020 2:31 PM
To: IBM-MAIN@LISTS
Well then, that is a good answer to his question, so why don't you suggest
that? (Actually, you have.) The fact that there is a good answer does not make
it a bad question.
(Good answer subject to some limitations that have been discussed.)
Charles
-Original Message-
From: IBM Mainfra
Shmuel,
Did you miss my answer? I got it sent back to me from the list at 4:41PM EDT.
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz
Sent: Thursday, May 14, 2020 5:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there any z/OS API to get by
Hi,
Because of auditor demands we are no longer able to run TSO USS commands
that require UID=0, so I attempting figure out how to run USS commands
in under BPXBATCH. The following is a job to debug the unmount command
in batch but I have been unsuccessful so far. I am hoping that I am
d
I've got it now.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Farley, Peter x23353 [peter.far...@broadridge.com]
Sent: Thursday, May 14, 2020 6:10 PM
To: IBM-MAIN@LIS
Who is "we", exactly what were the auditors' demands and did you discuss the
issues with your management?
What you have in stdparm is not a long parameter but a sequence of parameters.
Is that legal, or will BPXBATCH take all of the input after the initial sh as
one long command?
--
Shmuel (
On Thu, 14 May 2020 20:23:20 -0400, Jon Bathmaker wrote:
>
>
>//STDERR�� DD SYSOUT=*
>
>//STDOUT� �DD SYSOUT=*
>
>//STDPARM� DD *
>
>SH su
>
>SH echo $PATH
>
>SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS
>
>Here is the contents of STDERR when the job runs.
>
>FSUM5023 su: User ID "SH" do
On Thu, 14 May 2020 18:11:12 +, Seymour J Metz wrote:
>There's cleverness and there's glitz; they're not the same modern e-mail
>clients have lots of glitz and very little cleverness. A clever client makes
>it easy to do what you need to do, doesn't automatically do things that you
>shouldn
IDCAMS command DCOLLECT for the dataset name into a file then read the
file. Divide by about 55k to get the number of tracks used. Assume
all tracks are full and the partial track would be the error amount.
On Thu, May 14, 2020 at 4:27 PM Lizette Koehler wrote:
>
> Maybe the Catalog Search Func
The OP didn't ask for a size in tracks and didn't ask for an approximation. All
of this is guesswork unless and until he knows more and is allowed to tell us.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [I
On 5/14/2020 8:23 PM, Jon Bathmaker wrote:
Hi,
Because of auditor demands we are no longer able to run TSO USS commands
that require UID=0, so I attempting figure out how to run USS commands
in under BPXBATCH. The following is a job to debug the unmount command
in batch but I have been uns
On Thu, 14 May 2020 22:21:27 -0400, Tom Conley wrote:
>
>Try setting up sudo to do the command all at once. "sudo unmount.".
>Using su requires a password that you would not want in the clear.
>
That setup might be in /etc/sudoers or in a RACF BPX.SUPERUSER
privilege class.
https://www.ibm
On 5/14/2020 5:23 PM, Jon Bathmaker wrote:
//STDPARM DD *
SH su
SH echo $PATH
SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS
The above looks wrong to me. I always do it this way:
//STDPARM DD *
SH su;
echo $PATH;
unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS
--
Phoen
> EXECIO in REXX will give you the record count in stem zero
I believe only by reading the entire file.
On Fri, May 15, 2020 at 8:02 AM Charles Mills wrote:
> > EXECIO in REXX will give you the record count in stem zero
>
> I believe only by reading the entire file.
>
> Charles
>
Agree Charles
70 matches
Mail list logo
