Re: MVS modify command capture

[Ed Jaffe]

On 8/27/2020 3:29 AM, David Spiegel wrote:

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



Why does it matter to my EMCS console if some other message destination 
is experiencing a slow down? Hint: It doesn't.


Despite its irrelevancy, the answer to your question is of course that 
an EMCS console can *absolutely* receive solicited or unsolicited 
messages that do not go to the hardcopy log. The simplest example is one 
that occurs every second of every day in nearly every shop in the world 
where unsolicited WTP (route code 11) messages are rightly suppressed 
from the hardcopy log. It might be valuable to review the ROUTCODE 
parameter on your HARDCOPY statement in CONSOLxx to see how yours is 
configured.


In addition, our software takes advantage of WTO with MCSFLAG=NOCPY to 
return solicited response messages to EMCS requesters without the 
console request or server response appearing on hardcopy log no matter 
how things are configured.



--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

[Seymour J Metz]

 1. I'd like to see Invoking SDSF refer to Chapter 5 
 2. I'd like to see Invoking SDSF mention the automatic invocation
of SDSF in, e.g., IRXJCL.


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



From: IBM Mainframe Discussion List  on behalf of Rob 
Scott 
Sent: Thursday, August 27, 2020 4:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

Chapter 5 of the SDSF User's Guide is entitled : "Using SDSF with the REXX 
Programming Language"

What improvements do you wish to see in the manual?

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 7:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



I guess that it's time for an RCF; invoking SDSF in 
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf<https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf>
 only mentions the first two.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Rob 
Scott mailto:rsc...@rocketsoftware.com>>
Sent: Wednesday, August 26, 2020 11:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

SDSF has distinct environments that it natively supports on z/OS :


1. ISPF
2. TSO CPPL
3. Batch (and AFD)
4. REXX

The SDSF REXX interface will run where there is a valid REXX environment.

Note that the batch SDSF interface has been stabilised and we now encourage 
users to convert to SDSF REXX.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 3:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



That code has to run under SDSF, which is a TSO command. I don't know whether 
SDSF will run under a TSO subset environment.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>>>
 on behalf of Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu%3cmailto:000433f07816-dmarc-requ...@listserv.ua.edu>>>
Sent: Wednesday, August 26, 2020 9:40 AM
To: 
IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>>
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
> SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1 EXEC PGM=IKJEFT01
>//SYSEXEC DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=* <= change this to point to a dataset
>//SYSTSIN DD *
> %SDSFCMD D T

-- gil

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

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


Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://secure-web.cisco.com/14usLVOBAuKC2Xvunr2zTBq8YnvLniW6lcPbbgXnZzrYjDV7R1Nl1ZPULrLZji0U5hl-58dFfp2WhikUw27S8zpc_ptlQWHBp8dyD_f99BMfVVPv_iVXIEUly-kF2OwYLxp0aT7grZO6rZN7WuICkLiLDmlnlo3IQf7-au0HLenyqGOPfsGTe1QA2PHY5JlCObMQ

Re: MVS modify command capture

[Peter Relson]

Ed Jaffe's post was along the lines of what I was thinking as the right 
approach:

-- define a console
-- issue the command
-- capture messages sent to that console 
-- do what you want
-- undefine the console 

Some started tasks might send their output to the console that started 
them rather than to the console that issued the modify command.
The latter is probably what they should do.

There's also the possibility of using a WTO exit to capture "everything", 
figure out which are of interest and do what you want (as long as it is 
allowed within the exit).

Peter Relson
z/OS Core Technology Design


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

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

[Rob Scott]

Chapter 5 of the SDSF User's Guide is entitled : "Using SDSF with the REXX 
Programming Language"

What improvements do you wish to see in the manual?

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 7:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



I guess that it's time for an RCF; invoking SDSF in 
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf<https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf>
 only mentions the first two.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Rob 
Scott mailto:rsc...@rocketsoftware.com>>
Sent: Wednesday, August 26, 2020 11:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

SDSF has distinct environments that it natively supports on z/OS :


1. ISPF
2. TSO CPPL
3. Batch (and AFD)
4. REXX

