Re: Auto Reply on SDSF Console

[Brian Westerman]

Using SyzMPF/z you would only need to code 3 lines in the script for message 
IEF455D:

IF WORD 02 = SP5145 | SP5146 | SP5147 | SP5149
  Reply ,NO
ENDIF


We count the words of a message starting with zero as the messageid and (in 
this case) the message itself is:
IEF455D MOUNT ser ON dev FOR jobname stepname OR REPLY ‘NO’
  w0  w1 w2  w3 w4   w5  w6  w7  w8  w9w10

So the word you want to check for is word 2 (the ser in the above).  The "" 
is automagically filled in with the outstanding replyID presented in the 
IEF455D message.  

Not only are Syzygy automation products MUCH less expensive than any of the 
other automation vendors, it's also a lot easier to use.

Brian

On Mon, 30 Nov 2020 11:15:20 +0300, saurabh khandelwal 
 wrote:

>Dear Group ,
>
>
>
>We have requirement to automate below manual reply comes in console every
>time, when we don’t find volume in our system and the standard reply to
>these message is  *Reply id, NO.*
>
>
>10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
>OR REPLY 'NO'l
>
>In this above message, whenever we get message id *IEF455D *on SDSF console
>and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
>SP5147, SP5149 *then immediately using automation we should reply
>
>With* reply id, no.*
>
>
>
>In order to do this, we created
>
>
>
>IF MSGID = 'IEF455D'
>THEN
>
>EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
>Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
>/* REXX  */
>
>trace r
>
>'PIPE SAFE * | STEM MSG.'
>
>TOvolume = Word( Msg,4 )
>
>MsgID = Word( Msg,1 )
>
>MsgID1 = substr(MsgID,2,2)
>
>
>
>volume =  'SP5145 ' ,
>
>   'SP5146 ' ,
>
>'SP5147 '
>
>
>
>Do i =  1 to Words(volume)
>
>comp_vol = Word(volume,i)
>
> If Strip(comp_vol) =  TOvolume Then
>
>
>
>But unable to complete this logic in to REXX. Can you please help in
>building this REXX, which can help in replying on console once the above
>mentioned criteria matches.
>
>
>
>*Regards*
>
>*Saurabh*
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: 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: Auto Reply on SDSF Console

[Steve Horein]

This guy gets it - "TOKEN" is useful, so long as the vendor doesn't change
the message layout.

On Mon, Nov 30, 2020 at 11:47 AM Cieri, Anthony <
02d7f4ec1fff-dmarc-requ...@listserv.ua.edu> wrote:

>
> You could try something like this:
>
> IF (LABEL:IEF455D) MSGID = 'IEF455D' & TEXT(1) = REPLYID .
> & (TEXT = .'SP5145'. | TEXT = .'SP5146'. | TEXT = .'SP5147'. |
> TEXT = .'SP5149'.)
> THEN EXEC(CMD('MVS REPLY ' REPLYID ',NO')
>  ROUTE(ONE AUTO1)) NETLOG(Y);
>
> With everything coded in the MAT, there is no need for a rexx!!!
>
> Hth
> Tony
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of saurabh khandelwal
> Sent: Monday, November 30, 2020 3:15 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Auto Reply on SDSF Console
>
> [[ SEI WARNING *** This email was sent from an external source. Do not
> open attachments or click on links from unknown or suspicious senders. ***
> ]]
>
>
> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console every
> time, when we don’t find volume in our system and the standard reply to
> these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
> OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF
> console and on 4th place in this line, we get volume name* SP5145 or SP5146
> , SP5147, SP5149 *then immediately using automation we should reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in
> building this REXX, which can help in replying on console once the above
> mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: 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: Extraneous blanks in SDSF issued command

[Paul Gilmartin]

On Mon, 30 Nov 2020 23:03:25 +, Seymour J Metz wrote:

>It's not just IBM that has never heard of orthogonality.
>
Ah!  meta-orthogonality!

FOSS is somewhat immune.  Requesters needn't provide a
revenue justification because revenue is not a concern.

-- gil

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

[Seymour J Metz]

It's not just IBM that has never heard of orthogonality.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 5:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

On Tue, 1 Dec 2020 08:14:06 +1100, Attila Fogarasi  wrote:

>SKIP(ON) is the ISPF panel field attribute that causes automatic skip to
>next field when the cursor reaches the end of a field (SKIP(OFF) is the
>default).  I'm not 100% sure about your second question (insert spanning
>
Not needed.

>fields) but AFAIK insert is limited to a single field (it certainly was in
>the original hardware).  Normally a scrollable area would be used instead
>of 2 fields when they are actually 1 field logically.  Not sure that all
>3270 emulators work correctly with the fancier data streams (or rather,
>I've run into lots of problems doing this).
>
IBM seems determined to inconvenience users of wide screens.  The
"ISPF Command Shell panel (ISRTSO)" (see illustration):

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.f54u200/chap9.htm

... provides a single field covering 3 lines on an 80-column screen so
insertion simply works up to the size of the field.

This answers Rob's concern; Yes, it's possible.

On a wider screen, the panel is formatted in a "pillarbox" (GIYF) and
insertion works only within a single line.  When I ranted about this
(on ISPF-L?) experts advised me, "Oh you need ISRTSOA":

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.f54pc00/isppc115.htm

...  Hmmm.  Configuration option; not available to mere mortal users.
But I copied ISRTSOA into my private ISPPLIB and renamed it.  All
better.  ISPF 3.17 suffers a similar misdesign in its entry panel with
wide screens for a poor reason.


>On Tue, Dec 1, 2020 at 7:29 AM Rob Scott wrote:
>
>> In your example, assuming that the input field spans two lines :
>>
>> (1) When the user starts to type on the first line and gets to the end of
>> the input field in the line, is the input skipped to the next line?
>>
>> (2) If there is existing data on the second line and the user attempts to
>> insert data on the first line, does the data on the second line shift to
>> accommodate the inserted bytes.
>>
>> If both the above are satisfied, then I would doff my cap to you and
>> implement a solution based on that in the next release.

-- 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: Extraneous blanks in SDSF issued command

[Paul Gilmartin]

On Tue, 1 Dec 2020 08:14:06 +1100, Attila Fogarasi  wrote:

>SKIP(ON) is the ISPF panel field attribute that causes automatic skip to
>next field when the cursor reaches the end of a field (SKIP(OFF) is the
>default).  I'm not 100% sure about your second question (insert spanning
>
Not needed.

>fields) but AFAIK insert is limited to a single field (it certainly was in
>the original hardware).  Normally a scrollable area would be used instead
>of 2 fields when they are actually 1 field logically.  Not sure that all
>3270 emulators work correctly with the fancier data streams (or rather,
>I've run into lots of problems doing this).
>
IBM seems determined to inconvenience users of wide screens.  The
"ISPF Command Shell panel (ISRTSO)" (see illustration):

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.f54u200/chap9.htm

... provides a single field covering 3 lines on an 80-column screen so
insertion simply works up to the size of the field.

This answers Rob's concern; Yes, it's possible.

On a wider screen, the panel is formatted in a "pillarbox" (GIYF) and
insertion works only within a single line.  When I ranted about this
(on ISPF-L?) experts advised me, "Oh you need ISRTSOA":

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.f54pc00/isppc115.htm

...  Hmmm.  Configuration option; not available to mere mortal users.
But I copied ISRTSOA into my private ISPPLIB and renamed it.  All
better.  ISPF 3.17 suffers a similar misdesign in its entry panel with
wide screens for a poor reason.


>On Tue, Dec 1, 2020 at 7:29 AM Rob Scott wrote:
>
>> In your example, assuming that the input field spans two lines :
>>
>> (1) When the user starts to type on the first line and gets to the end of
>> the input field in the line, is the input skipped to the next line?
>>
>> (2) If there is existing data on the second line and the user attempts to
>> insert data on the first line, does the data on the second line shift to
>> accommodate the inserted bytes.
>>
>> If both the above are satisfied, then I would doff my cap to you and
>> implement a solution based on that in the next release.

-- gil

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

[Seymour J Metz]

Except for the handling of the New Line order, the end of a line has no 
significance to a 3270 data stream. If the field extends into another line and 
you type into the last character of the first line, then you advance to the 
first character of the next line. Similarly, if a field has trailing nulls or 
equivalent, then insert will work beyond the end of the first line. You can 
test this on the option 6 panel.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 3:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

In your example, assuming that the input field spans two lines :

(1) When the user starts to type on the first line and gets to the end of the 
input field in the line, is the input skipped to the next line?

(2) If there is existing data on the second line and the user attempts to 
insert data on the first line, does the data on the second line shift to 
accommodate the inserted bytes.

If both the above are satisfied, then I would doff my cap to you and implement 
a solution based on that in the next release.

Rob Scott
Rocket Software

On 30 Nov 2020 6:31 pm, Seymour J Metz  wrote:
EXTERNAL EMAIL




I don't understand. If you have an SFE in the middle of line n and the next 
SF/SFE is at the end of line n+1, what insert issue exists? Or do you have 
another field at the end of line n, e.g.,

)ATTR DEFAULT(%+])
^ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) MAXLEN(120)
! TYPE(OUTPUT) INTENS(HIGH)
)BODY EXPAND(\\)
%BROWSE ───% \─\%LINE!ZLINE %COL!ZCL !ZCR %
%COMMAND ═══>^ZCMD \ \ %SCROLL ═══>]ZSCR%

