Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Shane Ginnane
On Thu, 3 Jan 2013 21:35:07 +, Staller, Allan  wrote: 

Since IBM reps are specifically taking the time to contact customers, I would 
consider this a serious exploit.
IF you ARE running the described version of HTTP server, I would install 
immediately (at least as fast as you change control will allow).
IF you ARE NOT running the described version of HTTP server, I would not make 
any special efforts.

Hmmm - my concern when I heard about the sooper seekrit phone call, was how 
do we get this major (???) hole plugged ?.
Who in this neigbourhood has a weekly patch window in production like the 
VMWare/MickeyMouse admins do ?. And how do you explain the reluctance to apply 
the fix immediately to a Security Auditor brought up on zero day exploits in 
the afore-mentioned world ?.

Shane ...

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


Re: RACF on an ADCD system

2013-01-04 Thread ibmmain
 I'm puzzled. I haven't installed an ADCD for a while, but the layout
 used to be explicitly designed for z/OS migration, with a clear split
 between the volumes that would be expected to be replaced in a
 migration, and those that wouldn't.
I disagree. It is set up so that you can customize it properly (by dividing 
your customization from what the system does), provided you know how to do 
that. When I got my hands on the 1.10 system, I first had to clean it up 
severely (get all of our datasets out of the master catalog into a user 
catalog) and then hope and pray that I have found all places someone (using 
IBMUSER) had changed the SMPE-maintained libraries instead of copying to USER.* 
libraries (before my time). It takes some knowledge about migration to be able 
to customize correctly.

When switching to the new system, we lost the RACF database and the master 
catalog and were forced onto the new ones. I had to make sure that I had all of 
our own RACF definitions copied to the new system. Someone had in the past 
activated SMS to contain more than the minimum config ADCD comes with. 
Unfortunately (never having been a space admin before), I didn't know that I 
also had to copy over the SMS CDSs. That caused all kinds of problems. Maybe it 
is just our provider (who had apparently done something to the bare ADCD 
system), but we were not given the chance to 'just replace' the system volumes 
(as one would do in a 'normal' migration to a new release). Instead, we were 
thrown into a new, vanilla ADCD system (and no documentation to speak of) and 
forced to copy over all of our user data. The (old) volumes could get attached 
under VM to the new z/OS system, so that removed the necessity of ADRDSSU 
dumping, FTPing and restoring everything.

Never mind that FTP apparently was broken. An ADRDSSU dump taken in the 1.10 
system and FTP'd (in my case via IND$FILE) to 1.13 resulted in ADRDSSU in 1.13 
telling me that this was not an ADRDSSU dump. When we ftp'd the transport copy 
of our user catalog, something else broke and I was unable to import connect 
the user catalog. When we ADRDSSU dumped the old usercat and restored it, we 
got abend0C4 in some catalog module or other. Eventually I first amatersed any 
catalog or ADRDSSU dump on the old system, ftp'd the amatersed copy to 1.13, 
and untersed it. *Then* it was recognized as a valid copy. I did not debug what 
went wrong, my assumption was lack of toleration maintenance for the new 
release.

The other thing an ADCD system is not set up for is applying maintenance (never 
mind that we cannot order any via ShopZ because our provider has the ADCD 
licence. No customer number, no ShopZ). There is no extra set of system 
residences that can be used for SMPE, so everything would go directly into the 
live system. With all the problems like linklist libraries going into extents 
that would entail. So even installing toleration maintenance would be a pain.

I was told by my predecessor that in the past they *always* had to ADRDSSU dump 
their own data, ftp them somehow to the new ADCD system and restore there. They 
went through P/390, FLEX/ES, with a stint of Hercules to ADCD at our current 
provider.

Barbara

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


Re: Grant permission for TSO Account command

2013-01-04 Thread Angel Tamayo
Joel, that's exactly the case and thanks for your help too.
Thanks




2013/1/3 Joel C. Ewing jcew...@acm.org

 On 01/03/2013 05:06 PM, Lizette Koehler wrote:

 Make sure your IKJTSOxx member contains the correct AUTHPGM and AUTHCMD
 entries.

 Lizette

 -Original Message-

 From: Angel Tamayo a.tamay...@gmail.com
 Sent: Jan 3, 2013 4:04 PM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Grant permission for TSO Account command

 Hi List,

 I'm migrating to zOS 1.11 from an unsupported zOS level, I defined a new
 SYS1.BRODCAST and now I'm trying to format and synchronize but I got
 COMMAND NOT AUTHORIZED FOR userid.
 I have been looking in manuals, google, IBM and my notes and I couldn't
 find(remember) how to get access to the command.

 I know that it can be granted in RACF but I don't have the command to do
 it.

 Someone of you could be so kindly and tell me how can I do it?

 Thanks.

 ...

  You weren't specific about the messages seen, but suspect you would
 have encountered

 IKJ58618I SYNC TERMINATED. USER UNAUTHORIZED TO ISSUE SYNC COMMAND. +
 IKJ58618I USER MUST HAVE ACCOUNT AUTHORITY TO ISSUE THE SYNC COMMAND.

 The userid in question must have at least READ access to a profile ACCT
 in class TSOAUTH in order to issue either the old TSO ACCOUNT command
 (made obsolete in a RACF environment by user profile TSO segments and the
 TSOAUTH class) or the TSO SYNC command.If TSOAUTH ACCT doesn't
 already exist, it should be created with UACC(NONE) and explicit READ
 access only given to those who should be allowed access to ACCOUNT/SYNC
 commands.

 --
 Joel C. Ewing,Bentonville, AR   jcew...@acm.org

 --**--**--
 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: DFSMRCL0 usermod - was: I broke it

2013-01-04 Thread Peter Relson
The ADCD owners confirm that they do now have plans to run IBM 
HealthChecker for z/OS against the ADCD (at least for the newer releases 
of z/OS that they support). Whether that was a direct result of this 
thread or not, I am not sure. It remains to be seen how much they take 
advantage of the exceptions that initially are reported. 

Once that is underway, I expect, at least, that the DFSMRCL0 usermod will 
not be applied when a z/OS 1.13 ADCD system is subsequently built. I 
mention 1.13 only because that is the release where the HC of IEAVTRML is 
introduced and thus that is the release where the presence of DFSMRCL0 
usermod would be flagged. Quite possibly they will be able to apply that 
knowledge to earlier releases that have IMS V9 or later (that being the 
release where the need for DFSMRCL0 went away, and knowing that earlier 
IMS versions are no longer supported).

If any of you care to contribute by running HC yourself on the ADCD 
system and reporting things that both are flagged as exceptions and that 
in all likelihood would help just about the entire ADCD community to have 
changed, feel free to send me a note (but not that IEAVTRML one, please!). 
I mention the entire ADCD community only because I can imagine some 
exception situations being left alone in order to accommodate a subset of 
users who might need the flagged behavior. I have no specific examples of 
such things with respect to ADCD.

I do also have hope that some information would accompany the 
distribution, setting the expectation for what exceptions one might see 
if running HC.