The SDSF REXX interface will run where there is a valid REXX environment.

Note that the batch SDSF interface has been stabilised and we now encourage 
users to convert to SDSF REXX.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 3:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



That code has to run under SDSF, which is a TSO command. I don't know whether 
SDSF will run under a TSO subset environment.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>>>
 on behalf of Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu%3cmailto:000433f07816-dmarc-requ...@listserv.ua.edu>>>
Sent: Wednesday, August 26, 2020 9:40 AM
To: 
IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>>
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
> SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1 EXEC PGM=IKJEFT01
>//SYSEXEC DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=* <= change this to point to a dataset
>//SYSTSIN DD *
> %SDSFCMD D T

-- gil

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

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


Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://secure-web.cisco.com/14usLVOBAuKC2Xvunr2zTBq8YnvLniW6lcPbbgXnZzrYjDV7R1Nl1ZPULrLZji0U5hl-58dFfp2WhikUw27S8zpc_ptlQWHBp8dyD_f99BMfVVPv_iVXIEUly-kF2OwYLxp0aT7grZO6rZN7WuICkLiLDmlnlo3IQf7-au0HLenyqGOPfsGTe1QA2PHY5JlCObMQksCYY7av0mfqD9PnLCwVk2rXcd9DfknjeJCSrs2lxw1j4Yum18Dj2XoTHPyaV_iTijintf-nat-r7HoPCyKnFFvfOWk77aQgvQSdd5bwH_Iyoo1D-XkqqWpTAhE-BHEOoFWaJJ1NhOYSD6ikyYZ87Y5rUVGDUixo0jLtoazKCa_qMY2DS12t89MeVZaUKzQhELzejAPAzxlHKIu5qpwG5LK3V4kKQY5S4t7vhrr5Lfbs3HVyeMh8F5HeX3bjI/https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport<https://secure-web.cisco.com/14usLVOBAuKC2Xvunr2zTBq8YnvLniW6lcPbbgXnZzrYjDV7R1Nl1ZPUL

Re: MVS modify command capture

[Ed Jaffe]

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.


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

[Jesse 1 Robinson]

I understood Gil to be asking how I'm sure that I have all the data. DS 
QD,ONLINE is going after a large but finite amount of data. There are only so 
many online DASD volumes at any moment, and the number does not fluctuate from 
one run to the next. I can repeatedly issue DS QD,ONLINE and examine the 
results in SDSF. If Rexx CONSOLE shows the same count as syslog, then yes, I'm 
waiting long enough. 

When I wrote this app years ago (2013 I believe), the output did in fact get 
truncated. It wasn't time but storage. During a long and winding PMR, I learned 
that data returned by CONSOLE goes into a special storage bucket that is/was 
neither documented nor externally controllable. I found by trial and error that 
somewhere over 6K volumes, the storage bucket would overflow. There was no 
message, but I got RC 4. That's how I knew it failed. I don't think Level 2 had 
ever seen this failure. I suspect that the bucket got enlarged somewhere along 
the line, but it's still undocumented AFAIK. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Wednesday, August 26, 2020 6:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: MVS modify command capture

CAUTION EXTERNAL EMAIL

That 10 at the end of GETMSG is a wait time (ten seconds). GETMSG gets all or 
none (in my experience) of a multi-line message, so if that is what you are 
getting then the initial delay is all you need.

I started out with 1 and then went to 5 in my application, and both worked 
great when the system was not busy, but when it was -- which was the whole 
point of the thing -- detecting a busy system -- they were inadequate for the 
response to a $DQ,Q=XEQ. 60 seconds seems to be "long enough."

But @Gil is right -- how long is long enough? A minute? An hour? A week?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Wednesday, August 26, 2020 4:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

Shouldn't you have a delay in there to giv the started task time to process he 
CIB?


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

[Charles Mills]

That 10 at the end of GETMSG is a wait time (ten seconds). GETMSG gets all
or none (in my experience) of a multi-line message, so if that is what you
are getting then the initial delay is all you need.

I started out with 1 and then went to 5 in my application, and both worked
great when the system was not busy, but when it was -- which was the whole
point of the thing -- detecting a busy system -- they were inadequate for
the response to a $DQ,Q=XEQ. 60 seconds seems to be "long enough."