If you move the command field to the end of the line then you can make it 
several lines long with no problem.



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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 1:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

>> How about a panel that has a single field across two lines? That's bog 
>> standard.

The insert mode issue still persists. We have tried using ZEXPAND but that does 
not solve the problem either.

As for 43x80 being archaic, we still have LOTS of customers still using 24x80 !

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: 30 November 2020 16:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL



> The lack of "insert mode" across both lines is frustrating, but I am not sure 
> there is a solution to that
> apart from a wide screen panel that has a single input field.

How about a panel that has a single field across two lines? That's bog standard.

> This would only provide relief for people running wide screen 3270 modes and 
> most of our users are 43x80.

I never considered 132 to be wide since the advent of the 3290. You have to 
accommodate them if your users are still in the 19th century, but 43x80 sounds 
so archaic.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Paul 

Re: Extraneous blanks in SDSF issued command

[Attila Fogarasi]

SKIP(ON) is the ISPF panel field attribute that causes automatic skip to
next field when the cursor reaches the end of a field (SKIP(OFF) is the
default).  I'm not 100% sure about your second question (insert spanning
fields) but AFAIK insert is limited to a single field (it certainly was in
the original hardware).  Normally a scrollable area would be used instead
of 2 fields when they are actually 1 field logically.  Not sure that all
3270 emulators work correctly with the fancier data streams (or rather,
I've run into lots of problems doing this).

On Tue, Dec 1, 2020 at 7:29 AM Rob Scott  wrote:

> In your example, assuming that the input field spans two lines :
>
> (1) When the user starts to type on the first line and gets to the end of
> the input field in the line, is the input skipped to the next line?
>
> (2) If there is existing data on the second line and the user attempts to
> insert data on the first line, does the data on the second line shift to
> accommodate the inserted bytes.
>
> If both the above are satisfied, then I would doff my cap to you and
> implement a solution based on that in the next release.
>
> Rob Scott
> Rocket Software
>
> On 30 Nov 2020 6:31 pm, Seymour J Metz  wrote:
> EXTERNAL EMAIL
>
>
>
>
> I don't understand. If you have an SFE in the middle of line n and the
> next SF/SFE is at the end of line n+1, what insert issue exists? Or do you
> have another field at the end of line n, e.g.,
>
> )ATTR DEFAULT(%+])
> ^ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) MAXLEN(120)
> ! TYPE(OUTPUT) INTENS(HIGH)
> )BODY EXPAND(\\)
> %BROWSE ───% \─\%LINE!ZLINE %COL!ZCL !ZCR %
> %COMMAND ═══>^ZCMD \ \ %SCROLL ═══>]ZSCR%
>
> If you move the command field to the end of the line then you can make it
> several lines long with no problem.
>
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Rob Scott [rsc...@rocketsoftware.com]
> Sent: Monday, November 30, 2020 1:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Extraneous blanks in SDSF issued command
>
> >> How about a panel that has a single field across two lines? That's bog
> standard.
>
> The insert mode issue still persists. We have tried using ZEXPAND but that
> does not solve the problem either.
>
> As for 43x80 being archaic, we still have LOTS of customers still using
> 24x80 !
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Seymour J Metz
> Sent: 30 November 2020 16:39
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Extraneous blanks in SDSF issued command
>
> EXTERNAL EMAIL
>
>
>
> > The lack of "insert mode" across both lines is frustrating, but I am not
> sure there is a solution to that
> > apart from a wide screen panel that has a single input field.
>
> How about a panel that has a single field across two lines? That's bog
> standard.
>
> > This would only provide relief for people running wide screen 3270 modes
> and most of our users are 43x80.
>
> I never considered 132 to be wide since the advent of the 3290. You have
> to accommodate them if your users are still in the 19th century, but 43x80
> sounds so archaic.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3<
> http://mason.gmu.edu/~smetz3>
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Rob Scott [rsc...@rocketsoftware.com]
> Sent: Monday, November 30, 2020 11:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Extraneous blanks in SDSF issued command
>
> A few notes about this issue.
>
> (1) The reason that "skip" does not work on the POPUP panel is down to the
> interplay between the ISPF attributes and the escape characters used to
> draw the window.
> (2) The original developer workaround for (1) was the ability to switch to
> a panel using PF5 to remove the POPUP window and that enables "skip" to
> work.
> (3) Automatically stripping trailing blanks from the first line would
> require SDSF to have knowledge of the syntax of the command or some sort of
> awareness of whether quotes or double-quotes are in effect and unbounded
> and if so, is this meaningful or not. This is not something that SDSF wants
> to get involved in as the text is freeform and what might appear to be
> apparent strange values may be expected by the receiving user or ISV
> software product that processes the command.
>
> The lack of "insert mode" across both lines is frustrating, but I am not
> sure there is a solution to that apart from a wide screen panel that has a
> single input field. This would only provide relief for people running wide
> screen 3270 modes and most of our users are 43x80.
>
> Rob Scott
> Rocket Software
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  IBM-MAIN@LISTSERV.UA.EDU>> On Behalf 

Re: System Boost Question

[Kevin Mckenzie]

Not in any meaningful sense, no, it isn’t possible.  There are two
varieties of System Recovery Boost:  longer boosts, that happen during IPL
and shutdown, and short boosts that happen in response to certain sysplex
events.  It's not something you can trigger whenever you want to.

---
Kevin McKenzie

External Phone: 845-435-8282, Tie-line: 8-295-8282
z/OS Test Services - Test Architect, Provisioning
z/OS Hardware/Software Interlock

There’s a White Paper that goes into much detail here:
https://ibm.biz/z15SRBWhitePaper.


IBM Mainframe Discussion List  wrote on
11/28/2020 02:01:40 PM:

> From: Gadi Ben-Avi 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/28/2020 02:02 PM
> Subject: [EXTERNAL] System Boost Question
> Sent by: IBM Mainframe Discussion List 
>
> We are to take delivery of a z15-t02.
> I have a question about system boost.
> A few months ago, as part of upgrading CICS, we shut down all of our
> CICS regions in order to upgrade the CICS SVC.
>
> We are running z/OS v2.3
>
> Could we use SYSTEM boost to make the process of shutting down the
> CICS region and restarting them?
> Would it be 'legal'?
>
> 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

Re: Extraneous blanks in SDSF issued command

[Rob Scott]

In your example, assuming that the input field spans two lines :

(1) When the user starts to type on the first line and gets to the end of the 
input field in the line, is the input skipped to the next line?

(2) If there is existing data on the second line and the user attempts to 
insert data on the first line, does the data on the second line shift to 
accommodate the inserted bytes.

If both the above are satisfied, then I would doff my cap to you and implement 
a solution based on that in the next release.

Rob Scott
Rocket Software

On 30 Nov 2020 6:31 pm, Seymour J Metz  wrote:
EXTERNAL EMAIL




I don't understand. If you have an SFE in the middle of line n and the next 
SF/SFE is at the end of line n+1, what insert issue exists? Or do you have 
another field at the end of line n, e.g.,

)ATTR DEFAULT(%+])
^ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) MAXLEN(120)
! TYPE(OUTPUT) INTENS(HIGH)
)BODY EXPAND(\\)
%BROWSE ───% \─\%LINE!ZLINE %COL!ZCL !ZCR %
%COMMAND ═══>^ZCMD \ \ %SCROLL ═══>]ZSCR%