Peter Relson
z/OS Core Technology Design

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


Re: What size memory object backs an IARCP64

2013-01-04 Thread Peter Relson
There is an parm that sets the number of
memory large pages at IPL time.
True, but not relevant to the question, in general.

The specific answer is 1M memory object. This is why the cellsize is 
limited to 520192.  And of course you cannot get a memory object smaller 
than 1M.

There is nothing particularly special about IARCP64. It invokes IARV64 
under the covers when it needs to expand.
The rules for objects obtained by IARV64 (such as application of MEMLIMIT) 
apply to IARCP64.

Peter Relson
z/OS Core Technology Design

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


Re: RACF on an ADCD system

2013-01-04 Thread Mike Schwab
On Fri, Jan 4, 2013 at 2:44 AM, ibmmain nitz-...@gmx.net wrote:
deleted
 Never mind that FTP apparently was broken. An ADRDSSU dump taken in the 1.10 
 system and FTP'd (in my case via IND$FILE) to 1.13 resulted in ADRDSSU in 
 1.13 telling me that this was not an ADRDSSU dump. When we ftp'd the 
 transport copy of our user catalog, something else broke and I was unable to 
 import connect the user catalog. When we ADRDSSU dumped the old usercat and 
 restored it, we got abend0C4 in some catalog module or other. Eventually I 
 first amatersed any catalog or ADRDSSU dump on the old system, ftp'd the 
 amatersed copy to 1.13, and untersed it. *Then* it was recognized as a valid 
 copy. I did not debug what went wrong, my assumption was lack of toleration 
 maintenance for the new release.
deleted

 Barbara
ADRDSSU uses large block sizes that FTP can't handle.  Terse / unterse
took care of that.
-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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


Re: Syntax checker jes

2013-01-04 Thread Cheryl Watson
I believe that New Era software has a product to analyze JES2 parms in addition 
to many other items. It's called IPLCHECK, and I believe that it's free.

Maybe someone from New Era would comment on this?

Best regards,
Cheryl

==
Cheryl Watson
Watson  Walker, Inc.
www.watsonwalker.com
cell  text: 941-266-6609
==


On Jan 1, 2013, at 12:08 PM, Jake anderson wrote:

Hello,

Do we have a syntax checker for jes2parm ? Are there any in built facility
within z/os ?
Any suggestions are highly appreciated.

Jake

--
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: Syntax checker jes

2013-01-04 Thread Mike Schwab
http://www.ibmsystemsmag.com/buyersguide/NewEra-Software,-Inc-/IPL-Check/

http://www.newera.com/IPLCheck/product_description.pdf

Integrates into IBM Health Checker.  Free, but they must have your
model / serial number to create a download specific to your system.

On Fri, Jan 4, 2013 at 10:11 AM, Cheryl Watson cwwalke...@gmail.com wrote:
 I believe that New Era software has a product to analyze JES2 parms in 
 addition to many other items. It's called IPLCHECK, and I believe that it's 
 free.

 Maybe someone from New Era would comment on this?

 Best regards,
 Cheryl

 ==
 Cheryl Watson

-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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


Service Unit rate and HiperDispatch

2013-01-04 Thread Jan Vanbrabant
Hi,

As indicated in the LSPR manual,  SRM constants at the LPAR level can
deviate substantially from the actual capacity of the LPAR due to their
sensitivity to the number of logical engines.
Each time that you manually vary a CP offline (or online),  The SRM
constant is changed.
When an LP is added to an LPAR, the SRM constant is recalculated to reflect
the new configuration. However, this recalculation does NOT (!)  occur when
IRD (Intelligent Resource Director) adds or removes the LP.

Is this true too with HiperDispatch (HD) ?   *(When HD is turned on, IRD is
de-activated of course.)*

But there IS a difference between IRD and HD in the way these mechanisms
work.
IRD  varies  CPUs  'online/offline'.
While HD adjusts the number of  'active' CPUs  to achieve the minimum
required to run the work of the partition.  It 'parks' unused processors,
'parking' meaning - in simple terms - placing a CPU in kind of a long-term
wait until it is again needed to run work. (Parked CPUs get
no share distribution.)
So what about the service unit rate in respect with HD?
Is the SU rate changed or unchanged when CPs are parked or unparked?
If unchanged when CPs are parked/unparked  and  if you use service units as
the basis of charge-back,  this will skew the results because fewer service
units will be produced than if you manually configure the logical
processors.


Please shed some light.
Jan

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


Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Peter Relson
It is somewhat alarming that several posted that they are not signed up 
for the security portal. Someone also posted that they are signed up for 
red alerts and asked why it was not sent that way.

As I understand it, a red alert was sent out (perhaps this past July) 
stating that the method for sending and alerting about security and 
integrity PTFs is via the security portal. Simply, the security portal is 
the red alert process for security and integrity PTFs.

Perhaps I am oversimplifying, but it seems that every customer should make 
sure that they
-- are signed up for red alerts
-- pay attention to those red alerts
-- sign up for the security portal.
This should not be new news.

It should be well understood that z/OS provides few if any details on 
integrity APARs.

The PTFs were available via the security portal on December 20. I have no 
information about why they were not found the day after Christmas when 
someone looked at  www.ibm.com/support.
But I'm glad to hear they are there now.

Peter Relson
z/OS Core Technology Design

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


Formatting a Number with comma's

2013-01-04 Thread Lionel Dyck
I ran across this code from Doug Nadel several years ago and hope that 
y'all will find it useful.


  /* - */
  /* number format code thanks to Doug Nadel   */
  /* - */
   str=strip(translate('0,123,456,789,abc,def', ,
   right(bytes,16,','), ,
   '0123456789abcdef'),'L',',')
   bytes = strip(str)

Here are two examples from oorexx under windows (this works well under 
z/OS and z/VM)

C:\t\newtest.rex 12345678
Bytes: 12,345,678

C:\t\newtest.rex 12345678.12
Bytes: 12,345,678,.12



Lionel B. Dyck 
z Client Architect
IBM Corporation - West IMT

Mobile Phone: 1-925-207-4518
E-mail: lionel.d...@us.ibm.com
System z: www-03.ibm.com/systems/z/
Linux on z: http://www-03.ibm.com/systems/z/os/linux/
Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/

Think Inside the z Box



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


Re: FTP ERRORS [was: RACF on an ADCD system]

