Re: IBMVSM,ZOSMIGV2R3_NEXT_VSM_USERKEYCOMM

[Barbara Nitz]

Brian,

>I would think your RASP dump would only be a point in time view of User Key 
>Common at the instant of taking the dump. User Key Common that didn't exist at 
>the time you took the dump wouldn't appear, right?

Completely true. On the other hand: In my experience, user key common (CADS, 
IARV* shared, even Unix shared) has always been set up for long(er) durations, 
so in 99.9% of the cases it should not matter. But those pesky 0.1%!!! 

Barbara

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

Re: One last question on TAPELESS delivery

[Timothy Sipples]

John Eells wrote:
>Setting up an FTP server or NFS server is not required to get software
>from DVD to z/OS. A plain vanilla FTP client such as the one that comes
>with Windows, along with the FTP server built into z/OS Communications
>Server are all you need.

I'm afraid a setup task is required, somewhere. z/OS's FTP server is
also...a FTP server. :-)

SMP/E RECEIVE FROMNETWORK is nice, and it can use FTP, with z/OS as the
client to any FTP server (containing the software products, directly from
DVDs if desired). Optional, but nice. And for the paranoid types, it's
still nice. But sure, you can "pull" or "push," as you prefer. You have
choices, lots of them. ("Push" can require more intermediate storage, if
that's a concern.)

Yet another RECEIVE FROMNETWORK protocol option is HTTP(S), by the way. So
you can configure your machine-cum-DVD-drive to run any standard HTTP(S)
server software, such as the Apache HTTP Server or NGINX, and with that Web
server configured to read directly from DVD. That works, too.

Edward, you're apparently confused. :-) I'd just organize a call between
your paranoids and IBM, with "your friendly IBM representative" doing the
organizing. "Operators are standing by." But the bottom line is that your
paranoids can still cling to their physical media delivery (DVD) if they
wish, and they have any choice(s) they wish about exactly where they put
that machine-cum-DVD-drive and how they configure it -- and what
machine-cum-DVD-drive they use. (It could even be the HMC, if they wish.
Apparently.) As long as z/OS can reach that media reading machine via FTP,
NFS, or HTTP(S), that's fine. (HTTP/HTTPS is "pull" only. The other two
protocol options are "pull" or "push," as preferred.)

Heck, they could even attach that machine-cum-DVD-drive using a crossover
1000BASE-T Ethernet cable plugged directly into one of the OSAExpress
1000BASE-T ports on the mainframe, if they wish. With that cable protected
by Mission Impossible-style lasers and pressure sensors. Now that's a
private network!


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM Z & LinuxONE,
Multi-Geography
E-Mail: 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

Re: Info IBM-main

[retired mainframer]

This needs to go to the server, not the list.  Look at the end of the
message

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of R Kaglik
> Sent: Monday, April 09, 2018 1:52 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Info IBM-main
> 
> 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

NY Metro NaSPA Chapter Meeting: Wednesday, 18 April, 2018

[Mark Nelson]

The next NY Metro NaSPA Chapter meeting is on Wednesday, 18 April, 2018, in
room 1219 in the IBM Building at 590 Madison Avenue, NYC, from 10:00 A.M.
until 4:30 P.M. The four sessions below are on the agenda:

  "Using Python on Z (An Introduction into Big Data on Big Iron)", Joe
  Bostian, IBM

  Abstract: An introductory walk-through for implementing data science
  with z/OS using Python and the Anaconda Package Manager. The
  walk-through will focus on using mathematical libraries in Python,
  highlighting techniques used by the data-scientist, and showing the
  value of open source software. Its goal is to highlight the tools of
  the trade and give you a starting ground for releasing Python on your
  system.

  About the Speaker:  Joe Bostian has spent his career at IBM enabling,
  porting, and promoting the use of middleware and open source software
  on IBM Z.  He is a data science architect and a technical lead for
  the IBM Open Data Analytics team.  He has a BS in computer science
  from Purdue University and an MS in computer science from Rensselaer.


  "WebSphere Liberty Batch - Running Batch Workload on zIIPs:
  Modernizing Your Batch Workload to Run on zIIPs with WebSphere
  Liberty JSR-352 Support", David Follis, IBM

  Abstract: You want to "modernize"" your batch applications.  You want
  to reduce costs by running the batch workload on zIIP processors.
  You want to exploit Java Batch support in WebSphere Liberty.  Come
  find out about how the open standard for Java Batch (JSR-352) can
  meet your application programmer's needs while integrating a Java
  Batch workload into your existing batch infrastructure.

  About the Speaker: David Follis has been with IBM for almost 30 years
  and has been a member of the IBM WebSphere Application Server
  development team for 20 years.  He is the runtime architect for WAS
  on z/OS and is the lead architect for IBM WebSphere Java Batch.


  "Using Encryption and Compression on zFS Filesystems", Vivian
  Morabito, IBM

  Abstract:  The one takeaway from encryption is that configuration is
  confusing, has a big learning curve and zFS has significant
  differences and considerations over BSAM/VSAM datasets. This
  presentation focuses solely on zFS encryption, both from a DFSMS/ICSF
  view and also the specific zFS view including: the zFS portion of
  configuration, BPX parmlib mounts, ICSF availability, migration of
  existing data sets to encrypted state, and backing out encryption.

  About the Speaker: Vivian Morabito is a function tester on the zFS
  squad at IBM Poughkeepsie, where she also  serves as the squad
  iteration manager. She holds a BS in Mathematics from Rochester
  Institute of Technology, and an MS in Operations Research from Union
  College.

  "Understanding the z/OS System Trace", John Shebey, IBM

  Abstract: The z/OS system trace table is the "black box" of the
  system that z/OS debugging experts turn to when analyzing a problem.
  Have you ever wished you could read it more fluently? In this
  session, John Shebey, a seasoned member of the  z/OS level 2 team,
  discusses practical examples, and useful tips and tricks in
  extracting key information out of the z/OS system trace (IP SYSTRACE)
  to debug problems.

  About the Speaker: John Shebey is a Senior Software Engineer at IBM
  Poughkeepsie, where he leads the z/OS UNIX Level 2 Support team.
  John has been with IBM for 20 years and is the z/OS Service Rep for
  SHARE.  He holds a BS degree in Mathematics from Virginia Tech.


Registration: Registration is required . Please RSVP to mar...@us.ibm.com
as soon as is possible if you are thinking of attending, but no later than
noon ET on Tuesday, 17 April.

The meeting is open to non-NaSPA members and is free.  Please pass this
invitation on to your colleagues!

 - Mark