If you move the command field to the end of the line then you can make it 
several lines long with no problem.



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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 1:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

>> How about a panel that has a single field across two lines? That's bog 
>> standard.

The insert mode issue still persists. We have tried using ZEXPAND but that does 
not solve the problem either.

As for 43x80 being archaic, we still have LOTS of customers still using 24x80 !

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: 30 November 2020 16:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL



> The lack of "insert mode" across both lines is frustrating, but I am not sure 
> there is a solution to that
> apart from a wide screen panel that has a single input field.

How about a panel that has a single field across two lines? That's bog standard.

> This would only provide relief for people running wide screen 3270 modes and 
> most of our users are 43x80.

I never considered 132 to be wide since the advent of the 3290. You have to 
accommodate them if your users are still in the 19th century, but 43x80 sounds 
so archaic.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Paul 
Gilmartin
Sent: 29 November 2020 18:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Sun, 29 Nov 2020 17:59:14 +, Jesse 1 Robinson wrote:
> ...
>EOF does not work because the two line buffers appear not be connected.
>
If it doesn't work, it's cause for SR. inserting characters you didn't type, 
whether "" or "CRAP" is a data integrity violation. If it's WAD, it should 
go to RFE.

(Sometimes the offender is a faithless 3270 emulator.)

(I'm most comfortable on systems where blanks aren't treated so specially.)

>Inserting blanks up front might work. Kind of a pain. But thanks!

-- gil

Re: Extraneous blanks in SDSF issued command

[Seymour J Metz]

I don't understand. If you have an SFE in the middle of line n and the next 
SF/SFE is at the end of line n+1, what insert issue exists? Or do you have 
another field at the end of line n, e.g.,

 )ATTR DEFAULT(%+])
   ^  TYPE(INPUT) CAPS(OFF) INTENS(HIGH) MAXLEN(120)
   !  TYPE(OUTPUT) INTENS(HIGH)
 )BODY EXPAND(\\)
 %BROWSE ───% \─\%LINE!ZLINE %COL!ZCL  !ZCR  %
 %COMMAND ═══>^ZCMD \ \ %SCROLL ═══>]ZSCR%

If you move the command field to the end of the line then you can make it 
several lines long with no problem.



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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 1:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

>> How about a panel that has a single field across two lines? That's bog 
>> standard.

The insert mode issue still persists. We have tried using ZEXPAND but that does 
not solve the problem either.

As for 43x80 being archaic, we still have LOTS of customers still using 24x80 !

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: 30 November 2020 16:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL



> The lack of "insert mode" across both lines is frustrating, but I am not sure 
> there is a solution to that
> apart from a wide screen panel that has a single input field.

How about a panel that has a single field across two lines? That's bog standard.

> This would only provide relief for people running wide screen 3270 modes and 
> most of our users are 43x80.

I never considered 132 to be wide since the advent of the 3290. You have to 
accommodate them if your users are still in the 19th century, but 43x80 sounds 
so archaic.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Paul 
Gilmartin
Sent: 29 November 2020 18:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Sun, 29 Nov 2020 17:59:14 +, Jesse 1 Robinson wrote:
> ...
>EOF does not work because the two line buffers appear not be connected.
>
If it doesn't work, it's cause for SR. inserting characters you didn't type, 
whether "" or "CRAP" is a data integrity violation. If it's WAD, it should 
go to RFE.

(Sometimes the offender is a faithless 3270 emulator.)

(I'm most comfortable on systems where blanks aren't treated so specially.)

>Inserting blanks up front might work. Kind of a pain. But thanks!

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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 

Re: Extraneous blanks in SDSF issued command

[Paul Gilmartin]

On Mon, 30 Nov 2020 17:47:06 +, Jesse 1 Robinson wrote:

>I considered the effect of trailing blanks and had my colleague check for 
>nulls or blanks in ISPF Option 0.
>
>General 
>  Input field pad . . N 
>  Command delimiter . ;
>
>Even after changing from blank to nlll, his SDSF fill character appeared to be 
>blank. 
> 
Does N mean NULLS ALL or NULLS STD?

That feels like a half-hearted implementation of NULLS.  Does INSERT work?
If so, then some downstream component assumes, "Oh, the user entered
fewer characters than I expect.  I'll just fill the rest with blanks."

Lazier than passing a length descriptor.  A null-terminated string would be
a benign (in this case) alternative.

-- gil

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

[Rob Scott]

>> How about a panel that has a single field across two lines? That's bog 
>> standard.

The insert mode issue still persists. We have tried using ZEXPAND but that does 
not solve the problem either.

As for 43x80 being archaic, we still have LOTS of customers still using 24x80 !

From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: 30 November 2020 16:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL



> The lack of "insert mode" across both lines is frustrating, but I am not sure 
> there is a solution to that
> apart from a wide screen panel that has a single input field.

How about a panel that has a single field across two lines? That's bog standard.

> This would only provide relief for people running wide screen 3270 modes and 
> most of our users are 43x80.

I never considered 132 to be wide since the advent of the 3290. You have to 
accommodate them if your users are still in the 19th century, but 43x80 sounds 
so archaic.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Paul 
Gilmartin
Sent: 29 November 2020 18:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Sun, 29 Nov 2020 17:59:14 +, Jesse 1 Robinson wrote:
> ...
>EOF does not work because the two line buffers appear not be connected.
>
If it doesn't work, it's cause for SR. inserting characters you didn't type, 
whether "" or "CRAP" is a data integrity violation. If it's WAD, it should 
go to RFE.

(Sometimes the offender is a faithless 3270 emulator.)

(I'm most comfortable on systems where blanks aren't treated so specially.)

>Inserting blanks up front might work. Kind of a pain. But thanks!

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to 

Re: Extraneous blanks in SDSF issued command

[Paul Gilmartin]

On Mon, 30 Nov 2020 17:39:33 +, Jeremy Nicoll wrote:
>On Mon, 30 Nov 2020, at 17:29, Rob Scott wrote:
>
>> This may well be different in raw 3270 datasteam (I have very limited
>> exposure to that) , however interactive use of SDSF on z/OS is mainly
>> via ISPF.
>
>Is it still possible to run SDSF in batch, with commands provided via an
>ISFIN dd statement?   If so, does that presume card images?
>
I've run SDSF in batch under IKJEFT01 and interactively.  My only
uses of ISPF were
address ISPEXEC 'vget ( ZSEQ ) shared'
and
   address 'ISPEXEC' 'VGET (ZSCREENI) SHARED'

and under OMVS.  In all cases I relied largely on Rexx address 'SDSF'
When ISPF was unavailable I used an alternative path with slightly
restricted function.

I issued no operator commands.

I find "address SDSF" simpler than ISFIN.

-- gil

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

[Rob Scott]

When you run SDSF in batch it assumes card images and the functionality is VERY 
limited.

SDSF batch was stabilized many years ago and we now strongly suggest that users 
adopt SDSF REXX.

You can use the ISFSLASH function in SDSF REXX to issue operator commands.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jeremy Nicoll
Sent: 30 November 2020 17:40
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Mon, 30 Nov 2020, at 17:29, Rob Scott wrote:

> This may well be different in raw 3270 datasteam (I have very limited
> exposure to that) , however interactive use of SDSF on z/OS is mainly
> via ISPF.

Is it still possible to run SDSF in batch, with commands provided via an
ISFIN dd statement?   If so, does that presume card images?

--
Jeremy Nicoll - my opinions are my own.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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: Auto Reply on SDSF Console

[Cieri, Anthony]

You could try something like this:

IF (LABEL:IEF455D) MSGID = 'IEF455D' & TEXT(1) = REPLYID . 
& (TEXT = .'SP5145'. | TEXT = .'SP5146'. | TEXT = .'SP5147'. | TEXT = 
.'SP5149'.)
THEN EXEC(CMD('MVS REPLY ' REPLYID ',NO') 
 ROUTE(ONE AUTO1)) NETLOG(Y);

With everything coded in the MAT, there is no need for a rexx!!!

Hth
Tony 


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
saurabh khandelwal
Sent: Monday, November 30, 2020 3:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Auto Reply on SDSF Console