2013-01-04 Thread Lionel Dyck
If you want a simple tool to FTP files between z/OS LPARs and also between 
other platforms check out my ISPF dialog FTPBATCH (
http://www.lbdsoftware.com/ftpb223.zip) which will:

prompt for from/to dataset
if a PDS you can send the entire PDS or just selected members
optionally invoke DFDSS to unload the dataset at the from and restore at 
the target
runs either in batch or interactively
optionally generates batch JCL so you can repeat the process without using 
the ISPF dialog


Hope this helps 

Lionel B. Dyck 
z Client Architect
IBM Corporation - West IMT

Mobile Phone: 1-925-207-4518
E-mail: lionel.d...@us.ibm.com
System z: www-03.ibm.com/systems/z/
Linux on z: http://www-03.ibm.com/systems/z/os/linux/
Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/

Think Inside the z Box



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


Re: FTP ERRORS [was: RACF on an ADCD system]

2013-01-04 Thread Mark Zelden
On Fri, 4 Jan 2013 18:19:05 +, Jerry Whitteridge 
jerry.whitteri...@safeway.com wrote:

Long ago I found the following details and sent it to my team. You may find 
the extra details useful:


 

Use the following to FTP a DFDSS Dump.


  First, issue the QUOTE SITE command as follows, which will
assure the receiving file will have the proper DCB attributes...

 QUOTE SITE BLKSIZE=27998 LRECL=0 RECFM=U PRI=xxx SEC=xxx
TRACK

   Of course you much change the space parameters as necessary.
Then,
prior to issuing the actual PUT command, issue these commands.

 MODE B
 EBCDIC

   Mode B tells FTP to use block mode transfers.

   The result is a file DFDSS likes!



Sounds like a dump to disk, not tape.   I recall trying tape with default 
blocksize
and it didn't work.  Even with LRECL=X - even though that works for me for
VB SMF data with BLKSIZE  32760.If I need to FTP a full volume dump 
from tape, I just use FDR with FORMAT=SPLIT to force a max blksize of 32K.
But like you wrote, MODE B and TYPE E (or EBCDIC) is required 
regardless.

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

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


Re: Formatting a Number with comma's

2013-01-04 Thread Mark Zelden
On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck lionel.d...@us.ibm.com wrote:

I ran across this code from Doug Nadel several years ago and hope that
y'all will find it useful.


  /* - */
  /* number format code thanks to Doug Nadel   */
  /* - */
   str=strip(translate('0,123,456,789,abc,def', ,
   right(bytes,16,','), ,
   '0123456789abcdef'),'L',',')
   bytes = strip(str)

Here are two examples from oorexx under windows (this works well under
z/OS and z/VM)

C:\t\newtest.rex 12345678
Bytes: 12,345,678

C:\t\newtest.rex 12345678.12
Bytes: 12,345,678,.12



May need a tweak (or cut/paste does).  What's that extra comma before
the decimal point in the 2nd example?  

There was a recent thread on the TSO-REXX list that had some
nice examples - probably including this one (I don't follow TSO-REXX
too closely).

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

Mark

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


Re: FTP ERRORS [was: RACF on an ADCD system]

2013-01-04 Thread Jerry Whitteridge
Yes - that was dump to disk. As you say it was the Mode B and Type E that was 
significant

Jerry Whitteridge
Lead Systems Programmer
Safeway Inc.
925 951 4184

If you feel in control
you just aren't going fast enough.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Zelden

Sounds like a dump to disk, not tape.   I recall trying tape with default 
blocksize
and it didn't work.  Even with LRECL=X - even though that works for me for
VB SMF data with BLKSIZE  32760.If I need to FTP a full volume dump 
from tape, I just use FDR with FORMAT=SPLIT to force a max blksize of 32K.
But like you wrote, MODE B and TYPE E (or EBCDIC) is required 
regardless.


Email Firewall made the following annotations.
--

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: Service Unit rate and HiperDispatch

2013-01-04 Thread Al Sherkow
The SRM Constants are not changed with HiperDispatch parking and unparking 
engines. Just as the Announced Software MSUs do not change on a physical 
machine regardless of it's LPAR configuration. Chargeback is getting harder, as 
the user whose see variability in their charges (if based on HW or SW Service 
Units) does not really have any control over the Service Units. That is 
controlled by whomever sets up WLM and how WLM, z/OS, and PR/SM manage each 
machine. 

Al Sherkow, I/S Management Strategies, Ltd.
Consulting Expertise on IBM Workload License Charges (WLC),
LPARs and LCS Software
Seminars on IBM Mainframe Software Pricing
+1 414 332-3062
www.sherkow.com

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


FCTC and MPC definitions

2013-01-04 Thread Don
Hoping someone can provide some guidance.

Dynmaically activated FICON CTCs. DEvices are defined correctly and online to 
all systems. However, we cannot allocate  mpc+ connections.


Here are the sequence of events:

for an activate 
vary devices online - TRL - LCL 
*when activating the TRL on one system it remains active for a minute (or 
appears) then drops when activated on the other system


reverse for inactivate
inact lcl - devices offline - dealloc

Your assistance is appreciated.

Regards,

Don

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


Promote specific modules from service root

2013-01-04 Thread Gibney, Dave
Normally, I apply maintenance to a copy mounted at /Service (or sometimes 
/Zervice :) and deploy by making a copy of the new root ZFS file (and the 
SYSRES :) and IPL from them.
Let's say, I want to apply a limited set of fixes to a few executable modules 
and update a specific product without IPL.
In the normal loadlib world, I would COPYMOD the modules, carefully refresh LLA 
if needed and restart the appropriate tasks.

What would be the appropriate tool to accomplish this in the ZFS (or HFS) 
world? Some pax incantation?

Dave Gibney
Information Technology Services
Washington State University

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


Re: Promote specific modules from service root

2013-01-04 Thread John McKown
In a real UNIX, I'd use rsync with the -av switches. Given that such
do not exist on z/OS UNIX, I'd put the names of the files to be copied
into another file, without the leading /Service or /Zervice. I'd then
do something like:

su - #switch to root
for i in file.containing.list.of.files;do cmp -s $i /Service/$i || {
mv -v $i $i.bak;cp -v -a /Service/$i $i };done #copy changed files
exit #from the root shell

What this does is for each file in the list, compare the old ($i) and
new (/Service/$i) version. If they are different, then rename the
current version, $i, to a backup name $i.bak, then verbosely (-v) copy
(cp) the new to the old, keeping the attributes of the new (dates,
owners, etc) (-a).

You may then want restart those processes which it would not be too
disruptive to restart.

On Fri, Jan 4, 2013 at 1:26 PM, Gibney, Dave gib...@wsu.edu wrote:
 Normally, I apply maintenance to a copy mounted at /Service (or sometimes 
 /Zervice :) and deploy by making a copy of the new root ZFS file (and the 
 SYSRES :) and IPL from them.
 Let's say, I want to apply a limited set of fixes to a few executable modules 
 and update a specific product without IPL.
 In the normal loadlib world, I would COPYMOD the modules, carefully refresh 
 LLA if needed and restart the appropriate tasks.

 What would be the appropriate tool to accomplish this in the ZFS (or HFS) 
 world? Some pax incantation?

 Dave Gibney
 Information Technology Services
 Washington State University

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



-- 
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: Formatting a Number with comma's

2013-01-04 Thread John McKown
sure

nocommas=strip(input,b,,)

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55



On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton bill00ash...@gmail.com wrote:
 Now, on a related note...is there a simple way to remove commas from a
 number that is input as a string?

 For example, if a variable has 2,143,628 in it, how can I easily strip
 the commas to wind up with 2143628?

 Billy

 On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck lionel.d...@us.ibm.com wrote:

 The 'extra' comman before the .12 on the second example as just that the
 code does not handle numbers with decimal but works well with pure numbers



 Lionel B. Dyck 
 z Client Architect
 IBM Corporation - West IMT

 Mobile Phone: 1-925-207-4518
 E-mail: lionel.d...@us.ibm.com
 System z: www-03.ibm.com/systems/z/
 Linux on z: http://www-03.ibm.com/systems/z/os/linux/
 Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/

 Think Inside the z Box






 From:   Mark Zelden m...@mzelden.com
 To: IBM-MAIN@listserv.ua.edu,
 Date:   01/04/2013 10:54 AM
 Subject:Re: Formatting a Number with comma's
 Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu



 On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck lionel.d...@us.ibm.com
 wrote:

 I ran across this code from Doug Nadel several years ago and hope that
 y'all will find it useful.
 
 
   /* - */
   /* number format code thanks to Doug Nadel   */
   /* - */
str=strip(translate('0,123,456,789,abc,def', ,
right(bytes,16,','), ,
'0123456789abcdef'),'L',',')
bytes = strip(str)
 
 Here are two examples from oorexx under windows (this works well under
 z/OS and z/VM)
 
 C:\t\newtest.rex 12345678
 Bytes: 12,345,678
 
 C:\t\newtest.rex 12345678.12
 Bytes: 12,345,678,.12
 
 

 May need a tweak (or cut/paste does).  What's that extra comma before
 the decimal point in the 2nd example?

 There was a recent thread on the TSO-REXX list that had some
 nice examples - probably including this one (I don't follow TSO-REXX
 too closely).

 --
 Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
 mailto:m...@mzelden.com
 Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
 Systems Programming expert at http://expertanswercenter.techtarget.com/

 Mark

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




 --
 Thank you and best regards,
 *Billy Ashton*

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



-- 
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: Formatting a Number with comma's

2013-01-04 Thread Mark Zelden
On Fri, 4 Jan 2013 10:58:57 -0800, Lionel Dyck lionel.d...@us.ibm.com wrote:

The 'extra' comman before the .12 on the second example as just that the
code does not handle numbers with decimal but works well with pure numbers



Okay, then if someone needs it to handle decimals also, I suggest looking
on TSO-REXX.  :-)

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

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