Mark Nelson, CISSP®, CSSLP®
z/OS Security Server (RACF) Design and Development
IBM Corporation
2455 South Road MS/P388
Poughkeepsie, NY 12601
mar...@us.ibm.com

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

Re: Many arguments to a Rexx function call

[David Crayford]

On 10/04/2018 5:31 AM, Gerhard Adam wrote:

Just seems like a lot of discussion trying to pass 22 arguments, when the limit 
is 20.


And 20 arguments is still wildly excessive. It's long been accepted that 
any more than 7 arguments are difficult to comprehend and an alternative 
design should be implemented.
Even 7 is excessive, I don't like to go beyond three arguments before I 
redesign to use a context. This has been solved in other languages by 
using design patterns like builders but the problem
with REXX is that it doesn't support object types so you can't pass 
contexts around. Stem variables don't cut it because you can't pass them 
to external functions.



After that it's merely a question of how you can convey the information using 
whatever means you have available.

Sent from my iPhone


On Apr 9, 2018, at 12:41 PM, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Mon, 9 Apr 2018 09:29:22 -0700, Gerhard Adam  wrote:

If you need to include all 22 arguments, just make the last one bigger and 
parse it a second time to get the results.
For example:
01 /*  REXX  */
02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,
03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,
04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,,
05  APPLTYPE APPLNAME UNIQUE)
06 EXIT 0
...
Notice that the last argument is separated by spaces to combine them all as a 
single argument.

This depends on a couple things:
o That ALERTSN is written in Rexx, or at least that the OP has the source so he
  can modify it.
o That the "combined" arguments contain no internal blanks, which makes parsing
  more complicated.

-- 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: Many arguments to a Rexx function call

[Gerhard Adam]

Just seems like a lot of discussion trying to pass 22 arguments, when the limit 
is 20.  

After that it's merely a question of how you can convey the information using 
whatever means you have available.

Sent from my iPhone

> On Apr 9, 2018, at 12:41 PM, Paul Gilmartin 
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> 
>> On Mon, 9 Apr 2018 09:29:22 -0700, Gerhard Adam  wrote:
>> 
>> If you need to include all 22 arguments, just make the last one bigger and 
>> parse it a second time to get the results.
>> For example:
>> 01 /*  REXX  */  
>>   
>> 02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,   
>>   
>> 03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,
>>   
>> 04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,, 
>>   
>> 05  APPLTYPE APPLNAME UNIQUE)
>>   
>> 06 EXIT 0
>>   
>> ...
>> Notice that the last argument is separated by spaces to combine them all as 
>> a single argument.
> This depends on a couple things:
> o That ALERTSN is written in Rexx, or at least that the OP has the source so 
> he
>  can modify it.
> o That the "combined" arguments contain no internal blanks, which makes 
> parsing
>  more complicated.
> 
> -- 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: Filemanager and security

[Sri h Kolusu]

Pommier Rex,

I believe you need to update the following functions


FILEM.TAPE.INPUT
Tape input functions
FILEM.TAPE.OUTPUT
Tape output functions
FILEM.TAPE.DUPLICATE
Tape copy functions
FILEM.TAPE.UPDATE
Tape update functions

If you are only allowing browse function of the tape dataset then you need
to do something like this


PERMIT FILEM.TAPE.INTPUT CLASS(FACILITY) ID(userid) ACCESS(READ)

Check this link which explains in detail about the function

https://www.ibm.com/support/knowledgecenter/en/SSXJAV_13.1.0/com.ibm.filemanager.doc_13.1/cust/secracf.html

Thanks,
Kolusu

IBM Mainframe Discussion List  wrote on
04/09/2018 12:10:19 PM:

> From: "Pommier, Rex" 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 04/09/2018 12:11 PM
> Subject: Filemanager and security
> Sent by: IBM Mainframe Discussion List 
>
> Hello list,
>
> I've been poring through the FileManager manuals and either am
> missing something or it doesn't exist regarding security.  We're
> running FM 13.1 under ISPF so non-APF authorized.  I needed to grant
> the capability for browsing tape datasets to a developer.  I did
> this granting READ access to FILEM.FUNCTION.TB.  This granted the
> access to the tape browse function.  However, it appears that
> FileManager bypasses dataset name SAF checking if the user has
> access to the TB function.  To wit: a particular GDG has a mix of
> tape and disk generations.  I specifically denied access to this GDG
> to my ID.  I get a RACF violation when trying to browse the disk
> based generation, but FileManager allows me to use TB to look at the
> tape generation.  Is this WAS or am I missing some setting that
> tells FM to do dataset name SAF checking as well as FM function checking?
>
> TIA,
>
> Rex
>
> The information contained in this message is confidential, protected
> from disclosure and may be legally privileged.  If the reader of
> this message is not the intended recipient or an employee or agent
> responsible for delivering this message to the intended recipient,
> you are hereby notified that any disclosure, distribution, copying,
> or any action taken or action omitted in reliance on it, is strictly
> prohibited and may be unlawful.  If you have received this
> communication in error, please notify us immediately by replying to
> this message and destroy the material in its entirety, whether in
> electronic or hard copy format.  Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Info IBM-main

[R Kaglik]

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: Friday Conundrum (aka Soap Box)

[zMan]

Detriment of z/OS? Au contraire, look how great their numbers are! So few
defects! Must be almost perfect!!!

Wait, did I forget the  tags?

On Mon, Apr 9, 2018 at 2:10 AM, Barbara Nitz  wrote:

> >Has anyone else gotten frustrated when opened an IBM Service Request in
> having to select the Operating System, which should have been automatic
> after selecting the Product and the applicable operating system release
> level?
>
> Me too. One *always* gets asked what had already been answered. Plus, the
> boxes to choose from are still *way* too small to find things efficiently.
> I had complained about that back when SR first got forced down our
> collective throats. That was at least 8 years ago, and nothing has been
> changed. I had been given a lot of blabla by IBM. I since gave up on even
> opening SRs unless we have a sev1 situation. I'm sure others cannot be
> bothered to use these unreliable, unwieldy tools to report small problems
> anymore, much to the detriment of z/OS. Oh well, I'll survive until
> retirement!
>
> Barbara
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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

Re: Setting up IVR in Mainframe

[zMan]

IVR is a technology, not a product. What product(s) are you actually
talking about?

On Mon, Apr 9, 2018 at 1:44 PM, Peter  wrote:

> Hi
>
> Cross posted
>
> Is there anyone who have set IVR(interactive voice response) using
> Mainframe.
>
> We are planning to set that in our Mainframe.
>
> Any gotchas or any manual which can help me to set it from the network
> point of view ?
>
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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

Re: Many arguments to a Rexx function call

[Phil Smith III]

Jantje wrote:

>Well... ALERTSN is not seeing any of it.

 

>The error message is emitted while ALERTSNB is in control. ALERTSN is never
invoked.

 

Eh? You invoke ALERTSN. But do so apparently incorrectly.

What does TRACE I show?


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

Re: Many arguments to a Rexx function call

[Paul Gilmartin]

On Mon, 9 Apr 2018 09:29:22 -0700, Gerhard Adam  wrote:

>If you need to include all 22 arguments, just make the last one bigger and 
>parse it a second time to get the results.
>For example:
>01 /*  REXX  */
>02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,, 
>03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,  
>04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,,   
>05  APPLTYPE APPLNAME UNIQUE)  
>06 EXIT 0  
> ...
>Notice that the last argument is separated by spaces to combine them all as a 
>single argument.
>
This depends on a couple things:
o That ALERTSN is written in Rexx, or at least that the OP has the source so he
  can modify it.
o That the "combined" arguments contain no internal blanks, which makes parsing
  more complicated.

-- gil

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

Re: Many arguments to a Rexx function call

[Paul Gilmartin]

On Mon, 9 Apr 2018 10:30:13 -0400, Hobart Spitz wrote:
>
>Assuming we're not talking about quoted commas, which are entirely
>different animals, I respectfully disagree for these reasons:
>   ...
>   2. Putting the argument delimiting comma at the beginning of a line
>   means that you have to remember to look at the beginning of the next line.
>   That's easy to forget/miss if you are skimming.
>   3. If you rearrange a statement, you can replace a line without a
>   leading comma with one that has such, and vice versa, with avoidable and/or
>   disastrous results.
> 
The practice depends on the language and the culture.  For example, when
CMS Pipelines are coded in portrait format, the mode is to place the "|"
separator at the beginning of the line:
https://en.wikipedia.org/wiki/CMS_Pipelines#Example

Vertically aligning the "|"s improves legibility.

>OREXXMan
>JCL is the buggy whip of 21st century computing.
>We want Pipelines in the z/OS base.

-- gil

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

Re: Many arguments to a Rexx function call

[Paul Gilmartin]

On Mon, 9 Apr 2018 18:59:35 +, Phil Carlyle wrote:

>Found this in an IBM publication (SA32-0982-00):
>
>When you invoke a REXX exec either implicitly or explicitly using the EXEC 
>command.
>You can pass either one or no arguments to the exec.  Thus the ARG instruction 
>in the
>preceding examples received only one argument.  One argument can consist of 
>many
>words.  The argument, if present, will appear as a single string.
>
Correct, however the current version, TSO/E REXX User's Guide Version 2 Release 
3
(SA32-0982-30), says in the preceding paragraph:

Passing Arguments
Values passed to an exec are usually called arguments. Arguments can 
consist of
one word or a string of words. Words within an argument are separated by 
blanks.
The number of arguments passed depends on how the exec is invoked.
Passing Arguments Using the CALL Instruction or REXX Function Call
When you invoke a REXX exec using either the CALL instruction or a REXX 
function
call, you can pass up to 20 arguments to an exec. Each argument must be
separated by a comma.

It appears the OP was attempting to use a Rexx function call, not "either 
implicitly or
explicitly using the EXEC command," so up to 20 arguments separated by commas
are permissible.

-- gil

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

Filemanager and security

[Pommier, Rex]

Hello list,

I've been poring through the FileManager manuals and either am missing 
something or it doesn't exist regarding security.  We're running FM 13.1 under 
ISPF so non-APF authorized.  I needed to grant the capability for browsing tape 
datasets to a developer.  I did this granting READ access to FILEM.FUNCTION.TB. 
 This granted the access to the tape browse function.  However, it appears that 
FileManager bypasses dataset name SAF checking if the user has access to the TB 
function.  To wit: a particular GDG has a mix of tape and disk generations.  I 
specifically denied access to this GDG to my ID.  I get a RACF violation when 
trying to browse the disk based generation, but FileManager allows me to use TB 
to look at the tape generation.  Is this WAS or am I missing some setting that 
tells FM to do dataset name SAF checking as well as FM function checking?

TIA,

Rex

The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.

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

Re: Many arguments to a Rexx function call

[Phil Carlyle]

Found this in an IBM publication (SA32-0982-00):

When you invoke a REXX exec either implicitly or explicitly using the EXEC 
command.
You can pass either one or no arguments to the exec.  Thus the ARG instruction 
in the
preceding examples received only one argument.  One argument can consist of many
words.  The argument, if present, will appear as a single string.

Phil Carlyle
TEKSystems
IAM RACF

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Phil Carlyle
Sent: Monday, April 9, 2018 11:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

Ok gentlemen, I’m going to jump in on this but because I’m not sure of the 
implementation of the REXX code in question I may be a little off.  Basically, 
if the code is running under TSO batch or online there is only “1” argument 
passed to the code.  There is a limitation on how long that may be, I think 255 
bytes or something like that.  As for the number of parameters that is of no 
concern and neither is the method of separation.  If you are indeed passing 
spaces, commas, or quotes, you will have to code for these.  The following 
would be valid.

Ex REXXCODE ‘(‘ab c’), mommy, daddy, ‘1234 main street’, ‘Columbus, oh’, ‘help 
me’ ’

In the REXX Parse is would look like this

PARSE UPPER ARG PARAM_LISTNote: the UPPER is the default

PARAM_LIST = (‘AB C’), MOMMY, DADDY, ‘1234 MAIN STREET’, ‘COLUMBUS, OH’, ‘HELP 
ME’

The code would then have to know what to look for and parse the various 
parameters from the list.
No magic, no rules.

Phil Carlyle
TEKSystems
IAM RACF

From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of 
Gerhard Adam
Sent: Monday, April 9, 2018 9:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

If you need to include all 22 arguments, just make the last one bigger and 
parse it a second time to get the results.

For example:

01 /*  REXX  */
02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,
03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,
04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,,
05  APPLTYPE APPLNAME UNIQUE)
06 EXIT 0
07 ALERTSN:
08   SAY ARG()
09   SAY ARG(1)
10   SAY ARG(5)
11   SAY ARG(9)
12   SAY ARG(10)
13   SAY ARG(15)
14   SAY ARG(20)

Notice that the last argument is separated by spaces to combine them all as a 
single argument.

Adam

-Original Message-
From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU>]
 On Behalf Of Jantje.
Sent: Monday, April 09, 2018 9:12 AM
To: 
IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: Many arguments to a Rexx function call

On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III 
mailto:li...@akphs.com>>>
 wrote:

>Then you're apparently calling it wrong. I see double commas in the
>error
>output: that suggests you have doubled commas in the wrong place,
>because if they're seen as continuation, ALERTSN won't see them at all.