[[ SEI WARNING *** This email was sent from an external source. Do not open 
attachments or click on links from unknown or suspicious senders. *** ]]


Dear Group ,



We have requirement to automate below manual reply comes in console every time, 
when we don’t find volume in our system and the standard reply to these message 
is  *Reply id, NO.*


10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH OR 
REPLY 'NO'l

In this above message, whenever we get message id *IEF455D *on SDSF console and 
on 4th place in this line, we get volume name* SP5145 or SP5146 , SP5147, 
SP5149 *then immediately using automation we should reply

With* reply id, no.*



In order to do this, we created



IF MSGID = 'IEF455D'
THEN

EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);





Then into *'AUTREXX'* REXX side,







/* REXX  */

trace r

'PIPE SAFE * | STEM MSG.'

TOvolume = Word( Msg,4 )

MsgID = Word( Msg,1 )

MsgID1 = substr(MsgID,2,2)



volume =  'SP5145 ' ,

   'SP5146 ' ,

'SP5147 '



Do i =  1 to Words(volume)

comp_vol = Word(volume,i)

 If Strip(comp_vol) =  TOvolume Then



But unable to complete this logic in to REXX. Can you please help in building 
this REXX, which can help in replying on console once the above mentioned 
criteria matches.



*Regards*

*Saurabh*

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

[Jesse 1 Robinson]

I considered the effect of trailing blanks and had my colleague check for nulls 
or blanks in ISPF Option 0.

General 
  Input field pad . . N 
  Command delimiter . ;

Even after changing from blank to null, his SDSF fill character appeared to be 
blank. 

.
.
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 Rob 
Scott
Sent: Monday, November 30, 2020 9:30 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 ***