But @Gil is right -- how long is long enough? A minute? An hour? A week?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Wednesday, August 26, 2020 4:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

Shouldn't you have a delay in there to giv the started task time to process
he CIB?

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 19:03:10 -0500, Steve Beaver wrote:

>The only reason I can think of a case where the syslog is way behind.
> 
This is a symptom of IBM's indolent design.  Simply:
o Such a command shouldn't return to caller until it's complete and
  all its output is available.
o Or it should write an unambiguously identifiable end record.
o Or there should be a documented *practical* maximum delay
  needed to guarantee completeness.  ("An hour" is not practical.)


>> On Aug 26, 2020, at 18:51, Jesse 1 Robinson wrote:
>> 
>> I've never seen the need to code any delay beyond what Ed has written. I 
>> have a CONSOLE routine that does a DS QD for all the DASD volumes in the 
>> shop. It just keeps cranking until all results are in. 
>> 
How can you tell?

-- gil

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

[Steve Beaver]

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

Sent from my iPhone

I promise you I can’t type or
Spell on any smartphone 

> On Aug 26, 2020, at 18:51, Jesse 1 Robinson  wrote:
> 
> I've never seen the need to code any delay beyond what Ed has written. I 
> have a CONSOLE routine that does a DS QD for all the DASD volumes in the 
> shop. It just keeps cranking until all results are in. 
> 
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler 
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ⇐=== NEW
> robin...@sce.com
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> Seymour J Metz
> Sent: Wednesday, August 26, 2020 4:33 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: MVS modify command capture
> 
> CAUTION EXTERNAL EMAIL
> 
> Shouldn't you have a delay in there to giv the started task time to process 
> he CIB?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Ed Jaffe 
> Sent: Wednesday, August 26, 2020 5:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: MVS modify command capture
> 
>> On 8/26/2020 2:39 AM, 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
> What you want do is trivial using built-in facilities in REXX.
> 
> This example writes a stem to the end user. I assume you know how to write a 
> stem to a data set using EXECIO:
> 
> /* REXX */
> "CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO)"
> "CONSOLE ACTIVATE CART("||USERID()||")"
> address console "F STARTEDTASK,STATUS"
> rc = GETMSG('response.','SOL',USERID(),,10)
> do i = 1 to response.0;say response.i;end "CONSOLE DEACTIVATE"
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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

[Jesse 1 Robinson]

I've never seen the need to code any delay beyond what Ed has written. I have a 
CONSOLE routine that does a DS QD for all the DASD volumes in the shop. It just 
keeps cranking until all results are in. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 4:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: MVS modify command capture

CAUTION EXTERNAL EMAIL

Shouldn't you have a delay in there to giv the started task time to process he 
CIB?


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



From: IBM Mainframe Discussion List  on behalf of Ed 
Jaffe 
Sent: Wednesday, August 26, 2020 5:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On 8/26/2020 2:39 AM, 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
What you want do is trivial using built-in facilities in REXX.

This example writes a stem to the end user. I assume you know how to write a 
stem to a data set using EXECIO:

/* REXX */
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO)"
"CONSOLE ACTIVATE CART("||USERID()||")"
address console "F STARTEDTASK,STATUS"
rc = GETMSG('response.','SOL',USERID(),,10)
do i = 1 to response.0;say response.i;end "CONSOLE DEACTIVATE"


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

[Seymour J Metz]

Shouldn't you have a delay in there to giv the started task time to process he 
CIB?


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



From: IBM Mainframe Discussion List  on behalf of Ed 
Jaffe 
Sent: Wednesday, August 26, 2020 5:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On 8/26/2020 2:39 AM, 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
What you want do is trivial using built-in facilities in REXX.

This example writes a stem to the end user. I assume you know how to
write a stem to a data set using EXECIO:

/* REXX */
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO)"
"CONSOLE ACTIVATE CART("||USERID()||")"
address console "F STARTEDTASK,STATUS"
rc = GETMSG('response.','SOL',USERID(),,10)
do i = 1 to response.0;say response.i;end
"CONSOLE DEACTIVATE"

--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://secure-web.cisco.com/1icWInSv_rEgqrXbqQSs2rKkJsCZ7zMbjuZuqH9PZB2DK12VdA_7uCW-Vh0oahfmhuL1BjdQxw_vHqXqVJZ1Fo6sZQkOSW-7vWaTNu5qZyNY5HuNOISSLO9w1ghiXq1du1fbIS9ShggDaXi0MEST6z7hNRVtQNVh_SG1veS9p9Q2dWzpf1tf6osdl-gqMh2TZALyMoX398Imk61y1cPOkd7asqR0ZGM-H-6ZA9Vlb1j_5r5fDB5DHtghmnZUWRy6ADU9QDZMx2iWEyJvohuy_bEklxk6d0nMVHPgj3bjmWUGW-ROyd0j0LXk2MuKbXJVAULKFV4SAyeos7HS4k6aSVPpPb0xhfxjfivsqI09gg6w8jNpin_frxdUSE54rjarJpJHZcQfcVohUDcXgzqfHW6taAynDJIH67SewABcFBIcOL1CepL_6S0QheaWEeXX2/https%3A%2F%2Fwww.phoenixsoftware.com%2F



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: 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

[Bill Johnson]

Got it.c


Sent from Yahoo Mail for iPhone


On Wednesday, August 26, 2020, 5:56 PM, Ed Jaffe  
wrote:

On 8/26/2020 2:39 AM, 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
What you want do is trivial using built-in facilities in REXX.

This example writes a stem to the end user. I assume you know how to 
write a stem to a data set using EXECIO:

/* REXX */
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO)"
"CONSOLE ACTIVATE CART("||USERID()||")"
address console "F STARTEDTASK,STATUS"
rc = GETMSG('response.','SOL',USERID(),,10)
do i = 1 to response.0;say response.i;end
"CONSOLE DEACTIVATE"

-- 
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: 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

[Ed Jaffe]

On 8/26/2020 2:39 AM, 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

What you want do is trivial using built-in facilities in REXX.

This example writes a stem to the end user. I assume you know how to 
write a stem to a data set using EXECIO:


/* REXX */
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO)"
"CONSOLE ACTIVATE CART("||USERID()||")"
address console "F STARTEDTASK,STATUS"
rc = GETMSG('response.','SOL',USERID(),,10)
do i = 1 to response.0;say response.i;end
"CONSOLE DEACTIVATE"

--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 20:27:10 +, Seymour J Metz wrote:

>Well, here there's nothing to escalate; I've generally gotten good responses 
>from RCFs.
>
True.  I was just reminiscing.  So:
( ) TSO Rexx?
( ) UNIX Rexx?
( ) SDSF?
Check all that apply.  All 3 and let them work it out.

The Refs are pretty good at identifying the initial command environment;
not so much the list of all available.



>Where is that documented? 
>https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf
> only lists invoking SDSF from ISPF and directly from TSO.
>
Regardless:
Implementing REXX Support in SDSF
 (corrected omitted 
URL scheme)
... discusses both IRXJCL and UNIX.

-- gil

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

[Seymour J Metz]

Well, here there's nothing to escalate; I've generally gotten good responses 
from RCFs.


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, August 26, 2020 3:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 18:30:54 +, Seymour J Metz wrote:

>Where is that documented? 
>https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf
> only lists invoking SDSF from ISPF and directly from TSO.
>
That's reminiscent of the HLASM Tier 1 who was reluctant to accept my SR
because it matched no example in the HLASM Ref.  (I has invoked HLASM
from Rexx ATTCHMS ASMA90 whereas the Ref. showed only JCL examples.
You suggested then that I escalate; rather I recreated the problem with
JCL.)

Regardless:
Implementing REXX Support in SDSF
www.redbooks.ibm.com/redbooks/pdfs/sg247419.pdf
... discusses both IRXJCL and UNIX.


From: Paul Gilmartin
Sent: Wednesday, August 26, 2020 11:08 AM