Well... ALERTSN is not seeing any of it.

The error message is emitted while ALERTSNB is in control. ALERTSN is never 
invoked.

Cheers,

Jantje.

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


American Express made the following annotations
**
"This message and any attachments are solely for the intended recipient and may 
contain confidential or privileged information. If you are not the intended 
recipient, any disclosure, copying, use, or distribution of the information 
included in this message and any attachments is prohibited. If you have 
received this communication in error, please notify us by reply e-mail and 
immediately and permanently delete this message and any attachments. Thank you."

American Express a ajouté le commentaire suivant le Ce courrier et toute pièce 
jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent 
renfermer des
renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire 
prévu, toute divulgation, dup

Re: Many arguments to a Rexx function call

[Phil Carlyle]

Ok gentlemen, I’m going to jump in on this but because I’m not sure of the 
implementation of the REXX code in question I may be a little off.  Basically, 
if the code is running under TSO batch or online there is only “1” argument 
passed to the code.  There is a limitation on how long that may be, I think 255 
bytes or something like that.  As for the number of parameters that is of no 
concern and neither is the method of separation.  If you are indeed passing 
spaces, commas, or quotes, you will have to code for these.  The following 
would be valid.

Ex REXXCODE ‘(‘ab c’), mommy, daddy, ‘1234 main street’, ‘Columbus, oh’, ‘help 
me’ ’

In the REXX Parse is would look like this

PARSE UPPER ARG PARAM_LISTNote: the UPPER is the default

PARAM_LIST = (‘AB C’), MOMMY, DADDY, ‘1234 MAIN STREET’, ‘COLUMBUS, OH’, ‘HELP 
ME’

The code would then have to know what to look for and parse the various 
parameters from the list.
No magic, no rules.

Phil Carlyle
TEKSystems
IAM RACF

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard Adam
Sent: Monday, April 9, 2018 9:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

If you need to include all 22 arguments, just make the last one bigger and 
parse it a second time to get the results.

For example:

01 /*  REXX  */
02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,
03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,
04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,,
05  APPLTYPE APPLNAME UNIQUE)
06 EXIT 0
07 ALERTSN:
08   SAY ARG()
09   SAY ARG(1)
10   SAY ARG(5)
11   SAY ARG(9)
12   SAY ARG(10)
13   SAY ARG(15)
14   SAY ARG(20)

Notice that the last argument is separated by spaces to combine them all as a 
single argument.

Adam

-Original Message-
From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of 
Jantje.
Sent: Monday, April 09, 2018 9:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III 
mailto:li...@akphs.com>> wrote:

>Then you're apparently calling it wrong. I see double commas in the
>error
>output: that suggests you have doubled commas in the wrong place,
>because if they're seen as continuation, ALERTSN won't see them at all.

Well... ALERTSN is not seeing any of it.

The error message is emitted while ALERTSNB is in control. ALERTSN is never 
invoked.

Cheers,

Jantje.

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


American Express made the following annotations
**
"This message and any attachments are solely for the intended recipient and may 
contain confidential or privileged information. If you are not the intended 
recipient, any disclosure, copying, use, or distribution of the information 
included in this message and any attachments is prohibited. If you have 
received this communication in error, please notify us by reply e-mail and 
immediately and permanently delete this message and any attachments. Thank you."

American Express a ajouté le commentaire suivant le Ce courrier et toute pièce 
jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent 
renfermer des 
renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire 
prévu, toute divulgation, duplication, utilisation ou distribution du courrier 
ou de toute pièce jointe est interdite. Si vous avez reçu cette communication 
par erreur, veuillez nous en aviser par courrier et détruire immédiatement le 
courrier et les pièces jointes. Merci.

**


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

Setting up IVR in Mainframe

[Peter]

Hi

Cross posted

Is there anyone who have set IVR(interactive voice response) using
Mainframe.

We are planning to set that in our Mainframe.

Any gotchas or any manual which can help me to set it from the network
point of view ?

Peter

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

Re: Slashdot: Business under-investing in I.T.

[Anne & Lynn Wheeler]

poodles...@sbcglobal.net (Dan @ Poodles) writes:
> It's simple business economics - i.e., cost center vs profit center.
> Businesses will always invest in revenue generating first above all
> else.

big cloud megadatacenters (hundreds of thousands of systems, millions of
processors) had been spending enormous amount to commoditize server
systems, for more than decade they say they've been assembling their own
systems at 1/3rd the cost of brand name systems. About the time server
chip makers said they were shipping more chips to cloud customers (to
assemble their own systems) than to server vendors, IBM sold off its
server business.
http://www.opencompute.org/

They've managed to so commoditize the cost of servers (cost but shows on
bottom line) that power & cooling have increasingly become major part of
their costs ... and they are putting heavy pressure on server chip makers
to significantly improve power (& cooling) use. Also they've managed to
drop server cost so drastically that they can provision large number of
extra systems for "on-demand" ... and they require systems that
power/cooling drop to near zero when idle but are nearly instant on when
needed.

It is so changing the metrics that server price/performance is being
replaced by power efficiency ratio.
https://en.wikipedia.org/wiki/Power_usage_effectiveness

and PUE is also affecting locations chosen to build new megadatacenters.

-- 
virtualization experience starting Jan1968, online at home since Mar1970

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

Re: Many arguments to a Rexx function call

[Gerhard Adam]

If you need to include all 22 arguments, just make the last one bigger and 
parse it a second time to get the results.

For example:

01 /*  REXX  */
02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,, 
03  SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,  
04  MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,,   
05  APPLTYPE APPLNAME UNIQUE)  
06 EXIT 0  
07 ALERTSN:
08   SAY ARG() 
09   SAY ARG(1)
10   SAY ARG(5)
11   SAY ARG(9)
12   SAY ARG(10)   
13   SAY ARG(15)   
14   SAY ARG(20) 

Notice that the last argument is separated by spaces to combine them all as a 
single argument.

Adam 
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jantje.
Sent: Monday, April 09, 2018 9:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III  wrote:

>Then you're apparently calling it wrong. I see double commas in the 
>error
>output: that suggests you have doubled commas in the wrong place, 
>because if they're seen as continuation, ALERTSN won't see them at all.

Well... ALERTSN is not seeing any of it. 

The error message is emitted while ALERTSNB is in control. ALERTSN is never 
invoked.

Cheers,

Jantje.

--
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: Many arguments to a Rexx function call

[Gerhard Adam]

Normal continuation rules would apply, but it appears that there is a limit
of 20 arguments.  You have 22, which produces the error

Adam

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Phil Smith III
Sent: Friday, April 6, 2018 3:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