>> No!  Don't think of "stripping trailing blanks".  Simply don't append 
>> blanks when the input field contained NULs (which the 3270 protocol 
>> doesn't transmit to the host.  Some emulators deviate from this.)

When a user EOFs part of the line and presses enter, the ISPF application gets 
the variable value padded to the RHS with whatever the ISFP ATTR PAD() keyword 
states or defaults to.

In SDSF's case this is blanks so we have to treat the data from the first line 
as having "trailing blanks" as we cannot determine if EOF was used or the user 
just overtyped the line with blanks.

This may well be different in raw 3270 datasteam (I have very limited exposure 
to that) , however interactive use of SDSF on z/OS is mainly via ISPF.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: 30 November 2020 16:23
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Mon, 30 Nov 2020 16:10:51 +, Rob Scott wrote:
>
>(3) Automatically stripping trailing blanks from the first line would require 
>SDSF to have knowledge of the syntax of the command or some sort of awareness 
>of whether quotes or double-quotes are in effect and unbounded and if so, is 
>this meaningful or not. This is not something that SDSF wants to get involved 
>in as the text is freeform and what might appear to be apparent strange values 
>may be expected by the receiving user or ISV software product that processes 
>the command.
>
No!  Don't think of "stripping trailing blanks".  Simply don't append blanks 
when the input field contained NULs (which the 3270 protocol doesn't transmit 
to the host.  Some emulators deviate from this.)

>The lack of "insert mode" across both lines is frustrating, but I am not sure 
>there is a solution to that apart from a wide screen panel that has a single 
>input field. This would only provide relief for people running wide screen 
>3270 modes and most of our users are 43x80.
>
A field needn't be restricted to a single line.  Those two lines should be 
formatted as a single field.

-- gil

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

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 17:29, Rob Scott wrote:

> This may well be different in raw 3270 datasteam (I have very limited 
> exposure to that) , however interactive use of SDSF on z/OS is mainly 
> via ISPF.

Is it still possible to run SDSF in batch, with commands provided via an
ISFIN dd statement?   If so, does that presume card images?

-- 
Jeremy Nicoll - my opinions are my own.

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

[Rob Scott]

>> No!  Don't think of "stripping trailing blanks".  Simply don't append blanks 
>> when the input field contained NULs (which the 3270 protocol doesn't 
>> transmit to the host.  Some emulators deviate from this.)

When a user EOFs part of the line and presses enter, the ISPF application gets 
the variable value padded to the RHS with whatever the ISFP ATTR PAD() keyword 
states or defaults to.

In SDSF's case this is blanks so we have to treat the data from the first line 
as having "trailing blanks" as we cannot determine if EOF was used or the user 
just overtyped the line with blanks.

This may well be different in raw 3270 datasteam (I have very limited exposure 
to that) , however interactive use of SDSF on z/OS is mainly via ISPF.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: 30 November 2020 16:23
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Mon, 30 Nov 2020 16:10:51 +, Rob Scott wrote:
>
>(3) Automatically stripping trailing blanks from the first line would require 
>SDSF to have knowledge of the syntax of the command or some sort of awareness 
>of whether quotes or double-quotes are in effect and unbounded and if so, is 
>this meaningful or not. This is not something that SDSF wants to get involved 
>in as the text is freeform and what might appear to be apparent strange values 
>may be expected by the receiving user or ISV software product that processes 
>the command.
>
No!  Don't think of "stripping trailing blanks".  Simply don't append blanks 
when the input field contained NULs (which the 3270 protocol doesn't transmit 
to the host.  Some emulators deviate from this.)

>The lack of "insert mode" across both lines is frustrating, but I am not sure 
>there is a solution to that apart from a wide screen panel that has a single 
>input field. This would only provide relief for people running wide screen 
>3270 modes and most of our users are 43x80.
>
A field needn't be restricted to a single line.  Those two lines should be 
formatted as a single field.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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: Extraneous blanks in SDSF issued command

[Seymour J Metz]

> The lack of "insert mode" across both lines is frustrating, but I am not sure 
> there is a solution to that 
> apart from a wide screen panel that has a single input field. 

How about a panel that has a single field across two lines? That's bog standard.

> This would only provide relief for people running wide screen 3270 modes and 
> most of our users are 43x80.

I never considered 132 to be wide since the advent of the 3290. You have to 
accommodate them if your users are still in the 19th century, but 43x80 sounds 
so archaic.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Rob 
Scott [rsc...@rocketsoftware.com]
Sent: Monday, November 30, 2020 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: 29 November 2020 18:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Sun, 29 Nov 2020 17:59:14 +, Jesse 1 Robinson wrote:
>...
>EOF does not work because the two line buffers appear not be connected.
>
If it doesn't work, it's cause for SR.  inserting characters you didn't type, 
whether "" or "CRAP" is a data integrity violation.  If it's WAD, it should 
go to RFE.

(Sometimes the offender is a faithless 3270 emulator.)

(I'm most comfortable on systems where blanks aren't treated so specially.)

>Inserting blanks up front might work. Kind of a pain. But thanks!

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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

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

Re: Unable to ALLOC dsn without new

[Elaine Beal]

so now I've got a lead on our good friend SMS :(
which of course hasn't changed in 2 years.
looks like maybe storclas isn't being defined

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

[Paul Gilmartin]

On Mon, 30 Nov 2020 16:10:51 +, Rob Scott wrote:
>
>(3) Automatically stripping trailing blanks from the first line would require 
>SDSF to have knowledge of the syntax of the command or some sort of awareness 
>of whether quotes or double-quotes are in effect and unbounded and if so, is 
>this meaningful or not. This is not something that SDSF wants to get involved 
>in as the text is freeform and what might appear to be apparent strange values 
>may be expected by the receiving user or ISV software product that processes 
>the command.
>
No!  Don't think of "stripping trailing blanks".  Simply don't append blanks 
when
the input field contained NULs (which the 3270 protocol doesn't transmit to the
host.  Some emulators deviate from this.)

>The lack of "insert mode" across both lines is frustrating, but I am not sure 
>there is a solution to that apart from a wide screen panel that has a single 
>input field. This would only provide relief for people running wide screen 
>3270 modes and most of our users are 43x80.
>
A field needn't be restricted to a single line.  Those two lines should be
formatted as a single field.

-- gil

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

[Rob Scott]

A few notes about this issue.

(1) The reason that "skip" does not work on the POPUP panel is down to the 
interplay between the ISPF attributes and the escape characters used to draw 
the window.
(2) The original developer workaround for (1) was the ability to switch to a 
panel using PF5 to remove the POPUP window and that enables "skip" to work.
(3) Automatically stripping trailing blanks from the first line would require 
SDSF to have knowledge of the syntax of the command or some sort of awareness 
of whether quotes or double-quotes are in effect and unbounded and if so, is 
this meaningful or not. This is not something that SDSF wants to get involved 
in as the text is freeform and what might appear to be apparent strange values 
may be expected by the receiving user or ISV software product that processes 
the command.

The lack of "insert mode" across both lines is frustrating, but I am not sure 
there is a solution to that apart from a wide screen panel that has a single 
input field. This would only provide relief for people running wide screen 3270 
modes and most of our users are 43x80.

Rob Scott
Rocket Software


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: 29 November 2020 18:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Extraneous blanks in SDSF issued command

EXTERNAL EMAIL





On Sun, 29 Nov 2020 17:59:14 +, Jesse 1 Robinson wrote:
>...
>EOF does not work because the two line buffers appear not be connected.
>
If it doesn't work, it's cause for SR.  inserting characters you didn't type, 
whether "" or "CRAP" is a data integrity violation.  If it's WAD, it should 
go to RFE.

(Sometimes the offender is a faithless 3270 emulator.)

(I'm most comfortable on systems where blanks aren't treated so specially.)

>Inserting blanks up front might work. Kind of a pain. But thanks!

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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: Z/OS COBOL LIB.

[Charles Mills]

We most commonly see names like

IGY.V630.SIGYCOMP
IGY.V6R3M0.SIGYCOMP
IGY630.SIGYCOMP

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Jacobs
Sent: Monday, November 30, 2020 6:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Z/OS COBOL LIB.

The runtime library is most likely CEE.SCEERUM, CEE.SCEERUN2. The compiler 
datasets are usually prefixed by IGY.

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

Re: Auto Reply on SDSF Console

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 14:42, Barkow, Eileen wrote:
> All I know is that in the past I was not able to use the STRIP function 
> in NETVIEW - I remember researching the issue at the time and
>  comparing TSO REXX to NETVIEW REXX. Even if  STRIP worked in native 
> NETVIEW, it did not work with automation.

It DID work in netview clists.  I ran an SA/390 automation team, until about 
2000, and the code I looked at a few minutes ago was in production use.

You must be thinking of something else, or maybe there was a bug.

Have a look at this NV manual, copyright 1997, 2007.

ftp://public.dhe.ibm.com/software/tivoli/netview/dqgl2mst.pdf

Look at the last few lines of the sample ACTAPPLS exec, on p188.

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Unable to ALLOC dsn without new

[Elaine Beal]

Gil, thanks.

I do get that message but when I do a listcat, the mastcat and usercat look 
correct.
They look the same as other previously defined users.

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

[Paul Gilmartin]

On Mon, 30 Nov 2020 07:51:15 -0600, Jeffrey Holst wrote:

>If you press PF1 to get the help for this panel, you will see that this is 
>working exactly as described there. As someone else discussed, PF5 will get 
>you to a screen where you can type your command in one continuous stream.
> 
All too characteristic of IBM: Document a defect and pretend it's WAD.

-- gil

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

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

All I know is that in the past I was not able to use the STRIP function in 
NETVIEW - I remember researching the issue at the time and
 comparing TSO REXX to NETVIEW REXX. Even if  STRIP worked in native NETVIEW, 
it did not work with automation.



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, November 30, 2020 9:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

That appears to refer to native NetView EXECs, not to REXX NetView EXECs.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7Cebarkow%40doitt.nyc.gov%7Cf41932c3f1b34c1dd85808d8953d50b4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423437879873577%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=sUAJNNMIBNm56iEACV%2Fz2oO2tM4PQksfPl3CHq6ImiA%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 9:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

APAR Identifier .. OA36757  Last Changed  11/09/02
  STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS
  FROM A VARIABLE VALUE

  Symptom .. NF NEWFUNCTION   Status ... CLOSED  UR1
  Severity ... 3  Date Closed . 11/08/01
  Component .. 5697NV600  Duplicate of 
  Reported Release . 10B  Fixed Release  999
  Component Name NETVIEW FOR Z/O  Special Notice   ATTENTION
  Current Target Date ..11/08/15  Flags
  SCP ...NEW FUNCTION
  Platform 


  Status Detail: SHIPMENT - Packaged solution is available for
shipment.

  PE PTF List:

  PTF List:
  Release 10B   : UA61616 available 11/08/16 (F108 )


  Parent APAR:OA35722
  Child APAR list:


  ERROR DESCRIPTION:
  New function, called STRIP, that would strip off leading and
  trailing blanks from a variable value.
  This function could only be specified in the CMD string in an
  EXEC, and would specify the variable that would be stripped
  of blanks.


  LOCAL FIX:


  PROBLEM SUMMARY:
  
  * USERS AFFECTED: All users ot Tivoli NetView for z/OS.*
  
  * PROBLEM DESCRIPTION: When a command is executed as a result  *
  *  of an automation table EXEC statement,  *
  *  if any variable values contain leading  *
  *  or trailing blanks, the resulting   *
  *  command may fail, for example, if a *
  *  blank signifies the end of the command  *
  *  string. *
  
  * RECOMMENDATION:  *
  
  After NetView automation table processing constructs a command
  from constant strings (in quotation marks) and variables defined
  in the automation table (not in quotation marks), there is no
  way to ensure that the resulting command does not contain
  blanks. If a variable value contains blanks, and the resulting
  command does not work properly because of those blanks, NetView
  does not provide a way to strip off those blanks to allow the
  command to work.


  PROBLEM CONCLUSION:


  TEMPORARY FIX:


  COMMENTS:
  A new function, called STRIP, is being provided in automation
  table processing which can be specified in the command string in
  an EXEC statement. When specified, the variable value, without
  leading or trailing blanks or hex zeroes will be used instead of
  the variable value as specified.

  The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
  should be changed as follows:
   In Chapter 15, The Automation Table, in the section named
   Actions, in the description of the EXEC action, in the
   description of 'cmdstring', the following should be added after
   the first paragraph:

 Because variable values could contain leading or trailing
 blanks which could cause the command to fail, you can use the
 STRIP function to strip off leading and trailing blanks or
 hexadecimal zeroes.

   Syntax: STRIP(varname)
 where 'varname' is the variable name whose value without
 leading and trailing blanks and hexadecimal zeroes is to
 be inserted into the command.


  MODULES/MACROS:   DSIAMCMD DSIMACTN DSIMCT   DSIMPRS


  SRLS:  SC27284600


  RTN CODES:


  CIRCUMVENTION:
  Instead of invoking the necessary command string from the
  

Re: Auto Reply on SDSF Console

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 14:35, Seymour J Metz wrote:
> That appears to refer to native NetView EXECs, not to REXX NetView EXECs.

No, it's describing the Message Automation Table syntax, where one
tells netview how to match messages it might see, and for selected 
messages invoke specific clists/execs, possibly passing tokens from
those messages to the execs.

It's allowing one to guarantee that those tokens (or parts) of messages
are stripped before being passed, I think.

Even if an exec is invoked and passed just part of a message, so far
as I remember the exec can then read the whole message if it needs
to.

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Auto Reply on SDSF Console

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 14:30, Barkow, Eileen wrote:
> APAR Identifier .. OA36757  Last Changed  11/09/02
>   STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS

This isn't a Netview REXX issue.   It's describing use in a message 
automation table, in the EXEC command that invokes a NV clist.


>   COMMENTS:
>   A new function, called STRIP, is being provided in automation
>   table processing which can be specified in the command string in
>   an EXEC statement. When specified, the variable value, without
>   leading or trailing blanks or hex zeroes will be used instead of
>   the variable value as specified.
> 
>   The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
>   should be changed as follows:
>In Chapter 15, The Automation Table, in the section named
>Actions, in the description of the EXEC action, in the
>description of 'cmdstring', the following should be added after
>the first paragraph:
> 
>  Because variable values could contain leading or trailing
>  blanks which could cause the command to fail, you can use the
>  STRIP function to strip off leading and trailing blanks or
>  hexadecimal zeroes.
> 
>Syntax: STRIP(varname)
>  where 'varname' is the variable name whose value without
>  leading and trailing blanks and hexadecimal zeroes is to
>  be inserted into the command.

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Auto Reply on SDSF Console

[Seymour J Metz]

That appears to refer to native NetView EXECs, not to REXX NetView EXECs.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 9:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

APAR Identifier .. OA36757  Last Changed  11/09/02
  STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS
  FROM A VARIABLE VALUE

  Symptom .. NF NEWFUNCTION   Status ... CLOSED  UR1
  Severity ... 3  Date Closed . 11/08/01
  Component .. 5697NV600  Duplicate of 
  Reported Release . 10B  Fixed Release  999
  Component Name NETVIEW FOR Z/O  Special Notice   ATTENTION
  Current Target Date ..11/08/15  Flags
  SCP ...NEW FUNCTION
  Platform 


  Status Detail: SHIPMENT - Packaged solution is available for
shipment.

  PE PTF List:

  PTF List:
  Release 10B   : UA61616 available 11/08/16 (F108 )


  Parent APAR:OA35722
  Child APAR list:


  ERROR DESCRIPTION:
  New function, called STRIP, that would strip off leading and
  trailing blanks from a variable value.
  This function could only be specified in the CMD string in an
  EXEC, and would specify the variable that would be stripped
  of blanks.


  LOCAL FIX:


  PROBLEM SUMMARY:
  
  * USERS AFFECTED: All users ot Tivoli NetView for z/OS.*
  
  * PROBLEM DESCRIPTION: When a command is executed as a result  *
  *  of an automation table EXEC statement,  *
  *  if any variable values contain leading  *
  *  or trailing blanks, the resulting   *
  *  command may fail, for example, if a *
  *  blank signifies the end of the command  *
  *  string. *
  
  * RECOMMENDATION:  *
  
  After NetView automation table processing constructs a command
  from constant strings (in quotation marks) and variables defined
  in the automation table (not in quotation marks), there is no
  way to ensure that the resulting command does not contain
  blanks. If a variable value contains blanks, and the resulting
  command does not work properly because of those blanks, NetView
  does not provide a way to strip off those blanks to allow the
  command to work.


  PROBLEM CONCLUSION:


  TEMPORARY FIX:


  COMMENTS:
  A new function, called STRIP, is being provided in automation
  table processing which can be specified in the command string in
  an EXEC statement. When specified, the variable value, without
  leading or trailing blanks or hex zeroes will be used instead of
  the variable value as specified.

  The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
  should be changed as follows:
   In Chapter 15, The Automation Table, in the section named
   Actions, in the description of the EXEC action, in the
   description of 'cmdstring', the following should be added after
   the first paragraph:

 Because variable values could contain leading or trailing
 blanks which could cause the command to fail, you can use the
 STRIP function to strip off leading and trailing blanks or
 hexadecimal zeroes.

   Syntax: STRIP(varname)
 where 'varname' is the variable name whose value without
 leading and trailing blanks and hexadecimal zeroes is to
 be inserted into the command.


  MODULES/MACROS:   DSIAMCMD DSIMACTN DSIMCT   DSIMPRS


  SRLS:  SC27284600


  RTN CODES:


  CIRCUMVENTION:
  Instead of invoking the necessary command string from the
  EXEC statement in the automation table, specify a CLIST to be
  executed, passing the appropriate parameters, which will itself
  use the REXX STRIP() function and execute the desired command.


  MESSAGE TO SUBMITTER:



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jeremy Nicoll
Sent: Monday, November 30, 2020 9:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote:
> Sorry about that. I see that STRIP is available in NETVIEW REXX now.
> it was not a few releases ago when I tried to use it.

I have a handful of copies of old netview execs here.  I'm looking now at one I 
wrote in 1996 and it uses strip().

--
Jeremy Nicoll - my opinions are my own.

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

APAR Identifier .. OA36757  Last Changed  11/09/02
  STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS
  FROM A VARIABLE VALUE

  Symptom .. NF NEWFUNCTION   Status ... CLOSED  UR1
  Severity ... 3  Date Closed . 11/08/01
  Component .. 5697NV600  Duplicate of 
  Reported Release . 10B  Fixed Release  999
  Component Name NETVIEW FOR Z/O  Special Notice   ATTENTION
  Current Target Date ..11/08/15  Flags
  SCP ...NEW FUNCTION
  Platform 


  Status Detail: SHIPMENT - Packaged solution is available for
shipment.

  PE PTF List:

  PTF List:
  Release 10B   : UA61616 available 11/08/16 (F108 )


  Parent APAR:OA35722
  Child APAR list:


  ERROR DESCRIPTION:
  New function, called STRIP, that would strip off leading and
  trailing blanks from a variable value.
  This function could only be specified in the CMD string in an
  EXEC, and would specify the variable that would be stripped
  of blanks.


  LOCAL FIX:


  PROBLEM SUMMARY:
  
  * USERS AFFECTED: All users ot Tivoli NetView for z/OS.*
  
  * PROBLEM DESCRIPTION: When a command is executed as a result  *
  *  of an automation table EXEC statement,  *
  *  if any variable values contain leading  *
  *  or trailing blanks, the resulting   *
  *  command may fail, for example, if a *
  *  blank signifies the end of the command  *
  *  string. *
  
  * RECOMMENDATION:  *
  
  After NetView automation table processing constructs a command
  from constant strings (in quotation marks) and variables defined
  in the automation table (not in quotation marks), there is no
  way to ensure that the resulting command does not contain
  blanks. If a variable value contains blanks, and the resulting
  command does not work properly because of those blanks, NetView
  does not provide a way to strip off those blanks to allow the
  command to work.


  PROBLEM CONCLUSION:


  TEMPORARY FIX:


  COMMENTS:
  A new function, called STRIP, is being provided in automation
  table processing which can be specified in the command string in
  an EXEC statement. When specified, the variable value, without
  leading or trailing blanks or hex zeroes will be used instead of
  the variable value as specified.

  The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
  should be changed as follows:
   In Chapter 15, The Automation Table, in the section named
   Actions, in the description of the EXEC action, in the
   description of 'cmdstring', the following should be added after
   the first paragraph:

 Because variable values could contain leading or trailing
 blanks which could cause the command to fail, you can use the
 STRIP function to strip off leading and trailing blanks or
 hexadecimal zeroes.

   Syntax: STRIP(varname)
 where 'varname' is the variable name whose value without
 leading and trailing blanks and hexadecimal zeroes is to
 be inserted into the command.


  MODULES/MACROS:   DSIAMCMD DSIMACTN DSIMCT   DSIMPRS


  SRLS:  SC27284600


  RTN CODES:


  CIRCUMVENTION:
  Instead of invoking the necessary command string from the
  EXEC statement in the automation table, specify a CLIST to be
  executed, passing the appropriate parameters, which will itself
  use the REXX STRIP() function and execute the desired command.


  MESSAGE TO SUBMITTER:



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jeremy Nicoll
Sent: Monday, November 30, 2020 9:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote:
> Sorry about that. I see that STRIP is available in NETVIEW REXX now.
> it was not a few releases ago when I tried to use it.

I have a handful of copies of old netview execs here.  I'm looking now at one I 
wrote in 1996 and it uses strip().

--
Jeremy Nicoll - my opinions are my own.

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

Re: Auto Reply on SDSF Console

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 13:57, Seymour J Metz wrote:
> Where and how is the code failing?

[snip]

Sorry to reply to this post, but I've deleted the OP's question.  But 
looking at the part you included at the foot of your mail...

 
> 'PIPE SAFE * | STEM MSG.'
> 
> TOvolume = Word( Msg,4 )
> MsgID = Word( Msg,1 )
> MsgID1 = substr(MsgID,2,2)

I don't think I ever used PIPE SAFE...  but surely the "STEM MSG." part
implies that the first line of the message would be in MSG.1 ?

I wouldn't use a loop to test successive values in the 'volume' var.
Given 

volume =  'SP5145 ' ,
'SP5146 ' ,
'SP5147 '

(though since that's a list of volsers I doubt very much I'd have called
that var 'volume' - surely eg 'volslist' would be a better name?)

I'd just use 

  if wordpos(TOvolume,volslist) > 0 then ...



-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Z/OS COBOL LIB.

[Mark Jacobs]

The runtime library is most likely CEE.SCEERUM, CEE.SCEERUN2. The compiler 
datasets are usually prefixed by IGY.

Mark Jacobs

Sent from ProtonMail, Swiss-based encrypted email.

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

‐‐‐ Original Message ‐‐‐

On Monday, November 30th, 2020 at 9:20 AM, CarlosM Martinez 
 wrote:

> Hello all,
>
> Does anyone know the default library for IBM COBOL in Z/OS?
>
> SYS1.
>
> Thanks Carlos Martinez
>
> SUNY Down State
>
> -Original Message-
>
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>
> Behalf Of Don Poitras
>
> Sent: Monday, November 30, 2020 7:55 AM
>
> To: IBM-MAIN@LISTSERV.UA.EDU
>
> Subject: Re: Preparing for a short z/OS contract
>
> In article
>
> 
> rv.com> you wrote:
>
> > Rupert Reynolds wrote:
> >
> > > Thinking further, I now remember that their only debugger was TSO TEST! I
> > >
> > > wrote a mixture of Rexx and CLIST commands to extend it a bit (show regs
> > >
> > > and disassemble the next instruction, every breakpoint).
> > >
> > > Is there anything more /modern/ that's given away with z/OS?
>
> > Steve Thompson wrote:
> >
> > > TSO TEST is all that comes free with the system.
>
> > z/OS also includes dbx, described here (z/OS 2.4 link, subject to change,
> >
> > watch the wrap):
>
> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bp
>
> xa500/bpxa50021.htm
>
> > The very first release of OS/390 (generally available on March 29, 1996,
> >
> > per IBM Announcement Letter 296-018) included an earlier version of dbx,
> >
> > so dbx will very soon reach a full quarter century of history in the base
> >
> > operating system. dbx also had a short, earlier history as a separately
> >
> > chargeable OpenEdition MVS option ("OpenEdition Debugger feature"). Do try
>
> > to keep up, please. :-)
>
> > According to Wikipedia, dbx's original developer was Mark Linton at the
> >
> > University of California, Berkeley. He wrote dbx in the period 1981 to
> >
> > 1984, and then it percolated through the BSD ecosystem. TSO TEST first
> >
> > appeared no later than 1972, so dbx is about a decade younger. Whether dbx
>
> > is more "modern" is a separate question. :-)
>
> > Another debugger, IBM z/OS Debugger, is the successor to the IBM
> >
> > Integrated Debugger and IBM Debug Tool. There are lots of IBM software
> >
> > products that include IBM z/OS Debugger -- 6 if I'm counting correctly --
> >
> > so it's possible or even likely you already have a license. Of course if
> >
> > you don't have a license it's possible to acquire one.
>
> > Timothy Sipples
> >
> > I.T. Architect Executive
> >
> > Digital Asset & Other Industry Solutions
> >
> > IBM Z & LinuxONE
> >
> > E-Mail: sipp...@sg.ibm.com
>
> The successor to TSO TEST is ASMIDF. It's still being updated, so can be
>
> considered "modern". While the HLASM Toolkit isn't free, it's so cheap, it
>
> might as well be considered so.
>
> HLASM Toolkit Feature Interactive Debug Facility User's Guide
>
> https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/kc_gen/com.ibm.hlas
>
> m.v1r6.asm_asm-gen7.html
>
>
> 
>
> Don Poitras
>
> 
>
> For IBM-MAIN subscribe / signoff / archive access instructions,
>
> send email to lists...@listserv.ua.edu with the message: 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

