Re: Encryption and decryption - processor or TCPIP

[Peter]

Ok so TCPIP as a started task when it does encryption and decryption so it
directly overloads the General CP ?

On Wed, Jan 24, 2024, 9:59 AM Tom Brennan 
wrote:

> Even though you don't have a crypto processor, do you have CPACF on the
> box?  Most machines I've seen do, because it's a no-charge feature.  I
> don't know for sure, but I thought I heard that you can start ICSF
> without a crypto card and it will use CPACF for some of the heavier
> encryption processing (maybe like generating prime numbers) and save
> individual tasks some CP time.
>
> That's just my old theory though, from back in 2015 when I saw a
> situation similar to what you describe.  But it was a client machine
> where I didn't have the ability to try things out.  I'd sure like to
> hear more from someone more experienced in this area.
>
> On 1/23/2024 9:10 PM, Peter wrote:
> > After implementing ATTLS there is some delay in our CICS transaction but
> I
> > was suspecting if sn absence of crypto processor can overload the general
> > processor to cause this delay ?
> >
> > On Wed, Jan 24, 2024, 9:01 AM Phil Smith III  wrote:
> >
> >> Peter wrote:
> >>> I have a general question here. When you don't have crypto processor,
> So
> >>> when a ATTLS traffic is enabled does the encryption and decryption
> handled
> >>> by Started task TCPIP or the general processor?
> >>
> >> The TCPIP started task is just code and runs on the general processor,
> so
> >> your question doesn't make much sense. AT-TLS is managed
> >> by the Policy Agent started task, and it appears that the actual
> >> encryption takes place in the TCPIP started task, but that's a
> >> conclusion-I've never wondered.
> >>
> >> Why do you ask? What problem are you trying to solve? We'd like to know
> >> more!
> >>
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Encryption and decryption - processor or TCPIP

[Tom Brennan]

Even though you don't have a crypto processor, do you have CPACF on the 
box?  Most machines I've seen do, because it's a no-charge feature.  I 
don't know for sure, but I thought I heard that you can start ICSF 
without a crypto card and it will use CPACF for some of the heavier 
encryption processing (maybe like generating prime numbers) and save 
individual tasks some CP time.


That's just my old theory though, from back in 2015 when I saw a 
situation similar to what you describe.  But it was a client machine 
where I didn't have the ability to try things out.  I'd sure like to 
hear more from someone more experienced in this area.


On 1/23/2024 9:10 PM, Peter wrote:

After implementing ATTLS there is some delay in our CICS transaction but I
was suspecting if sn absence of crypto processor can overload the general
processor to cause this delay ?

On Wed, Jan 24, 2024, 9:01 AM Phil Smith III  wrote:


Peter wrote:

I have a general question here. When you don't have crypto processor, So
when a ATTLS traffic is enabled does the encryption and decryption handled
by Started task TCPIP or the general processor?


The TCPIP started task is just code and runs on the general processor, so
your question doesn't make much sense. AT-TLS is managed
by the Policy Agent started task, and it appears that the actual
encryption takes place in the TCPIP started task, but that's a
conclusion-I've never wondered.

Why do you ask? What problem are you trying to solve? We'd like to know
more!


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

[Peter]

After implementing ATTLS there is some delay in our CICS transaction but I
was suspecting if sn absence of crypto processor can overload the general
processor to cause this delay ?

On Wed, Jan 24, 2024, 9:01 AM Phil Smith III  wrote:

> Peter wrote:
> >I have a general question here. When you don't have crypto processor, So
> >when a ATTLS traffic is enabled does the encryption and decryption handled
> >by Started task TCPIP or the general processor?
>
> The TCPIP started task is just code and runs on the general processor, so
> your question doesn't make much sense. AT-TLS is managed
> by the Policy Agent started task, and it appears that the actual
> encryption takes place in the TCPIP started task, but that's a
> conclusion-I've never wondered.
>
> Why do you ask? What problem are you trying to solve? We'd like to know
> more!
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Encryption and decryption - processor or TCPIP

[Phil Smith III]

Peter wrote:
>I have a general question here. When you don't have crypto processor, So
>when a ATTLS traffic is enabled does the encryption and decryption handled
>by Started task TCPIP or the general processor?

The TCPIP started task is just code and runs on the general processor, so your 
question doesn't make much sense. AT-TLS is managed
by the Policy Agent started task, and it appears that the actual encryption 
takes place in the TCPIP started task, but that's a
conclusion-I've never wondered.

Why do you ask? What problem are you trying to solve? We'd like to know more!


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

Encryption and decryption - processor or TCPIP

[Peter]

Hello

I have a general question here. When you don't have crypto processor, So
when a ATTLS traffic is enabled does the encryption and decryption handled
by Started task TCPIP or the general processor?

Regards
Peter

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

Re: IPCS - CBFORMAT

[Jim Mulder]

  Try CBF 2B79E814.  L(12) STRUCTURE(OPRM)

The Truncated message is telling you that the OPRM model is trying to format 
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the 
length would be defaulting to whatever your SETDEF command default length is 
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like

EQ MYOPRM   2B79E814.  L(12) STR(OPRM)
CBF MYOPRM

  For your other thing that does work, if it is longer than 4 bytes, maybe IPCS 
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.  
The LISTMAP subcommand will also tell you about things that IPCS has already 
figured out and put into its storage map.

What is the structure name that does work?  Where does it show up in the output 
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in 
an a range that shows as being mapped in the output of LISTMAP? 

Jim Mulder

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Jon 
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT

This looks correct and essentially the same as mine. I never ran into the 
truncated error. I'm guessing the problem must lie somewhere else.

Since ACRONYM= is working, it's unlikely that a spurious blank is causing the 
problem. Maybe compare the assembler listings to see if there is a difference. 

I think I accessed my IPCS modules thru BLSLLIB or possibly TSOLIB to eliminate 
problems associated with linklst. I don't think this is your problem..

I would look at the link listing and verify the entry point and module name is 
correct. I don't think this is the problem because HEADER= is working correctly.

Although you didn't include the full source, It appears the CSECT is setup 
correctly and nothing spurious seems to be included but maybe you can check the 
listing for something unexpected.

I don't think using CBLEN=20 will fix the problem but you could try it. 

Sorry I can't be of help but your problem doesn't appear to be with the 
definitions. 

On Tue, 23 Jan 2024 14:26:20 -0600, Bill Yeager  wrote:

>OPRM  DSECT 
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED 
>OPRMCFUN DSCL4COMM FUNCTION TO BE PERFORMED
>
> BLSQMDEF BASELBL=OPRM,CBLEN=12,PREFIX=4,HEADER=OPRM,  X
>   ACRONYM=OPRM,ACROLBL=OPRMEYEC
> BLSQMFLD NAME=OPRMEYEC,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMIFUN,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMCFUN,DTYPE=EBCDIC 
> BLSQMDEF END
>
>2B79E814  D6D7D9D4   E6D9E3C5   D9D9C5D8   | OPRMWRTERREQ |
>2B79E820   E6D9E3C5   D9C5C1C4         | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814  
>   +  EYEC. OPRM
>Control block is truncated
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

Re: IPCS - CBFORMAT

[Jon Perryman]

This looks correct and essentially the same as mine. I never ran into the 
truncated error. I'm guessing the problem must lie somewhere else.

Since ACRONYM= is working, it's unlikely that a spurious blank is causing the 
problem. Maybe compare the assembler listings to see if there is a difference. 

I think I accessed my IPCS modules thru BLSLLIB or possibly TSOLIB to eliminate 
problems associated with linklst. I don't think this is your problem..

I would look at the link listing and verify the entry point and module name is 
correct. I don't think this is the problem because HEADER= is working correctly.

Although you didn't include the full source, It appears the CSECT is setup 
correctly and nothing spurious seems to be included but maybe you can check the 
listing for something unexpected.

I don't think using CBLEN=20 will fix the problem but you could try it. 

Sorry I can't be of help but your problem doesn't appear to be with the 
definitions. 

On Tue, 23 Jan 2024 14:26:20 -0600, Bill Yeager  wrote:

>OPRM  DSECT 
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED 
>OPRMCFUN DSCL4COMM FUNCTION TO BE PERFORMED
>
> BLSQMDEF BASELBL=OPRM,CBLEN=12,PREFIX=4,HEADER=OPRM,  X
>   ACRONYM=OPRM,ACROLBL=OPRMEYEC
> BLSQMFLD NAME=OPRMEYEC,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMIFUN,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMCFUN,DTYPE=EBCDIC 
> BLSQMDEF END
>
>2B79E814  D6D7D9D4   E6D9E3C5   D9D9C5D8   | OPRMWRTERREQ |
>2B79E820   E6D9E3C5   D9C5C1C4         | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814  
>   +  EYEC. OPRM
>Control block is truncated  
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: 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: Custom ISPF command

[Bob Bridges]

I used to add my own commands to the ISPF command table.  But somehow I got out 
of the habit; I went to a new site, didn't get around to it, got used to just 
putting "TSO" in front of commands, then forgot where to go to do it the other 
way.  Now I can find the command table again, but why?  I'm used to the "TSO" 
prefix, I do it without thinking about it.

This, be it known, is an invitation to tell me "oh, but there are other 
advantages to the commands table...", which I either never knew or have 
forgotten.

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

/* In order to write for "The A-Team", you'd have to be a much better writer 
than most of those who write the evening news at networks and local stations — 
forget about shows like "Hill Street Blues" or "The Muppet Show", where writing 
REALLY counts.  -Linda Ellerbee, _And So It Goes_ */

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

Re: IPCS - CBFORMAT

[Bill Yeager]

OPRM  DSECT 
OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED 
OPRMCFUN DSCL4COMM FUNCTION TO BE PERFORMED

 BLSQMDEF BASELBL=OPRM,CBLEN=12,PREFIX=4,HEADER=OPRM,  X
   ACRONYM=OPRM,ACROLBL=OPRMEYEC
 BLSQMFLD NAME=OPRMEYEC,DTYPE=EBCDIC
 BLSQMFLD NAME=OPRMIFUN,DTYPE=EBCDIC
 BLSQMFLD NAME=OPRMCFUN,DTYPE=EBCDIC 
 BLSQMDEF END

2B79E814  D6D7D9D4   E6D9E3C5   D9D9C5D8   | OPRMWRTERREQ |
2B79E820   E6D9E3C5   D9C5C1C4         | WRTEREAD |

Command: CBF 2B79E814. STRUCTURE(OPRM)

OPRM: 2B79E814  
   +  EYEC. OPRM
Control block is truncated  

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

Re: IPCS - CBFORMAT

[Jon Perryman]

On Tue, 23 Jan 2024 13:11:27 -0600, Bill Yeager  wrote:

> I get “Control block is truncated”

TSO PROFILE MSGID will turn on message ID. You can then look up the message to 
find the causes and solutions for this message. You can TSO PROFILE NOMSGID to 
eliminate message ids from TSO. I personally leave it on because message id's 
can be useful.

Use IP LIST xxx LEN(##) to display the area and verify the full area actually 
exists. Verify the acronym matches and (I think) it has trailing blanks instead 
of X'00'. Look at the fields with formatting and ensure they are compatible 
with the formatting.

If the problem is not something obvious, then include the definition and 
storage here so that we aren't guessing.

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

IPCS - CBFORMAT

[Bill Yeager]

Using a control block model with IPCS, I’m stuck in a situation whereby I get 
“Control block is truncated” no matter what I do when I issue a CBFORMAT for 
the structure (CBF addr. Structure(cbname).  It displays the eyecatcher 
(acronym) and that is all.  I mapped 2 control blocks, one works the other 
doesn’t and they are almost identical.

1)  They both are single CSECTs in separate load modules.  Load modules and 
CSECTS for each have the same names.
2)  They both are defined in a BLSCUSER parmlib member as “DATA 
STRUCTURE(cbname) MODEL(loadmod name)”
3)  They both have the same keywords specified on the BLSQMDEF statement 
(BASELBL, CBLEN, PREFIX, HEADER, ACRONYM, and ACROLBL)
4)  The only keywords specified on the BLSQMFLD statements are NAME and 
optionally DTYPE.
5)  They both map the entire CB with the total length of the fields adding 
up to the value on CBLEN.
6)  The load modules are both in USER.LINKLIB which is in LLA and I issue a 
MODIFY LLA,REFRESH whenever they are changed.

Any help to get me unstuck would be appreciated.

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

Re: Sv: Custom ISPF command

[Willy Jensen]

I can offer my ISPCMDU found at https://harders-jensen.com. With it you can 
update the ISPF command table ISPCMDS in flight, no restart required.

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

RACF Automation (Cross Posted)

[Steve Beaver]

I have a customer that would like to AUTOMATE RACF.  Personally I think this
heresy but.

 

I am aware of Sail Point, and it will automate changing passwords.

 

Are there any tools/Program Products that can be used to Provision ID's, and


Update profiles without having the auditors looking for someone's scalp?

 

 

Regards,

 

 

Steve 

 


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

Re: How can I keep JES2 from being SYSPLEXed?

[Wendell Lovewell]

Thanks for the tips guys.  

I am using the same node name ("JES2") on both systems--that's probably why the 
XCFGRPNM parm was necessary.  (I NJE with a VSE machine & when the 3.1 system 
is the primary/only machine I'll move the CTC connection to the new system 
without changing any of the VSE stuff.)

These are 2 development systems running under VM.  No production at all. Once 
everything is set up on the z/OS 3.1 system, we probably will rarely run the 
2.5 system.  I just need them up together once in awhile to test things using a 
coupling facility, like VSAM/RLS between the 2 systems. 

Thanks again!

Wendell

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

Re: So Long, and Thanks for All the Fish*

[Mike Shaw]

Godspeed Cheryl...

Mike Shaw



On Mon, Jan 22, 2024, 11:33 PM Cheryl Watson 
wrote:

> * For those too young to remember, check out Wiki
>
> Hi all,
>
> I’m retiring, but first want to send out a thank you to all the
> IBM-Mainers still posting, as well as those who are no longer active.
> IBM-Main has provided a life-line to me at times when I had nowhere else to
> turn. (I remember one night at 3 am, where I was stuck on a problem, and
> found someone who could help me here.)
>
> I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros
> and cons of different approaches, and learn from some of the brightest in
> the industry. (I have to admit that I tend to ignore the posts that delve
> into the far annals of time, because I’m more focused on what is happening
> now.)
>
> I haven’t been too active recently because Frank Kyne, our outstanding
> Editor and President has been more involved in the technical side of
> things. But I want you all to know how valuable this group has been to me
> since it started. (Yes, I was one of those at the very beginning.)
>
> For more info on our retirement, please see our blog post at
> https://watsonwalker.com/were-retiring/.
>
> Thanks from the bottom of my heart!
>
> All my best,
> Cheryl Watson
> ==
> Cheryl Watson Walker, CEO
> Watson & Walker, Inc.
> Sarasota, FL USA
> www.watsonwalker.com
> Cell/Text: 941-266-6609
> ==
>
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: So Long, and Thanks for All the Fish*

[Steve Thompson]

Hi Cheryl:

It has been a great run. You will be missed. Sorry to hear you 
are shutting down the company.


I can tell you from those I've known who have retired, stay 
active. Physically and mentally.


Regards,
Steve Thompson

On 1/22/2024 11:33 PM, Cheryl Watson wrote:

* For those too young to remember, check out Wiki

Hi all,

I’m retiring, but first want to send out a thank you to all the IBM-Mainers 
still posting, as well as those who are no longer active. IBM-Main has provided 
a life-line to me at times when I had nowhere else to turn. (I remember one 
night at 3 am, where I was stuck on a problem, and found someone who could help 
me here.)

I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros and 
cons of different approaches, and learn from some of the brightest in the 
industry. (I have to admit that I tend to ignore the posts that delve into the 
far annals of time, because I’m more focused on what is happening now.)

I haven’t been too active recently because Frank Kyne, our outstanding Editor 
and President has been more involved in the technical side of things. But I 
want you all to know how valuable this group has been to me since it started. 
(Yes, I was one of those at the very beginning.)

For more info on our retirement, please see our blog post at 
https://watsonwalker.com/were-retiring/.

Thanks from the bottom of my heart!

All my best,
Cheryl Watson
==
Cheryl Watson Walker, CEO
Watson & Walker, Inc.
Sarasota, FL USA
www.watsonwalker.com
Cell/Text: 941-266-6609
==





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


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

Sv: Custom ISPF command

[Lars Höglund]

Using this Rexx (from Douglas H Adams), works perfect)
Did rewrite some code

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Mark Zelden
Skickat: den 23 januari 2024 17:43
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Custom ISPF command

On Tue, 23 Jan 2024 07:54:50 -0600, Tom Marchant  
wrote:

>"Obviously, you still need to restart ISPF to enable the new commands."
>
>It isn't obvious to me. For another example of modifying the command 
>table dynamically, see Gilbert Saint-Fluor's FASTPATH command on the 
>CBT tape. I use it regularly. Issuing the FASTPATH command within ISPF 
>adds some commands to the command table and they are immediately usable.
>
>--

I use FASTPATH and also my own USERCMDS table, which at times I've had to 
incorporate into SITECMDS or ISPCMDS depending on what the ISPF customization 
is at the shop I'm at.

As far as adding them dynamically, on some systems I access rarely, I simply 
use this CLIST to add all "my stuff" after ISPF invocation.  So NO - you do not 
need to restart ISPF.  

http://www.mzelden.com/mvsfiles/ispcmdsa.txt


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
http://www.mzelden.com/mvsutil.html

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
/ Rexx Procedure ***
*  *
* ISPF Commands Table Utility  *
*  *
* This utility is an alternative to ISPF/PDF option 3.9.   *
* It supports all the function of option 3.9 plus the following:   *
*  (1) Any application ID may be specified, even a currently active*
*  one (including ISP and ISR) -- if a table for an active *
*  application is changed, it is stored on DASD, but the active*
*  copy is not affected;   *
*  (2) The application ID defaults to the currently active one;*
*  (3) The output table library may be specified (the default is the   *
*  data set currently allocated to ISPTABL;*
*  (4) The following additional commands are supported:*
*  (a) FIND finds a character string within the verb, action or*
*  description fields; *
*  (b) LOCATE positions the display by verb;   *
*  (c) RFIND repeats the FIND action;  *
*  (d) SORT sorts by verb, except that all aliases are sorted at   *
*  the beginning of the commands table (aliases must precede   *
*  the commands they reference) -- the order of duplicate  *
*  verbs is preserved. *
*  *
* Additional members required: *
* Msgs:   CMDS00(imbedded) *
* Panels: CMDP001, CMDP001A (imbedded) *
* Tables: CMDSCMDS *
*  *
* Douglas H. Adams *
* Mail code 110-SH28   *
* Rockwell International Corporation   *
* 2201 Seal Beach Boulevard*
* P. O. Box 2515   *
* Seal Beach, California 90740-1515*
*  *
* (213) 797-2618   *
*  *
* September 19, 1990   *
*  *
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*
* partly rewritten 2013, by Lars Höglund Konsult AB (www.lhkab.com)*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*
*  *
* when   who  What *
* 2020-01-10 LasseReorganize some code (www.lhkab.com)

Re: Custom ISPF command

[Mark Zelden]

On Tue, 23 Jan 2024 07:54:50 -0600, Tom Marchant  
wrote:

>"Obviously, you still need to restart ISPF to enable the new commands."
>
>It isn't obvious to me. For another example of modifying the command 
>table dynamically, see Gilbert Saint-Fluor's FASTPATH command on the 
>CBT tape. I use it regularly. Issuing the FASTPATH command within ISPF 
>adds some commands to the command table and they are immediately usable.
>
>-- 

I use FASTPATH and also my own USERCMDS table, which at times I've had to
incorporate into SITECMDS or ISPCMDS depending on what the ISPF customization
is at the shop I'm at.

As far as adding them dynamically, on some systems I access rarely, I simply 
use this
CLIST to add all "my stuff" after ISPF invocation.  So NO - you do not need to
restart ISPF.  

http://www.mzelden.com/mvsfiles/ispcmdsa.txt


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

Re: How can I keep JES2 from being SYSPLEXed?

[Mark Zelden]

On Sun, 21 Jan 2024 15:14:08 -0600, Wendell Lovewell  
wrote:

>Thanks for your help Bruce and Paul.
>
>I was able to ask this to the IBM support team and they told me about the 
>"XCFGRPNM" parm on the JES2 MASDEF statement.  
>
>I hadn't specified a value for this, so both were using the default of "JES2". 
> This was causing the conflict, even though my intent was that they not be 
>part of the same MAS. 
>
>Adding “XCFGRPNM=someuniqueval” to the MASDEF statements allowed both systems 
>to come up, apparently independently of each other.  (I used JES2Z3 on my S0W3 
>system and JES2Z4 on my S0W1 system.)
>
>I did a cold start on the S0W3 JES, and these Groups/Members were used:
>GROUP SYSJES MEMBER S0W3  
>GROUP JES2Z3  MEMBER JES2$S0W3 
>GROUP SYSJ2$XD MEMBER JES2Z3$S0W3$  
>
>I did not do a cold start on the S0W1 JES, and I believe it used the 
>former/default value: 
>GROUP SYSJES MEMBER S0W1
>GROUP JES2  MEMBER JES2$S0W1   
>GROUP SYSJ2$XD MEMBER JES2$S0W1$$$
>
>
>Thanks again, 
>Wendell
>

I assume you had the same OWNNODE also?  Because I thought XCFGRPNM defaulted 
to the
OWNNODE.nodename if you don't code it.   If you want to connect those two 
independent
JES2 nodes, they are going to need a unique ownnode name.  


Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

Re: EXTERNAL EMAIL: So Long, and Thanks for All the Fish*

[Jerry Whitteridge]

Congratulations !

Jerry Whitteridge
Sr Manager Managed Services
jerry.whitteri...@albertsons.com
480 578 7889

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Cheryl Watson
Sent: Monday, January 22, 2024 9:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL EMAIL: So Long, and Thanks for All the Fish*

* For those too young to remember, check out Wiki

Hi all,

I’m retiring, but first want to send out a thank you to all the IBM-Mainers 
still posting, as well as those who are no longer active. IBM-Main has provided 
a life-line to me at times when I had nowhere else to turn. (I remember one 
night at 3 am, where I was stuck on a problem, and found someone who could help 
me here.)

I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros and 
cons of different approaches, and learn from some of the brightest in the 
industry. (I have to admit that I tend to ignore the posts that delve into the 
far annals of time, because I’m more focused on what is happening now.)

I haven’t been too active recently because Frank Kyne, our outstanding Editor 
and President has been more involved in the technical side of things. But I 
want you all to know how valuable this group has been to me since it started. 
(Yes, I was one of those at the very beginning.)

For more info on our retirement, please see our blog post at 
https://watsonwalker.com/were-retiring/.

Thanks from the bottom of my heart!

All my best,
Cheryl Watson
==
Cheryl Watson Walker, CEO
Watson & Walker, Inc.
Sarasota, FL USA
www.watsonwalker.com
Cell/Text: 941-266-6609
==





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

 Warning: All e-mail sent to this address will be received by the corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient. This e-mail may contain proprietary information and is intended only 
for the use of the intended recipient(s). If the reader of this message is not 
the intended recipient(s), you are notified that you have received this message 
in error and that any review, dissemination, distribution or copying of this 
message is strictly prohibited. If you have received this message in error, 
please notify the sender immediately.


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

Re: sdwagrsv not equal rbgrsave

[Mike Shaw]

+1

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Jan 23, 2024 at 10:47 AM Tom Harper 
wrote:

> Joseph,
>
> Programs executing in AMODE(31) can and often do store critical data in
> the high halves of registers, so I would always display the full 64-bit
> registers, and not make it a function of AMODE.
>
> Tom Harper
>
> Phoenix Software International
>
> Sent from my iPhone
>
> > On Jan 23, 2024, at 8:03 AM, Joseph Reichman 
> wrote:
> >
> > I had two main objectives in updating file 192
> >
> > First in amode 64 display 64 gpr
> >
> > Second when a abend occurs in a IBM service
> >
> > Be it PC or SVC
> >
> > Report on where in the user program this occurred
> >
> > For SVC this would be in the RB
> >
> > For PC ( which are normally space switching as well as stacking )
> >
> > In the linkage stack
> >
> > Sdwaec2 doesn’t have 64 bit gpr but they exist in the linkage stack
> >
> > Thanks
> >
> >>> On Jan 23, 2024, at 2:31 AM, Jon Perryman 
> wrote:
> >>>
> >>> On Thu, 18 Jan 2024 05:08:17 +, Peter Relson 
> wrote:
> >>>
> >>> 
> >>> I chain backward as its  the only way to do it wrapping around tcbrbp
> and next rb had the registers in the prefix it had SVC 12 maybe SVC 42
> issued that
> >>> 
> >>>
> >>> "Wrapping around tcbrbp" is a strange way to do much of anything.
> >>
> >> Hi Peter,
> >>
> >> Joseph is updating the abend recovery provided on the CBT available for
> public consumption. IBM abend does not always display abend module with
> offset. He is going to great lengths to obtain this information when not
> provided or when SDWAEC2 is different from SDWAEC1.
> >>
> >> I doubt that any vendor would do this because of possible risks. Having
> worked on critical software, the benefit never justified the risk of
> crippling a customer's system.
> >>
> >> I only mention this because you may have some tips for him. For
> instance, Wrapping around TCBRBP is his method for locating the module. Are
> there situations where the overhead could be problematic or worse yet a
> true multi-active task environment encountering problems such as an RB
> being removed. UNIX, CICS and OEM products.
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: 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 message, including any attachments, appended messages and the
> information contained therein, is for the sole use of the intended
> recipient(s). If you are not an intended recipient or have otherwise
> received this email message in error, any use, dissemination, distribution,
> review, storage or copying of this e-mail message and the information
> contained therein is strictly prohibited. If you are not an intended
> recipient, please contact the sender by reply e-mail and destroy all copies
> of this email message and do not otherwise utilize or retain this email
> message or any or all of the information contained therein. Although this
> email message and any attachments or appended messages are believed to be
> free of any virus or other defect that might affect any computer system
> into
> which it is received and opened, it is the responsibility of the recipient
> to ensure that it is virus free and no responsibility is accepted by the
> sender for any loss or damage arising in any way from its opening or use.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Cancel BPXAS

[Steely.Mark]

Try this:   F BPXOINIT,SHUTDOWN=FORKINIT

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Darrold Usher
Sent: Tuesday, January 23, 2024 9:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Cancel BPXAS



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

I’ve never had to cancel a BPXAS. Rather, I have had to cancel a process using 
a BPXAS initiator many times. Can you start there?

Use ps -ef and kill in uss or d omvs,a=all and cancel in zos.

On Tue, Jan 23, 2024 at 9:18 AM Roberto Halais 
wrote:

> Listers:
> I need to cancel a BPXAS which is hung. It has status PROT.
> We have not been able to cancel it or kill it.
> Any ideas?
>
> Thank you,
> Roberto
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: 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: So Long, and Thanks for All the Fish*

[Steve Beaver]

Cheryl you have been a beacon of order to community.

Have you attempted to find someone to take over Watson-Walker's function.

The reason ask is AI via Linux is available on the z16.

Regards,


Steve 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Cheryl Watson
Sent: Tuesday, January 23, 2024 9:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: So Long, and Thanks for All the Fish*

Hi Charles,

We have two websites-one public and one for subscribers only (this is the one 
with special search features). The one for subscribers-only will last until May 
2025, and then will cease to exist. The public one will gradually thin down, 
but we haven’t made any definite plans. 

People have asked us to make all the Tuning Letters available in an archive, 
and that’s a possibility, but not until much later. It wouldn’t be fair to our 
paying subscribers. 

Thanks so very much!
Cheryl
Phone: 941-266-6609

On Jan 23, 2024, at 12:03 AM, Charles Mills  wrote:

Going to miss you! Thanks for all of your service to the MF community.

Is your Web site going to stay up, or is it going away, along with you and Tom?

Charles

On Mon, 22 Jan 2024 23:33:20 -0500, Cheryl Watson  
wrote:

> * For those too young to remember, check out Wiki
> 
> Hi all,
> 
> I’m retiring, but first want to send out a thank you to all the IBM-Mainers 
> still posting, as well as those who are no longer active. IBM-Main has 
> provided a life-line to me at times when I had nowhere else to turn. (I 
> remember one night at 3 am, where I was stuck on a problem, and found someone 
> who could help me here.)
> 
> I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros 
> and cons of different approaches, and learn from some of the brightest in the 
> industry. (I have to admit that I tend to ignore the posts that delve into 
> the far annals of time, because I’m more focused on what is happening now.)
> 
> I haven’t been too active recently because Frank Kyne, our outstanding Editor 
> and President has been more involved in the technical side of things. But I 
> want you all to know how valuable this group has been to me since it started. 
> (Yes, I was one of those at the very beginning.)
> 
> For more info on our retirement, please see our blog post at 
> https://watsonwalker.com/were-retiring/.

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

[Tom Harper]

Joseph,

Programs executing in AMODE(31) can and often do store critical data in the 
high halves of registers, so I would always display the full 64-bit registers, 
and not make it a function of AMODE. 

Tom Harper

Phoenix Software International 

Sent from my iPhone

> On Jan 23, 2024, at 8:03 AM, Joseph Reichman  wrote:
> 
> I had two main objectives in updating file 192
> 
> First in amode 64 display 64 gpr 
> 
> Second when a abend occurs in a IBM service 
> 
> Be it PC or SVC 
> 
> Report on where in the user program this occurred 
> 
> For SVC this would be in the RB
> 
> For PC ( which are normally space switching as well as stacking ) 
> 
> In the linkage stack 
> 
> Sdwaec2 doesn’t have 64 bit gpr but they exist in the linkage stack 
> 
> Thanks 
> 
>>> On Jan 23, 2024, at 2:31 AM, Jon Perryman  wrote:
>>> 
>>> On Thu, 18 Jan 2024 05:08:17 +, Peter Relson  wrote:
>>> 
>>> 
>>> I chain backward as its  the only way to do it wrapping around tcbrbp and 
>>> next rb had the registers in the prefix it had SVC 12 maybe SVC 42 issued 
>>> that
>>> 
>>> 
>>> "Wrapping around tcbrbp" is a strange way to do much of anything.
>> 
>> Hi Peter,
>> 
>> Joseph is updating the abend recovery provided on the CBT available for 
>> public consumption. IBM abend does not always display abend module with 
>> offset. He is going to great lengths to obtain this information when not 
>> provided or when SDWAEC2 is different from SDWAEC1.
>> 
>> I doubt that any vendor would do this because of possible risks. Having 
>> worked on critical software, the benefit never justified the risk of 
>> crippling a customer's system.
>> 
>> I only mention this because you may have some tips for him. For instance, 
>> Wrapping around TCBRBP is his method for locating the module. Are there 
>> situations where the overhead could be problematic or worse yet a true 
>> multi-active task environment encountering problems such as an RB being 
>> removed. UNIX, CICS and OEM products.
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: 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 message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

Re: So Long, and Thanks for All the Fish*

[Cheryl Watson]

Hi Charles,

We have two websites-one public and one for subscribers only (this is the one 
with special search features). The one for subscribers-only will last until May 
2025, and then will cease to exist. The public one will gradually thin down, 
but we haven’t made any definite plans. 

People have asked us to make all the Tuning Letters available in an archive, 
and that’s a possibility, but not until much later. It wouldn’t be fair to our 
paying subscribers. 

Thanks so very much!
Cheryl
Phone: 941-266-6609

On Jan 23, 2024, at 12:03 AM, Charles Mills  wrote:

Going to miss you! Thanks for all of your service to the MF community.

Is your Web site going to stay up, or is it going away, along with you and Tom?

Charles

On Mon, 22 Jan 2024 23:33:20 -0500, Cheryl Watson  
wrote:

> * For those too young to remember, check out Wiki
> 
> Hi all,
> 
> I’m retiring, but first want to send out a thank you to all the IBM-Mainers 
> still posting, as well as those who are no longer active. IBM-Main has 
> provided a life-line to me at times when I had nowhere else to turn. (I 
> remember one night at 3 am, where I was stuck on a problem, and found someone 
> who could help me here.)
> 
> I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros 
> and cons of different approaches, and learn from some of the brightest in the 
> industry. (I have to admit that I tend to ignore the posts that delve into 
> the far annals of time, because I’m more focused on what is happening now.)
> 
> I haven’t been too active recently because Frank Kyne, our outstanding Editor 
> and President has been more involved in the technical side of things. But I 
> want you all to know how valuable this group has been to me since it started. 
> (Yes, I was one of those at the very beginning.)
> 
> For more info on our retirement, please see our blog post at 
> https://watsonwalker.com/were-retiring/.

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

[Darrold Usher]

I’ve never had to cancel a BPXAS. Rather, I have had to cancel a process
using a BPXAS initiator many times. Can you start there?

Use ps -ef and kill in uss or d omvs,a=all and cancel in zos.

On Tue, Jan 23, 2024 at 9:18 AM Roberto Halais 
wrote:

> Listers:
> I need to cancel a BPXAS which is hung. It has status PROT.
> We have not been able to cancel it or kill it.
> Any ideas?
>
> Thank you,
> Roberto
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Cancel BPXAS

[Roberto Halais]

Listers:
I need to cancel a BPXAS which is hung. It has status PROT.
We have not been able to cancel it or kill it.
Any ideas?

Thank you,
Roberto

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

software updates and supply chain [was: Another Getting away from the mainframe tale]

[Rick Troth]

Off-topic, so I changed the subject line.
And while what follows is not TSO nor batch, it *does* fit in USS space, 
so hopefully I won't get plonked. *:-)*


I've been collecting software in source form for several years. It 
started as a hobby, but lately looks like a supply chain gap-fill.
It's a decent sized body of code. If one is up for running a Linux 
kernel, you can get a fully self-hosting system with a build 
environment, including several important server programs (such as the 
Apache and Nginx web servers).

But a sizable portion compiles and runs just fine on USS.

I would appreciate help finding patches which facilitate the USS build. 
Most packages need minor tweaks for USS, but otherwise fly smoothly. The 
list is here ...


https://github.com/trothr/chicory/blob/master/doc/packages.md

It really chaps when some app stops working, "you must upgrade", not 
exclusive to software-as-a-service.
Sometimes a similar thing happens in open source land: the latest 
OpenSSH required a certain level of OpenSSL that I had trouble with. 
(The authors can expand dependency hell, and sadly sometimes do.)
Mandatory upgrades are usually forced on us in the name of security, but 
I find that the actual risks are not clearly enumerated and some are 
insignificant (and I hold a CISSP cert).


This project naturally tends toward open source.
I want to software, in source form, in my own hot little hands.
Download the source code, KEEP YOUR OWN COPY, be ready to fall-back to 
an older release if needed.


-- R; <><


On 1/22/24 09:19, Bob Bridges wrote:

Getting off-topic, here, but I've never felt the lure of the 365 subscription.  
Maybe it's just because I'm an old fart, but I dislike the idea of using 
software that they can change when THEY want to.  MS Office is the one app I 
shell out real money for whenever I buy a new PC; the rest of the time I'm 
happy using shareware, open software and the like.  But I want the software in 
my own hot little hands, not theirs.

For the same reason I'd still be using POP3 instead of IMAP, if I could.

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

/* The harder I practice, the luckier I get.  -Gary Player */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Thompson
Sent: Monday, January 22, 2024 08:55

Along those lines, if you get an office 365 subscription, bundled into this is 
one-drive. So unless you specifically save documents to a file server or on/in 
your computer (you do not use a one-drive path) you are using M/$ cloud.

And what I have found is, if you turn off one-drive, Word, XL, and others have problems 
with saving, restoring data. But not if you have them using a file server. ?!? And this 
means as soon as you create a new spreadsheet/document/powerpoint/etc. you have to do a 
"save as" to the file server.

Now, enterprise users of windows & Office, whole nuther thing.

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



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

Is there a way to monitor numtcb ?

[shivang sharma]

Hi all ,

I am trying to find a way to monitor usage of numtcb for an application
environment. Is this information stored in SMF?

Thanks

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

Re: Masking SMF data internally

[Martin Packer]

To my mind the real problem is making the data consistent and make sense.

BTW names are one thing but Plant/Serial is a good example of something that’s 
at least a machine identifier.

Cheers, Martin

From: IBM Mainframe Discussion List  on behalf of 
Radoslaw Skorupka <0471ebeac275-dmarc-requ...@listserv.ua.edu>
Date: Tuesday, 23 January 2024 at 09:45
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: [EXTERNAL] Re: Masking SMF data internally
You talk about fields.
However user see records, not fields. Various records.
Manual editing single records with known fields is easy, however mass
change can be risky.
Note: as usually *we don't know* what is the author's need. IMHO this is
the least active person in this thread.
Without that we can only guess, assume or create very generic models.


Regards
--
Radoslaw Skorupka
Lodz, Poland




W dniu 22.01.2024 o 17:24, ITschak Mugzach pisze:
> You can mask any character or external decimal field by using translate
> everything but a-z and 0 to 9 and check for minimum length (say, not less
> than three characters) in order not to convert hex data. Now find the
> positions and mask the original record. This way you do not care for the
> actual value in the field or record type.
>
> ITschak
>
>
>
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
>
>
>
> On Mon, Jan 22, 2024 at 5:50 PM Willy Jensen
> wrote:
>
>> Most SMF records can be copied to a normal VB dataset. As I recall, only
>> one or two CICS records were really that big (or perhaps it is DB2, it's
>> been a while)? Anyway, you can select the record types that you need and
>> the use SORT to convert to normal VB.
>>
>>

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

Unless otherwise stated above:

IBM United Kingdom Limited
Registered in England and Wales with number 741598
Registered office: PO Box 41, North Harbour, Portsmouth, Hants. PO6 3AU


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

Re: Custom ISPF command

[Radoslaw Skorupka]

Thank you, I appreciate it.



--
Radoslaw Skorupka
Lodz, Poland




W dniu 23.01.2024 o 15:03, Robert Prins pisze:

Here's the free-of-any errorchecking, I've only ever used it myself, small
exec to update command tables using the standard ISPF dialog. Obviously,
you still need to restart ISPF to enable the new commands. And of course
saving them, like I do, in my private EXEC library could be omitted.

Enjoy

/* REXX exec to update my command tables  */
/*** trace ?r * \| *
*   (C) Copyright Robert AH Prins, 2009-2010   *

*  --  *
* | Date   | By   | Remarks  | *
* |+--+--| *
* ||  |  | *
* |+--+--| *
* | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | *
* |+--+--| *
* | 2009-04-16 | RAHP | Now RAHP- and HERECMDS   | *
* |+--+--| *
* | 2009-04-08 | RAHP | Initial version  | *
* |+--+--| *

* UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and*
* site-specific (HERECMDS) tables. Because it is not possible to   *
* update an open ISPF command table, this exec copies it to CMDS,  *
* invokes ISPUCM (the command table update program) with a parameter   *
* of  and then copies the updated table back to USERCMDS. Note *
* that is necessary to restart ISPF to enable any new commands.*
*  *
* Copies of the new command tables are saved to my exec library.   *
*  *
* Note:*
*  *
* *"GETVAR" is my routine that retrieves site-dependent information,**
* *such as the names of my datasets allocated to ISPF etc.*  *

* Send questions, suggestions and/or bug reports to:   *
*  *
* rob...@prino.org / robert.ah.pr...@gmail.com *
*  *
* Robert AH Prins  *
* Ozkiniu gatve 48 *
* Vilnius 08405*
* Lithuania*

* This program is free software: you can redistribute it and/or*
* modify it under the terms of the GNU General Public License as   *
* published by the Free Software Foundation, either version 3 of   *
* the License, or (at your option) any later version.  *
*  *
* This program is distributed in the hope that it will be useful,  *
* but WITHOUT ANY WARRANTY; without even the implied warranty of   *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
*  *
* You should have received a copy of the GNU General Public License*
* along with this program. If not, see   *
***/
parse source source
parse value source with . . moi .

user.  = -1
user.1 = 'RAHP'
user.2 = 'HERE'

"ispexec vget (ucmds) shared"

if rc = 0 then
   do
 "ispexec verase (ucmds) shared"

 temp = copies('$', length(ucmds))

 "isredit macro"
 "isredit (MEM) = member"

 select
   when mem = temp'CMDS' then
 "isredit c '"temp"CMDS' '"ucmds"CMDS' first"

   /* irrelevant code removed */

   otherwise
 end

 "isredit end"

 exit
   end

!tabl = getvar('ispTABL')

drop isptabl
drop exec

"ispexec lminit dataid("isptabl") ddname(isptabl) enq(shrw)"
"ispexec lminit dataid("exec")",
"dataset('"getvar('execRAHP')"') enq(shrw)"

do u = 1 by 1 while user.u \= -1
   temp  = copies('$', length(user.u))
   ucmds = user.u

Re: Custom ISPF command

[Lionel B. Dyck]

I have an exec that I defined in the ISPF ZSTART variable that dynamically adds 
my personal fast path commands to the ispf commands table each time ISPF starts 
- no need to restart for them to be available.


Lionel B. Dyck <><
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Marchant
Sent: Tuesday, January 23, 2024 7:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Custom ISPF command

"Obviously, you still need to restart ISPF to enable the new commands."

It isn't obvious to me. For another example of modifying the command table 
dynamically, see Gilbert Saint-Fluor's FASTPATH command on the CBT tape. I use 
it regularly. Issuing the FASTPATH command within ISPF adds some commands to 
the command table and they are immediately usable.

--
Tom Marchant

On Tue, 23 Jan 2024 14:03:30 +, Robert Prins  
wrote:

>Here's the free-of-any errorchecking, I've only ever used it myself, 
>small exec to update command tables using the standard ISPF dialog. 
>Obviously, you still need to restart ISPF to enable the new commands. 
>And of course saving them, like I do, in my private EXEC library could be 
>omitted.
>
>Enjoy
>
>/* REXX exec to update my command tables  */
>/*** trace ?r * \| *
>*   (C) Copyright Robert AH Prins, 2009-2010   *
>***
>*
>*  --  *
>* | Date   | By   | Remarks  | *
>* |+--+--| *
>* ||  |  | *
>* |+--+--| *
>* | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | *
>* |+--+--| *
>* | 2009-04-16 | RAHP | Now RAHP- and HERECMDS   | *
>* |+--+--| *
>* | 2009-04-08 | RAHP | Initial version  | *
>* |+--+--| 
>*
>
>* UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and*
>* site-specific (HERECMDS) tables. Because it is not possible to   *
>* update an open ISPF command table, this exec copies it to CMDS,  *
>* invokes ISPUCM (the command table update program) with a parameter   *
>* of  and then copies the updated table back to USERCMDS. Note *
>* that is necessary to restart ISPF to enable any new commands.*
>*  *
>* Copies of the new command tables are saved to my exec library.   *
>*  *
>* Note:*
>*  *
>* *"GETVAR" is my routine that retrieves site-dependent information,**
>* *such as the names of my datasets allocated to ISPF etc.*  *
>
>* Send questions, suggestions and/or bug reports to:   *
>*  *
>* rob...@prino.org / robert.ah.pr...@gmail.com *
>*  *
>* Robert AH Prins  *
>* Ozkiniu gatve 48 *
>* Vilnius 08405*
>* Lithuania*
>
>* This program is free software: you can redistribute it and/or*
>* modify it under the terms of the GNU General Public License as   *
>* published by the Free Software Foundation, either version 3 of   *
>* the License, or (at your option) any later version.  *
>*  *
>* This program is distributed in the hope that it will be useful,  *
>* but WITHOUT ANY WARRANTY; without even the implied warranty of   *
>* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
>* GNU General Public License for more details. *
>*  *
>* You 

Re: Custom ISPF command

[Robert Prins]

On Tue, 23 Jan 2024 at 13:55, Tom Marchant <
000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote:

> "Obviously, you still need to restart ISPF to enable the new commands."
>
> It isn't obvious to me. For another example of modifying the command
> table dynamically, see Gilbert Saint-Fluor's FASTPATH command on the
> CBT tape. I use it regularly. Issuing the FASTPATH command within ISPF
> adds some commands to the command table and they are immediately usable.
>

Those are, if I'm correct, all tools to dynamically add commands, and yes
they are immediately available. I wrote my exec to actually edit the
command table, to make the new commands permanently available, and for that
reason you need to restart ISPF, although I'm sure someone might be able to
figure out a way of actually intercepting the addition of new commands, to
also add them dynamically to the in-use command table, by modifying the
panel. I'm doing something similar, i.e. modifying a panel, to make the
ISPF clipboards available outside Edit and View, see <
https://prino.neocities.org/zOS/zOS-Tools.html#editclip>

Robert
-- 
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather 
Some REXX code for use on z/OS


-- 
> Tom Marchant
>
> On Tue, 23 Jan 2024 14:03:30 +, Robert Prins <
> robert.ah.pr...@gmail.com> wrote:
>
> >Here's the free-of-any errorchecking, I've only ever used it myself, small
> >exec to update command tables using the standard ISPF dialog. Obviously,
> >you still need to restart ISPF to enable the new commands. And of course
> >saving them, like I do, in my private EXEC library could be omitted.
> >
> >Enjoy
> >
> >/* REXX exec to update my command tables  */
> >/*** trace ?r * \| *
> >*   (C) Copyright Robert AH Prins, 2009-2010   *
> >
> >*  --  *
> >* | Date   | By   | Remarks  | *
> >* |+--+--| *
> >* ||  |  | *
> >* |+--+--| *
> >* | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | *
> >* |+--+--| *
> >* | 2009-04-16 | RAHP | Now RAHP- and HERECMDS   | *
> >* |+--+--| *
> >* | 2009-04-08 | RAHP | Initial version  | *
> >* |+--+--| *
> >
> >* UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and*
> >* site-specific (HERECMDS) tables. Because it is not possible to   *
> >* update an open ISPF command table, this exec copies it to CMDS,  *
> >* invokes ISPUCM (the command table update program) with a parameter   *
> >* of  and then copies the updated table back to USERCMDS. Note *
> >* that is necessary to restart ISPF to enable any new commands.*
> >*  *
> >* Copies of the new command tables are saved to my exec library.   *
> >*  *
> >* Note:*
> >*  *
> >* *"GETVAR" is my routine that retrieves site-dependent information,**
> >* *such as the names of my datasets allocated to ISPF etc.*  *
> >
> >* Send questions, suggestions and/or bug reports to:   *
> >*  *
> >* rob...@prino.org / robert.ah.pr...@gmail.com *
> >*  *
> >* Robert AH Prins  *
> >* Ozkiniu gatve 48 *
> >* Vilnius 08405*
> >* Lithuania*
> >
> >* This program is free software: you can redistribute it and/or*
> >* modify it under the terms of the GNU General Public License as   *
> >* published by the Free Software Foundation, either version 3 of   *
> >* the License, or (at your option) any later version.  *

Re: OT-ish: Very old IBM hardware & manuals available

[William Donzelli]

I think we could find interested people that could get the stuff to
good homes and Bitsavers. I would be interested in some of it - not
all, as it does need to travel.

I look forward to the pictures.

--
Will

On Tue, Jan 23, 2024 at 8:53 AM Robert Prins  wrote:
>
> Hi all,
>
> My father worked for IBM in the Netherlands for more than 30 years,
> starting as a CE in the late 1950'ies. Last year he was diagnosed with
> Alzheimer, and over the past few months my siblings and me have been
> emptying his apartment and storage room, and we've come across a sizeable
> quantity of IBM "stuff", from manuals for the 650 to old square cm
> "integrated circuits" and even a magnetic core memory card. My siblings
> weren't in the least interested in any of it, so I took it, and although
> it's nice to look at, our house is already full enough as it is, so...
>
> If anyone thinks they can offer a good home to these things, and I will,
> hopefully soon, put pictures of everything that surfaces on my website,
> feel free to contact me off this list and we can take it from there. You'll
> most definitely be paying for shipping (from Lithuania), and based on what
> I'm going to find out on fleabay, I might ask for a bit more.
>
> Robert
> --
> Robert AH Prins
> robert(a)prino(d)org
> The hitchhiking grandfather 
> Some REXX code for use on z/OS
> 
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Custom ISPF command

[Tom Marchant]

"Obviously, you still need to restart ISPF to enable the new commands."

It isn't obvious to me. For another example of modifying the command 
table dynamically, see Gilbert Saint-Fluor's FASTPATH command on the 
CBT tape. I use it regularly. Issuing the FASTPATH command within ISPF 
adds some commands to the command table and they are immediately usable.

-- 
Tom Marchant

On Tue, 23 Jan 2024 14:03:30 +, Robert Prins  
wrote:

>Here's the free-of-any errorchecking, I've only ever used it myself, small
>exec to update command tables using the standard ISPF dialog. Obviously,
>you still need to restart ISPF to enable the new commands. And of course
>saving them, like I do, in my private EXEC library could be omitted.
>
>Enjoy
>
>/* REXX exec to update my command tables  */
>/*** trace ?r * \| *
>*   (C) Copyright Robert AH Prins, 2009-2010   *
>
>*  --  *
>* | Date   | By   | Remarks  | *
>* |+--+--| *
>* ||  |  | *
>* |+--+--| *
>* | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | *
>* |+--+--| *
>* | 2009-04-16 | RAHP | Now RAHP- and HERECMDS   | *
>* |+--+--| *
>* | 2009-04-08 | RAHP | Initial version  | *
>* |+--+--| *
>
>* UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and*
>* site-specific (HERECMDS) tables. Because it is not possible to   *
>* update an open ISPF command table, this exec copies it to CMDS,  *
>* invokes ISPUCM (the command table update program) with a parameter   *
>* of  and then copies the updated table back to USERCMDS. Note *
>* that is necessary to restart ISPF to enable any new commands.*
>*  *
>* Copies of the new command tables are saved to my exec library.   *
>*  *
>* Note:*
>*  *
>* *"GETVAR" is my routine that retrieves site-dependent information,**
>* *such as the names of my datasets allocated to ISPF etc.*  *
>
>* Send questions, suggestions and/or bug reports to:   *
>*  *
>* rob...@prino.org / robert.ah.pr...@gmail.com *
>*  *
>* Robert AH Prins  *
>* Ozkiniu gatve 48 *
>* Vilnius 08405*
>* Lithuania*
>
>* This program is free software: you can redistribute it and/or*
>* modify it under the terms of the GNU General Public License as   *
>* published by the Free Software Foundation, either version 3 of   *
>* the License, or (at your option) any later version.  *
>*  *
>* This program is distributed in the hope that it will be useful,  *
>* but WITHOUT ANY WARRANTY; without even the implied warranty of   *
>* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
>* GNU General Public License for more details. *
>*  *
>* You should have received a copy of the GNU General Public License*
>* along with this program. If not, see   *
>***/
>parse source source
>parse value source with . . moi .
>
>user.  = -1
>user.1 = 'RAHP'
>user.2 = 'HERE'
>
>"ispexec vget (ucmds) shared"
>
>if rc = 0 then
>  do
>"ispexec verase (ucmds) shared"
>
>temp = copies('$', length(ucmds))
>
>"isredit macro"
>"isredit (MEM) = member"
>
>select
>  when mem = temp'CMDS' then
>"isredit c '"temp"CMDS' '"ucmds"CMDS' first"
>
>  

OT-ish: Very old IBM hardware & manuals available

[Robert Prins]

Hi all,

My father worked for IBM in the Netherlands for more than 30 years,
starting as a CE in the late 1950'ies. Last year he was diagnosed with
Alzheimer, and over the past few months my siblings and me have been
emptying his apartment and storage room, and we've come across a sizeable
quantity of IBM "stuff", from manuals for the 650 to old square cm
"integrated circuits" and even a magnetic core memory card. My siblings
weren't in the least interested in any of it, so I took it, and although
it's nice to look at, our house is already full enough as it is, so...

If anyone thinks they can offer a good home to these things, and I will,
hopefully soon, put pictures of everything that surfaces on my website,
feel free to contact me off this list and we can take it from there. You'll
most definitely be paying for shipping (from Lithuania), and based on what
I'm going to find out on fleabay, I might ask for a bit more.

Robert
-- 
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather 
Some REXX code for use on z/OS


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

Re: So Long, and Thanks for All the Fish*

[Seymour J Metz]

First, and most important, enjoy your retirement. I'm happy for you, but sad 
that the tuning newsletter is going away. Thanks for your good work over the 
years.

Is there any chance of providing everything to a public archive like bitsavers, 
or to SHARE?

42

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר


From: IBM Mainframe Discussion List  on behalf of 
Cheryl Watson 
Sent: Monday, January 22, 2024 11:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: So Long, and Thanks for All the Fish*

* For those too young to remember, check out Wiki

Hi all,

I’m retiring, but first want to send out a thank you to all the IBM-Mainers 
still posting, as well as those who are no longer active. IBM-Main has provided 
a life-line to me at times when I had nowhere else to turn. (I remember one 
night at 3 am, where I was stuck on a problem, and found someone who could help 
me here.)

I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros and 
cons of different approaches, and learn from some of the brightest in the 
industry. (I have to admit that I tend to ignore the posts that delve into the 
far annals of time, because I’m more focused on what is happening now.)

I haven’t been too active recently because Frank Kyne, our outstanding Editor 
and President has been more involved in the technical side of things. But I 
want you all to know how valuable this group has been to me since it started. 
(Yes, I was one of those at the very beginning.)

For more info on our retirement, please see our blog post at 
https://watsonwalker.com/were-retiring/.

Thanks from the bottom of my heart!

All my best,
Cheryl Watson
==
Cheryl Watson Walker, CEO
Watson & Walker, Inc.
Sarasota, FL USA
http://www.watsonwalker.com/
Cell/Text: 941-266-6609
==





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

[Seymour J Metz]

For services entered with a branch or jump, the save baarea is also relevant.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר


From: IBM Mainframe Discussion List  on behalf of 
Joseph Reichman 
Sent: Tuesday, January 23, 2024 8:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: sdwagrsv not equal rbgrsave

I had two main objectives in updating file 192

First in amode 64 display 64 gpr

Second when a abend occurs in a IBM service

Be it PC or SVC

Report on where in the user program this occurred

For SVC this would be in the RB

For PC ( which are normally space switching as well as stacking )

In the linkage stack

Sdwaec2 doesn’t have 64 bit gpr but they exist in the linkage stack

Thanks

> On Jan 23, 2024, at 2:31 AM, Jon Perryman  wrote:
>
> On Thu, 18 Jan 2024 05:08:17 +, Peter Relson  wrote:
>
>> 
>> I chain backward as its  the only way to do it wrapping around tcbrbp and 
>> next rb had the registers in the prefix it had SVC 12 maybe SVC 42 issued 
>> that
>> 
>>
>> "Wrapping around tcbrbp" is a strange way to do much of anything.
>
> Hi Peter,
>
> Joseph is updating the abend recovery provided on the CBT available for 
> public consumption. IBM abend does not always display abend module with 
> offset. He is going to great lengths to obtain this information when not 
> provided or when SDWAEC2 is different from SDWAEC1.
>
> I doubt that any vendor would do this because of possible risks. Having 
> worked on critical software, the benefit never justified the risk of 
> crippling a customer's system.
>
> I only mention this because you may have some tips for him. For instance, 
> Wrapping around TCBRBP is his method for locating the module. Are there 
> situations where the overhead could be problematic or worse yet a true 
> multi-active task environment encountering problems such as an RB being 
> removed. UNIX, CICS and OEM products.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: sdwagrsv not equal rbgrsave

[Joseph Reichman]

I had two main objectives in updating file 192

First in amode 64 display 64 gpr 

Second when a abend occurs in a IBM service 

Be it PC or SVC 

Report on where in the user program this occurred 

For SVC this would be in the RB

For PC ( which are normally space switching as well as stacking ) 

In the linkage stack 

Sdwaec2 doesn’t have 64 bit gpr but they exist in the linkage stack 

Thanks 

> On Jan 23, 2024, at 2:31 AM, Jon Perryman  wrote:
> 
> On Thu, 18 Jan 2024 05:08:17 +, Peter Relson  wrote:
> 
>> 
>> I chain backward as its  the only way to do it wrapping around tcbrbp and 
>> next rb had the registers in the prefix it had SVC 12 maybe SVC 42 issued 
>> that
>> 
>> 
>> "Wrapping around tcbrbp" is a strange way to do much of anything.
> 
> Hi Peter,
> 
> Joseph is updating the abend recovery provided on the CBT available for 
> public consumption. IBM abend does not always display abend module with 
> offset. He is going to great lengths to obtain this information when not 
> provided or when SDWAEC2 is different from SDWAEC1.
> 
> I doubt that any vendor would do this because of possible risks. Having 
> worked on critical software, the benefit never justified the risk of 
> crippling a customer's system.
> 
> I only mention this because you may have some tips for him. For instance, 
> Wrapping around TCBRBP is his method for locating the module. Are there 
> situations where the overhead could be problematic or worse yet a true 
> multi-active task environment encountering problems such as an RB being 
> removed. UNIX, CICS and OEM products.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: So Long, and Thanks for All the Fish*

[Jay Maynard]

Cheryl, I never had much call to use your knowledge, but I know it has been
useful to mainframe shops all around the world. I was more than a little
pleased to see you were still around the other day. I hope you have plenty
of time to enjoy a very well-earned retirement in the best of health.

On Mon, Jan 22, 2024 at 10:34 PM Cheryl Watson 
wrote:

> * For those too young to remember, check out Wiki
>
> Hi all,
>
> I’m retiring, but first want to send out a thank you to all the
> IBM-Mainers still posting, as well as those who are no longer active.
> IBM-Main has provided a life-line to me at times when I had nowhere else to
> turn. (I remember one night at 3 am, where I was stuck on a problem, and
> found someone who could help me here.)
>
> I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros
> and cons of different approaches, and learn from some of the brightest in
> the industry. (I have to admit that I tend to ignore the posts that delve
> into the far annals of time, because I’m more focused on what is happening
> now.)
>
> I haven’t been too active recently because Frank Kyne, our outstanding
> Editor and President has been more involved in the technical side of
> things. But I want you all to know how valuable this group has been to me
> since it started. (Yes, I was one of those at the very beginning.)
>
> For more info on our retirement, please see our blog post at
> https://watsonwalker.com/were-retiring/.
>
> Thanks from the bottom of my heart!
>
> All my best,
> Cheryl Watson
> ==
> Cheryl Watson Walker, CEO
> Watson & Walker, Inc.
> Sarasota, FL USA
> www.watsonwalker.com
> Cell/Text: 941-266-6609
> ==
>
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Jay Maynard

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

Re: So Long, and Thanks for All the Fish*

[Ituriel do Neto]

You are and will always be an inspiration to me.


Best Regards

Ituriel do Nascimento Neto
z/OS System Programmer






Em terça-feira, 23 de janeiro de 2024 às 04:39:23 BRT, Timothy Sipples 
 escreveu: 





Best wishes Cheryl! If Singapore is on your bucket list please stop by to say 
hello.

—
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity
IBM Z/LinuxONE, Asia-Pacific
sipp...@sg.ibm.com


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

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

Re: Custom ISPF command

[Robert Prins]

Here's the free-of-any errorchecking, I've only ever used it myself, small
exec to update command tables using the standard ISPF dialog. Obviously,
you still need to restart ISPF to enable the new commands. And of course
saving them, like I do, in my private EXEC library could be omitted.

Enjoy

/* REXX exec to update my command tables  */
/*** trace ?r * \| *
*   (C) Copyright Robert AH Prins, 2009-2010   *

*  --  *
* | Date   | By   | Remarks  | *
* |+--+--| *
* ||  |  | *
* |+--+--| *
* | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | *
* |+--+--| *
* | 2009-04-16 | RAHP | Now RAHP- and HERECMDS   | *
* |+--+--| *
* | 2009-04-08 | RAHP | Initial version  | *
* |+--+--| *

* UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and*
* site-specific (HERECMDS) tables. Because it is not possible to   *
* update an open ISPF command table, this exec copies it to CMDS,  *
* invokes ISPUCM (the command table update program) with a parameter   *
* of  and then copies the updated table back to USERCMDS. Note *
* that is necessary to restart ISPF to enable any new commands.*
*  *
* Copies of the new command tables are saved to my exec library.   *
*  *
* Note:*
*  *
* *"GETVAR" is my routine that retrieves site-dependent information,**
* *such as the names of my datasets allocated to ISPF etc.*  *

* Send questions, suggestions and/or bug reports to:   *
*  *
* rob...@prino.org / robert.ah.pr...@gmail.com *
*  *
* Robert AH Prins  *
* Ozkiniu gatve 48 *
* Vilnius 08405*
* Lithuania*

* This program is free software: you can redistribute it and/or*
* modify it under the terms of the GNU General Public License as   *
* published by the Free Software Foundation, either version 3 of   *
* the License, or (at your option) any later version.  *
*  *
* This program is distributed in the hope that it will be useful,  *
* but WITHOUT ANY WARRANTY; without even the implied warranty of   *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
*  *
* You should have received a copy of the GNU General Public License*
* along with this program. If not, see   *
***/
parse source source
parse value source with . . moi .

user.  = -1
user.1 = 'RAHP'
user.2 = 'HERE'

"ispexec vget (ucmds) shared"

if rc = 0 then
  do
"ispexec verase (ucmds) shared"

temp = copies('$', length(ucmds))

"isredit macro"
"isredit (MEM) = member"

select
  when mem = temp'CMDS' then
"isredit c '"temp"CMDS' '"ucmds"CMDS' first"

  /* irrelevant code removed */

  otherwise
end

"isredit end"

exit
  end

!tabl = getvar('ispTABL')

drop isptabl
drop exec

"ispexec lminit dataid("isptabl") ddname(isptabl) enq(shrw)"
"ispexec lminit dataid("exec")",
   "dataset('"getvar('execRAHP')"') enq(shrw)"

do u = 1 by 1 while user.u \= -1
  temp  = copies('$', length(user.u))
  ucmds = user.u

  "alloc f(i) da('"!tabl"("user.u"cmds)') shr reu"
  "alloc f(o) da('"!tabl"("temp"cmds)') shr reu"

  "execio * diskr i (finis"
  

Re: Masking SMF data internally

[Itschak Mugzach]

At the end, you mask specific fields (which are defined in records). The
method I offered is generic. The data for this logic is unstructured, and
the translation purpose is to identify possible texts and numbers the user
might wish to hide. A loop of TRANSLATE, VERIFY and OVERLAY does need
structured data.
Indeed, the OP didn't supply much info.
ITschak

*| **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 Tue, Jan 23, 2024 at 11:45 AM Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:

> You talk about fields.
> However user see records, not fields. Various records.
> Manual editing single records with known fields is easy, however mass
> change can be risky.
> Note: as usually *we don't know* what is the author's need. IMHO this is
> the least active person in this thread.
> Without that we can only guess, assume or create very generic models.
>
>
> Regards
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
> W dniu 22.01.2024 o 17:24, ITschak Mugzach pisze:
> > You can mask any character or external decimal field by using translate
> > everything but a-z and 0 to 9 and check for minimum length (say, not less
> > than three characters) in order not to convert hex data. Now find the
> > positions and mask the original record. This way you do not care for the
> > actual value in the field or record type.
> >
> > ITschak
> >
> >
> >
> > ITschak Mugzach
> > *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> > for z/OS, x/Linux & IBM I **| z/VM coming soon  *
> >
> >
> >
> >
> > On Mon, Jan 22, 2024 at 5:50 PM Willy Jensen
> > wrote:
> >
> >> Most SMF records can be copied to a normal VB dataset. As I recall, only
> >> one or two CICS records were really that big (or perhaps it is DB2, it's
> >> been a while)? Anyway, you can select the record types that you need and
> >> the use SORT to convert to normal VB.
> >>
> >>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Masking SMF data internally

[Radoslaw Skorupka]

You talk about fields.
However user see records, not fields. Various records.
Manual editing single records with known fields is easy, however mass 
change can be risky.
Note: as usually *we don't know* what is the author's need. IMHO this is 
the least active person in this thread.

Without that we can only guess, assume or create very generic models.


Regards
--
Radoslaw Skorupka
Lodz, Poland




W dniu 22.01.2024 o 17:24, ITschak Mugzach pisze:

You can mask any character or external decimal field by using translate
everything but a-z and 0 to 9 and check for minimum length (say, not less
than three characters) in order not to convert hex data. Now find the
positions and mask the original record. This way you do not care for the
actual value in the field or record type.

ITschak



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




On Mon, Jan 22, 2024 at 5:50 PM Willy Jensen
wrote:


Most SMF records can be copied to a normal VB dataset. As I recall, only
one or two CICS records were really that big (or perhaps it is DB2, it's
been a while)? Anyway, you can select the record types that you need and
the use SORT to convert to normal VB.




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