Don Grinsell wrote: 

>Start your continuation lines with a comma:

 

> RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC ,

>   ,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST ,

>   ,MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR ,

>   ,APPLTYPE,APPLNAME,UNIQUE)

 

Ooh. Never even thought of that! hmm, but that only works for continued
function/subroutine calls, since that leading comma is the one serving as
the argument delimiter. Well, ok, so combine the techniques-make the
continuation comma have a space before it:

 

RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC ,

  ,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST ,

  ,MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR ,

  ,APPLTYPE,APPLNAME,UNIQUE)

 

Then you can still find the continuations, but it avoids the fugly 'comma
space comma'.

 

I learn something every day (I hope)!


--
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: Many arguments to a Rexx function call

[Jantje.]

On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III  wrote:

>Then you're apparently calling it wrong. I see double commas in the error
>output: that suggests you have doubled commas in the wrong place, because if
>they're seen as continuation, ALERTSN won't see them at all.

Well... ALERTSN is not seeing any of it. 

The error message is emitted while ALERTSNB is in control. ALERTSN is never 
invoked.

Cheers,

Jantje.

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

Re: Many arguments to a Rexx function call

[Paul Gilmartin]

On Mon, 9 Apr 2018 08:31:26 -0500, Jantje.  wrote:

>On Fri, 6 Apr 2018 17:57:14 -0700, Lizette Koehler  
>wrote:
>
>>Personally in REXX I use a list with SPACE between each arg and a blank comma 
>>at the end
>>
>>VAR =' a b c ' ,
>> ' d e f '
> 
Spaces do not separate arguments; spaces separate words.
Only commas separate arguments. 

>Unfortunately, that will not work as I have values in the arguments that 
>contain blanks. Using a blank as the delimiter doesn't cut it, then. Or rather 
>cuts it at each blank, also the blank that is supposed to be part of the value.
>
For example:

/* Rexx */ signal on novalue;  /*
   Simplifying (read the Ref. for details):
   o Separate arguments by commas.
   o If an argument contains blanks or internal punctuation,
 surround the argument with apostrophes.
   o Double internal apostrophes.
   Continuation with a comma has been discussed earlier.
*/
X = F( 'a b c', 'd ''e, f'' g', 7 8 9 )
exit ( 0 )

F: procedure
say 'F has' arg() 'arguments.'
say 'The first  argument is:' arg( 1 )
say 'The second argument is:' arg( 2 )
say 'The third  argument is:' arg( 3 )
return( 0 )

Displays:
F has 3 arguments.
The first  argument is: a b c
The second argument is: d 'e, f' g
The third  argument is: 7 8 9

-- gil

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

Re: Any C++ regex template class gotchas?

[Charles Mills]

I compile with JCL. Everyone laughs at me here if I say that, so I avoid 
mentioning it. 

Here are the compile options that I tested this with.

   OPT(0) NOINLINE   TEST   
 
   TARG(LE,zOSV1R13)
 
   ARCH(9) TUNE(10) 
 
   GONUMBER 
 
   NOTEMPL,OE,OBJ,HALT(8),LONGNAME 
   LANGLVL(NEWEXCP,UCS,DOLLARINNAMES)   
 
   RTTI 
 
   ENUMSIZ(INT) 
 
   AGGRCOPY HGPR LIBANSI
 
   ANSIALIAS UNROLL(YES)
 
   ROCONST  
 
   SUPP(CCN5802)
 
   DLL(CBA) 
 

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jerry Callen
Sent: Monday, April 9, 2018 10:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any C++ regex template class gotchas?

Works for me, using exactly the code posted, so it looks like something 
peculiar to your maintenance level. I'd open a PMR.

make -k CHARSET=ebcdic
xlC -Wc,phaseid -qebcdic -q64 -qnocse -qgonum -qbitfield=signed 
-qtarget=zosv2r2 -qarch=10 -qstrict \  -qfloat=ieee:nomaf -qlanglvl=extended0x 
-O2  -DNDEBUG -D__MV17195__ -D_XOPEN_SOURCE=600  -o test1 test1.cpp
CCN(I) Product(5650-ZOS) Phase(CCNEOPTP) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNDRVR ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNEPP  ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNETBY ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNECWI ) Level(D171026.Z2R2)
./test1
RegEx test 4/6/2018


FWIW, it's a good idea to post the compile and link lines along with the source 
code, as they can dramatically affect the outcome. Good luck!

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

Re: Many arguments to a Rexx function call

[Hobart Spitz]

Jantje wrote:

>Commas at the beginning or at the end makes no difference... :

As far as the language syntax goes, this is a true statement.  As far as
maintainability goes, that is another story.  When I continue a statement,
I prefer to break between arguments, as there is typically less of language
semantic connection between arguments than within argument.

Assuming we're not talking about quoted commas, which are entirely
different animals, I respectfully disagree for these reasons:

   1. Two commas at the end of a line are clearly the end of an argument
   within a continued statement.  A single comma at the end of a line is a
   simple continuation.
   2. Putting the argument delimiting comma at the beginning of a line
   means that you have to remember to look at the beginning of the next line.
   That's easy to forget/miss if you are skimming.
   3. If you rearrange a statement, you can replace a line without a
   leading comma with one that has such, and vice versa, with avoidable and/or
   disastrous results.
   4. To the best of my knowledge, most experienced REXX programmer's put
   an argument delimiting comma at the end of the line (followed by the
   continuation comma).  The more code you write (in a language) the more you
   recognize which subtle things are more error prone and which are less so,
   in that language.

Just my 2 cents.


OREXXMan
JCL is the buggy whip of 21st century computing.
We want Pipelines in the z/OS base.

On Mon, Apr 9, 2018 at 9:37 AM, Phil Smith III  wrote:

> Jantje wrote:
>
> >Commas at the beginning or at the end makes no difference... :
>
>
>
> Right, nobody thought it would. That was a style point.
>
>
>
> If your function call is still failing as you indicate:
>
>
>
> >87 +++
> >RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,
> SUBSRC,SOURCE,LOCATION
> ,SYSTYPE,PLTFTYPE,IMPACT,HOST,,MONENV,RESOURC
>
> >E,EXTRINFO,ACTIVE,CLOSING,FTPERR,,APPLTYPE,APPLNAME,UNIQUE)
>
> >IRX0040I Error running ALERTSNB, line 87: Incorrect call to routine
>
>
>
> Then you're apparently calling it wrong. I see double commas in the error
> output: that suggests you have doubled commas in the wrong place, because
> if
> they're seen as continuation, ALERTSN won't see them at all.
>
>
>
> Run it with TRACE I and see what it's getting.
>
>
> --
> 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: IBMVSM,ZOSMIGV2R3_NEXT_VSM_USERKEYCOMM