Z/OS COBOL LIB.

[CarlosM Martinez]

Hello all,
Does anyone know the default library for IBM COBOL in Z/OS?
SYS1.

Thanks Carlos Martinez
SUNY Down State

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Don Poitras
Sent: Monday, November 30, 2020 7:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Preparing for a short z/OS contract

In article
 you wrote:
> Rupert Reynolds wrote:
> >Thinking further, I now remember that their only debugger was TSO TEST! I
> >wrote a mixture of Rexx and CLIST commands to extend it a bit (show regs
> >and disassemble the next instruction, every breakpoint).
> >
> >Is there anything more /modern/ that's given away with z/OS?

> Steve Thompson wrote:
> >TSO TEST is all that comes free with the system.

> z/OS also includes dbx, described here (z/OS 2.4 link, subject to change, 
> watch the wrap):

>
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bp
xa500/bpxa50021.htm


> The very first release of OS/390 (generally available on March 29, 1996, 
> per IBM Announcement Letter 296-018) included an earlier version of dbx, 
> so dbx will very soon reach a full quarter century of history in the base 
> operating system. dbx also had a short, earlier history as a separately 
> chargeable OpenEdition MVS option ("OpenEdition Debugger feature"). Do try


> to keep up, please. :-)

> According to Wikipedia, dbx's original developer was Mark Linton at the 
> University of California, Berkeley. He wrote dbx in the period 1981 to 
> 1984, and then it percolated through the BSD ecosystem. TSO TEST first 
> appeared no later than 1972, so dbx is about a decade younger. Whether dbx