Formatting a Number with comma's

2013-01-04 Thread Phil Smith
That's commas, btw.

John McKown wrote:
  nocommas=strip(input,b,,)

You meant:
nocommas = space(translate(input, ' ', ','), 0)

That is:

1)  Translate commas to spaces

2)  Remove all spaces from the number

...phsiii


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


Re: Formatting a Number with comma's

2013-01-04 Thread Phil Smith
For ADDING commas, this works pretty reliably, if a tad obscurely:



/* Call: AddCommas(12345,',') */

AddCommas: procedure

   parse arg a '.' +0 d, comma

   a = right(a, ((length(a)+2)%3)*3)

   do i = 1 to (length(a)%3)-1

  a = insert(comma, a, (4*i)-1)

   end

   return strip(a) || d


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


Re: Formatting a Number with comma's

2013-01-04 Thread Roberto Halais
/* rexx */
num = '123,456,789'
num = space(translate(num,'',','),0)
say num

123456789


On Fri, Jan 4, 2013 at 3:48 PM, John McKown john.archie.mck...@gmail.comwrote:

 sure

 nocommas=strip(input,b,,)

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55



 On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton bill00ash...@gmail.com
 wrote:
  Now, on a related note...is there a simple way to remove commas from a
  number that is input as a string?
 
  For example, if a variable has 2,143,628 in it, how can I easily strip
  the commas to wind up with 2143628?
 
  Billy
 
  On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck lionel.d...@us.ibm.com
 wrote:
 
  The 'extra' comman before the .12 on the second example as just that the
  code does not handle numbers with decimal but works well with pure
 numbers
 
 
 
  Lionel B. Dyck 
  z Client Architect
  IBM Corporation - West IMT
 
  Mobile Phone: 1-925-207-4518
  E-mail: lionel.d...@us.ibm.com
  System z: www-03.ibm.com/systems/z/
  Linux on z: http://www-03.ibm.com/systems/z/os/linux/
  Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/
 
  Think Inside the z Box
 
 
 
 
 
 
  From:   Mark Zelden m...@mzelden.com
  To: IBM-MAIN@listserv.ua.edu,
  Date:   01/04/2013 10:54 AM
  Subject:Re: Formatting a Number with comma's
  Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
 
 
 
 
  On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck lionel.d...@us.ibm.com
  wrote:
 
  I ran across this code from Doug Nadel several years ago and hope that
  y'all will find it useful.
  
  
/* - */
/* number format code thanks to Doug Nadel   */
/* - */
 str=strip(translate('0,123,456,789,abc,def', ,
 right(bytes,16,','), ,
 '0123456789abcdef'),'L',',')
 bytes = strip(str)
  
  Here are two examples from oorexx under windows (this works well under
  z/OS and z/VM)
  
  C:\t\newtest.rex 12345678
  Bytes: 12,345,678
  
  C:\t\newtest.rex 12345678.12
  Bytes: 12,345,678,.12
  
  
 
  May need a tweak (or cut/paste does).  What's that extra comma before
  the decimal point in the 2nd example?
 
  There was a recent thread on the TSO-REXX list that had some
  nice examples - probably including this one (I don't follow TSO-REXX
  too closely).
 
  --
  Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
  mailto:m...@mzelden.com
  Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
  Systems Programming expert at http://expertanswercenter.techtarget.com/
 
  Mark
 
  --
  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
 
 
 
 
  --
  Thank you and best regards,
  *Billy Ashton*
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



 --
 Maranatha! 
 John McKown

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




-- 
Men will never be free until the last king is strangled with the entrails
of the last priest. Denis Diderot

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


Re: Formatting a Number with comma's

2013-01-04 Thread Roberto Halais
Will take numbers with decimal point or not.
/* rexx */
bytes = 1234567.89
parse var bytes num '.' dec
num=strip(translate('0,123,456,789,abc,def', ,
  right(num,16,','), ,
  '0123456789abcdef'),'L',',')
bytes = strip(strip(num)||'.'||dec,'T','.')
say bytes

On Fri, Jan 4, 2013 at 4:02 PM, Roberto Halais roberto.hal...@gmail.comwrote:

 /* rexx */
 num = '123,456,789'
 num = space(translate(num,'',','),0)
 say num

 123456789



 On Fri, Jan 4, 2013 at 3:48 PM, John McKown 
 john.archie.mck...@gmail.comwrote:

 sure

 nocommas=strip(input,b,,)

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55



 On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton bill00ash...@gmail.com
 wrote:
  Now, on a related note...is there a simple way to remove commas from a
  number that is input as a string?
 
  For example, if a variable has 2,143,628 in it, how can I easily strip
  the commas to wind up with 2143628?
 
  Billy
 
  On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck lionel.d...@us.ibm.com
 wrote:
 
  The 'extra' comman before the .12 on the second example as just that
 the
  code does not handle numbers with decimal but works well with pure
 numbers
 
 
 
  Lionel B. Dyck 
  z Client Architect
  IBM Corporation - West IMT
 
  Mobile Phone: 1-925-207-4518
  E-mail: lionel.d...@us.ibm.com
  System z: www-03.ibm.com/systems/z/
  Linux on z: http://www-03.ibm.com/systems/z/os/linux/
  Destination z:
 http://www-03.ibm.com/systems/z/destinationz/index.html/
 
  Think Inside the z Box
 
 
 
 
 
 
  From:   Mark Zelden m...@mzelden.com
  To: IBM-MAIN@listserv.ua.edu,
  Date:   01/04/2013 10:54 AM
  Subject:Re: Formatting a Number with comma's
  Sent by:IBM Mainframe Discussion List 
 IBM-MAIN@listserv.ua.edu
 
 
 
  On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck lionel.d...@us.ibm.com
 
  wrote:
 
  I ran across this code from Doug Nadel several years ago and hope that
  y'all will find it useful.
  
  
/* - */
/* number format code thanks to Doug Nadel   */
/* - */
 str=strip(translate('0,123,456,789,abc,def', ,
 right(bytes,16,','), ,
 '0123456789abcdef'),'L',',')
 bytes = strip(str)
  
  Here are two examples from oorexx under windows (this works well under
  z/OS and z/VM)
  
  C:\t\newtest.rex 12345678
  Bytes: 12,345,678
  
  C:\t\newtest.rex 12345678.12
  Bytes: 12,345,678,.12
  
  
 
  May need a tweak (or cut/paste does).  What's that extra comma before
  the decimal point in the 2nd example?
 
  There was a recent thread on the TSO-REXX list that had some
  nice examples - probably including this one (I don't follow TSO-REXX
  too closely).
 
  --
  Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
  mailto:m...@mzelden.com
  Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
  Systems Programming expert at
 http://expertanswercenter.techtarget.com/
 
  Mark
 
  --
  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
 
 
 
 
  --
  Thank you and best regards,
  *Billy Ashton*
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



 --
 Maranatha! 
 John McKown

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




 --
 Men will never be free until the last king is strangled with the entrails
 of the last priest. Denis Diderot




-- 
Men will never be free until the last king is strangled with the entrails
of the last priest. Denis Diderot

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


Re: Promote specific modules from service root

2013-01-04 Thread Gibney, Dave
Thanks John, 
   Instead of a list in a file, how would I say do this for each file in a 
directory? I get the potentially changed directories from the SMP/E report. I 
don't want to risk missing a file by trying to extract the specific changed 
files from the SMP/E report.

Dave Gibney
Information Technology Services
Washington State University


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
 On Behalf Of John McKown
 Sent: Friday, January 04, 2013 11:46 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Promote specific modules from service root
 
 In a real UNIX, I'd use rsync with the -av switches. Given that such
 do not exist on z/OS UNIX, I'd put the names of the files to be copied
 into another file, without the leading /Service or /Zervice. I'd then
 do something like:
 
 su - #switch to root
 for i in file.containing.list.of.files;do cmp -s $i /Service/$i || {
 mv -v $i $i.bak;cp -v -a /Service/$i $i };done #copy changed files
 exit #from the root shell
 
 What this does is for each file in the list, compare the old ($i) and
 new (/Service/$i) version. If they are different, then rename the
 current version, $i, to a backup name $i.bak, then verbosely (-v) copy
 (cp) the new to the old, keeping the attributes of the new (dates,
 owners, etc) (-a).
 
 You may then want restart those processes which it would not be too
 disruptive to restart.
 
 On Fri, Jan 4, 2013 at 1:26 PM, Gibney, Dave gib...@wsu.edu wrote:
  Normally, I apply maintenance to a copy mounted at /Service (or sometimes
 /Zervice :) and deploy by making a copy of the new root ZFS file (and the
 SYSRES :) and IPL from them.
  Let's say, I want to apply a limited set of fixes to a few executable 
  modules
 and update a specific product without IPL.
  In the normal loadlib world, I would COPYMOD the modules, carefully
 refresh LLA if needed and restart the appropriate tasks.
 
  What would be the appropriate tool to accomplish this in the ZFS (or HFS)
 world? Some pax incantation?
 
  Dave Gibney
  Information Technology Services
  Washington State University
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
 
 
 
 --
 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: Formatting a Number with comma's

2013-01-04 Thread Lionel Dyck
Nice simple addition


Lionel B. Dyck 
z Client Architect
IBM Corporation - West IMT

Mobile Phone: 1-925-207-4518
E-mail: lionel.d...@us.ibm.com
System z: www-03.ibm.com/systems/z/
Linux on z: http://www-03.ibm.com/systems/z/os/linux/
Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/

Think Inside the z Box






From:   Roberto Halais roberto.hal...@gmail.com
To: IBM-MAIN@listserv.ua.edu, 
Date:   01/04/2013 12:13 PM
Subject:Re: Formatting a Number with comma's
Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu



Will take numbers with decimal point or not.
/* rexx */
bytes = 1234567.89
parse var bytes num '.' dec
num=strip(translate('0,123,456,789,abc,def', ,
  right(num,16,','), ,
  '0123456789abcdef'),'L',',')
bytes = strip(strip(num)||'.'||dec,'T','.')
say bytes

On Fri, Jan 4, 2013 at 4:02 PM, Roberto Halais 
roberto.hal...@gmail.comwrote:

 /* rexx */
 num = '123,456,789'
 num = space(translate(num,'',','),0)
 say num

 123456789



 On Fri, Jan 4, 2013 at 3:48 PM, John McKown 
john.archie.mck...@gmail.comwrote:

 sure

 nocommas=strip(input,b,,)

 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55



 On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton bill00ash...@gmail.com
 wrote:
  Now, on a related note...is there a simple way to remove commas from 
a
  number that is input as a string?
 
  For example, if a variable has 2,143,628 in it, how can I easily 
strip
  the commas to wind up with 2143628?
 
  Billy
 
  On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck lionel.d...@us.ibm.com
 wrote:
 
  The 'extra' comman before the .12 on the second example as just that
 the
  code does not handle numbers with decimal but works well with pure
 numbers
 
 
 
  Lionel B. Dyck 
  z Client Architect
  IBM Corporation - West IMT
 
  Mobile Phone: 1-925-207-4518
  E-mail: lionel.d...@us.ibm.com
  System z: www-03.ibm.com/systems/z/
  Linux on z: http://www-03.ibm.com/systems/z/os/linux/
  Destination z:
 http://www-03.ibm.com/systems/z/destinationz/index.html/
 
  Think Inside the z Box
 
 
 
 
 
 
  From:   Mark Zelden m...@mzelden.com
  To: IBM-MAIN@listserv.ua.edu,
  Date:   01/04/2013 10:54 AM
  Subject:Re: Formatting a Number with comma's
  Sent by:IBM Mainframe Discussion List 
 IBM-MAIN@listserv.ua.edu
 
 
 
  On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck 