[Brian Peterson]

>Which brings me to my question: Do I still have to set slip traps or >can I be 
>sure to have caught everything?

Barbara

I would think your RASP dump would only be a point in time view of User Key 
Common at the instant of taking the dump. User Key Common that didn't exist at 
the time you took the dump wouldn't appear, right?

Brian

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

Re: Any C++ regex template class gotchas?

[Charles Mills]

To clarify, by "works" you mean does NOT ABEND?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Sunday, April 8, 2018 7:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any C++ regex template class gotchas?

Works ok for me. The code is sound so I would open a PMR.


On 9/04/2018 2:09 AM, Charles Mills wrote:
> #include 
>
> #define __IBMCPP_TR1__ 1
> #include 
>
> class myRegex
> {
> public:
>  std::tr1::regex regexObject;
> };
>
> int main(int argc, char* argv[])
> {
>  printf("RegEx test 4/6/2018\n");
>  std::tr1::regex::flag_type flags = std::tr1::regex::extended; //
> necessary for error
>  myRegex *myRegex_p = new myRegex;
>  myRegex_p->regexObject.assign("foo", flags);
>  delete myRegex_p;
>  return 0;
> }

--
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: Slashdot: Business under-investing in I.T.

[John McKown]

On Mon, Apr 9, 2018 at 8:44 AM, Dan @ Poodles 
wrote:

> It's simple business economics - i.e.,  cost center vs profit center.
> Businesses will always invest in revenue generating first above all else.
>
>
​True. But what seems, at least to me, is that they sometimes forget that
without "infrastructure" that the "revenue producing" parts of the business
won't generate any revenue. Well, I guess that I should remain grateful
that toilet paper is still a priority infrastructure item. :-} Oh, and, of
course, COFFEE!!!​


-- 
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

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

Re: Any C++ regex template class gotchas?

[Jerry Callen]

Works for me, using exactly the code posted, so it looks like something 
peculiar to your maintenance level. I'd open a PMR.

make -k CHARSET=ebcdic
xlC -Wc,phaseid -qebcdic -q64 -qnocse -qgonum -qbitfield=signed 
-qtarget=zosv2r2 -qarch=10 -qstrict \
 -qfloat=ieee:nomaf -qlanglvl=extended0x -O2  -DNDEBUG -D__MV17195__ 
-D_XOPEN_SOURCE=600  -o test1 
test1.cpp
CCN(I) Product(5650-ZOS) Phase(CCNEOPTP) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNDRVR ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNEPP  ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNETBY ) Level(D171026.Z2R2)
CCN(I) Product(5650-ZOS) Phase(CCNECWI ) Level(D171026.Z2R2)
./test1
RegEx test 4/6/2018


FWIW, it's a good idea to post the compile and link lines along with the source 
code, as they can dramatically affect the outcome. Good luck!

-- Jerry

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

Re: Slashdot: Business under-investing in I.T.

[Dan @ Poodles]

It's simple business economics - i.e.,  cost center vs profit center.  
Businesses will always invest in revenue generating first above all else.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Monday, April 9, 2018 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Slashdot: Business under-investing in I.T.

https://ask.slashdot.org/story/18/04/07/0125218/ask-slashdot-are-companies-under-investing-in-it#comments



--
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

--
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: Many arguments to a Rexx function call

[Phil Smith III]

Jantje wrote:

>Commas at the beginning or at the end makes no difference... :

 

Right, nobody thought it would. That was a style point.

 

If your function call is still failing as you indicate:

 

>87 +++
>RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,SUBSRC,SOURCE,LOCATION
,SYSTYPE,PLTFTYPE,IMPACT,HOST,,MONENV,RESOURC

>E,EXTRINFO,ACTIVE,CLOSING,FTPERR,,APPLTYPE,APPLNAME,UNIQUE)

>IRX0040I Error running ALERTSNB, line 87: Incorrect call to routine

 

Then you're apparently calling it wrong. I see double commas in the error
output: that suggests you have doubled commas in the wrong place, because if
they're seen as continuation, ALERTSN won't see them at all.

 

Run it with TRACE I and see what it's getting.


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

Re: IEE042I in OPERLOG - why no century?

[Peter Fatzinger]

Tim,
  Yes, it's working as designed.  The IEE042I message is built in the System 
Log Initialization module and bypasses much of normal WTO processing.  It 
builds the year based on the HCFORMAT setting in CONSOLxx to try to be 
consistent.  I expect it looks like the other messages when looking at SYSLOG.  
Specifying CENTURY should give you a consistent format in both logs.
Peter Fatzinger
z/OS Core Technologies Development and Service

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

Re: Any C++ regex template class gotchas?

[David Crayford]

On 9/04/2018 7:55 PM, Charles Mills wrote:

David -

Thanks for everything. I guess I will PMR it. As pointed out in another thread, 
the PMR process is painful. It does me little good because I can't ship a 
product that requires some obscure PTF -- the sales team would kill me.


I feel your pain.



Nah, the tr1 doesn't bother me. It's like having to code those pesky semicolons 
or those pesky double equal signs. It is what it is. My Visual Studio accepts 
but does not require the tr1:: for regex. I use Visual Assist and it tends to 
autocomplete these things for me anyway, so it is little trouble.

I used namespace when I started out in C++ but then decided I was collapsing 
the name space. I would rather have to code std:: every time than to have some 
weird problem caused by an unexpected symbol name duplication.


Me too. I avoid usings like "using namespace std". The using I posted 
brings the tr1 namespace into std so I can use std::regex and not 
std::tr1::regex. I don't use visual studio and clang and g++ require 
including special headers like  which I would rather not do.



I use auto sometimes but tend not to think to use it except in template 
functions and that sort of thing.


auto has moved on significantly since C++14 and C++17 and you can now 
define a function with an auto return value. It's also important for 
lambda's. Especially useful for iterators so you don't have to code 
something like std::unsorted_map::iterator or use 
typedefs.




Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Monday, April 9, 2018 12:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any C++ regex template class gotchas?

Charles,

Do you get fed up with having to specify the pesky tr1 namespace? It makes it 
difficult to share code between z/OS and distributed. You can work around that 
with a useful namespace declaration.
Also, if you are using LANGLVL(EXTENDED0X) you can significantly cut down on 
the verbosity of variable definitions by using auto type inference.

#include  // bring C stdio runtime into the std namespace

#define __IBMCPP_TR1__ 1
#include 

namespace std { using namespace tr1; }  // be gone pesky tr1 namespace

struct myRegex
{
  std::regex regexObject;
};