> is more "modern" is a separate question. :-)

> Another debugger, IBM z/OS Debugger, is the successor to the IBM 
> Integrated Debugger and IBM Debug Tool. There are lots of IBM software 
> products that include IBM z/OS Debugger -- 6 if I'm counting correctly -- 
> so it's possible or even likely you already have a license. Of course if 
> you don't have a license it's possible to acquire one.

> - - - - - - - - - -
> Timothy Sipples
> I.T. Architect Executive
> Digital Asset & Other Industry Solutions
> IBM Z & LinuxONE
> - - - - - - - - - -
> E-Mail: sipp...@sg.ibm.com

The successor to TSO TEST is ASMIDF. It's still being updated, so can be
considered "modern". While the HLASM Toolkit isn't free, it's so cheap, it
might as well be considered so. 

HLASM Toolkit Feature Interactive Debug Facility User's Guide
https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/kc_gen/com.ibm.hlas
m.v1r6.asm_asm-gen7.html


-- 
Don Poitras

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

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote:
> Sorry about that. I see that STRIP is available in NETVIEW REXX now. it 
> was not a few releases ago when I tried to use it.

I have a handful of copies of old netview execs here.  I'm looking now
at one I wrote in 1996 and it uses strip().

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

Sorry about that. I see that STRIP is available in NETVIEW REXX now. it was not 
a few releases ago when I tried to use it.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, November 30, 2020 8:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

Where is that documented? As far as I can tell Netview doesn't have its own 
REXX interpreter, but rather uses TSO/E REXX and the REXX compiler product.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115960543%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=c4E8YPua2%2BM31U29JLtIEiH80jY8TxZ8ef%2Bu5MYPT5o%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

STRIP is not  allowed in NETVIEW REXX
You can just do something like this:

V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

See SYS1.PARMLIB(AUTORxx)

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and 
IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115970501%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=lVXwQxGm3Cl9UsJgDw%2Bq5N3TrwHw8V4ylPSAhEa0l1E%3Dreserved=0
  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < 
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console 
> every time, when we don't find volume in our system and the standard 
> reply to these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO 
> SARBCH OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF 
> console and on 4th place in this line, we get volume name* SP5145 or
> SP5146 , SP5147, SP5149 *then immediately using automation we should 
> reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in 
> building this REXX, which can help in replying on console once the 
> above mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: 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

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

Re: Auto Reply on SDSF Console

[Seymour J Metz]

Where and how is the code failing?

BTW, you don't need the STRIP the output of the WORD function.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
saurabh khandelwal [sourabhkhandelwal...@gmail.com]
Sent: Monday, November 30, 2020 3:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Auto Reply on SDSF Console

Dear Group ,



We have requirement to automate below manual reply comes in console every
time, when we don’t find volume in our system and the standard reply to
these message is  *Reply id, NO.*


10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
OR REPLY 'NO'l

In this above message, whenever we get message id *IEF455D *on SDSF console
and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
SP5147, SP5149 *then immediately using automation we should reply

With* reply id, no.*



In order to do this, we created



IF MSGID = 'IEF455D'
THEN

EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);





Then into *'AUTREXX'* REXX side,







/* REXX  */

trace r

'PIPE SAFE * | STEM MSG.'

TOvolume = Word( Msg,4 )

MsgID = Word( Msg,1 )

MsgID1 = substr(MsgID,2,2)



volume =  'SP5145 ' ,

   'SP5146 ' ,

'SP5147 '



Do i =  1 to Words(volume)