lionel.d...@us.ibm.com
 
  wrote:
 
  I ran across this code from Doug Nadel several years ago and hope 
that
  y'all will find it useful.
  
  
/* - 
*/
/* number format code thanks to Doug Nadel */
/* - 
*/
 str=strip(translate('0,123,456,789,abc,def', ,
 right(bytes,16,','), ,
 '0123456789abcdef'),'L',',')
 bytes = strip(str)
  
  Here are two examples from oorexx under windows (this works well 
under
  z/OS and z/VM)
  
  C:\t\newtest.rex 12345678
  Bytes: 12,345,678
  
  C:\t\newtest.rex 12345678.12
  Bytes: 12,345,678,.12
  
  
 
  May need a tweak (or cut/paste does).  What's that extra comma 
before
  the decimal point in the 2nd example?
 
  There was a recent thread on the TSO-REXX list that had some
  nice examples - probably including this one (I don't follow TSO-REXX
  too closely).
 
  --
  Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
  mailto:m...@mzelden.com
  Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
  Systems Programming expert at
 http://expertanswercenter.techtarget.com/
 
  Mark
 
  
--
  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
 
 
 
 
  --
  Thank you and best regards,
  *Billy Ashton*
 
  
--
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO 
IBM-MAIN



 --
 Maranatha! 
 John McKown

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




 --
 Men will never be free until the last king is strangled with the 
entrails
 of the last priest. Denis Diderot




-- 
Men will never be free until the last king is strangled with the entrails
of the last priest. Denis Diderot

--
For IBM-MAIN subscribe / signoff / archive access 

Re: IbmLink vs. https [was: Security vulnerability in IBM HTTP...]

2013-01-04 Thread Tony Harminc
On 4 January 2013 12:37, Neil Duffee nduf...@uottawa.ca wrote:
 Caveat:  I get the daily digest so this has likely been discussed to death 
 already.

 Tony:  try the unsecure version ie.  http://www.ibmlink.ibm.com, and you'll 
 get re-directed to a secure, sign-on location : 
 https://www-304.ibm.com/usrsrvc/account/userservices/jsp/login [snip]  I know 
 that both my FireFox bookmarks from 2011 are like that:  
 http://www.ibm.com/ibmlink  http://www.ibm.com/support/servicerequest/.  
 Both will re-direct you to the sign-on page before passing you through to the 
 secure page(s).

Thanks. The problem is that it's a current  IBM page that contains the
offending link - not some old bookmark of mine. This is the page that
I get from clicking on a PTF number in the APAR text, that gives me
the choice of ShopzSeries or IBMLINK. The IBMLINK link is the
https://www.ibmlink.ibm.com one that has a bad cert.

I have great trouble understanding why a company like IBM allows this
kind of thing to happen repeatedly. As Firefox says, Don't add an
exception unless you know there's a good reason why this site doesn't
use trusted identification. Legitimate banks, stores, and other public
sites will not ask you to do this.

Tony H.

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


Re: FCTC and MPC definitions

2013-01-04 Thread Staller, Allan
ISTR FCTC are not out of the box. Z/OS maint is required pre z/OS 1.13 , not 
sure about 1.13 itself..
(note I did not go back through the announcements)

HTH,
snip
Dynmaically activated FICON CTCs. DEvices are defined correctly and online to 
all systems. However, we cannot allocate  mpc+ connections.


Here are the sequence of events:

for an activate
vary devices online - TRL - LCL
*when activating the TRL on one system it remains active for a minute (or 
appears) then drops when activated on the other system


reverse for inactivate
inact lcl - devices offline - dealloc
/snip

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


Re: FCTC and MPC definitions

2013-01-04 Thread Don Demor
Mystery solved...

SYSP
P2M1TRL  VBUILD TYPE=TRL
P2M1TRLE TRLE LNCTL=MPC,
   MAXBFRU=16,  
   READ=(0E75,0F75),
   WRITE=(0E74,0F74)

SYSM
M2P1TRL  VBUILD TYPE=TRL
M2P1TRLE TRLE LNCTL=MPC,
   MAXBFRU=16,  
   READ=(0E84,0F84),
   WRITE=(0E85,0F85)


The failures described in the initial post occurred when the specifying 
0Ex4,0Fx4 as the reads on both systems. Read from one system needs to align 
with the write to the other. (see SYSP and SYSM TRL examples)

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


Re: Formatting a Number with comma's

2013-01-04 Thread Mark Zelden
The Tweak   :-)

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/


On Fri, 4 Jan 2013 16:12:11 -0400, Roberto Halais roberto.hal...@gmail.com 
wrote:

Will take numbers with decimal point or not.
/* rexx */
bytes = 1234567.89
parse var bytes num '.' dec
num=strip(translate('0,123,456,789,abc,def', ,
  right(num,16,','), ,
  '0123456789abcdef'),'L',',')
bytes = strip(strip(num)||'.'||dec,'T','.')
say bytes

On Fri, Jan 4, 2013 at 4:02 PM, Roberto Halais roberto.hal...@gmail.comwrote:

 /* rexx */
 num = '123,456,789'
 num = space(translate(num,'',','),0)
 say num

 123456789



 On Fri, Jan 4, 2013 at 3:48 PM, John McKown 
 john.archie.mck...@gmail.comwrote:

 sure

 nocommas=strip(input,b,,)

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55



 On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton bill00ash...@gmail.com
 wrote:
  Now, on a related note...is there a simple way to remove commas from a
  number that is input as a string?
 
  For example, if a variable has 2,143,628 in it, how can I easily strip
  the commas to wind up with 2143628?
 
  Billy
 
  On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck lionel.d...@us.ibm.com
 wrote:
 
  The 'extra' comman before the .12 on the second example as just that
 the
  code does not handle numbers with decimal but works well with pure
 numbers
 
 
 
  Lionel B. Dyck 
  z Client Architect
  IBM Corporation - West IMT
 
  Mobile Phone: 1-925-207-4518
  E-mail: lionel.d...@us.ibm.com
  System z: www-03.ibm.com/systems/z/
  Linux on z: http://www-03.ibm.com/systems/z/os/linux/
  Destination z:
 http://www-03.ibm.com/systems/z/destinationz/index.html/
 
  Think Inside the z Box
 
 
 
 
 
 
  From:   Mark Zelden m...@mzelden.com
  To: IBM-MAIN@listserv.ua.edu,
  Date:   01/04/2013 10:54 AM
  Subject:Re: Formatting a Number with comma's
  Sent by:IBM Mainframe Discussion List 
 IBM-MAIN@listserv.ua.edu
 
 
 
  On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck lionel.d...@us.ibm.com
 
  wrote:
 
  I ran across this code from Doug Nadel several years ago and hope that
  y'all will find it useful.
  
  
/* - */
/* number format code thanks to Doug Nadel   */
/* - */
 str=strip(translate('0,123,456,789,abc,def', ,
 right(bytes,16,','), ,
 '0123456789abcdef'),'L',',')
 bytes = strip(str)
  
  Here are two examples from oorexx under windows (this works well under
  z/OS and z/VM)
  
  C:\t\newtest.rex 12345678
  Bytes: 12,345,678
  
  C:\t\newtest.rex 12345678.12
  Bytes: 12,345,678,.12
  
  
 
  May need a tweak (or cut/paste does).  What's that extra comma before
  the decimal point in the 2nd example?
 
  There was a recent thread on the TSO-REXX list that had some
  nice examples - probably including this one (I don't follow TSO-REXX
  too closely).
 
  --
  Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
  mailto:m...@mzelden.com
  Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
  Systems Programming expert at
 http://expertanswercenter.techtarget.com/
 
  Mark
 
  --
  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
 
 
 
 
  --
  Thank you and best regards,
  *Billy Ashton*
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



 --
 Maranatha! 
 John McKown

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




 --
 Men will never be free until the last king is strangled with the entrails
 of the last priest. Denis Diderot




--
Men will never be free until the last king is strangled with the entrails
of the last priest. Denis Diderot

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

Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Thomas Conley

On 1/4/2013 1:35 PM, Peter Relson wrote:

It is somewhat alarming that several posted that they are not signed up
for the security portal. Someone also posted that they are signed up for
red alerts and asked why it was not sent that way.

As I understand it, a red alert was sent out (perhaps this past July)
stating that the method for sending and alerting about security and
integrity PTFs is via the security portal. Simply, the security portal is
the red alert process for security and integrity PTFs.

Perhaps I am oversimplifying, but it seems that every customer should make
sure that they
-- are signed up for red alerts
-- pay attention to those red alerts
-- sign up for the security portal.
This should not be new news.



To many, the security portal is news.


It should be well understood that z/OS provides few if any details on
integrity APARs.



No problem with few to no details.  Problem with signing up to security 
portal which is unknown to many.  Still think IBM should mark these HIPER.



The PTFs were available via the security portal on December 20. I have no
information about why they were not found the day after Christmas when
someone looked at  www.ibm.com/support.
But I'm glad to hear they are there now.



Peter,

I'm working for one of the largest  banks in the world right now, and 
they were unaware of the security portal.  We ran headlong into an 
integrity APAR recently with no notice.  To say I disagree with IBM's 
handling of integrity APARs would be an understatement.


Regards,
Tom Conley

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


Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Ed Gould

Peter:

Maybe this should be brought up as a hot item at Share ?

Ed


On Jan 4, 2013, at 12:35 PM, Peter Relson wrote:

It is somewhat alarming that several posted that they are not  
signed up
for the security portal. Someone also posted that they are signed  
up for

red alerts and asked why it was not sent that way.

As I understand it, a red alert was sent out (perhaps this past July)
stating that the method for sending and alerting about security and
integrity PTFs is via the security portal. Simply, the security  
portal is

the red alert process for security and integrity PTFs.

Perhaps I am oversimplifying, but it seems that every customer  
should make

sure that they
-- are signed up for red alerts
-- pay attention to those red alerts
-- sign up for the security portal.
This should not be new news.

It should be well understood that z/OS provides few if any details on
integrity APARs.

The PTFs were available via the security portal on December 20. I  
have no

information about why they were not found the day after Christmas when
someone looked at  www.ibm.com/support.
But I'm glad to hear they are there now.

Peter Relson
z/OS Core Technology Design

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


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


Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Shaffer, Terri E
We applied these fixes the weekend before Christmas to 15 lpars.  We used the 
following:

To Backup
pax -wzvpe -x os390 -f /Service1/gskssl.IBM /usr/lpp/gskssl/*  
pax -wzvpe -x os390 -f /Service1/internet.bin.IBM /usr/lpp/internet/bin/*  
pax -wzvpe -x os390 -f /Service1/internet.sbin.IBM /usr/lpp/internet/sbin/*

to Restore 
cd /usr/lpp/gskssl 
pax -pe -rvf /Service1/gskssl.IBM

Repeat for the other directories..

As for the other question how you could replace specific modules/directories 
within a ZFS, you can use this..


Thanks

Ms. Terri E. Shaffer 
terri.e.shaf...@jpmchase.com
z/OS Engineer 
J.P.Morgan Chase  Co.
GTI ECS Enterprise Software Engineering (ESE) or Extreme Software Engineering 
Office: # 614-213-3467
Cell: # 412-519-2592 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Arthur T.
Sent: Thursday, January 03, 2013 6:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 
(PM79239)

On 3 Jan 2013 13:29:55 -0800, in bit.listserv.ibm-main
(Message-ID:of7b5d33fe.a7936193-on86257ae8.0075bd35-86257ae8.00761...@fruit.com)
craig.p...@fotlinc.com wrote:

These are IBM Security Alerts and do not come through as HYPER or RED 
ALERT, they only come in as Security Alerts.  IBM sends them 
discreetly in this manner to try and prevent anyone from saying Oh, 
there is a whole..let me use it.  If not registered, you will 
never know unless you get a call from your IBM Rep or Business Partner.

Well then, it's a good thing that the IBM reps carefully explained all of this 
to all of their customers.  Otherwise, a link to the problem might be posted to 
a publicly-available newsgroup.

/snark


--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur at pobox dot com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
This communication is for informational purposes only. It is not
intended as an offer or solicitation for the purchase or sale of
any financial instrument or as an official confirmation of any
transaction. All market prices, data and other information are not
warranted as to completeness or accuracy and are subject to change
without notice. Any comments or statements made herein do not
necessarily reflect those of JPMorgan Chase  Co., its subsidiaries
and affiliates.

This transmission may contain information that is privileged,
confidential, legally privileged, and/or exempt from disclosure
under applicable law. If you are not the intended recipient, you
are hereby notified that any disclosure, copying, distribution, or
use of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED. Although this transmission and any
attachments 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 JPMorgan Chase 
Co., its subsidiaries and affiliates, as applicable, for any loss
or damage arising in any way from its use. If you received this
transmission in error, please immediately contact the sender and
destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.

Please refer to http://www.jpmorgan.com/pages/disclosures for
disclosures relating to European legal entities.

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


Re: Promote specific modules from service root

2013-01-04 Thread John McKown
I just looked and I think Ms. Shaffer gave you a better solution using
pax. It addresses the problems I mention at the end of my post.

But on the off chance you're interesting, just as a curiosity, you
could do something like:

su - #switch to root
cd /Service/sub/directory #change to subdirectory
oldDir=${PWD#/Service} #strip leading /Service from name of current
subdirectory
for i in *;do
 $j=${oldDir}/$i #name of file to possible replace
 cmp $i $j || {mv -v $j $j.bak; cp -av $i $j; }
done
exit #out of root shell

Now, this only does files in the specific directory, not in
subdirectories in that directory. If you want files in subdirectories
of the directory, you need to change it slightly

su - #switch to root
cd /Service/sub/directory #change to subdirectory containing updated files
oldDir=${PWD#/Service} #strip leading /Service from name of current
subdirectory
find . -type f |\
while read i;do
  j=${oldDir}/$i #file to possible replace
  cmp $i $j || { mv -v $j $j.bak; cp -av $i $j; } #compare and possibly copy
end

The find command will find all regular files in the directory and its
subdirectories, and list them out to stdout, which is piped into the
while read i;do loop.

And just in case you're wondering, if there is a brand spanking new
file created by some PTF, the cmp will fail because there is no old
file to compare to. This also causes so the second part to run. Now,
in this case the mv will fail, but the cp will still run and so new
files are copied.

Hum, some possible problems could be if a PTF created a new
subdirectory and files, or created a new file which is not a regular
file. This would be something like a named FIFO or a special device
file (mknod command.)

On Fri, Jan 4, 2013 at 2:13 PM, Gibney, Dave gib...@wsu.edu wrote:
 Thanks John,
Instead of a list in a file, how would I say do this for each file in a 
 directory? I get the potentially changed directories from the SMP/E report. 
 I don't want to risk missing a file by trying to extract the specific changed 
 files from the SMP/E report.

 Dave Gibney
 Information Technology Services
 Washington State University

-- 
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: Formatting a Number with comma's

2013-01-04 Thread John Gilmore
Perhaps another point of view will be of some interest.

The schemes presented in this thread seem to me to be examples of
radically misplaced ingenuity.  If I did not know better I should be
forced to conclude from them that knowledge of HLASM programming had
been lost to this list.

Chapter 8 (Decimal Instructions) of the current PrOp contains full
discussions of the EDIT and EDIT AND MARK machine instructions, which
perform these operations elegantly, efficiently, and compactly.

John Gilmore, Ashland, MA 01721 - USA

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


Re: Automation for IGD17272I

2013-01-04 Thread Mike Wood
Antonio, are you really on z/OS V1.2  
If you were on a supported release you would have some of the newer SG related 
capabilities in DFSMS to help - such as overflow and extend storage groups.
You would not need to automate - simply define the available volumes that you 
would add, and tell DFSMS how you want them used/added.

Start here ... www.redbooks.ibm.com/redbooks/pdfs/sg246979.pdf

Mike Wood

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


Re: Automation for IGD17272I

2013-01-04 Thread John McKown
Perhaps he could have a reserve of volumes in each storage group
which are DISNEW. When he got the message, he could do a VARY
VOL(vv),ENABLE . Of course, there is now the problem of finding a
volume in the appropriate SG which is in DISALL or DISNEW status. I
would look at the DISPLAY SMS,SG(storgrup),LISTVOL output personally.
But this is a MLWTO and might be difficult to capture and parse.

On Fri, Jan 4, 2013 at 3:19 PM, Mike Wood mww...@ntlworld.com wrote:
 Antonio, are you really on z/OS V1.2 
 If you were on a supported release you would have some of the newer SG 
 related capabilities in DFSMS to help - such as overflow and extend storage 
 groups.
 You would not need to automate - simply define the available volumes that you 
 would add, and tell DFSMS how you want them used/added.

 Start here ... www.redbooks.ibm.com/redbooks/pdfs/sg246979.pdf

 Mike Wood

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



-- 
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: Formatting a Number with comma's

2013-01-04 Thread Shane Ginnane
On Fri, 4 Jan 2013 16:02:58 -0500, John Gilmore wrote:

Perhaps another point of view will be of some interest.

What the hell, here's another ...
redacted ... too early in the year for language flames-wars ...  ;-)

Shane ...

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


Re: Automation for IGD17272I

2013-01-04 Thread Jonathan Goossen
We setup a rule in CA Vantage to tell us when a storage group passes a 
threshold that we set. When any storage group passes the threshold set for 
it, Vantage sends us an email. We check for the emails when we are working 
and when one arrives, we take a look at the pool and take what ever action 
is appropriate for it.

It works great for us. We also use CA Vantage for a lot of other 
automation and gathering data.

Thank you and have a Terrific day!

Jonathan Goossen, DTM
ACT Mainframe Storage Group
Personal: 651-361-4541
Department Support Line: 651-361-
For help with communication and leadership skills checkout Woodwinds 
Toastmasters.



IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 
01/04/2013 11:44:29 AM:

 From: af dc acbi...@gmail.com
 To: IBM-MAIN@LISTSERV.UA.EDU
 Date: 01/04/2013 11:44 AM
 Subject: Automation for IGD17272I
 Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
 
 Hello,
 does anyone have some kind of automation to handle out-of-space SGs that
 doesn't mind of sharing ??
 Everyday before going home I check all dasd SGs for any abnormal
 occupancy and to prepare SGs to batch run without probls. But sometimes,
 after hours I've to add some dasd volumes to a SG that has no space
 available.
 My question is to know from your experience in your shops if you have 
some
 kind of process using NETVIEW, or any any other automation product that
 capture IGD17272I and add dasd volumes to a SG automatically, for 
example,
 or a product to monitor SGs space well I welcome any idea.
 
 I'm at z/os V.1.2
 Many thx,Antonio Cecilio.
 
 --
 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 and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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


Re: Security vulnerability in IBM HTTP Server for z/OS Version 5.3 (PM79239)

2013-01-04 Thread Thomas Conley

On 1/4/2013 3:32 PM, Thomas Conley wrote:

On 1/4/2013 1:35 PM, Peter Relson wrote:

It is somewhat alarming that several posted that they are not signed up
for the security portal. Someone also posted that they are signed up for
red alerts and asked why it was not sent that way.

As I understand it, a red alert was sent out (perhaps this past July)
stating that the method for sending and alerting about security and
integrity PTFs is via the security portal. Simply, the security portal is
the red alert process for security and integrity PTFs.



Peter,

Sorry, I missed this earlier.  There is a red alert from April of 2011 
documenting the security portal:


https://www14.software.ibm.com/webapp/set2/sas/f/redAlerts/20110409.html

I'd still like to see integrity APARs marked HIPER, but you are right 
that this has been documented via the Red Alert process.


Regards,
Tom Conley

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


Re: Formatting a Number with comma's

2013-01-04 Thread Gerhard Postpischil

On 1/4/2013 4:02 PM, John Gilmore wrote:

Chapter 8 (Decimal Instructions) of the current PrOp contains full
discussions of the EDIT and EDIT AND MARK machine instructions, which
perform these operations elegantly, efficiently, and compactly.


The OP asked for a way to remove commas from an EBCDIC numeric string; 
I see no way of using ED or EDMK to do this. The second question raised, 
of inserting commas, may have a model dependent answer. It's not clear 
whether packing a variable length number, then  editing that would be 
faster than a translate after moving to a work area with pre- or 
post-fixed blank and comma.


Gerhard Postpischil
Bradford, Vermont

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


Re: Automation for IGD17272I

2013-01-04 Thread Brian Westerman
Not to push our automation product, but SyzMPF/z does allow automation of the 
IGD17272I message and will allow you to interrogate which volsers (or units) 
are available and add as necessary.  We also allow for parsing of MLWTO 
messages up to 256 words of the message (words are separated by spaces for 
the purpose of our parsing).  We are also less than 10% of both IBM and CA's 
automation product cost.


Brian Westerman
www.SyzygyInc.com

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