int main(int argc, char* argv[])
{
  printf("RegEx test 4/6/2018\n");
  auto flags = std::regex::extended; // necessary for error
  auto *myRegex_p = new myRegex;
  myRegex_p->regexObject.assign("foo", flags);
  delete myRegex_p;
  return 0;
}

On 9/04/2018 2:09 AM, Charles Mills wrote:

Believe it or not, it appears to be a bug in the C++ runtime. Anyone
who wants to prove me wrong is welcome to try the below. I have tested
only on z/OS V2R2.

#include 

#define __IBMCPP_TR1__ 1
#include 

class myRegex
{
public:
  std::tr1::regex regexObject;
};


--
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: Many arguments to a Rexx function call

[Jantje.]

On Fri, 6 Apr 2018 17:57:14 -0700, Lizette Koehler  
wrote:

>Personally in REXX I use a list with SPACE between each arg and a blank comma 
>at the end
>
>VAR =' a b c ' ,
> ' d e f '

Unfortunately, that will not work as I have values in the arguments that 
contain blanks. Using a blank as the delimiter doesn't cut it, then. Or rather 
cuts it at each blank, also the blank that is supposed to be part of the value.

>
>Next, if you did not know, there is a TSO/REXX group can you also post these 
>kinds of questions to
>
Actually, I ought to know. I will subscribe there and ask the question again if 
this esteemed body of mainframe specialist would not come up with an answer (I 
am sure they will...)

Jantje.

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

Re: Many arguments to a Rexx function call

[Jantje.]

On Fri, 6 Apr 2018 17:21:19 +, Grinsell, Don  wrote:

>Start your continuation lines with a comma:
>
> RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,
>   ,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,
>   ,MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,
>   ,APPLTYPE,APPLNAME,UNIQUE)
>

Commas at the beginning or at the end makes no difference... :

87 +++ 
RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,MONENV,RESOURC
E,EXTRINFO,ACTIVE,CLOSING,FTPERR,,APPLTYPE,APPLNAME,UNIQUE)
IRX0040I Error running ALERTSNB, line 87: Incorrect call to routine

Thanks for the suggestion anyway,

Jantje.

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

Slashdot: Business under-investing in I.T.

[John McKown]

https://ask.slashdot.org/story/18/04/07/0125218/ask-slashdot-are-companies-under-investing-in-it#comments



-- 
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

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

Re: One last question on TAPELESS delivery

[John Eells]

Setting up an FTP server or NFS server is not required to get software 
from DVD to z/OS.  A plain vanilla FTP client such as the one that comes 
with Windows, along with the FTP server built into z/OS Communications 
Server are all you need.  You can, of course, choose to set up an FTP or 
NFS server on your workstation or use one if you've done it already, but 
it's really not needed, and in my opinion, it's not worth the effort 
just for this purpose.


For example, see the topic, "Receiving a new order" on PDF p. 43 in 
ServerPac: Installing Your Order, for a list of the ways to transfer the 
data from your workstation to z/OS here: 
https://www-304.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sa232278/$file/gima200_v2r3.pdf


If you get a ServerPac, you will find that the README.pdf file on the 
first DVD includes information about copying the order from the 
workstation to your host system.  If you get a service or CBPDO order 
you should, likewise, find similar instructions.


Timothy Sipples wrote:

Edward,

Here's the basic process:

1. Order and receive physical DVD media containing the software products,
via postal mail or courier.

2. Insert the DVD into the drive of any machine that your designated z/OS
LPAR can reach. (Not necessarily *every* z/OS LPAR.) That machine might be
the HMC (as far as I can tell), a PC, a Mac, etc. -- *any* machine the z/OS
LPAR can reach, in network terms, that has a DVD drive. It could even be a
"smart" DVD drive that has a NAS (Network Attached Storage) capability
built-in, such as this 2U size rack mountable gadget (no endorsement
implied):

http://www.primearray.com/products/ArrayStor.php

It could be a machine on a closed network or a machine on the moon. In
principle, it doesn't matter. *Anything* that can read a DVD and transmit
its contents across a network. It could also be a machine with a BD
(Blu-Ray) or BDXL data drive since those are backward compatible with DVD
data formats.

3. The machine should be running either a FTP server (e.g. ftpd) or a NFS
server. If not, configure the machine's FTP server or NFS server and start
it up. Make the DVD available to the FTP server or NFS server, directly.
There's no requirement for an initial copy operation from the DVD to that
machine's own hard drive or flash drive.

4. Using z/OS's FTP client or NFS client, load or copy the files from the
DVD. That could be directly (SMP/E RECEIVE FROMNETWORK) or via an initial
copy operation, onto z/OS attached storage.




--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: One last question on TAPELESS delivery

[John Eells]

Edward Gould wrote:

Hi,

Before I go into a viper pit for telling the boss and his boss and his boss and 
be asked many questions that I am nowhere near qualified to answer. Is there an 
IBM book/manual or SHARE presentation that I can show to the management what 
will be needed, hardware (software) wise to be able to accomplish being able to 
read the DVD and download it to a disk drive on the mainframe?

 From what I have heard here the only thing that is needed is a PC with a large 
HD and some connection to the HMC (If I understand this correctly). There is NO 
connection outside the company AT ALL.

I can’t believe there is no written down instructions on how this is done, I am 
sure the NETWORK people will be all over this, and I am not prepared to take 
the heat right now. I have to thoroughly understand and explain to management 
and technical types. Frankly, I am shaky on all of this.



Ed, the *only* thing we use the HMC's DVD drive for is the starter 
system (the Customized Offerings Driver, or COD).  If you stay within 
the driving system requirement window, you will never need a COD and 
access to the HMC will not be needed.


All the requirements for transferring products and PTFs from a laptop 
and to z/OS are documented in z/OS Planning for Installation.  Start 
with the topic, "Choosing the delivery medium: tape, DVD, or Internet," 
in Chapter 2, on PDF p. 56, here:


https://www-304.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3ga320890/$file/e0zb100_v2r3.pdf

For DVD, a network connection to the outside world is not required. 
Only a network connection between the workstation and z/OS is needed.


--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: One last question on TAPELESS delivery

[Parwez Hamid]

If I have understood Tim's response correctly, he is suggesting 2 options:

1) Use the DVD drive on your HMC. In your previous comments you have indicated 
that this is almost impossible!!
2) Use any PC (your own desktop?) with a DVD drive which has access to z /OS 
LPAR. 

Provided you have the right access/authorisation, there is another option to 
access the HMC for the management of the Z system. This is via a browser from 
any desktop. Somehow I don't think your site will even think about this :-)

As far as I can see, option 2 above might be the one you.