No.  It is not using the TSO command SDSF but the Rexx command
environment SDSF.  I have done that directly under IRXJCL and z/OS
UNIX with no TMP involvement.  (I have not used ISFSLASH.)

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 18:30:54 +, Seymour J Metz wrote:

>Where is that documented? 
>https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf
> only lists invoking SDSF from ISPF and directly from TSO.
>
That's reminiscent of the HLASM Tier 1 who was reluctant to accept my SR
because it matched no example in the HLASM Ref.  (I has invoked HLASM
from Rexx ATTCHMS ASMA90 whereas the Ref. showed only JCL examples.
You suggested then that I escalate; rather I recreated the problem with
JCL.)

Regardless:
Implementing REXX Support in SDSF
www.redbooks.ibm.com/redbooks/pdfs/sg247419.pdf
... discusses both IRXJCL and UNIX.


From: Paul Gilmartin
Sent: Wednesday, August 26, 2020 11:08 AM

No.  It is not using the TSO command SDSF but the Rexx command
environment SDSF.  I have done that directly under IRXJCL and z/OS
UNIX with no TMP involvement.  (I have not used ISFSLASH.)

-- gil

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

[Seymour J Metz]

I guess that it's time for an RCF; invoking SDSF in 
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf
 only mentions the first two.


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



From: IBM Mainframe Discussion List  on behalf of Rob 
Scott 
Sent: Wednesday, August 26, 2020 11:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

SDSF has distinct environments that it natively supports on z/OS :


  1.  ISPF
  2.  TSO CPPL
  3.  Batch (and AFD)
  4.  REXX

The SDSF REXX interface will run where there is a valid REXX environment.

Note that the batch SDSF interface has been stabilised and we now encourage 
users to convert to SDSF REXX.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 3:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



That code has to run under SDSF, which is a TSO command. I don't know whether 
SDSF will run under a TSO subset environment.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Paul 
Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu>>
Sent: Wednesday, August 26, 2020 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
> SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1 EXEC PGM=IKJEFT01
>//SYSEXEC DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=* <= change this to point to a dataset
>//SYSTSIN DD *
> %SDSFCMD D T

-- gil

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

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


Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://secure-web.cisco.com/14usLVOBAuKC2Xvunr2zTBq8YnvLniW6lcPbbgXnZzrYjDV7R1Nl1ZPULrLZji0U5hl-58dFfp2WhikUw27S8zpc_ptlQWHBp8dyD_f99BMfVVPv_iVXIEUly-kF2OwYLxp0aT7grZO6rZN7WuICkLiLDmlnlo3IQf7-au0HLenyqGOPfsGTe1QA2PHY5JlCObMQksCYY7av0mfqD9PnLCwVk2rXcd9DfknjeJCSrs2lxw1j4Yum18Dj2XoTHPyaV_iTijintf-nat-r7HoPCyKnFFvfOWk77aQgvQSdd5bwH_Iyoo1D-XkqqWpTAhE-BHEOoFWaJJ1NhOYSD6ikyYZ87Y5rUVGDUixo0jLtoazKCa_qMY2DS12t89MeVZaUKzQhELzejAPAzxlHKIu5qpwG5LK3V4kKQY5S4t7vhrr5Lfbs3HVyeMh8F5HeX3bjI/https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://secure-web.cisco.com/1PfKvPH2Sldde0IZyj9pz_PJ2d5L1sptYaV7xG6l7BM7nVTBidsadqlbyIOGNlfIPGRcH3J4YyCnZMBBv4lsssxb8Lnu4OI4HYXoYlFkqCd4RrLNwdj-7yGzH5kv31_HYhB_vJ1mhFIBSzxuCNeDrgoHJEHgrf_wE-uS0I0Krdh6dcIyjIt7gAg0D9r45pHBDIBdY_-VayKU0WkfEZcpm42h72c0C07-EMH3fgfYorWErk-4yT64cN8f41olraX-EggHc3fJ795YorT-C-FiABLLkS6aODZfcsaB9CjoURf1r54vjA-ldB8yeeSFI25yfgb-DSxUYSGdfB0ucXCwNoGcpbAyVRS_pc3KxaAVGZLnBrdtz4BPIj7_cHOuniynBhwEbHvJAE5N6yscne43NtXQGuliYMjd9I1jgtKA8sFNm2-C6IYsrVasO825hd8uF/http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences
Privacy Policy - 
http://secure-web.cisco.com/1TmdsCpaocKkSgCBrylSbqluU7oxHIdfEmnBjEJlfJXwOs4-g-M0JFknd4tO41n_eDV_uXjgheJPKvT7xsvz3r0-ZK6w1hjWPALR5DRD1_o4qNh2hpujsKoqwOxCqUqH4b7ce1sBCVWMf1BWaeZmPL0bO6ZkLqgxOuEh19I04UKhFYqDg5Gvkvpfwk0fHwqCfYfBIC4wmbfcCbQtxPeHX6L2Ivfn14UrXMXkZCt2o8mSufqWkkd-u5rf8d_zpR3co5OVrAoKdEzZU-xGUGqBgT6XVV9GeLrl89c67SirB_sVl0T9ZO4hOSAuy6n6JXDnzGGtMnSWA-vD_IkN2-DaLhU6c5znKP_vByWkL2ZmiDg89KWZ51WywxCZYX2PC3rauaGvnHh8lZT6bZTRtLYBNkgeabnnecxm66mbNjizWeRQa6YbnZ0y1qbhUPtGzaeCg/http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software

Re: MVS modify command capture

[Seymour J Metz]

Where is that documented? 
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sc279028/$file/isfa600_v2r4.pdf
 only lists invoking SDSF from ISPF and directly from TSO.


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, August 26, 2020 11:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 14:50:41 +, Seymour J Metz wrote:

>That code has to run under SDSF, which is a TSO command. I don't know whether 
>SDSF will run under a TSO subset environment.

No.  It is not using the TSO command SDSF but the Rexx command
environment SDSF.  I have done that directly under IRXJCL and z/OS
UNIX with no TMP involvement.  (I have not used ISFSLASH.)

SDSF can otherwise be invoked under ISPF in which case it employs
ISPF display services with greater features than bare TSO.


>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS  = "MY@CONS"
> ...
> ADDRESS SDSF ISFSLASH "(cmd.)"

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

[Charles Mills]

Yeah, I meant "response to the MODIFY" in the loose sense to include any
resulting STC output, not in the formal sense of "MVS command response."
With regard to not using the CART, it's like A. A. Milne said in
Disobedience: if people are going to do that "well, what can anyone do?"

I'm not sure there is any reason to assume however that the STC does not use
the CART. It might not, but then again, it just might.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Wednesday, August 26, 2020 11:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

The OP does not need the response to the modify, but rather the output from
the task when it processes the text in the CIB. That might be difficult if
the task doesn't use the CART.

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

[Seymour J Metz]

The OP does not need the response to the modify, but rather the output from the 
task when it processes the text in the CIB. That might be difficult if the task 
doesn't use the CART.


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



From: IBM Mainframe Discussion List  on behalf of 
Charles Mills 
Sent: Wednesday, August 26, 2020 1:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

You know, I would think it would be possible -- nearly trivial -- to write a 
generic Rexx script that would issue any arbitrary console command, collect the 
results, and do "something" with those results -- where "something" was any of 
the things Rexx can do, such as writing it to a file. Would not be hard at all.

The script could append to a dataset named userid.CMDLOG (or whatever) and you 
would have an ongoing log of every console command that each userid ever 
entered, and the responses.

(No, not forensic-level. It assumes a trusted user. It would answer the 
question "what the heck was that command I issued, when did I do it, and what 
was the response?" not the question "we suspect Bob is a bad guy -- what did he 
do to our system and can we prove it?" Still would be useful.)

Or could append to SYS1.stcname.CMDLOG and you would have a log of every 
command ever issued to a particular STC name. (Again, not forensic.) Trivial to 
parse out the first operand of an F or P command.

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

[Seymour J Metz]

Why would you expect REXX to be started with SDSF in the table? SDSF is a TSO 
command and establishes an ISF environment; if it can run under IRXJCL and 
System REXX then it can run REXX scripts there..


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, August 26, 2020 1:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 15:06:08 +, Rob Scott wrote:

>SDSF has distinct environments that it natively supports on z/OS :
>
>
>  1.  ISPF
>  2.  TSO CPPL
>  3.  Batch (and AFD)
>  4.  REXX
>
>The SDSF REXX interface will run where there is a valid REXX environment.
>
I.e. Provided that Rexx is started with SDSF in the Host command environment 
table:
 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.ikja300/addrenv.htm

>Note that the batch SDSF interface has been stabilised and we now encourage 
>users to convert to SDSF REXX.
>
Batch SDSF amounts to background screen scraping.

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

[Charles Mills]

You know, I would think it would be possible -- nearly trivial -- to write a 
generic Rexx script that would issue any arbitrary console command, collect the 
results, and do "something" with those results -- where "something" was any of 
the things Rexx can do, such as writing it to a file. Would not be hard at all.

The script could append to a dataset named userid.CMDLOG (or whatever) and you 
would have an ongoing log of every console command that each userid ever 
entered, and the responses. 

(No, not forensic-level. It assumes a trusted user. It would answer the 
question "what the heck was that command I issued, when did I do it, and what 
was the response?" not the question "we suspect Bob is a bad guy -- what did he 
do to our system and can we prove it?" Still would be useful.)

Or could append to SYS1.stcname.CMDLOG and you would have a log of every 
command ever issued to a particular STC name. (Again, not forensic.) Trivial to 
parse out the first operand of an F or P command.

Charles

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 15:06:08 +, Rob Scott wrote:

>SDSF has distinct environments that it natively supports on z/OS :
>
>
>  1.  ISPF
>  2.  TSO CPPL
>  3.  Batch (and AFD)
>  4.  REXX
>
>The SDSF REXX interface will run where there is a valid REXX environment.
>
I.e. Provided that Rexx is started with SDSF in the Host command environment 
table:
 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.ikja300/addrenv.htm

>Note that the batch SDSF interface has been stabilised and we now encourage 
>users to convert to SDSF REXX.
>
Batch SDSF amounts to background screen scraping.

-- gil

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

[Barkow, Eileen]

If you could  issue the modify command under System Automation you would be 
able to trap the entire command and response and write them out
To  a dataset.  I  have clists that do this which I send you examples of.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Peter
Sent: Wednesday, August 26, 2020 5:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

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://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g
> mu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7C35cad466
> b7004ddd60d808d849a40237%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C
> 637340316053775096sdata=ODS3O2CG7GrZ1qGS6XW1LjQM5f5JZkXdZKYeD1lne
> RA%3Dreserved=0
>
>
> 
> From: IBM Mainframe Discussion List  on
> behalf of Peter 
> Sent: Wednesday, August 26, 2020 4:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: MVS modify command capture
>
> Hello
>
> I am trying to capture Modify command of a product which is running as
> started task.
>
> I tried issuing the command using IEFBR14 but it did not capture to a
> Dataset.
>
> Is there a way to capture a MODIFY command ?
>
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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



This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 14:50:41 +, Seymour J Metz wrote:

>That code has to run under SDSF, which is a TSO command. I don't know whether 
>SDSF will run under a TSO subset environment.

No.  It is not using the TSO command SDSF but the Rexx command
environment SDSF.  I have done that directly under IRXJCL and z/OS
UNIX with no TMP involvement.  (I have not used ISFSLASH.)

SDSF can otherwise be invoked under ISPF in which case it employs
ISPF display services with greater features than bare TSO.


>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS  = "MY@CONS"
> ...
> ADDRESS SDSF ISFSLASH "(cmd.)"

-- gil

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

[Rob Scott]

SDSF has distinct environments that it natively supports on z/OS :


  1.  ISPF
  2.  TSO CPPL
  3.  Batch (and AFD)
  4.  REXX

The SDSF REXX interface will run where there is a valid REXX environment.

Note that the batch SDSF interface has been stabilised and we now encourage 
users to convert to SDSF REXX.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, August 26, 2020 3:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

EXTERNAL EMAIL



That code has to run under SDSF, which is a TSO command. I don't know whether 
SDSF will run under a TSO subset environment.


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



From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Paul 
Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu<mailto:000433f07816-dmarc-requ...@listserv.ua.edu>>
Sent: Wednesday, August 26, 2020 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
> SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1 EXEC PGM=IKJEFT01
>//SYSEXEC DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=* <= change this to point to a dataset
>//SYSTSIN DD *
> %SDSFCMD D T

-- gil

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

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


Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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

[Dana Mitchell]

You could use a System REXX to issue the command and process the output, 
example:

/* REXX */

CmdResult=AXRCMD('F STARTEDTASK,STATUS','OUTPUTVAR.',40);
 
Do I = 1 to OUTPUTVAR.0
 
  Parse var OUTPUTVAR.I p1 p2 .
 
 /* do someting here */

  End
 
Return

Dana


On Wed, 26 Aug 2020 13:39:36 +0400, 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
>

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

[Seymour J Metz]

That code has to run under SDSF, which is a TSO command. I don't know whether 
SDSF will run under a TSO subset environment.


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Wednesday, August 26, 2020 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS  = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
>   SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1   EXEC PGM=IKJEFT01
>//SYSEXEC  DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=*<= change this to point 
>to a dataset
>//SYSTSIN  DD *
>   %SDSFCMD D T

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

[Paul Gilmartin]

On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl - 
> 
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?

> /*REXX*/ 
> blah = ISFCALLS('ON')
> ISFCONS  = "MY@CONS"
> ISFDELAY = "1"   
> PARSE ARG input  
> cmd.0=1  
> cmd.1=input  
> ADDRESS SDSF ISFSLASH "(cmd.)"   
> IF (ISFULOG.0 > 0) THEN  
> DO i=1 TO ISFULOG.0  
>   SAY ISFULOG.i  
> END  
> EXIT 0 
>
>and then the jcl to use - 
>
> //S1   EXEC PGM=IKJEFT01 
>//SYSEXEC  DD DISP=SHR,DSN=my.rexx.lib 
>//SYSTSPRT DD SYSOUT=*<= change this to point 
>to a dataset
>//SYSTSIN  DD *  
>   %SDSFCMD D T  

-- gil

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

[Roger Lowe]

On Wed, 26 Aug 2020 12:55:53 +0400, Peter  wrote:

>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 ?
>
You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl - 

 /*REXX*/ 
 blah = ISFCALLS('ON')
 ISFCONS  = "MY@CONS"
 ISFDELAY = "1"   
 PARSE ARG input  
 cmd.0=1  
 cmd.1=input  
 ADDRESS SDSF ISFSLASH "(cmd.)"   
 IF (ISFULOG.0 > 0) THEN  
 DO i=1 TO ISFULOG.0  
   SAY ISFULOG.i  
 END  
 EXIT 0 

and then the jcl to use - 

 //S1   EXEC PGM=IKJEFT01 
//SYSEXEC  DD DISP=SHR,DSN=my.rexx.lib 
//SYSTSPRT DD SYSOUT=*<= change this to point 
to a dataset
//SYSTSIN  DD *  
   %SDSFCMD D T  

Roger

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

[Seymour J Metz]

If you have a normal privilege level then you'll need to read the messages from 
the log or from the started task. Under SDSF you can display the started task, 
capture the messages with XDC and edit the output to remove extraneous messages.


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



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

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
> http://mason.gmu.edu/~smetz3
>
>
> 
> 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: 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~smetz3data=02%7C01%7C%7Ce6ba2472a0494b9e207508d849a400c3%7C84df9e7fe9f640afb435%7C1%7C0%7C637340316055184199sdata=4cUUhK2fOOpt3c8b4%2BBd%2BSIJzxNOAGY6S5iUSEEqOCY%3Dreserved=0



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

Hello

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

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

Is there a way to capture a MODIFY command ?

Peter

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

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


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


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

Re: MVS modify command capture

[Peter]

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
> http://mason.gmu.edu/~smetz3
>
>
> 
> 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

Re: MVS modify command capture

[Seymour J Metz]

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
http://mason.gmu.edu/~smetz3



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