comp_vol = Word(volume,i)

 If Strip(comp_vol) =  TOvolume Then



But unable to complete this logic in to REXX. Can you please help in
building this REXX, which can help in replying on console once the above
mentioned criteria matches.



*Regards*

*Saurabh*

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

[Jeffrey Holst]

If you press PF1 to get the help for this panel, you will see that this is 
working exactly as described there. As someone else discussed, PF5 will get you 
to a screen where you can type your command in one continuous stream.

Someone noted that the SLIP command is "quirky." Perhaps so, but only because 
the command can at times exceed the 126 character limit for a command line 
imposed by the operating system. (See MVS System Commands Reference.)

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

Re: Auto Reply on SDSF Console

[Seymour J Metz]

Where is that documented? As far as I can tell Netview doesn't have its own 
REXX interpreter, but rather uses TSO/E REXX and the REXX compiler product.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

STRIP is not  allowed in NETVIEW REXX
You can just do something like this:

V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

See SYS1.PARMLIB(AUTORxx)

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and 
IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C81c1ad985d0445fd8ddb08d8950ba0e8%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423224506873215%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=2AQVh%2FozrTHV3zoGnFQrAux5punh39BwcagHjtpchog%3Dreserved=0
  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < 
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console
> every time, when we don’t find volume in our system and the standard
> reply to these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO
> SARBCH OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF
> console and on 4th place in this line, we get volume name* SP5145 or
> SP5146 , SP5147, SP5149 *then immediately using automation we should
> reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in
> building this REXX, which can help in replying on console once the
> above mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: 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

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

Re: Auto Reply on SDSF Console

[Jeremy Nicoll]

On Mon, 30 Nov 2020, at 12:42, Barkow, Eileen wrote:
> STRIP is not  allowed in NETVIEW REXX

Why do you say that?



-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Preparing for a short z/OS contract

[Don Poitras]

In article 

 you wrote:
> Rupert Reynolds wrote:
> >Thinking further, I now remember that their only debugger was TSO TEST! I
> >wrote a mixture of Rexx and CLIST commands to extend it a bit (show regs
> >and disassemble the next instruction, every breakpoint).
> >
> >Is there anything more /modern/ that's given away with z/OS?

> Steve Thompson wrote:
> >TSO TEST is all that comes free with the system.

> z/OS also includes dbx, described here (z/OS 2.4 link, subject to change, 
> watch the wrap):

> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxa500/bpxa50021.htm


> The very first release of OS/390 (generally available on March 29, 1996, 
> per IBM Announcement Letter 296-018) included an earlier version of dbx, 
> so dbx will very soon reach a full quarter century of history in the base 
> operating system. dbx also had a short, earlier history as a separately 
> chargeable OpenEdition MVS option ("OpenEdition Debugger feature"). Do try 

> to keep up, please. :-)

> According to Wikipedia, dbx's original developer was Mark Linton at the 
> University of California, Berkeley. He wrote dbx in the period 1981 to 
> 1984, and then it percolated through the BSD ecosystem. TSO TEST first 
> appeared no later than 1972, so dbx is about a decade younger. Whether dbx 

> is more "modern" is a separate question. :-)

> Another debugger, IBM z/OS Debugger, is the successor to the IBM 
> Integrated Debugger and IBM Debug Tool. There are lots of IBM software 
> products that include IBM z/OS Debugger -- 6 if I'm counting correctly -- 
> so it's possible or even likely you already have a license. Of course if 
> you don't have a license it's possible to acquire one.

> - - - - - - - - - -
> Timothy Sipples
> I.T. Architect Executive
> Digital Asset & Other Industry Solutions
> IBM Z & LinuxONE
> - - - - - - - - - -
> E-Mail: sipp...@sg.ibm.com

The successor to TSO TEST is ASMIDF. It's still being updated, so can be
considered "modern". While the HLASM Toolkit isn't free, it's so cheap, it
might as well be considered so. 

HLASM Toolkit Feature Interactive Debug Facility User's Guide
https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/kc_gen/com.ibm.hlasm.v1r6.asm_asm-gen7.html


-- 
Don Poitras

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

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

STRIP is not  allowed in NETVIEW REXX
You can just do something like this:

V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

See SYS1.PARMLIB(AUTORxx)

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and 
IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C81c1ad985d0445fd8ddb08d8950ba0e8%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423224506873215%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=2AQVh%2FozrTHV3zoGnFQrAux5punh39BwcagHjtpchog%3Dreserved=0
  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < 
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console
> every time, when we don’t find volume in our system and the standard
> reply to these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO
> SARBCH OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF
> console and on 4th place in this line, we get volume name* SP5145 or
> SP5146 , SP5147, SP5149 *then immediately using automation we should
> reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in
> building this REXX, which can help in replying on console once the
> above mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: 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: Auto Reply on SDSF Console

[ITschak Mugzach]

See SYS1.PARMLIB(AUTORxx)

ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *




On Mon, Nov 30, 2020 at 10:39 AM Itschak Mugzach 
wrote:

> See SYS1.PARMLIB(AUTORxx)
>
> *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
> Platform* *|* *Information Security Continuous Monitoring for Z/OS,
> zLinux and IBM I **|  *
>
> *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
> *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
> On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal <
> sourabhkhandelwal...@gmail.com> wrote:
>
>> Dear Group ,
>>
>>
>>
>> We have requirement to automate below manual reply comes in console every
>> time, when we don’t find volume in our system and the standard reply to
>> these message is  *Reply id, NO.*
>>
>>
>> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
>> OR REPLY 'NO'l
>>
>> In this above message, whenever we get message id *IEF455D *on SDSF
>> console
>> and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
>> SP5147, SP5149 *then immediately using automation we should reply
>>
>> With* reply id, no.*
>>
>>
>>
>> In order to do this, we created
>>
>>
>>
>> IF MSGID = 'IEF455D'
>> THEN
>>
>> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>>
>>
>>
>>
>>
>> Then into *'AUTREXX'* REXX side,
>>
>>
>>
>>
>>
>>
>>
>> /* REXX  */
>>
>> trace r
>>
>> 'PIPE SAFE * | STEM MSG.'
>>
>> TOvolume = Word( Msg,4 )
>>
>> MsgID = Word( Msg,1 )
>>
>> MsgID1 = substr(MsgID,2,2)
>>
>>
>>
>> volume =  'SP5145 ' ,
>>
>>'SP5146 ' ,
>>
>> 'SP5147 '
>>
>>
>>
>> Do i =  1 to Words(volume)
>>
>> comp_vol = Word(volume,i)
>>
>>  If Strip(comp_vol) =  TOvolume Then
>>
>>
>>
>> But unable to complete this logic in to REXX. Can you please help in
>> building this REXX, which can help in replying on console once the above
>> mentioned criteria matches.
>>
>>
>>
>> *Regards*
>>
>> *Saurabh*
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: 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: Auto Reply on SDSF Console

[Itschak Mugzach]

See SYS1.PARMLIB(AUTORxx)

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal <
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console every
> time, when we don’t find volume in our system and the standard reply to
> these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
> OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF console
> and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
> SP5147, SP5149 *then immediately using automation we should reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in
> building this REXX, which can help in replying on console once the above
> mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Auto Reply on SDSF Console

[saurabh khandelwal]

Dear Group ,



We have requirement to automate below manual reply comes in console every
time, when we don’t find volume in our system and the standard reply to
these message is  *Reply id, NO.*


10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
OR REPLY 'NO'l

In this above message, whenever we get message id *IEF455D *on SDSF console
and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
SP5147, SP5149 *then immediately using automation we should reply

With* reply id, no.*



In order to do this, we created



IF MSGID = 'IEF455D'
THEN

EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);





Then into *'AUTREXX'* REXX side,







/* REXX  */

trace r

'PIPE SAFE * | STEM MSG.'

TOvolume = Word( Msg,4 )

MsgID = Word( Msg,1 )

MsgID1 = substr(MsgID,2,2)



volume =  'SP5145 ' ,

   'SP5146 ' ,

'SP5147 '



Do i =  1 to Words(volume)

comp_vol = Word(volume,i)

 If Strip(comp_vol) =  TOvolume Then



But unable to complete this logic in to REXX. Can you please help in
building this REXX, which can help in replying on console once the above
mentioned criteria matches.



*Regards*

*Saurabh*

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