Just a general point. If you are interested, the HMC/Support Element (SE) 
network configuration, access and security details can be found in the 
following IBM manuals: 

1) IBM Z Hardware Management Console Security: SC28-6987-00
2) IBM Z Integrating the Hardware Management Console’s Broadband Remote Support 
Facility into your Enterprise: SC28-6986-00
3) Hardware Management Console (HMC) Version 2.14.0

All the above can be obtained from IBM ResourseLink. Customers normally have 
access to this website. The manuals also have diagrams showing the different 
options for network connectivity including via a Corporate network.

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

Re: Any C++ regex template class gotchas?

[Charles Mills]

David -

Thanks for everything. I guess I will PMR it. As pointed out in another thread, 
the PMR process is painful. It does me little good because I can't ship a 
product that requires some obscure PTF -- the sales team would kill me.

Nah, the tr1 doesn't bother me. It's like having to code those pesky semicolons 
or those pesky double equal signs. It is what it is. My Visual Studio accepts 
but does not require the tr1:: for regex. I use Visual Assist and it tends to 
autocomplete these things for me anyway, so it is little trouble.

I used namespace when I started out in C++ but then decided I was collapsing 
the name space. I would rather have to code std:: every time than to have some 
weird problem caused by an unexpected symbol name duplication.

I use auto sometimes but tend not to think to use it except in template 
functions and that sort of thing.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Monday, April 9, 2018 12:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any C++ regex template class gotchas?

Charles,

Do you get fed up with having to specify the pesky tr1 namespace? It makes it 
difficult to share code between z/OS and distributed. You can work around that 
with a useful namespace declaration.
Also, if you are using LANGLVL(EXTENDED0X) you can significantly cut down on 
the verbosity of variable definitions by using auto type inference.

#include  // bring C stdio runtime into the std namespace

#define __IBMCPP_TR1__ 1
#include 

namespace std { using namespace tr1; }  // be gone pesky tr1 namespace

struct myRegex
{
 std::regex regexObject;
};

int main(int argc, char* argv[])
{
 printf("RegEx test 4/6/2018\n");
 auto flags = std::regex::extended; // necessary for error
 auto *myRegex_p = new myRegex;
 myRegex_p->regexObject.assign("foo", flags);
 delete myRegex_p;
 return 0;
}

On 9/04/2018 2:09 AM, Charles Mills wrote:
> Believe it or not, it appears to be a bug in the C++ runtime. Anyone 
> who wants to prove me wrong is welcome to try the below. I have tested 
> only on z/OS V2R2.
>
> #include 
>
> #define __IBMCPP_TR1__ 1
> #include 
>
> class myRegex
> {
> public:
>  std::tr1::regex regexObject;
> };
>

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

Re: One last question on TAPELESS delivery

[Edward Gould]

> On Apr 8, 2018, at 7:49 PM, Timothy Sipples  wrote:
> 
> Edward,
> 
> Here's the basic process:
> 
> 1. Order and receive physical DVD media containing the software products,
> via postal mail or courier.
> 
> 2. Insert the DVD into the drive of any machine that your designated z/OS
> LPAR can reach. (Not necessarily *every* z/OS LPAR.) That machine might be
> the HMC (as far as I can tell), a PC, a Mac, etc. -- *any* machine the z/OS
> LPAR can reach, in network terms, that has a DVD drive. It could even be a
> "smart" DVD drive that has a NAS (Network Attached Storage) capability
> built-in, such as this 2U size rack mountable gadget (no endorsement
> implied):
> 
> http://www.primearray.com/products/ArrayStor.php
> 
> It could be a machine on a closed network or a machine on the moon. In
> principle, it doesn't matter. *Anything* that can read a DVD and transmit
> its contents across a network. It could also be a machine with a BD
> (Blu-Ray) or BDXL data drive since those are backward compatible with DVD
> data formats.
> 
> 3. The machine should be running either a FTP server (e.g. ftpd) or a NFS
> server. If not, configure the machine's FTP server or NFS server and start
> it up. Make the DVD available to the FTP server or NFS server, directly.
> There's no requirement for an initial copy operation from the DVD to that
> machine's own hard drive or flash drive.
> 
> 4. Using z/OS's FTP client or NFS client, load or copy the files from the
> DVD. That could be directly (SMP/E RECEIVE FROMNETWORK) or via an initial
> copy operation, onto z/OS attached storage.
> 
> That's it, really.
> 
> Conceptually, this is *exactly* what you do today. Except you get to choose
> which DVD drive/machine you wish to use (instead of choosing IBM's specific
> tape drive and controller), and the path from your chosen DVD drive/machine
> to your z/OS LPAR is via FTP or NFS over your (presumably) closed network.
> Also, DVDs are easier to ship and store. They're flatter, in particular.
> 
> Conceptually, this is also exactly what your Microsoft Windows Server
> administrators are doing today. Assuredly they aren't physically loading
> DVDs on each/every Windows server in your data center. That would require a
> strong pair of roller skates for a large data center, if nothing else.
> 
> There's nothing radical, complicated, or controversial about it -- at
> least, there shouldn't be. It's just a change in physical media and
> associated drive, and we've had those many times before. IBM isn't shipping
> 9-track tape, 7-track tape, floppy disks, punched paper tape, or card decks
> any more. And, if anybody is upset for some strange reason, "ask your
> friendly IBM representative" for a phone call with IBM.
> 
> 
> Timothy Sipples
> IT Architect Executive, Industry Solutions, IBM Z & LinuxONE,
> Multi-Geography
> 

Timothy,
Thanks you brought up some issues I didn’t know about.
Guess my question was too general as I do not know specifics and thus the 
general question.
I was talking offline to a member and he recommended a book, After glancing 
through the book, I sent him back this:

> Thanks. However it did not talk about the PC that is hooked up to the HMC 
> (i.e. what connect type, and where it is hooked into the HMC (or is that 
> something IBM has to do) what windows (or LINUX or ?) version is minimum,  
> How much HD space is needed . Also how does the MF get the data off the PC to 
> a real DASD. You know the meat and guts. 
> 
> I will also have to know what exposure this give the “company” security wise. 
> I am guessing that we will need a hi-speed link to IBM (i.e. what is 
> recommended ) or is this a highspeed link to an ISP (I really don’t know this 
> stuff and do not want to underestimate the questions that will be thrown at 
> me). Especially security that will want to know and grill me on it. Does the 
> interface (IBM, ISP) have to be active all the time or just when we need to 
> pull fixes servpacs etc. these people are really security conscious beyond 
> belief.

I think that is the guts of the question I need to know which is not covered by 
the IBM doc. This may kick off another round, but let us start here..
Ed
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN