Re: Transmitting SMF records

2022-12-20 Thread Seymour J Metz
Rackspace has historically had reputation issues and has found itself on 
anti-abuse block lists. It would be advisable to check whether any of your 
Rackspace IP addresses are listed.


From: IBM Mainframe Discussion List  on behalf of 
Boesel Guillaume 
Sent: Thursday, December 15, 2022 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Transmitting SMF records

>From Barry Merrill :


My mxg.com email server company, RACKSPACE, took a Ransomeware attack and I'm 
unable to originate mail from ba...@mxg.com, although I am receiving forwards.
Can you post this to the IBM-MAIN track for me.

The problem with moving SMF records with ftp is that whenever ftp sees 
RECFM=V/VB/VBS,
it strips the BDW and RDW fields and only sends the data in those records, 
which is a totally
useless file.

Terse works,  for z/OS to z/OS, and also works sending to ASCII, where you can 
using the UNTERSE.EXE program that Cheryl Watson provides. to recreate the 
original VBS file.

But if the destination is for ASCII and SAS, you can use IEBGENER to create a 
copy of
the data, on z/OS, but using RECFM=U, which ftp can't muck-up, and SAS on ASCII 
processes that data using RECFM=S370VBS, since the file has the BDW and RDW, so 
the downloaded file
RECFM=U file can be read directly by SAS.

 // EXEC PGM=IEBGENER
 //SYSUT1 DD DSN=YOUR.VB.FILE,DISP=SHR,RECFM=U,BLKSIZE=32760
 //SYSUT2 DD DSN=YOUR.NEW.RECFMU,DISP=(,CATLG),RECFM=U,
 //  BLKSIZE=32760,UNIT=SYSDA,SPACE=(CYL,(50,50))
 //SYSIN  DD DUMMY

And since the RECFM=U file has the BDW and RDW, it could be processed on z/OS
to recreate the original VBS data.

Merrilly Christmas,
Barry Merrill

--
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: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Seymour J Metz
The devil is in the details. What sort of security controls will IBM have for 
Python scripts in  Netview?


From: IBM Mainframe Discussion List  on behalf of 
Steve Horein 
Sent: Tuesday, December 20, 2022 5:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Re; Rexx function STORAGE with weird behavior on Netview

Re: scripting: Not yet?
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fibm-z-software-portal.ideas.ibm.com%2Fideas%2FZNETVIEW-I-42=05%7C01%7Csmetz3%40gmu.edu%7C8c8d7d2a5eab4dd1366408dae2dc9915%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638071734348128669%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=fMdTBHPlgDmp%2FQXiVTg2Ljd65m6dQGfsOzX42ri7YzY%3D=0
I am not the author of the idea, but I will certainly vote for it next time
I'm logged on.

On Tue, Dec 20, 2022 at 12:40 PM Seymour J Metz  wrote:

> Doesn't NETVIEW run multiple users in the same address space? Can you
> write NETVIEW scripts in anything other than CLIST and REXX?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> Sent: Tuesday, December 20, 2022 10:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Re; Rexx function STORAGE with weird behavior on Netview
>
> On Tue, 20 Dec 2022 10:31:37 +, Jack Zukt wrote:
> >
> >The glitch was the NETVIEW REXXSTRF value thas was set to the default
> >DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.
> >
> Please describe OVERRIDE.  Is that a parameter to NETVIEW?
>
> Star Trek trope:
> "Computer, access data base."
>
> "Access denied."
>
> "Override!"
>
> "Access granted."
>
> ... makes sense if "Override"  is the root password.
>
> I'm puzzled.  If the objective of DISABLE is  to prevent access to
> sensitive data,
> wouldn't storage keys and segment protection be sufficient and necessary?
> REXXSTRF would seem to restrict only REXX, not other programming languages.
>
> --
> gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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


Re: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Steve Horein
Re: scripting: Not yet?
https://ibm-z-software-portal.ideas.ibm.com/ideas/ZNETVIEW-I-42
I am not the author of the idea, but I will certainly vote for it next time
I'm logged on.

On Tue, Dec 20, 2022 at 12:40 PM Seymour J Metz  wrote:

> Doesn't NETVIEW run multiple users in the same address space? Can you
> write NETVIEW scripts in anything other than CLIST and REXX?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> Sent: Tuesday, December 20, 2022 10:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Re; Rexx function STORAGE with weird behavior on Netview
>
> On Tue, 20 Dec 2022 10:31:37 +, Jack Zukt wrote:
> >
> >The glitch was the NETVIEW REXXSTRF value thas was set to the default
> >DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.
> >
> Please describe OVERRIDE.  Is that a parameter to NETVIEW?
>
> Star Trek trope:
> "Computer, access data base."
>
> "Access denied."
>
> "Override!"
>
> "Access granted."
>
> ... makes sense if "Override"  is the root password.
>
> I'm puzzled.  If the objective of DISABLE is  to prevent access to
> sensitive data,
> wouldn't storage keys and segment protection be sufficient and necessary?
> REXXSTRF would seem to restrict only REXX, not other programming languages.
>
> --
> gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread David Price
Try putting a line like
numeric digits 20
somewhere before your first use of the storage function.

Some of the storage function calculations need more than the default 9 digits' 
precision, depending on address values and memory contents.

I've had inconsistent results when I've forgotten to set numeric digits to a 
decent value.  That's why Mark Zelden has the comment /* dflt of 9 not enough 
*/ in his IPLINFO exec.

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


Re: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Seymour J Metz
Doesn't NETVIEW run multiple users in the same address space? Can you write 
NETVIEW scripts in anything other than CLIST and REXX?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, December 20, 2022 10:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Re; Rexx function STORAGE with weird behavior on Netview

On Tue, 20 Dec 2022 10:31:37 +, Jack Zukt wrote:
>
>The glitch was the NETVIEW REXXSTRF value thas was set to the default
>DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.
>
Please describe OVERRIDE.  Is that a parameter to NETVIEW?

Star Trek trope:
"Computer, access data base."

"Access denied."

"Override!"

"Access granted."

... makes sense if "Override"  is the root password.

I'm puzzled.  If the objective of DISABLE is  to prevent access to sensitive 
data,
wouldn't storage keys and segment protection be sufficient and necessary?
REXXSTRF would seem to restrict only REXX, not other programming languages.

--
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: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Jack Zukt
Hi,

That was on a LINK provided by Sebastian Welton (thank you Sebastian):
https://www.ibm.com/docs/en/z-netview/6.2.0?topic=overview-netview-restrictions-rexx-functions

Regards,
Jack


On Tue, 20 Dec 2022 at 15:58, Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 20 Dec 2022 10:31:37 +, Jack Zukt wrote:
> >
> >The glitch was the NETVIEW REXXSTRF value thas was set to the default
> >DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.
> >
> Please describe OVERRIDE.  Is that a parameter to NETVIEW?
>
> Star Trek trope:
> "Computer, access data base."
>
> "Access denied."
>
> "Override!"
>
> "Access granted."
>
> ... makes sense if "Override"  is the root password.
>
> I'm puzzled.  If the objective of DISABLE is  to prevent access to
> sensitive data,
> wouldn't storage keys and segment protection be sufficient and necessary?
> REXXSTRF would seem to restrict only REXX, not other programming languages.
>
> --
> 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: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Paul Gilmartin
On Tue, 20 Dec 2022 10:31:37 +, Jack Zukt wrote:
>
>The glitch was the NETVIEW REXXSTRF value thas was set to the default
>DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.
>
Please describe OVERRIDE.  Is that a parameter to NETVIEW?

Star Trek trope:
"Computer, access data base."

"Access denied."

"Override!"

"Access granted."

... makes sense if "Override"  is the root password.

I'm puzzled.  If the objective of DISABLE is  to prevent access to sensitive 
data,
wouldn't storage keys and segment protection be sufficient and necessary?
REXXSTRF would seem to restrict only REXX, not other programming languages.

-- 
gil

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


Re: Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Seymour J Metz
Tested examples are good. I sent an RCF, but didn't suggest examples. Also, it 
might be good to bold "hexadecimal" in the parameter description.


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu>
Sent: Monday, December 19, 2022 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx function STORAGE with weird behavior on Netview

On Mon, 19 Dec 2022 16:29:37 +, Seymour J Metz wrote:

>In REXX, a decimal number *IS* a string.
>
Yes.  Trying the following instruction might be informative:
say c2x( 10 ) c2x( '10' ) c2x( "10" )

>... The semantics for the first parameter of STORAGE is the same on every 
> REXX implementation that I have used.
>
>For hexadecimal arithmetic, try something like FOO = D2X ( X2D(BAR) + X2D(BAZ) 
>)
>
The very brief section in the TSO/E Rexx User's Guide, "Using the STORAGE 
Function"
would  benefit from a *tested* example of using STORAGE() to follow a chain of 
control
blocks.  Such as:
P = STORAGE( addr, 4 )
NEXT = STORAGE( C2X( C2D( P ) + OFFSET ), 4 )  /* Untested!  */

The comment, "be sure that the values for REXXSTRF is ENABLE" seems most 
plausible.

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


RCF: SA32-0972-50

2022-12-20 Thread Seymour J Metz
z/OS 2.5 TSO/E REXX Reference, SA32-0972-50, should note that the STORAGE 
function is sometimes disabled, e.g. in  NETVIEW with REXXSTRF=DISABLE.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Top Secret - TSSINSTX

2022-12-20 Thread Pierre Fichaud
I missed this posting so I am replying late.

Yes, I have turned on PREINIT, POSTINIT, PASSWORD and PASSPHRASE.

I've driven PREINIT and POSTINIT functions.
The pointer to the password is supplied.
The pointer to the passphrase is never supplied.
When is the pointer to the passphrase supplied for PREINIT/POSTINIT ? 
I tested with 2 userids, one without a passphrase and one with a passphrase.

I've driven the PASSWORD function by expiring a password and that works fine.

I can't figure out how to drive the PASSPHRASE function.

Any help here would be appreciated.
TIA, Pierre.

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


Re: CVTLSOL Signed?

2022-12-20 Thread Steve Smith
It's clear enough; maybe too clear.

But, the last sentence isn't correct; the lower half of a binary field is
neither signed nor unsigned (although I presume you meant "regarded as
unsigned"), it's just a broken-off piece with no meaning at all.  Special
case of the absolute value being less than what the lower half can hold
notwithstanding.  I do get that your point is that sign-extension from the
lower half is incorrect.

So, you're correct about CVTLSOL as being incorrectly identified as
signed.  I'd say both CVTLSOH & CVTLSOL are useless anyway, but the
"SIGNED" should be removed from both.  In CVTLSOH, while technically
correct, saying it's signed is specious.

Bottom, line, sure is a lot of words for a small problem.

sas

On Tue, Dec 20, 2022 at 12:08 AM Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> In a Data Areas manual for CVT, I find:
> ...
>LEAP SECOND
> 80 (50)DBL WORD  8  CVTLSO(0)  OFFSET
>IN TOD FORMAT
> 80 (50)SIGNED4  CVTLSOHHIGH WORD
>
> 84 (54)SIGNED4  CVTLSOLLOW WORD
>
> I disagree with the characterization if CVTLSOL as "SIGNED".
> For example, the current value of CVTLSO, 27 seconds is:
>   0019 BFCC   which is  is greater than:
>   0019    even though the sign bit of CVTLSOL
> is set.  In general, the lower full word of a signed double word must
> be regarded as signed, even as the lower byte of a signed halfword
> is unsigned.  E.g. H'0080' represents 128, not -128.
>
> Is my statement clear enough for an RCF?
>
> --
> 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: Re; Rexx function STORAGE with weird behavior on Netview

2022-12-20 Thread Jack Zukt
Hello all,

The glitch was the NETVIEW REXXSTRF value thas was set to the default
DISABLE. While we wait for an IPL, the OVERRIDE solves the issue.

And as Kulosu noted, it is Mark Zelden's IPLINFO rexx that we are using,
not an IBM supplied one.

Thank you all for your time and valuable assistance.

Best Regards,
Jack


On Mon, 19 Dec 2022 at 17:01, Phil Smith III  wrote:

> A local Rexx function doesn't override a BIF unless it's in the same Rexx
> program. At least, not that I've ever seen.
>
>
>
> This seems like it should be easy to diagnose: just write a tiny program
> that just does that storage() call and trace it.
>
>
> --
> 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: CIM and PortNumber

2022-12-20 Thread Radoslaw Skorupka

Yes, ElementName is in format: LPARname:CSS:CHP, i.e. LPAR1:0:A1
And indeed - PortNumber is just decimal value of CHPID (note: I don't 
have LPARs in CSS >0).

However the following command:
cimcli enumerateinstances cim_fcport ...
shows both: IBMzOS_FCPort and IBMzOS_FCCUPort.
While FCPort looks like decimal value of CHPID, the FCCUPort is 
different - here I see non-unique PortNumbers and values like 770, 768, 
560 (and 0, 50, etc.)


--
Radoslaw Skorupka
Lodz, Poland




W dniu 20.12.2022 o 07:02, Attila Fogarasi pisze:

CIM Users Guide SC34-2671 documents Portnumber as CHPID and it should be
same value as the last part of the ElementName (LPARName:CSSID:CHPID)

On Tue, Dec 20, 2022 at 2:31 AM Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:


I'm playing with CIM CLI
CIM - Common Information Model
CLI - command line interface

the following command (lng one):
cimcli enumerateinstances IBMzOS_FCPort -pl
Caption,ElementName,DeviceID,PortNumber,PermanentAddress,NodeDescriptor
-o table

shows some PortNumber.
What is it???
It is neither CHPID nor PCHID.
Some values observed are: 256, 770, etc.
The values are not unique when issued cimcli enumerateinstances
cim_fcport ...however WWPN is different for each entry.

Is it documented anywhere?


--
Radoslaw Skorupka
Lodz, Poland


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


Is there any way to reserve a primer DASD or a secondary DASD?

2022-12-20 Thread Jason Cai
Hi all

 We want to do some testing for MIH and DASD Long Busing. Is there any way to 
reserve a primer DASD or a secondary DASD? 

Any suggestions are highly appreciated! 

Thanks a lot!

Jason Cai

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