date:20120411


On 4/11/2012 6:38 AM, Phil Smith wrote:

Thanks for all the responses; off to hospital for spinal surgery, more anon.



Ouch! Best wishes.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.html

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

Re: SMF from critical application

2012-04-11 Thread Staller, Allan

I agree w/Martin. 

At the time of IEFU83, all of the processing has been done, and you are
merely trying to suppress the writing of the record.
The writing of the SMF record is an asynchronous process, handled by the
traditional SMF writer, or the System Logger and does not affect
application performance.
There is, of course, the subsequent processing of the SMF records,
unrelated to application processing.

My understanding of standard SMF processing indicates that the
overhead to create the SMF data is built in to the OS and cannot be
changed. DB2 may have an option (I am not aware of one) to suppress the
data creation.

IOW, given that you are already incurring the overhead to do the data
gathering, what is gained by suppressing the records?

snip
We are thinking about writing a SMF exit (IEFU8x) to not write certain
DB2 IFCIDS of the SMF 102 record. Can anyone direct me to some
documentation that would help me to understand how much processing time
would be saved by doing this?
/snip

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

HSM to open systems

My company is in the process of sun setting our MF.
We have about 40 TBytes of data under HSM control.
I have been tasked with the responsibility to pull the data and put it under a 
Unix/Linux system as an archived data.
The only time we will need to reference it (without the MF) is in case some of 
our users need to retrieve one of the files (not to update), just to look at.
We are supposed to keep the data for up to 15 years.
Any suggestions will be greatly appreciated.
Uriel

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

Re: z/OS X-Windows (was: ASCII (was: Unix path name))

On Wed, 11 Apr 2012 09:27:28 +0200, Marian Gasparovic wrote:

Just to add to what John said. Client and server glossary is reversed
in X Window world. ...

No, it is not reversed.  As elsewhere in the world, the server
LISTENs for a connection; the client requests to CONNECT.

It has nothing to do with size, importance, or influence.
As a parallel, when President Clinton (with an entourage
of bodyguards and reporters) walked into McDonald's
and ordered a hamburger, Clinton was the client; the
low-wage clerk behind the counter was the server.


On Wed, 11 Apr 2012 02:54:11 -0500, David Price wrote:

Paul, thank you for the clarification that the original comment (about a 
possible lack of Curses, X11 and socket support) referred to the IBM XL C/C++ 
compiler rather than z/OS UNIX.
 
(Which would have been unnecessary absent Shmuel's pedantry.)
You're welcome.

So if the manuals are to believed, z/OS XL C/C++ should support Curses, X11 
and sockets from z/OS UNIX.
 
Curses and X11 are not supported with the Enhanced ASCII
option in effect (note the word ASCII in the Subject: line.
But the last time I tried it was several years ago.)  I haven't
tried sockets with that option (but sockets should be a
prerequisite for X11).

In:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/edclb1c0/B.3

B.3 Library function support

Table 62 shows all the z/OS XL C/C++ Run-Time Library functions in
alphabetical order, their support of Enhanced ASCII processing and
their support of Preinitialized Environments for Authorized Programs.

Enhanced ASCII
Each function is identified by the extent to which it supports Enhanced 
ASCII processing:

Yes = supports Enhanced ASCII.
No = does not support Enhanced ASCII.
Neutral = not sensitive to the issue of ASCII/EBCDIC character encoding. 

Socket support appears to be present (Yes).  Curses functions
aren't mentioned -- they don't even merit a No.  I see nothing
that resembles X.

-- gil

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

Re: Questions regarding SMS compacted dataset

On Wed, 11 Apr 2012 12:53:22 +0300, Yifat Oren wrote:

Other utilities, such as IEBGENER. have to decompress the data set as they
are doing a record by record, logical, copy (this may not be true for IDCAMS
when using the compression interface, see II14507).

Is this done by the utility (ugh!) or by the access method?

-- gil

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

Re: Questions regarding SMS compacted dataset

2012-04-11 Thread Staller, Allan

Access method

snip
Other utilities, such as IEBGENER. have to decompress the data set as
they
are doing a record by record, logical, copy (this may not be true for
IDCAMS
when using the compression interface, see II14507).

Is this done by the utility (ugh!) or by the access method?
/snip

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

Re: Query about overcoming -- debunking, countering, and burying --mainframe myths

On Wed, 11 Apr 2012 07:04:45 -0500, Tom Marchant wrote:

 A renowned industry expert ...
[said] the 4341 might not be compatible with the 148

Not what you are looking for, but in the late 1970's, when I
was an Amdahl SE someone said that they understood that
the Amdahl was IBM-compatible, but would it run Cobol?
 
I understand that Hercules is zSeries compatible, but will
it run z/OS?

-- gil

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

Re: HSM to open systems

2012-04-11 Thread Lizette Koehler

My company is in the process of sun setting our MF.
We have about 40 TBytes of data under HSM control.
I have been tasked with the responsibility to pull the data and put it under
a Unix/Linux system as an archived data.
The only time we will need to reference it (without the MF) is in case some
of our users need to retrieve one of the files (not to update), just to look
at.
We are supposed to keep the data for up to 15 years.
Any suggestions will be greatly appreciated.
Uriel


Uriel,

I think there are two options.

1)  Unload all the data from HSM into the original format and then FTP to a
Server.  Loadlibs maybe an issus.
2)  Contract with a 3rd party to be able to store your HSM data there for
access only.

I am unaware of any server product that could read Mainframe HSM data.


Lizette

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

Re: Query about overcoming -- debunking, countering, and burying --mainframe myths

2012-04-11 Thread Tom Marchant

On Wed, 11 Apr 2012 08:50:28 -0500, Paul Gilmartin paulgboul...@aim.com wrote:

On Wed, 11 Apr 2012 07:04:45 -0500, Tom Marchant wrote:

someone said that they understood that
the Amdahl was IBM-compatible, but would it run Cobol?

I understand that Hercules is zSeries compatible, but will
it run z/OS?

That is a marketing and licensing question.  The question 
about the Amdahl processor running Cobol was a technical 
compatibility question.  The license was available.

-- 
Tom Marchant

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

Re: USS YORKTOWN(was Accessing USS on Mainframe thru Telnet)

2012-04-11 Thread Neale Ferguson

I believe it has something to do with access to a tight seal.

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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

At present, all my HLASM code checks for the high order bit to be '1'b. Even 
for fixed length parameter lists. Why? Because I don't trust the programmers 
using my code to call it correctly. Therefore, I do as many validations as I 
can before performing any operations. I got into this habit due to a really 
messy HLASM subroutine that I had to rewrite. It had a tendency to not validate 
anything. And did some amazing memory overlays in CICS, some of which crashed 
CICS itself. 

If a validation error occurs, I either return a return code which is 
architected as meaning either the wrong number of parameters or an invalid 
parameter value has been detected., or I force an ABEND. I only ABEND when I 
update an existing program which was not designed to return a return code, 
because I know the calling code will not check it. In the past, I caused an 
S0C3 via an EX of itself. I have changed this to an S0C1 by doing a BRC to *+2 
(Jcond *+2) because I have changed my assembly technique to use relative 
addressing as well as being LE enabled (in most cases). 

I actually prefer LE enabled assembler in most cases. Mainly because: (1) it 
interoperates better with HLLs like COBOL, PL/I, FORTRAN, and C/C++, both as 
caller and as callee; (2) I can use subroutines written in those languages 
easily; and (3) if I abend in my assembler code, I get a CEEDUMP. This latter 
is very nice when I am writing a UNIX shell command because it puts the CEEDUMP 
in a uniquely named file in the current directory. It's difficult to get a 
SYSUDUMP type abend dump from a UNIX shell command. And the CEEDUMP is usually 
sufficient for my debugging.

-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bernd Oppolzer
 Sent: Tuesday, April 10, 2012 5:49 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)
 
 I would not blame PL/1 for this.
 It is not OK IMHO to request the caller to set the
 high order bit on the last parameter, when the number of the 
 parameters 
 is fixed
 (see also my GDDM example on the other post). This is not required by 
 any OS convention,
 at least that's my understanding.
 
 Kind regards
 
 Bernd
 
 
 
 Am 11.04.2012 00:19, schrieb Frank Swarbrick:
  I don't know if this is relevant, but I was looking at the 
 PL/I DL/I (IMS) interface (PLITDLI) and noticed that they 
 actually have to pass, as the first parameter, a fullword 
 containing the remaining number of items!  Crazy!
 
  For example, in COBOL you say:
 
  call 'CBLTDLI' using ghnp, pcb-mask, i-o-area, ssa-1 ssa-2.
 
  In PL/I it looks like you'd do something like this:
  call PLITDLI (five, ghnp, pcb-mask, i-o-area, ssa-1 ssa-2);
 
  See here for more details:
  
 http://publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.j
 sp?topic=%2Fcom.ibm.ims11.doc.apg%2Fims_imsdbpliapp.htm
 
  I was pretty happy about what I learned about PL/I until I 
 saw this.  Yuck!
 
  Frank
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: z/OS every two years (Official announcment)

2012-04-11 Thread Ken Porowski

And if your box is pre z9 Series ...

In addition, in z/OS V2.1, IBM plans to further leverage enhancements in the 
current IBM mainframe servers and storage control units. z/OS V2.1 is planned 
to IPL only on System z9® and later servers. Also, z/OS Version 2 is planned to 
require 3990 Model 3 (3990-3), 3990 Model 6 (3990-6), and later storage control 
units.
 


--
This email message and any accompanying materials may contain proprietary, 
privileged and confidential information of CIT Group Inc. or its subsidiaries 
or affiliates (collectively, CIT), and are intended solely for 
the recipient(s) named above. If you are not the intended recipient of this 
communication, any use, disclosure, printing, copying or distribution, or 
reliance on the contents, of this communication is strictly prohibited. CIT 
disclaims any liability for the review, retransmission, dissemination or other 
use of, or the taking of any action in reliance upon, this communication by 
persons other than the intended recipient(s). If you have received this 
communication in error, please reply to the sender advising of the error in 
transmission, and immediately delete and destroy the communication and any 
accompanying materials. To the extent permitted by applicable law, CIT and 
others may inspect, review, monitor, analyze, copy, record and retain any 
communications sen!
 t from or received at this email address.
--

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Alvaro Guirao Lopez
Sent: Wednesday, April 11, 2012 7:34 AM
To: IBM-MAIN@bama.ua.edu
Subject: [IBM-MAIN] z/OS every two years (Official announcment)

Well,

Finally IBM has released the official announcement about releasing z/OS every 
two years:

http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?subtype=cainfotype=anappname=iSourcesupplier=877letternum=ENUSZP12-0025

Also, the next z/OS version, released in the second half of 2013, will be z/OS 
V2.1.

EOS - The support of the new versions will be for 5 years, and, optionally,
3 years more.

z/OSMF also will be V2 and 5 years of support without option of more years of 
support.


Enjoy it.

--
Un saludo.
Álvaro Guirao

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

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

Re: HSM to open systems

I think there are two options.

1)  Unload all the data from HSM into the original format and then FTP to a
Server.  Loadlibs maybe an issus.
2)  Contract with a 3rd party to be able to store your HSM data there for
access only.

I am unaware of any server product that could read Mainframe HSM data.


SAS and ISPF (Unix or Win) can read MF data (ebcdic).
I am only concerned about customer data (text) since anything else will not be 
needed.
(we will do the usual back up just in case).

Am I wondering if anybody had to face this situation and I would like to learn 
how they went about it.

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

Re: HSM to open systems

2012-04-11 Thread Miklos Szigetvari


Hi

Not the same as your case, but we have here HSM exits, to use HFS (Unix) 
dataset in the place of ML2

So with this exit we migrate/recall everything from/ to HFS (Unix) .


On 4/11/2012 3:41 PM, Uriel Carrasquilla wrote:

My company is in the process of sun setting our MF.
We have about 40 TBytes of data under HSM control.
I have been tasked with the responsibility to pull the data and put it under a 
Unix/Linux system as an archived data.
The only time we will need to reference it (without the MF) is in case some of 
our users need to retrieve one of the files (not to update), just to look at.
We are supposed to keep the data for up to 15 years.
Any suggestions will be greatly appreciated.
Uriel

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




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

Monitoring Real Storage Utilization

2012-04-11 Thread Mark Jacobs

We had a discussion yesterday regarding our obsolete IEFUSI exit and how 
it should be modernized to even know about the virtual storage region 
above the 2GB line.


One of the concerns was that since IEFUSI has no practicable effect on 
authorized programs I was asked to come up with some ways to better 
manage our environment just in case some user decides to allocate and 
start using massive amounts of above the bar storage.


My question to the mailing list is do you manage towards this scenario 
and if so, how?


--
Mark Jacobs
Time Customer Service
Tampa, FL


Learn from yesterday, live for today, hope for tomorrow.
The important thing is to not stop questioning.

- Albert Einstein

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

Re: HSM to open systems

2012-04-11 Thread Farley, Peter x23353

OK, I will just comment it out.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Miklos Szigetvari
Sent: Wednesday, April 11, 2012 10:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: HSM to open systems

Hi

Not the same as your case, but we have here HSM exits, to use HFS (Unix) 
dataset in the place of ML2
So with this exit we migrate/recall everything from/ to HFS (Unix) .

On 4/11/2012 3:41 PM, Uriel Carrasquilla wrote:
 My company is in the process of sun setting our MF.
 We have about 40 TBytes of data under HSM control.
 I have been tasked with the responsibility to pull the data and put it under 
 a Unix/Linux system as an archived data.
 The only time we will need to reference it (without the MF) is in case some 
 of our users need to retrieve one of the files (not to update), just to look 
 at.
 We are supposed to keep the data for up to 15 years.
 Any suggestions will be greatly appreciated.
 Uriel

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

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

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

Re: HSM to open systems

2012-04-11 Thread Farley, Peter x23353

Oops.  Please pardon me, I was not looking where I hit the Reply button, please 
ignore these two emails entirely.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Farley, Peter x23353
Sent: Wednesday, April 11, 2012 10:24 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: HSM to open systems

OK, I will just comment it out.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Miklos Szigetvari
Sent: Wednesday, April 11, 2012 10:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: HSM to open systems

Hi

Not the same as your case, but we have here HSM exits, to use HFS (Unix) 
dataset in the place of ML2
So with this exit we migrate/recall everything from/ to HFS (Unix) .

On 4/11/2012 3:41 PM, Uriel Carrasquilla wrote:
 My company is in the process of sun setting our MF.
 We have about 40 TBytes of data under HSM control.
 I have been tasked with the responsibility to pull the data and put it under 
 a Unix/Linux system as an archived data.
 The only time we will need to reference it (without the MF) is in case some 
 of our users need to retrieve one of the files (not to update), just to look 
 at.
 We are supposed to keep the data for up to 15 years.
 Any suggestions will be greatly appreciated.
 Uriel

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

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

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

2012-04-11 Thread Bernd Oppolzer


I understand your motivation to do this;
our site specific CALL macro also sets the high order bit on every
parameter address list (even fixed length), although nobody checks it;
it's merely for dump reading purposes.

But: if you recall the posting of the ATTACH macro description,
you are (and we are) in conflict with the recommendation of IBM,
which says that the VL bit should only be set on variable length
parameter lists. But even the IBM recommendations are not very
consistent, as the other poster pointed out ...

Kind regards

Bernd


Am 11.04.2012 16:07, schrieb McKown, John:

At present, all my HLASM code checks for the high order bit to be '1'b. Even 
for fixed length parameter lists. Why? Because I don't trust the programmers 
using my code to call it correctly. Therefore, I do as many validations as I 
can before performing any operations. I got into this habit due to a really 
messy HLASM subroutine that I had to rewrite. It had a tendency to not validate 
anything. And did some amazing memory overlays in CICS, some of which crashed 
CICS itself.

If a validation error occurs, I either return a return code which is architected as 
meaning either the wrong number of parameters or an invalid parameter value has 
been detected., or I force an ABEND. I only ABEND when I update an existing program 
which was not designed to return a return code, because I know the calling code will not 
check it. In the past, I caused an S0C3 via an EX of itself. I have changed this to an 
S0C1 by doing a BRC to *+2 (Jcond *+2) because I have changed my assembly technique to 
use relative addressing as well as being LE enabled (in most cases).

I actually prefer LE enabled assembler in most cases. Mainly because: (1) it 
interoperates better with HLLs like COBOL, PL/I, FORTRAN, and C/C++, both as 
caller and as callee; (2) I can use subroutines written in those languages 
easily; and (3) if I abend in my assembler code, I get a CEEDUMP. This latter 
is very nice when I am writing a UNIX shell command because it puts the CEEDUMP 
in a uniquely named file in the current directory. It's difficult to get a 
SYSUDUMP type abend dump from a UNIX shell command. And the CEEDUMP is usually 
sufficient for my debugging.



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

Re: HSM to open systems

2012-04-11 Thread Lizette Koehler

On 4/11/2012 3:41 PM, Uriel Carrasquilla wrote:
 My company is in the process of sun setting our MF.
 We have about 40 TBytes of data under HSM control.
 I have been tasked with the responsibility to pull the data and put it
under a Unix/Linux system as an archived data.
 The only time we will need to reference it (without the MF) is in case
some of our users need to retrieve one of the files (not to update), just to
look at.
 We are supposed to keep the data for up to 15 years.
 Any suggestions will be greatly appreciated.
 Uriel


Uriel,

So what time frame are you looking to decommission your mainframe.  Any
solution you choose to get data from HSM to the server for storage will take
time.

Yes SAS and ISPF (WS Client) could probably do what you want.  Implementing
HSM exits to place data in Unix/HFS files is also possible.

Your question was reading HSM data in a server environment.

So if you could provide more details on what your requirements are, we can
come up with other solutions.

Information that would be helpful are
1) Time frame to move data to server?
2) Efforts involved?  Do you have a large staff, small staff?  Do you have
time to write exits for HSM and redirect the HSM data?
3) Is the 40 TB all of the data or is the information you need to place on
the server a smaller number?
4) Will you have a dedicated server for your mainframe storage?

Lizette

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

Re: FTP QUESTION

How did you create the file on the PC? It needs to be a standard text file. Can 
you read it correctly using NOTEPAD on Windows or less on Linux/UNIX? It 
definitely CANNOT be a MS Word file, unless you did a save as in text format.

John McKown 

Systems Engineer IV

IT

 

Administrative Services Group

 

HealthMarkets®

 

9151 Boulevard 26 . N. Richland Hills . TX 76010

(817) 255-3225 phone . 

john.mck...@healthmarkets.com . www.HealthMarkets.com

 

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes
 Sent: Wednesday, April 11, 2012 7:42 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: FTP QUESTION
 
 G'day,
  
 I am trying to FTP a txt file - jcl  of 850 lines long - from 
 my PC to the MAINFRAME.  The PDS has been preallocated.  The 
 FTP function works however when I check the PDS member the it 
 has all garbled characters.  I tried the FTP with the BIN 
 command and without.  Is there something else I can try?
  
 Thanks in advance.
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: USS YORKTOWN(was Accessing USS on Mainframe thru Telnet)

2012-04-11 Thread Lloyd Fuller

Neale,

The next question is how do you get the seal tight?  Use the Chief's home brew 
or would the seal be smart enough to require something better?  :-)

Lloyd



- Original Message 
From: Neale Ferguson ne...@sinenomine.net
To: IBM-MAIN@bama.ua.edu
Sent: Wed, April 11, 2012 10:07:20 AM
Subject: Re: USS YORKTOWN(was Accessing USS on Mainframe thru Telnet)

I believe it has something to do with access to a tight seal.

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

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

IXC104I SSD not configured - z/OS 1.13 migration

2012-04-11 Thread Paul Coyne

On my first IPL of z/OS 1.13 I got the following messages:

IXC104I SYSTEM STATUS DETECTION PARTITIONING PROTOCOL ELIGIBILITY:
  SYSTEM CANNOT TARGET OTHER SYSTEMS.
  REASON: SYSPLEX COUPLDATA SET NOT FORMATTED FOR THE PROTOCOL
SYSTEM IS NOT ELIGIBLE TO BE TARGETED BY OTHER SYSTEMS.
 REASON: SYSPLEX COUPLE DATASET NOT FORMATTED FOR THE PROTOCOL
IXC220W XCF IS UNABLE TO CONTINUE: WAIT STATE CODE: 0A2 REASON CODE: 020

Our z/OS 1.11 systems in the plex have SSD enabled (by default) but the CDS is 
not formatted to support it.
From what I have read in the migration documentation, enabling is recommended 
but I can't see that it is mandatory.
I can disable it for now via command but just wondered if anybody else has seen 
this issue.   

regards, Paul

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

Re: openssl make - z/OS UNIX question - Help

2012-04-11 Thread Shaffer, Terri E

Hi Kirk,
  Wow thank you!! I have deleted the whole openssl-1.0.1 directory, Re-issued 
my pax to recreate the directory.

Then performed all the updates you identified and suggested, That was much 
simpler with way less issues than before.

Now my Make runs for about 1hr. But sadly I now get.

gmakeÝ2¨: Entering directory `/u/w012108/temp/openssl-1.0.1/apps'   
( :; LIBDEPS=${LIBDEPS:--L.. -lssl  -L.. -lcrypto }; LDCMD=${LDCMD:-c99_x}; 
LDFLAGS=${LDFLAGS:--O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H -D_ALL_SOURC
E}; LIBPATH=`for x in $LIBDEPS; do echo $x; done | sed -e 's/¬ *-L//;t' -e d | 
uniq`; LIBPATH=`echo $LIBPATH | sed -e 's/ /:/g'`; LD_LIBRARY_PATH=$LIBPATH:$LD_
LIBRARY_PATH ${LDCMD} ${LDFLAGS} -o ${APPNAME:=openssl} openssl.o verify.o asn1p
ars.o req.o dgst.o dh.o dhparam.o enc.o passwd.o gendh.o errstr.o ca.o pkcs7.o c
rl2p7.o crl.o rsa.o rsautl.o dsa.o dsaparam.o ec.o ecparam.o x509.o genrsa.o gen
dsa.o genpkey.o s_server.o s_client.o speed.o s_time.o apps.o s_cb.o s_socket.o 
app_rand.o version.o sess_id.o ciphers.o nseq.o pkcs12.o pkcs8.o pkey.o pkeypara
m.o pkeyutl.o spkac.o smime.o cms.o rand.o engine.o ocsp.o prime.o ts.o srp.o ${
LIBDEPS} )  
FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x, .p, .I, or 
.a), or a corresponding data set name, instead of -L... 
gmakeÝ2¨: *** Ýlink_app.¨ Error 1   
gmakeÝ2¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
gmakeÝ1¨: *** Ýopenssl¨ Error 2 
gmakeÝ1¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
gmake: *** Ýbuild_apps¨ Error 1

I see in /u/w012108/temp/openssl-1.0.1/PROBLEMS there is a reference but I 
think it's for macOS X.

This is really a misfeature in ld, which seems to look for .dylib libraries   
along the whole library path before it bothers looking for .a libraries.  This
means that -L switches won't matter unless OpenSSL is built with shared   
library support.  
  
The workaround may be to change the following lines in apps/Makefile and  
test/Makefile:
  
  LIBCRYPTO=-L.. -lcrypto 
  LIBSSL=-L.. -lssl   
  
to:   
  
  LIBCRYPTO=../libcrypto.a
  LIBSSL=../libssl.a   

Not sure why I got this error and you didn't? On another note, I did not see 
any of the other errors you saw but maybe I just didn't get that
far?

One last question if there a way to capture all the output that scrolls on my 
screen?  In case I missed any messages? 
  

Thanks

Ms. Terri E. Shaffer 
terri.e.shaf...@jpmchase.com
Engineer
J.P.Morgan Chase  Co.
GTI DCT ECS Core Services zSoftware Group / Emerging Technologies 
Office: # 614-213-3467
Cell: # 412-519-2592 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Kirk Wolf
Sent: Tuesday, April 10, 2012 3:52 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: openssl make - z/OS UNIX question - Help

Terri,

I downloaded 1.0.1 and here's how I built it:

1) Update the Configure perl script and add this line (after the existing 
OS390-Unix line, which isn't used):

OS/390,c99_x:-O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H  
-D_ALL_SOURCE::(unknown):::THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR RC4_INDEX 
RC4_CHAR BF_PTR:::,

Notice that all I changed was to change the label to OS/390 and to use the 
c99_x command.
- c99 means to use STDC99, which automatically implies LONGLONG.  This avoids 
the shell quoting issues.
- the c99_x means to compile and link using XPLINK linkage.  You may or may
not want this, depending on what you are using it for.   If you have a
non-XPLINK application and you want to use it with the openssl dll, then you 
will want to use just c99

2) ensure that perl and gmake are in your PATH

3) chmod +x tools/*

4)
export MAKE=gmake
export _C89_CCMODE=1   (not sure that this is needed any more with the c99
command)

5) $MAKE

I get these errors:
ERROR CCN3045 ./b_sock.c:888   Undeclared identifier NI_MAXHOST.
ERROR CCN4324 ./b_sock.c:888   Array size must have integer type.
ERROR CCN3045 ./b_sock.c:888   Undeclared identifier NI_MAXSERV.
ERROR CCN4324 ./b_sock.c:888

Re: Monitoring Real Storage Utilization

2012-04-11 Thread Mark Zelden

On Wed, 11 Apr 2012 10:24:10 -0400, Mark Jacobs mark.jac...@custserv.com 
wrote:

We had a discussion yesterday regarding our obsolete IEFUSI exit and how
it should be modernized to even know about the virtual storage region
above the 2GB line.

One of the concerns was that since IEFUSI has no practicable effect on
authorized programs I was asked to come up with some ways to better
manage our environment just in case some user decides to allocate and
start using massive amounts of above the bar storage.

My question to the mailing list is do you manage towards this scenario
and if so, how?


I'm not really worried about STCs and authorized users.  Nothing I can do 
about them except allocate 2000 page volumes (just kidding).   

The comments in my IEFUSI exit from 2005 still hold true and explain
what I am doing.  So far, it has worked out fine.   My client does have
64-bit usage and also large pages running 64-bit WebSphere.  
Basically, I just want to keep someone from playing with 64-bit
from destroying the system. 

My SMFPRMxx MEMLIMIT is to 10G.   

9/14/2005   M ZELDEN FORCE MEMLIMIT OF 5G FOR ANY JCL   
 SPECIFICATION OF ANYTHING OVER 5G BUT  
 ALLOW MEMLIMIT NOLIMIT (16383PB) IF
 REGION=0M. IF NO JCL SPECIFICATION IS  
 USED (OTHER THAN REGION=0M), THEN TAKE 
 THE MEMLIMIT DFLT FROM SMF (SMFPRMXX). 
 THIS WILL ALLOW SYSTEMS THAT NEED A
 HIGHER MEMLIMIT TO HAVE SMFPRMXX BE
 THE CONTROLLING FACTOR - AS LONG AS
 MEMLIMIT IS NOT SPECIFIED IN THE JCL.  
 SINCE ONLY STCS CAN USE REGION=0M, ONLY
 STCS WITH REGION=0M CAN GET MORE THAN  
 THE FORCED MEMLIMIT OR THE SMF DFLT.   

By having SMFPRMxx be the controlling factor, I could easily raise it
if a problem came up with no JCL changes etc.   So far, I've haven't
needed to do that. Keep in mind I updated this exit for the brave
new world in 2005.   I'm slightly surprised it's been 7 years and
I haven't needed to modify it except for a change in 2007 related to 
OA14391 which affected z/OS 1.7  z/OS 1.8 and above. That
APAR kept STCs with REGION=0M from  getting MEMLIMIT=NOLIMIT
so I updated the exit to force MEMLIMIT=NOLIMIT for STCs with
REGION=0M (which was the behavior prior to OA14391).

Regards,

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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: z/OS every two years (Official announcment)

2012-04-11 Thread R.S.

Documentation in Bookreader format will no longer be available!
That's horrible!

--
Radoslaw Skorupka
Lodz, Poland

--
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive.

BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax
+48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88.
Wedug stanu na dzie 01.01.2012 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.410.984 zotych.

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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

2012-04-11 Thread Victor Gil

LINKAGE SECTION.

01 A-POINTER USAGE POINTER.
01 BIN-WORD REDEFINES A-POINTER COMP S9(8).

...
CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, OMITTED 
RETURNING RC.

SET A-POINTER TO ADDRESS OF INPUT-LENGTH
IF BIN-WORD  0 THEN the high-bit is ON


Funny thing with Enterprise COBOL...  It properly sets the high-order bit on 
the last parm, but supplies no way to interrogate it!  So if THEFUNCTION was 
written in COBOL then you have to invoke it thusly:

CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, OMITTED
RETURNING RC.

(The OMITTED keyword simply passes an address of NULL.)

Oy!

Frank

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

Re: openssl make - z/OS UNIX question - Help

I'm not sure why you are getting this linker error and I'm not.   I did
this on a z/OS 1.11 system, maybe there is a difference there.   It would
be nice if I could figure out a way to cause the actual command to be
printed; that would probably have clues.

This is really tough stuff.   Find a Unix guru who knows make and the shell
really well and they could probably help you.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Apr 11, 2012 at 10:10 AM, Shaffer, Terri E 
terri.e.shaf...@jpmchase.com wrote:

 Hi Kirk,
  Wow thank you!! I have deleted the whole openssl-1.0.1 directory,
 Re-issued my pax to recreate the directory.

 Then performed all the updates you identified and suggested, That was much
 simpler with way less issues than before.

 Now my Make runs for about 1hr. But sadly I now get.

 gmakeÝ2¨: Entering directory `/u/w012108/temp/openssl-1.0.1/apps'
 ( :; LIBDEPS=${LIBDEPS:--L.. -lssl  -L.. -lcrypto };
 LDCMD=${LDCMD:-c99_x};
 LDFLAGS=${LDFLAGS:--O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H
 -D_ALL_SOURC
 E}; LIBPATH=`for x in $LIBDEPS; do echo $x; done | sed -e 's/¬ *-L//;t'
 -e d |
 uniq`; LIBPATH=`echo $LIBPATH | sed -e 's/ /:/g'`;
 LD_LIBRARY_PATH=$LIBPATH:$LD_
 LIBRARY_PATH ${LDCMD} ${LDFLAGS} -o ${APPNAME:=openssl} openssl.o verify.o
 asn1p
 ars.o req.o dgst.o dh.o dhparam.o enc.o passwd.o gendh.o errstr.o ca.o
 pkcs7.o c
 rl2p7.o crl.o rsa.o rsautl.o dsa.o dsaparam.o ec.o ecparam.o x509.o
 genrsa.o gen
 dsa.o genpkey.o s_server.o s_client.o speed.o s_time.o apps.o s_cb.o
 s_socket.o
 app_rand.o version.o sess_id.o ciphers.o nseq.o pkcs12.o pkcs8.o pkey.o
 pkeypara
 m.o pkeyutl.o spkac.o smime.o cms.o rand.o engine.o ocsp.o prime.o ts.o
 srp.o ${
 LIBDEPS} )
 FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x, .p,
 .I, or
 .a), or a corresponding data set name, instead of -L...
 gmakeÝ2¨: *** Ýlink_app.¨ Error 1
 gmakeÝ2¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
 gmakeÝ1¨: *** Ýopenssl¨ Error 2
 gmakeÝ1¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
 gmake: *** Ýbuild_apps¨ Error 1

 I see in /u/w012108/temp/openssl-1.0.1/PROBLEMS there is a reference but I
 think it's for macOS X.

 This is really a misfeature in ld, which seems to look for .dylib libraries
 along the whole library path before it bothers looking for .a libraries.
  This
 means that -L switches won't matter unless OpenSSL is built with shared
 library support.

 The workaround may be to change the following lines in apps/Makefile and
 test/Makefile:

  LIBCRYPTO=-L.. -lcrypto
  LIBSSL=-L.. -lssl

 to:

  LIBCRYPTO=../libcrypto.a
  LIBSSL=../libssl.a

 Not sure why I got this error and you didn't? On another note, I did not
 see any of the other errors you saw but maybe I just didn't get that
 far?

 One last question if there a way to capture all the output that scrolls on
 my screen?  In case I missed any messages?

 Thanks

 Ms. Terri E. Shaffer
 terri.e.shaf...@jpmchase.com
 Engineer
 J.P.Morgan Chase  Co.
 GTI DCT ECS Core Services zSoftware Group / Emerging Technologies
 Office: # 614-213-3467
 Cell: # 412-519-2592


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
 Behalf Of Kirk Wolf
 Sent: Tuesday, April 10, 2012 3:52 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: openssl make - z/OS UNIX question - Help

 Terri,

 I downloaded 1.0.1 and here's how I built it:

 1) Update the Configure perl script and add this line (after the existing
 OS390-Unix line, which isn't used):

 OS/390,c99_x:-O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H
  -D_ALL_SOURCE::(unknown):::THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR
 RC4_INDEX RC4_CHAR BF_PTR:::,

 Notice that all I changed was to change the label to OS/390 and to use
 the c99_x command.
 - c99 means to use STDC99, which automatically implies LONGLONG.  This
 avoids the shell quoting issues.
 - the c99_x means to compile and link using XPLINK linkage.  You may or may
 not want this, depending on what you are using it for.   If you have a
 non-XPLINK application and you want to use it with the openssl dll, then
 you will want to use just c99

 2) ensure that perl and gmake are in your PATH

 3) chmod +x tools/*

 4)
 export MAKE=gmake
 export _C89_CCMODE=1   (not sure that this is needed any more with the c99
 command)

 5) $MAKE

 I get these errors:
 ERROR CCN3045 ./b_sock.c:888   Undeclared identifier NI_MAXHOST.
 ERROR CCN4324 ./b_sock.c:888   Array size must have integer type.
 ERROR CCN3045 ./b_sock.c:888   Undeclared identifier NI_MAXSERV.
 ERROR CCN4324 ./b_sock.c:888   Array size must have integer type.

 So, I added these lines to crypto/bio/b_sock.c starting at line 102

 #ifndef NI_MAXSERV
 #define NI_MAXSERV 32
 #endif
 #ifndef NI_MAXHOST
 #define NI_MAXHOST 1025
 #endif

 I get the following warnings, which I think may be OK.  The problem are
 missing #includes (which are probably different on z/OS) -

 WARNING CCN4421 ./a_print.c:90Implicit function

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

Cool trick!
Probably a bit(!) confusing to application developers who really don't 
understand how program linkage works, but definitely cool.

- Original Message -
 From: Steve Comstock st...@trainersfriend.com
 To: IBM-MAIN@bama.ua.edu
 Cc: 
 Sent: Tuesday, April 10, 2012 8:15 PM
 Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)

 On 4/10/2012 4:33 PM, Frank Swarbrick wrote:
  - Original Message -
  From: Phil Smithp...@voltage.com
  To: IBM-MAIN@bama.ua.edu
  Cc:
  Sent: Tuesday, April 10, 2012 3:31 PM
  Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)

  Bernd Oppolzer wrote:
  I don't know if it helps you, but using C I would code the two 
 calls
  this way:

  rc = THEFUNCTION (magic, inputbuffer,inputlength, NULL, 
 NULL);

  Exactly backwards-the idea here is to NOT be obscure, but to have a 
 nice,
  flexible, intuitive API. Having to specify null parameters or to use a 
 macro for
  things is what we *don't* want to do.

  Haha, I can agree with that!

  Funny thing with Enterprise COBOL... It properly sets the 
 high-order bit
  on
 the last parm, but supplies no way to interrogate it! So if 
 THEFUNCTION was
  written in COBOL then you have to invoke it thusly:

  CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, 
 OMITTED, OMITTED
  RETURNING RC.

  (The OMITTED keyword simply passes an address of NULL.)

  Oy!

 Well, there is a little trick you use, involving defining the
 trailing parameters as pointers coming in by value, on the
 procedure division header name the pointers not the items,
 defining items you expect in linkage, redefining a binary
 item on top of the pointers, to access one of the data items
 use 'set addres of data_item to pointer', when you're done
 with an item check if the redefined (binary version) is
 negative - that indicates the end of list bit is on.

 No problem.

 :-)

  Frank

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

 -- 

 Kind regards,

 -Steve Comstock
 The Trainer's Friend, Inc.

 303-355-2752
 http://www.trainersfriend.com

 * To get a good Return on your Investment, first make an investment!
    + Training your people is an excellent investment

 * Try our tool for calculating your Return On Investment
      for training dollars at
    http://www.trainersfriend.com/ROI/roi.html

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

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

Re: Questions regarding SMS compacted dataset

2012-04-11 Thread Yifat Oren

Victor,

Logical dump of compressed format data sets does not decompress them.

This quote from the DFSMSdss Storage Administration sort-of implies that:
1.  The COMPRESS keyword is ignored if it is specified during a logical
data set dump for either compressed-format sequential data 
sets or compressed-format VSAM data sets.

(The COMPRESS keyword  specifies that DFSMSdss should compress the output
dump data set before writing it to output medium - so, double compression is
being avoided here).


COPY must decompress an extended-format compressed data set when copying it
to a basic-format data set (on tape).

Best Regards,
Yifat
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Victor Zhang
Sent: Wednesday, April 11, 2012 3:52 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Questions regarding SMS compacted dataset

Yifat,
Thank you very much, very help.
One more question:
Does both physical dump and logical dump NOT decompress extended compacted
PS dataset OR Does physical dump NOT decompress extended compacted PS
dataset OR Does copy decompress extended compacted PS dataset?

Regards
Victor

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

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

Re: Query about overcoming -- debunking, countering, and burying --mainframe myths

Not legally. But I've heard rumors that it does.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
 Sent: Wednesday, April 11, 2012 8:50 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Query about overcoming -- debunking, countering, 
 and burying --mainframe myths
 
 On Wed, 11 Apr 2012 07:04:45 -0500, Tom Marchant wrote:
 
  A renowned industry expert ...
 [said] the 4341 might not be compatible with the 148
 
 Not what you are looking for, but in the late 1970's, when I
 was an Amdahl SE someone said that they understood that
 the Amdahl was IBM-compatible, but would it run Cobol?
  
 I understand that Hercules is zSeries compatible, but will
 it run z/OS?
 
 -- gil
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: HSM to open systems

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari
 Sent: Wednesday, April 11, 2012 9:17 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: HSM to open systems

 Hi

 Not the same as your case, but we have here HSM exits, to use 
 HFS (Unix) 
 dataset in the place of ML2
 So with this exit we migrate/recall everything from/ to HFS (Unix) .

Neat! Any way to get access to those exits?

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

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

Re: IXC104I SSD not configured - z/OS 1.13 migration

2012-04-11 Thread Tom Sims

Yes.  I did not recall seeing this as mandatory, either, but 
HealthChecker flagged it as a migration action, IIRC.


Tom Sims
Trident Services, Inc.

Paul Coyne wrote:


On my first IPL of z/OS 1.13 I got the following messages:

IXC104I SYSTEM STATUS DETECTION PARTITIONING PROTOCOL ELIGIBILITY:
  SYSTEM CANNOT TARGET OTHER SYSTEMS.
  REASON: SYSPLEX COUPLDATA SET NOT FORMATTED FOR THE PROTOCOL
SYSTEM IS NOT ELIGIBLE TO BE TARGETED BY OTHER SYSTEMS.
 REASON: SYSPLEX COUPLE DATASET NOT FORMATTED FOR THE PROTOCOL
IXC220W XCF IS UNABLE TO CONTINUE: WAIT STATE CODE: 0A2 REASON CODE: 020

Our z/OS 1.11 systems in the plex have SSD enabled (by default) but the CDS is 
not formatted to support it.

From what I have read in the migration documentation, enabling is recommended 
but I can't see that it is mandatory.
I can disable it for now via command but just wondered if anybody else has seen this issue.   


regards, Paul

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




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

Batch utility to show DCB info for files

2012-04-11 Thread Bill Ashton

Hello!

Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use
standard, already existing utilities.

Thanks!
Billy

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

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Joel C. Ewing


On 04/11/2012 11:36 AM, Bill Ashton wrote:

Hello!

Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use
standard, already existing utilities.

Thanks!
Billy



See IBM IEHLIST utility, LISTVTOC command.  Will have to separately list 
VTOC for each DASD volume containing files of interest.  Output tends to 
be verbose, but at least it's a standard utility.


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

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Ulrich Krueger

How about IDCAMS DCOLLECT followed by some DFSORT reports. IIRC, there
should be some sample reports floating around that you can customize.


Regards,
Ulrich Krueger


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Bill Ashton
Sent: Wednesday, April 11, 2012 9:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Batch utility to show DCB info for files

Hello!

Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use
standard, already existing utilities.

Thanks!
Billy

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

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

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

Re: openssl make - z/OS UNIX question - Help

2012-04-11 Thread Shaffer, Terri E

Kirk,
  First I really want to thank you for all your help.  I now finally have a 
valid openssl module

W012108:SDEV(DEV):/u/w012108/temp/openssl-1.0.1/apps  ./openssl version
OpenSSL 1.0.1 14 Mar 2012   

How I fixed my issues, was I implemented the fix identified in the PROBLEMS 
member both in apps and test directories.

Then my C++ compiler was not setup properly so it was looking for cee.xx 
datasets not SYS1.xx.

This was because /usr/lpp/cbclib/xlc/etc/xlc.cfg was never customized In my 
shop.  Changed the HLQ and everything worked

Thanks

Ms. Terri E. Shaffer 
terri.e.shaf...@jpmchase.com
Engineer
J.P.Morgan Chase  Co.
GTI DCT ECS Core Services zSoftware Group / Emerging Technologies 
Office: # 614-213-3467
Cell: # 412-519-2592 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Kirk Wolf
Sent: Wednesday, April 11, 2012 11:42 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: openssl make - z/OS UNIX question - Help

I'm not sure why you are getting this linker error and I'm not.   I did
this on a z/OS 1.11 system, maybe there is a difference there.   It would
be nice if I could figure out a way to cause the actual command to be printed; 
that would probably have clues.

This is really tough stuff.   Find a Unix guru who knows make and the shell
really well and they could probably help you.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Apr 11, 2012 at 10:10 AM, Shaffer, Terri E  
terri.e.shaf...@jpmchase.com wrote:

 Hi Kirk,
  Wow thank you!! I have deleted the whole openssl-1.0.1 directory, 
 Re-issued my pax to recreate the directory.

 Then performed all the updates you identified and suggested, That was 
 much simpler with way less issues than before.

 Now my Make runs for about 1hr. But sadly I now get.

 gmakeÝ2¨: Entering directory `/u/w012108/temp/openssl-1.0.1/apps'
 ( :; LIBDEPS=${LIBDEPS:--L.. -lssl  -L.. -lcrypto }; 
 LDCMD=${LDCMD:-c99_x}; LDFLAGS=${LDFLAGS:--O -DB_ENDIAN 
 -DCHARSET_EBCDIC -DNO_SYS_PARAM_H -D_ALL_SOURC E}; LIBPATH=`for x in 
 $LIBDEPS; do echo $x; done | sed -e 's/¬ *-L//;t'
 -e d |
 uniq`; LIBPATH=`echo $LIBPATH | sed -e 's/ /:/g'`; 
 LD_LIBRARY_PATH=$LIBPATH:$LD_ LIBRARY_PATH ${LDCMD} ${LDFLAGS} -o 
 ${APPNAME:=openssl} openssl.o verify.o asn1p ars.o req.o dgst.o dh.o 
 dhparam.o enc.o passwd.o gendh.o errstr.o ca.o pkcs7.o c rl2p7.o crl.o 
 rsa.o rsautl.o dsa.o dsaparam.o ec.o ecparam.o x509.o genrsa.o gen 
 dsa.o genpkey.o s_server.o s_client.o speed.o s_time.o apps.o s_cb.o 
 s_socket.o app_rand.o version.o sess_id.o ciphers.o nseq.o pkcs12.o 
 pkcs8.o pkey.o pkeypara m.o pkeyutl.o spkac.o smime.o cms.o rand.o 
 engine.o ocsp.o prime.o ts.o srp.o ${ LIBDEPS} )
 FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x, 
 .p, .I, or .a), or a corresponding data set name, instead of -L...
 gmakeÝ2¨: *** Ýlink_app.¨ Error 1
 gmakeÝ2¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
 gmakeÝ1¨: *** Ýopenssl¨ Error 2
 gmakeÝ1¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
 gmake: *** Ýbuild_apps¨ Error 1

 I see in /u/w012108/temp/openssl-1.0.1/PROBLEMS there is a reference 
 but I think it's for macOS X.

 This is really a misfeature in ld, which seems to look for .dylib 
 libraries along the whole library path before it bothers looking for .a 
 libraries.
  This
 means that -L switches won't matter unless OpenSSL is built with 
 shared library support.

 The workaround may be to change the following lines in apps/Makefile 
 and
 test/Makefile:

  LIBCRYPTO=-L.. -lcrypto
  LIBSSL=-L.. -lssl

 to:

  LIBCRYPTO=../libcrypto.a
  LIBSSL=../libssl.a

 Not sure why I got this error and you didn't? On another note, I did 
 not see any of the other errors you saw but maybe I just didn't get 
 that far?

 One last question if there a way to capture all the output that 
 scrolls on my screen?  In case I missed any messages?

 Thanks

 Ms. Terri E. Shaffer
 terri.e.shaf...@jpmchase.com
 Engineer
 J.P.Morgan Chase  Co.
 GTI DCT ECS Core Services zSoftware Group / Emerging Technologies
 Office: # 614-213-3467
 Cell: # 412-519-2592


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
 Behalf Of Kirk Wolf
 Sent: Tuesday, April 10, 2012 3:52 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: openssl make - z/OS UNIX question - Help

 Terri,

 I downloaded 1.0.1 and here's how I built it:

 1) Update the Configure perl script and add this line (after the 
 existing OS390-Unix line, which isn't used):

 OS/390,c99_x:-O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H  
 -D_ALL_SOURCE::(unknown):::THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR 
 RC4_INDEX RC4_CHAR BF_PTR:::,

 Notice that all I changed was to change the label to OS/390 and to 
 use the c99_x command.
 - c99 means to use STDC99, which automatically implies LONGLONG.  This 
 avoids the shell quoting issues.
 - the c99_x means to compile and link using XPLINK linkage.  You may or may

Re: Batch utility to show DCB info for files

2012-04-11 Thread O'Brien, David W. (NIH/CIT) [C]

Bill,

IDCAMS Dcollect followed by ACBQBAR7. ACBQBAR7 is called by SYS1.SACBCNTL 
member ACBJBARD.
Subject is documented in z/OS V1R11.0 DFSMSdfp Storage Administration in 
section 21.5.18  Generate Data Set Report from DCOLLECT Data: ACBQBAR7.

-Original Message-
From: Ulrich Krueger [mailto:u...@pacbell.net] 
Sent: Wednesday, April 11, 2012 12:50 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Batch utility to show DCB info for files

How about IDCAMS DCOLLECT followed by some DFSORT reports. IIRC, there should 
be some sample reports floating around that you can customize.


Regards,
Ulrich Krueger


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Bill Ashton
Sent: Wednesday, April 11, 2012 9:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Batch utility to show DCB info for files

Hello!

Is there a standard IBM batch utility that can show the DCB and Space atributes 
for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift 
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use 
standard, already existing utilities.

Thanks!
Billy

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

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

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

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Mingee, David

An additional option is to use ispf 3.4 for the file(s) and then enter the cmd  
SAVE MYFILE  and this will create a file 'userdi.myfile.datasets'   that 
contains all the info you need.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Ulrich Krueger
Sent: Wednesday, April 11, 2012 12:50 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Batch utility to show DCB info for files

How about IDCAMS DCOLLECT followed by some DFSORT reports. IIRC, there should 
be some sample reports floating around that you can customize.

Regards,
Ulrich Krueger

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Bill Ashton
Sent: Wednesday, April 11, 2012 9:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Batch utility to show DCB info for files

Hello!

Is there a standard IBM batch utility that can show the DCB and Space atributes 
for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift 
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use 
standard, already existing utilities.

Thanks!
Billy

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

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

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

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Lizette Koehler

Hello!

Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use
standard, already existing utilities.

Thanks!
Billy


Try looking at LISTDS that you can run under TSO in batch.  It may do what you 
want.

Lizette

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Staller, Allan

CLIST function LISTDSI

snip
Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we
shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to
use
standard, already existing utilities.
/snip

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

realpath() syntax?

z/OS 1.12.  The source:

/* Doc: Print the resolved pathname of each argument
*/
#include stdlib.h
/* appears to contain:
char*realpath(const char * __restrict__,
char * __restrict__);
*/

int main( int argc, char ** argv ) {

char *resolved_name;

/* This is OK.  */
realpath( xyzzy, NULL );

/* This is OK.  */
resolved_name = wombat;

/* this gets:
   ERROR CCN3068 realpath3.c:22
   Operation between types char* and int is not allowed. */
resolved_name = realpath( xyzzy, NULL );

}

My compile command is:

user@MVS:167$ gmake realpath3   
LC_CTYPE= c89 -I.. -D_XOPEN_SOURCE -D_OE_SOCKETS -Wa,ASA,RENT 
-DPLATFORM=OS390  -o realpath3 ../source/realpath3.c  /usr/lib/Xaw.x 
/usr/lib/SM.x /usr/lib/ICE.x /usr/lib/X11.x  -lcurses -lm
in $ENV: /bin/sh -h $
ERROR CCN3068 ./../source/realpath3.c:22Operation between types char* and 
int is not allowed.
CCN0793(I) Compilation failed for file ./../source/realpath3.c.  Object file 
not created.
FSUM3065 The COMPILE step ended with return code 12.
FSUM3017 Could not compile ../source/realpath3.c. Correct the errors and try 
again.

Help!

Thanks,
gil

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

Re: openssl make - z/OS UNIX question - Help

A compiler configuration problem makes perfect sense  I should have thought
of it.

On Wed, Apr 11, 2012 at 11:54 AM, Shaffer, Terri E 
terri.e.shaf...@jpmchase.com wrote:

 Kirk,
  First I really want to thank you for all your help.  I now finally have a
 valid openssl module

 W012108:SDEV(DEV):/u/w012108/temp/openssl-1.0.1/apps  ./openssl version
 OpenSSL 1.0.1 14 Mar 2012

 How I fixed my issues, was I implemented the fix identified in the
 PROBLEMS member both in apps and test directories.

 Then my C++ compiler was not setup properly so it was looking for
 cee.xx datasets not SYS1.xx.

 This was because /usr/lpp/cbclib/xlc/etc/xlc.cfg was never customized In
 my shop.  Changed the HLQ and everything worked

 Thanks

 Ms. Terri E. Shaffer
 terri.e.shaf...@jpmchase.com
 Engineer
 J.P.Morgan Chase  Co.
 GTI DCT ECS Core Services zSoftware Group / Emerging Technologies
 Office: # 614-213-3467
 Cell: # 412-519-2592




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

Re: HSM to open systems

2012-04-11 Thread Miklos Szigetvari

John I can send the source but it is C++ (and some assembler )





 -Original Message-
 From: IBM Mainframe Discussion List
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari
 Sent: Wednesday, April 11, 2012 9:17 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: HSM to open systems

 Hi

 Not the same as your case, but we have here HSM exits, to use
 HFS (Unix)
 dataset in the place of ML2
 So with this exit we migrate/recall everything from/ to HFS (Unix) .

 Neat! Any way to get access to those exits?

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The
 Chesapeake Life Insurance Company(r), Mid-West National Life Insurance
 Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM

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


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

Re: Query about overcoming -- debunking, countering, and burying --mainframe myths

2012-04-11 Thread Joel C. Ewing


On 04/11/2012 11:12 AM, McKown, John wrote:

Not legally. But I've heard rumors that it does.

--
John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM




-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
Sent: Wednesday, April 11, 2012 8:50 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Query about overcoming -- debunking, countering,
and burying --mainframe myths

On Wed, 11 Apr 2012 07:04:45 -0500, Tom Marchant wrote:



A renowned industry expert ...
[said] the 4341 might not be compatible with the 148


Not what you are looking for, but in the late 1970's, when I
was an Amdahl SE someone said that they understood that
the Amdahl was IBM-compatible, but would it run Cobol?


I understand that Hercules is zSeries compatible, but will
it run z/OS?

-- gil


...

I realize it would be ridiculous from a performance and cost standpoint 
to do so, but as a test of Hercules functionality I have always wondered 
if it would be possible to run z/OS legally under Hercules if you did it 
under a Linux system running in an LPAR on GP processors on a z box 
already licensed for running z/OS natively?

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

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

Re: openssl make - z/OS UNIX question - Help


[Top posting]

Terri - congratulations! Big process but you persevered.

Kirk - I'd like to commend you for the masterly way you
   led Terri through the process. One of the best
   examples of what this list is about that I have seen.


On 4/11/2012 10:54 AM, Shaffer, Terri E wrote:

Kirk,
   First I really want to thank you for all your help.  I now finally have a 
valid openssl module

W012108:SDEV(DEV):/u/w012108/temp/openssl-1.0.1/apps  ./openssl version
OpenSSL 1.0.1 14 Mar 2012

How I fixed my issues, was I implemented the fix identified in the PROBLEMS 
member both in apps and test directories.

Then my C++ compiler was not setup properly so it was looking for cee.xx 
datasets not SYS1.xx.

This was because /usr/lpp/cbclib/xlc/etc/xlc.cfg was never customized In my 
shop.  Changed the HLQ and everything worked

Thanks

Ms. Terri E. Shaffer
terri.e.shaf...@jpmchase.com
Engineer
J.P.Morgan Chase  Co.
GTI DCT ECS Core Services zSoftware Group / Emerging Technologies
Office: # 614-213-3467
Cell: # 412-519-2592


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Kirk Wolf
Sent: Wednesday, April 11, 2012 11:42 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: openssl make - z/OS UNIX question - Help

I'm not sure why you are getting this linker error and I'm not.   I did
this on a z/OS 1.11 system, maybe there is a difference there.   It would
be nice if I could figure out a way to cause the actual command to be printed; 
that would probably have clues.

This is really tough stuff.   Find a Unix guru who knows make and the shell
really well and they could probably help you.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Apr 11, 2012 at 10:10 AM, Shaffer, Terri E  
terri.e.shaf...@jpmchase.com  wrote:


Hi Kirk,
  Wow thank you!! I have deleted the whole openssl-1.0.1 directory,
Re-issued my pax to recreate the directory.

Then performed all the updates you identified and suggested, That was
much simpler with way less issues than before.

Now my Make runs for about 1hr. But sadly I now get.

gmakeÝ2¨: Entering directory `/u/w012108/temp/openssl-1.0.1/apps'
( :; LIBDEPS=${LIBDEPS:--L.. -lssl  -L.. -lcrypto };
LDCMD=${LDCMD:-c99_x}; LDFLAGS=${LDFLAGS:--O -DB_ENDIAN
-DCHARSET_EBCDIC -DNO_SYS_PARAM_H -D_ALL_SOURC E}; LIBPATH=`for x in
$LIBDEPS; do echo $x; done | sed -e 's/¬ *-L//;t'
-e d |
uniq`; LIBPATH=`echo $LIBPATH | sed -e 's/ /:/g'`;
LD_LIBRARY_PATH=$LIBPATH:$LD_ LIBRARY_PATH ${LDCMD} ${LDFLAGS} -o
${APPNAME:=openssl} openssl.o verify.o asn1p ars.o req.o dgst.o dh.o
dhparam.o enc.o passwd.o gendh.o errstr.o ca.o pkcs7.o c rl2p7.o crl.o
rsa.o rsautl.o dsa.o dsaparam.o ec.o ecparam.o x509.o genrsa.o gen
dsa.o genpkey.o s_server.o s_client.o speed.o s_time.o apps.o s_cb.o
s_socket.o app_rand.o version.o sess_id.o ciphers.o nseq.o pkcs12.o
pkcs8.o pkey.o pkeypara m.o pkeyutl.o spkac.o smime.o cms.o rand.o
engine.o ocsp.o prime.o ts.o srp.o ${ LIBDEPS} )
FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x,
.p, .I, or .a), or a corresponding data set name, instead of -L...
gmakeÝ2¨: *** Ýlink_app.¨ Error 1
gmakeÝ2¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
gmakeÝ1¨: *** Ýopenssl¨ Error 2
gmakeÝ1¨: Leaving directory `/u/w012108/temp/openssl-1.0.1/apps'
gmake: *** Ýbuild_apps¨ Error 1

I see in /u/w012108/temp/openssl-1.0.1/PROBLEMS there is a reference
but I think it's for macOS X.

This is really a misfeature in ld, which seems to look for .dylib
libraries along the whole library path before it bothers looking for .a 
libraries.
  This
means that -L switches won't matter unless OpenSSL is built with
shared library support.

The workaround may be to change the following lines in apps/Makefile
and
test/Makefile:

  LIBCRYPTO=-L.. -lcrypto
  LIBSSL=-L.. -lssl

to:

  LIBCRYPTO=../libcrypto.a
  LIBSSL=../libssl.a

Not sure why I got this error and you didn't? On another note, I did
not see any of the other errors you saw but maybe I just didn't get
that far?

One last question if there a way to capture all the output that
scrolls on my screen?  In case I missed any messages?

Thanks

Ms. Terri E. Shaffer
terri.e.shaf...@jpmchase.com
Engineer
J.P.Morgan Chase  Co.
GTI DCT ECS Core Services zSoftware Group / Emerging Technologies
Office: # 614-213-3467
Cell: # 412-519-2592


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Kirk Wolf
Sent: Tuesday, April 10, 2012 3:52 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: openssl make - z/OS UNIX question - Help

Terri,

I downloaded 1.0.1 and here's how I built it:

1) Update the Configure perl script and add this line (after the
existing OS390-Unix line, which isn't used):

OS/390,c99_x:-O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H
-D_ALL_SOURCE::(unknown):::THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR
RC4_INDEX RC4_CHAR BF_PTR:::,

Notice that all I changed was to change the label to OS/390 and to
use the

Re: HSM to open systems

2012-04-11 Thread Jerry Whitteridge

I'd also be interested in these exits.

Thanks in advance

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@bama.ua.edu] On Behalf Of 
Miklos Szigetvari
Sent: Wednesday, April 11, 2012 10:11 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: HSM to open systems

John I can send the source but it is C++ (and some assembler )





 -Original Message-
 From: IBM Mainframe Discussion List
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari
 Sent: Wednesday, April 11, 2012 9:17 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: HSM to open systems

 Hi

 Not the same as your case, but we have here HSM exits, to use
 HFS (Unix)
 dataset in the place of ML2
 So with this exit we migrate/recall everything from/ to HFS (Unix) .

 Neat! Any way to get access to those exits?

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The
 Chesapeake Life Insurance Company(r), Mid-West National Life Insurance
 Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM

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


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


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...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Batch utility to show DCB info for files

How about LISTDS? It is a TSO command, so you need something like:

//LISTDS EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
 LISTDS dsn1
 LISTDS dsn2
/*

Note that you cannot use wild cards in the LISTDS command. You must specify a 
separate command for every data set name.

I am fairly sure you wouldn't be allowed to use it, but installing Dovetailed 
Technologies Dataset Pipes and Co:Z Launcher would do this rather easily.

//LISTDSNS EXEC PROC=COZBATCH
//STDIN DD *
 catsearch -l ...
/*

Where ... can be a single DSN or a wild card. E.g. CICSTS32.**.AUTH 
matches all dataset which start with CICSTS32, has any number of intermediate 
nodes (0 or more), and have a last node with any 4 characters followed by AUTH.

Example command and output:

catsearch -l 'cicsts32.**.auth' 

   
Volume   Referred  Ext  TracksUsed Recfm Lrecl BlkSz Dsorg  Dsname
LIHTST  2012/04/08   1 136  99  U0 32760  PO
CICSTS32.CICS.SDFHAUTH
LIHTST  2012/01/30   1  80   ?  U0 32760  PO-E  
CICSTS32.CICS.SDFJAUTH
LIHTST  2012/01/30   1 218 175  U0 32760  PO
CICSTS32.CPSM.SEYUAUTH

You can freely download these products from http://dovetail.com/
You don't need to pay for them at all, unless you want support. You don't even 
need to register in any way. The products are installed in some z/OS PDSes and 
in a z/OS UNIX subdirectory. The PDSes contain the batch programs and examples. 
The z/OS UNIX subdirectory contains the z/OS UNIX executable files. They are 
installed via a z/OS UNIX shell script. So you really need to be able to access 
a z/OS UNIX shell. TSO OMVS will work.

-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bill Ashton
 Sent: Wednesday, April 11, 2012 11:36 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Batch utility to show DCB info for files
 
 Hello!
 
 Is there a standard IBM batch utility that can show the DCB and Space
 atributes for a file? I tried LISTCAT, but it didn't give me 
 this data.
 
 I would like to generate a report for a whole list of files, 
 so as we shift
 these to another location, we can have the metadata, too.
 
 Coding a Rexx or other program is not an option...the 
 requirement is to use
 standard, already existing utilities.
 
 Thanks!
 Billy
 
 -- 
 Thank you and best regards,
 *Billy Ashton*
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

I had never read that. And, guess what, whomever wrote the initiator code 
didn't either. Because it use ATTACH or maybe ATTACHX to run the program 
specified on the EXEC PGM=. And it is documented that the parameter list has 
the high bit set on in the last address. But it always and only passes one 
parameter to the program (the PARM= string). However, the program being 
executed may or may not accept a variable number of parms. IEFBR14 does not use 
any parms. IDCAMS accepts 0 or more parms. Most COBOL main routines only accept 
a single parameter. The initiator doesn't know how many parms may be accepted 
by the invoked program. So the comment on ATTACH/ATTACHX macros, which is also 
on LINK/LINKX macros, is ludicrous. Likely it should say something like:

You only need to specify VL=1 only if the called program can be passed a 
variable number of parameters. VL=1 causes the high-order bit of the last 
address parameter to be set to 1; the bit can be checked to find the end of the 
list. 

But having the VL=1 does no harm. IMO, the comment in the manual omits the You 
only need to neede at the start of the first sentence. Maybe the editor needed 
to decrease the manual word count? grin

Other interesting things that I hadn't noted: neither ATTACH[X] or LINK[X] 
support above the bar PARMS; CALL doesn't have the note about VL only being for 
called programs which can be passed a variable number of parameters; CALL 
supports 64-bit addresses (either AMODE64 without PLIST4=YES, or not AMODE64 
and PLIST8=YES). But when it uses an 8-bytes-per-entry plist, you cannot 
specify VL. Which means that to pass a plist to a program which uses a variable 
number of list entries, using the 8-bytes-per-entry plist format, you must pass 
the number of parameters in the list to the called routine. I would think by 
making the first parameter a pointer (4 or 8 bytes as needed by the called 
routine) to a fullword containing the number of parameters in the list.

Given all the above facts, I wonder if it is time to abandon, in our own code, 
the practice of indicating end-of-list by setting the high order bit of the 
last parameter to '1'b. If, instead, we might want to pass the number of 
parameters in the list either: (1) by value (fullword or doubleword pointed to 
by GPR1 is the number of parameters in the rest of the list) or (2) by 
reference (fullword or doubleword pointed to by GPR1 points to a fullword which 
contains the number of parameters in the rest of the list). All the size of 
each list entry pointed to by GPR1 would be 4 (not AMODE64 and not PLIST8=YES) 
or 8 (AMODE64 and not PLIST4=YES, or PLIST8=YES regardless of AMODE). Of course 
the called routine must be written to accept either one of: (1) 4 
bytes-per-entry in the list, or (2) 8-bytes-per-entry in the list.

-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com
 
Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bernd Oppolzer
 Sent: Wednesday, April 11, 2012 9:28 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)
 
 I understand your motivation to do this;
 our site specific CALL macro also sets the high order bit on every
 parameter address list (even fixed length), although nobody checks it;
 it's merely for dump reading purposes.
 
 But: if you recall the posting of the ATTACH macro description,
 you are (and we are) in conflict with the recommendation of IBM,
 which says that the VL bit should only be set on variable length
 parameter lists. But even the IBM recommendations are not very
 consistent, as the other poster pointed out ...
 
 Kind regards
 
 Bernd


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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

Hmmm  Have you (or anyone) actually verified that this works?  I just wrote 
the following programs:

 identification division.  
 program-id.  callopt. 
 data division.    
 working-storage section.  
 77  one pic x(4) value z'one'.
 call 'callee' using one
 goback.    
 end program callopt.   

 id division. 
 program-id. 'callee'.    
 data division.   
 local-storage section.   
 77  addr    pointer. 
 77  addr-val redefines addr pic s9(9) comp-5.
 
 linkage section. 
 01  string-1    pic x(101).  
 01  string-2    pic x(101).  

 01  result  pic s9(8) comp-5.  


 procedure division using string-1 string-2
  returning result. 
  call 'print-string' using string-1  
  set addr to address of string-1 
  if  addr-val not less than zero 
  call 'print-string' using string-2. 
  move zero to result 
  goback. 

When I run it, according to COBOL ADDR is set to x0F0960B8.  I am guessing that 
the high-order bit is in fact set, but that COBOL does not reveal that 
implementation detail to the COBOL application.

Either that or I am doing something wrong.

Frank



- Original Message -
 From: Victor Gil victor@broadridge.com
 To: IBM-MAIN@bama.ua.edu
 Cc: 
 Sent: Wednesday, April 11, 2012 9:36 AM
 Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)
 
 LINKAGE SECTION.
 
 01 A-POINTER USAGE POINTER.
 01 BIN-WORD REDEFINES A-POINTER COMP S9(8).
 
 ...
 CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, 
 OMITTED RETURNING RC.
 
 SET A-POINTER TO ADDRESS OF INPUT-LENGTH
 IF BIN-WORD  0 THEN the high-bit is ON
 
 
 Funny thing with Enterprise COBOL...  It properly sets the 
 high-order bit on the last parm, but supplies no way to interrogate it!  So 
 if 
 THEFUNCTION was written in COBOL then you have to invoke it thusly:
 
 CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, 
 OMITTED
 RETURNING RC.
 
 (The OMITTED keyword simply passes an address of NULL.)
 
 Oy!
 
 Frank
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 

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

Re: realpath() syntax?

before the

#include stdlib.h

insert the line:

#define _XOPEN_SOURCE_EXTENDED 1

as shown here:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/EDCLB1B0/3.791

or include the compile parm: -D_XOPEN_SOURCE_EXTENDED=1


--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
 Sent: Wednesday, April 11, 2012 12:07 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: realpath() syntax?
 
 z/OS 1.12.  The source:
 
 /* Doc: Print the resolved pathname of each argument
 */
 #include stdlib.h
 /* appears to contain:
   char*realpath(const char * __restrict__,
 char * __restrict__);
 */
 
 int main( int argc, char ** argv ) {
 
 char *resolved_name;
 
 /* This is OK.  */
 realpath( xyzzy, NULL );
 
 /* This is OK.  */
 resolved_name = wombat;
 
 /* this gets:
ERROR CCN3068 realpath3.c:22
Operation between types char* and int is not allowed. */
 resolved_name = realpath( xyzzy, NULL );
 
 }
 
 My compile command is:
 
 user@MVS:167$ gmake realpath3 
   
 LC_CTYPE= c89 -I.. -D_XOPEN_SOURCE -D_OE_SOCKETS 
 -Wa,ASA,RENT -DPLATFORM=OS390  -o realpath3 
 ../source/realpath3.c  /usr/lib/Xaw.x /usr/lib/SM.x 
 /usr/lib/ICE.x /usr/lib/X11.x  -lcurses -lm
 in $ENV: /bin/sh -h $
 ERROR CCN3068 ./../source/realpath3.c:22Operation between 
 types char* and int is not allowed.
 CCN0793(I) Compilation failed for file 
 ./../source/realpath3.c.  Object file not created.
 FSUM3065 The COMPILE step ended with return code 12.
 FSUM3017 Could not compile ../source/realpath3.c. Correct the 
 errors and try again.
 
 Help!
 
 Thanks,
 gil
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: IXC104I SSD not configured - z/OS 1.13 migration

2012-04-11 Thread Mark Brooks

Hi,
The IXC104I message is issued on every IPL of a system that has the
support to indicate whether the system is eligible for the new protocols or
not.   It is purely informational and not related to the wait-state.

The indicated wait-state is issued for several possible reasons, the
most likely of which is that the couple data set configuration needed to
change after the IPLing system became active in the sysplex, but before the
system could reliably deal with the change.  For example, an I/O error or
SETXCF command might have induced a switch to the alternate couple data
set.  This wait state is also issued when a system discovers itself to be
alive in a sysplex where the rest of the systems believe it to be dead.  I
would only expect this for the case where the operator/automation replied
DOWN to an XCF WTOR (such as message IXC102A or IXC402D) when in fact the
system was not actually down/reset (which is a bad bad thing to do).

Mark A. Brooks
z/OS Sysplex design and development
845-435-5149   T/L 8-295-5149
Poughkeepsie, NY
mabr...@us.ibm.com
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: HSM to open systems

1) HRECALL the dataset
2) if the data is not 100% printable, run a program to make it printable.
   this step is critical, IMO. If you don't then the file on the new system
   likely to be at least partially unreadable. Or copy it as BIN and write
   a file viewing program that runs in the Open Systems environment.
3) either HMIGRATE the dataset or just delete it.

Copying to the Open System's disk space could be done in a number of ways. ftp 
is my first thought. 

If the Open System has NFS capability, then you could use the z/OS NFS client 
to mount an NFS exported entry (subdirectory) on the Open side and use OCOPY 
to copy the data, or use the z/OS NFS server to export the z/OS high level 
qualifier(s) needed so that the Open side could mount and copy the file data. 
I would think that using the NFS client on z/OS and server on the Open side 
would be easier because the mount and copy could all be done on z/OS.

Instead of NFS server, you might be able to use SMB to make z/OS UNIX files and 
datasets available to Windows clients. But this requires actions on both z/OS 
and a Windows PC to mount and copy the data.

If you have Dovetailed Technology's Co:Z product (free to license) and an SSH 
server on the Open side, then you could use the Co:Z Launcher to run a script 
on the Open system and use the fromdsn command to transfer the disk dataset 
contents to the Open side, piping the output to a command (such as cat on UNIX) 
which can write it to a file on the Open disk.

The Dovetailed Technology product is free to download. You don't even need to 
register. You do need to install the programs on z/OS and on the Open System 
system(s).

http://dovetail.com/

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Uriel Carrasquilla
 Sent: Wednesday, April 11, 2012 8:42 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: HSM to open systems
 
 My company is in the process of sun setting our MF.
 We have about 40 TBytes of data under HSM control.
 I have been tasked with the responsibility to pull the data 
 and put it under a Unix/Linux system as an archived data.
 The only time we will need to reference it (without the MF) 
 is in case some of our users need to retrieve one of the 
 files (not to update), just to look at.
 We are supposed to keep the data for up to 15 years.
 Any suggestions will be greatly appreciated.
 Uriel
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: realpath() syntax?

Right.  And I would have expected that you should have gotten a compiler
warning about the assumed type of realpath being int, since a
declaration wasn't found without #define _XOPEN_SOURCE_EXTENDED 1

Also, according to the documentation you will get an EINVAL error if the
second argument (the buffer) is NULL.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Apr 11, 2012 at 12:40 PM, McKown, John 
john.mck...@healthmarkets.com wrote:

 before the

 #include stdlib.h

 insert the line:

 #define _XOPEN_SOURCE_EXTENDED 1

 as shown here:
 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/EDCLB1B0/3.791

 or include the compile parm: -D_XOPEN_SOURCE_EXTENDED=1


 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
 Life Insurance Company(r), Mid-West National Life Insurance Company of
 TennesseeSM and The MEGA Life and Health Insurance Company.SM



  -Original Message-
  From: IBM Mainframe Discussion List
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
  Sent: Wednesday, April 11, 2012 12:07 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: realpath() syntax?
 
  z/OS 1.12.  The source:
 
  /* Doc: Print the resolved pathname of each argument
  */
  #include stdlib.h
  /* appears to contain:
char*realpath(const char * __restrict__,
  char * __restrict__);
  */
 
  int main( int argc, char ** argv ) {
 
  char *resolved_name;
 
  /* This is OK.  */
  realpath( xyzzy, NULL );
 
  /* This is OK.  */
  resolved_name = wombat;
 
  /* this gets:
 ERROR CCN3068 realpath3.c:22
 Operation between types char* and int is not allowed. */
  resolved_name = realpath( xyzzy, NULL );
 
  }
 
  My compile command is:
 
  user@MVS:167$ gmake realpath3
 
  LC_CTYPE= c89 -I.. -D_XOPEN_SOURCE -D_OE_SOCKETS
  -Wa,ASA,RENT -DPLATFORM=OS390  -o realpath3
  ../source/realpath3.c  /usr/lib/Xaw.x /usr/lib/SM.x
  /usr/lib/ICE.x /usr/lib/X11.x  -lcurses -lm
  in $ENV: /bin/sh -h $
  ERROR CCN3068 ./../source/realpath3.c:22Operation between
  types char* and int is not allowed.
  CCN0793(I) Compilation failed for file
  ./../source/realpath3.c.  Object file not created.
  FSUM3065 The COMPILE step ended with return code 12.
  FSUM3017 Could not compile ../source/realpath3.c. Correct the
  errors and try again.
 
  Help!
 
  Thanks,
  gil
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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


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

Re: openssl make - z/OS UNIX question - Help

Terri -

Glad you got it all built.   Hopefully it will work too :-)

If so, I suggest that you submit your porting notes, including OS level,
patches (like to Configure) and any other gotchas upstream to the OpenSSL
project.  I believe that an email to the openssl-users mailing list will
suffice.   I would CC the mvs-oe list for posterity.

Regards,

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

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

Re: System completion code 201

2012-04-11 Thread Micheal Butz

There is a reason I have CSA in KEY 8

Was just wondering If I have to do an explicit modeset to key=8

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Walt Farrell
Sent: Tuesday, April 10, 2012 7:02 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: System completion code 201

On Tue, 10 Apr 2012 18:07:28 -0400, Micheal Butz michealb...@optonline.net
wrote:

Hi

I have a piece of CSA storage sp 241
That I am obtaining in key 8
(I know this is a no no)

When go to supervisor state should i code KEY=NZERO on the modeset I am
assuming
NZERO is 8 or should I specifically set the storage key to 8

What you -should- do is use a system key for your CSA storage (as you know).
Why not start by doing a proper design and architecture rather than doing
something you know from the outset is wrong?

-- 
Walt

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

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

Re: HSM to open systems

On Wed, Apr 11, 2012 at 12:48 PM, McKown, John 
john.mck...@healthmarkets.com wrote:


 If you have Dovetailed Technology's Co:Z product (free to license) and an
 SSH server on the Open side, then you could use the Co:Z Launcher to run a
 script on the Open system and use the fromdsn command to transfer the
 disk dataset contents to the Open side, piping the output to a command
 (such as cat on UNIX) which can write it to a file on the Open disk.

 The Dovetailed Technology product is free to download. You don't even need
 to register. You do need to install the programs on z/OS and on the Open
 System system(s).

 http://dovetail.com/

 Thanks John for the mention.

I will also add that with the Co:Z Launcher you can also disable ssh
tunneling for actual data transfer, which is useful if you are running on a
secure network (like a z/Enterprise IEDN).   This saves encryption
processing and give you excellent throughput at a low cost.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com
+1 636.300.0901

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

Re: PL/I with variable PLISTs


On 4/11/2012 11:38 AM, Frank Swarbrick wrote:

Hmmm  Have you (or anyone) actually verified that this works?  I just wrote 
the following programs:

  identification division.
  program-id.  callopt.
  data division.
  working-storage section.
  77  one pic x(4) value z'one'.
  call 'callee' using one
  goback.
  end program callopt.

  id division.
  program-id. 'callee'.
  data division.
  local-storage section.
  77  addrpointer.
  77  addr-val redefines addr pic s9(9) comp-5.

  linkage section.
  01  string-1pic x(101).
  01  string-2pic x(101).

  01  result  pic s9(8) comp-5.


  procedure division using string-1 string-2
   returning result.
   call 'print-string' using string-1
   set addr to address of string-1
   if  addr-val not less than zero
   call 'print-string' using string-2.
   move zero to result
   goback.

When I run it, according to COBOL ADDR is set to x0F0960B8. I am guessing
thatthe high-order bit is in fact set, but that COBOL does not reveal that
implementation detail to the COBOL application.

Either that or I am doing something wrong.

Frank


I think Victor's example is wrong. You should follow the
instructions I gave you. OK, here's a short example of a
subroutine being passed a variable number of parameters:

   process test(sym,none) numproc(pfd) offset opt
   process flag(w,w) map xref(short)
   Identification division.
   program-id.  cobsUB3.
  *  Copyright (C) 1999 by Steven H. Comstock

   environment division.
   data division.
   working-storage section.

   01  text-1.
   05  pic s9(4) binary value 07.
   05  pic x(07)
 value ' SUBCOB'.

   01  text-2.
   05  pic s9(4) binary value 09.
   05  pic x(09)
 value ' Parm1   '.
   01  dest  pic s9(9)   binary  value 2.
   01  fcpic x(12)   value low-values.

   linkage section.
   01  parm-1-chk   pic s9(9) binary.
   01  parm-2-ptr   pointer.
   01  parm-2-chk   redefines parm-2-ptr.
   02 parm-2-valpic s9(9) binary.
   01  parm-3-ptr   pointer.
   01  parm-3-chk   redefines parm-3-ptr.
   02 parm-3-valpic s9(9) binary.
   01  parm-4-ptr   pointer.
   01  parm-4-chk   redefines parm-4-ptr.
   02 parm-4-valpic s9(9) binary.
   01  parm-1-value pic s9(9)   binary.
   01  parm-2-value pic s9(9)   binary.
   01  parm-3-value pic s9(9)   binary.
   01  parm-4-value pic s9(9)   binary.
  /
   procedure division using by value
parm-1-chk,
parm-2-ptr,
parm-3-ptr,
parm-4-ptr.
   thecode.
   display '..In COBSUB3'
   display '..parm-1-chk = ' parm-1-chk

   set address of parm-2-value to parm-2-ptr
   display '..parm-2-value = ' parm-2-value
   if parm-2-val  0
  display 'End of list'
  go to end-of-list
   else
  display 'Not end of list'
   end-if

   set address of parm-3-value to parm-3-ptr
   display '..parm-3-value = ' parm-3-value
   if parm-3-val  0
  display 'End of list'
  go to end-of-list
   else
  display 'Not end of list'
   end-if

   set address of parm-4-value to parm-4-ptr
   display '..parm-4-value = ' parm-4-value
   if parm-4-val  0
  display 'End of list'
  go to end-of-list
   else
  display 'Not end of list'
   end-if.

   end-of-list.
   display '..Leaving COBSUB3'
   goback.



Play around with it.







- Original Message -

From: Victor Gilvictor@broadridge.com
To: IBM-MAIN@bama.ua.edu
Cc:
Sent: Wednesday, April 11, 2012 9:36 AM
Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)

LINKAGE SECTION.

01 A-POINTER USAGE POINTER.
01 BIN-WORD REDEFINES A-POINTER COMP S9(8).

...
CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED,
OMITTED RETURNING RC.

SET A-POINTER TO ADDRESS OF INPUT-LENGTH
IF BIN-WORD  0 THENthe high-bit is ON


Funny thing with Enterprise COBOL...  It properly sets the
high-order bit on the last parm, but supplies no way to interrogate it!  So if
THEFUNCTION was written in COBOL then you have to invoke it thusly:

CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED,
OMITTED
RETURNING RC.

(The OMITTED keyword simply passes an

Re: System completion code 201

You can specify the KEY=8 and SP=231 on the STORAGE OBTAIN macro.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2V2B0/1.8.3.1

quote
227-231,
 241, 244,   
 249 

STORAGE with OBTAIN or 
 RELEASE; CALLRKY=YES omitted,  
 or CALLRKY=NO specified  

The storage key is  
 the key the caller  
 specifies on the
 KEY parameter. If   
 KEY is not  
 specified, the  
 default is zero.
 


-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Micheal Butz
 Sent: Wednesday, April 11, 2012 1:08 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: System completion code 201
 
 There is a reason I have CSA in KEY 8
 
 Was just wondering If I have to do an explicit modeset to key=8
 
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf
 Of Walt Farrell
 Sent: Tuesday, April 10, 2012 7:02 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: System completion code 201
 
 On Tue, 10 Apr 2012 18:07:28 -0400, Micheal Butz 
 michealb...@optonline.net
 wrote:
 
 Hi
 
 I have a piece of CSA storage sp 241
 That I am obtaining in key 8
 (I know this is a no no)
 
 When go to supervisor state should i code KEY=NZERO on the 
 modeset I am
 assuming
 NZERO is 8 or should I specifically set the storage key to 8
 
 What you -should- do is use a system key for your CSA storage 
 (as you know).
 Why not start by doing a proper design and architecture 
 rather than doing
 something you know from the outset is wrong?
 
 -- 
 Walt
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: Query about overcoming -- debunking, countering, and burying --mainframe myths

..
 
 I realize it would be ridiculous from a performance and cost 
 standpoint 
 to do so, but as a test of Hercules functionality I have 
 always wondered 
 if it would be possible to run z/OS legally under Hercules if 
 you did it 
 under a Linux system running in an LPAR on GP processors on a z box 
 already licensed for running z/OS natively?
 -- 
 Joel C. Ewing,Bentonville, AR   jcew...@acm.org   
 

Now, that is an interesting question. I don't know, IANAL. The problem might 
be that you can specify the CPU serial and type in the configuration file. So, 
if you don't duplicate them from the actual hardware, you could run CPU 
locked software.

-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

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

Re: System completion code 201

2012-04-11 Thread Tony Harminc

On 10 April 2012 18:07, Micheal Butz michealb...@optonline.net wrote:

 I have a piece of CSA storage sp 241
 That I am obtaining in key 8
 (I know this is a no no)

No! No...!

 When go to supervisor state should i code KEY=NZERO on the modeset I am 
 assuming
 NZERO is 8 or should I specifically set the storage key to 8

Again, it rather depends on what you want to accomplish by being in
supervisor state. In the very old days, say in the MVT era, it was
common to treat supervisor state and key zero as much the same thing.
From the very beginning of MVS, these two were clearly separated.
While either one is generally, but by no means always, sufficient for
calling most authorized system services, running with a key zero PSW
is very much riskier than running with a supervisor state PSW. With
the former, your program can accidently clobber most of the virtual
storage visible to it; with the latter, your program has only a tiny
chance of accidently executing a damaging privileged instruction.
Sadly there is still a lot of code out there chock full of MODESET
MODE=SUPV,KEY=ZERO .

KEY=NZERO restores the PSW key to what it was from the TCB. This is
likely to be 8, but there are other possibilities.

 As I am getting a system 201 durning a post/wait of an ECB from this storage

Well, during the WAIT, not the POST. You cannot WAIT on an ECB that is
in storage with a key different from your PSW key. Align them,
somehow. Your putting the ECB in common user-key storage suggests that
you expect an unauthorized program in another address space to do the
POST. If you must use this no no approach, then you must WAIT with a
PSW key of 8. Of course anyone else in the system can do the same as
they please.

In passing, may I ask if you develop a product that is sold to others,
or does this code run only in-house?

Tony H.

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

Re: PL/I with variable PLISTs

Sorry, Victor's was so short and sweet I used it and assumed it was the same as 
yours.  I'll look more carefully at yours later.
Thanks!
Frank

- Original Message -
 From: Steve Comstock st...@trainersfriend.com
 To: IBM-MAIN@bama.ua.edu
 Cc: 
 Sent: Wednesday, April 11, 2012 12:09 PM
 Subject: Re: PL/I with variable PLISTs

 On 4/11/2012 11:38 AM, Frank Swarbrick wrote:
  Hmmm  Have you (or anyone) actually verified that this works?  I just 
 wrote the following programs:

    identification division.
    program-id.  callopt.
    data division.
    working-storage section.
    77  one                         pic x(4) value z'one'.
        call 'callee' using one
        goback.
    end program callopt.

    id division.
    program-id. 'callee'.
    data division.
    local-storage section.
    77  addr                        pointer.
    77  addr-val redefines addr     pic s9(9) comp-5.

    linkage section.
    01  string-1                    pic x(101).
    01  string-2                    pic x(101).

    01  result                      pic s9(8) comp-5.

    procedure division using string-1 string-2
                             returning result.
         call 'print-string' using string-1
         set addr to address of string-1
         if  addr-val not less than zero
             call 'print-string' using string-2.
         move zero to result
         goback.

  When I run it, according to COBOL ADDR is set to x0F0960B8. I am guessing
  thatthe high-order bit is in fact set, but that COBOL does not reveal that
  implementation detail to the COBOL application.

  Either that or I am doing something wrong.

  Frank

 I think Victor's example is wrong. You should follow the
 instructions I gave you. OK, here's a short example of a
 subroutine being passed a variable number of parameters:

        process test(sym,none) numproc(pfd) offset opt
        process flag(w,w) map xref(short)
        Identification division.
        program-id.  cobsUB3.
       *  Copyright (C) 1999 by Steven H. Comstock

        environment division.
        data division.
        working-storage section.

        01  text-1.
            05                      pic s9(4) binary value 07.
            05                      pic x(07)
                  value ' SUBCOB'.

        01  text-2.
            05                      pic s9(4) binary value 09.
            05                      pic x(09)
                  value ' Parm1   '.
        01  dest  pic s9(9)   binary  value 2.
        01  fc    pic x(12)   value low-values.

        linkage section.
        01  parm-1-chk           pic s9(9) binary.
        01  parm-2-ptr       pointer.
        01  parm-2-chk       redefines parm-2-ptr.
            02 parm-2-val        pic s9(9) binary.
        01  parm-3-ptr       pointer.
        01  parm-3-chk       redefines parm-3-ptr.
            02 parm-3-val        pic s9(9) binary.
        01  parm-4-ptr       pointer.
        01  parm-4-chk       redefines parm-4-ptr.
            02 parm-4-val        pic s9(9) binary.
        01  parm-1-value     pic s9(9)   binary.
        01  parm-2-value     pic s9(9)   binary.
        01  parm-3-value     pic s9(9)   binary.
        01  parm-4-value     pic s9(9)   binary.
       /
        procedure division using by value
                                 parm-1-chk,
                                 parm-2-ptr,
                                 parm-3-ptr,
                                 parm-4-ptr.
        thecode.
            display '..In COBSUB3'
            display '..parm-1-chk = ' parm-1-chk

            set address of parm-2-value to parm-2-ptr
            display '..parm-2-value = ' parm-2-value
            if parm-2-val  0
               display 'End of list'
               go to end-of-list
            else
               display 'Not end of list'
            end-if

            set address of parm-3-value to parm-3-ptr
            display '..parm-3-value = ' parm-3-value
            if parm-3-val  0
               display 'End of list'
               go to end-of-list
            else
               display 'Not end of list'
            end-if

            set address of parm-4-value to parm-4-ptr
            display '..parm-4-value = ' parm-4-value
            if parm-4-val  0
               display 'End of list'
               go to end-of-list
            else
               display 'Not end of list'
            end-if.

        end-of-list.
            display '..Leaving COBSUB3'
            goback.

 Play around with it.

  - Original Message -
  From: Victor Gilvictor@broadridge.com
  To: IBM-MAIN@bama.ua.edu
  Cc:
  Sent: Wednesday, April 11, 2012 9:36 AM
  Subject: Re: PL/I with variable PLISTs (was: LE C calling HLASM)

  LINKAGE SECTION.

  01 A-POINTER USAGE POINTER.
  01 BIN-WORD REDEFINES A-POINTER COMP S9(8).

  ...
  CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, 
 OMITTED,
  OMITTED

Re: openssl make - z/OS UNIX question - Help

2012-04-11 Thread Shaffer, Terri E

Ha, Funny you should mention the part about actually working.

The person I just gave this too to test tried to one of our severs, ie the 


openssl s_client -connect :921 -starttls ftp

Gets back CONNECTED(3) and hangs.

So I know this function didn't exist with our old release and the startttls is 
newer, but not sure if I did something or a code issue?

We have tested a few other things and they seem to work okay.

Anyone have any ideas or experience doing this?

Thanks

Ms. Terri E. Shaffer 
terri.e.shaf...@jpmchase.com
Engineer
J.P.Morgan Chase  Co.
GTI DCT ECS Core Services zSoftware Group / Emerging Technologies 
Office: # 614-213-3467
Cell: # 412-519-2592 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Kirk Wolf
Sent: Wednesday, April 11, 2012 2:01 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: openssl make - z/OS UNIX question - Help

Terri -

Glad you got it all built.   Hopefully it will work too :-)

If so, I suggest that you submit your porting notes, including OS level, 
patches (like to Configure) and any other gotchas upstream to the OpenSSL 
project.  I believe that an email to the openssl-users mailing list will
suffice.   I would CC the mvs-oe list for posterity.

Regards,

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

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

Re: Batch utility to show DCB info for files

2012-04-11 Thread Bill Ashton

Thanks for all the great ideas! I might play with some of these for my own
edification, but for my users at remotes sites, I need something simple. I
was hoping for self-contained, but none of these utilities gives me the
information I wanted in a simple way.

Consequently, I wrote a small, inline Rexx program with LISTDSI that the
users can run with JCL, and made it pretty obvious how to add the DDnames
they need for the files they need to describe.
Thanks again for all your help!
Billy


On Wed, Apr 11, 2012 at 1:32 PM, McKown, John john.mck...@healthmarkets.com
 wrote:

 How about LISTDS? It is a TSO command, so you need something like:

 //LISTDS EXEC PGM=IKJEFT01
 //SYSTSPRT DD SYSOUT=*
 //SYSTSIN DD *
  LISTDS dsn1
  LISTDS dsn2
 /*

 Note that you cannot use wild cards in the LISTDS command. You must
 specify a separate command for every data set name.

 I am fairly sure you wouldn't be allowed to use it, but installing
 Dovetailed Technologies Dataset Pipes and Co:Z Launcher would do this
 rather easily.

 //LISTDSNS EXEC PROC=COZBATCH
 //STDIN DD *
  catsearch -l ...
 /*

 Where ... can be a single DSN or a wild card. E.g.
 CICSTS32.**.AUTH matches all dataset which start with CICSTS32, has
 any number of intermediate nodes (0 or more), and have a last node with any
 4 characters followed by AUTH.

 Example command and output:

 catsearch -l 'cicsts32.**.auth'
 Volume   Referred  Ext  TracksUsed Recfm Lrecl BlkSz Dsorg  Dsname
 LIHTST  2012/04/08   1 136  99  U0 32760  PO
  CICSTS32.CICS.SDFHAUTH
 LIHTST  2012/01/30   1  80   ?  U0 32760  PO-E
  CICSTS32.CICS.SDFJAUTH
 LIHTST  2012/01/30   1 218 175  U0 32760  PO
  CICSTS32.CPSM.SEYUAUTH

 You can freely download these products from http://dovetail.com/
 You don't need to pay for them at all, unless you want support. You don't
 even need to register in any way. The products are installed in some z/OS
 PDSes and in a z/OS UNIX subdirectory. The PDSes contain the batch programs
 and examples. The z/OS UNIX subdirectory contains the z/OS UNIX executable
 files. They are installed via a z/OS UNIX shell script. So you really need
 to be able to access a z/OS UNIX shell. TSO OMVS will work.

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * 
 www.HealthMarkets.comhttp://www.healthmarkets.com/

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
 Life Insurance Company(r), Mid-West National Life Insurance Company of
 TennesseeSM and The MEGA Life and Health Insurance Company.SM



  -Original Message-
  From: IBM Mainframe Discussion List
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bill Ashton
  Sent: Wednesday, April 11, 2012 11:36 AM
  To: IBM-MAIN@bama.ua.edu
  Subject: Batch utility to show DCB info for files
 
   Hello!
 
  Is there a standard IBM batch utility that can show the DCB and Space
  atributes for a file? I tried LISTCAT, but it didn't give me
  this data.
 
  I would like to generate a report for a whole list of files,
  so as we shift
  these to another location, we can have the metadata, too.
 
  Coding a Rexx or other program is not an option...the
  requirement is to use
  standard, already existing utilities.
 
  Thanks!
  Billy
 
  --
  Thank you and best regards,
  *Billy Ashton*
  
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: System completion code 201

2012-04-11 Thread Chris Craddock

On Wed, Apr 11, 2012 at 1:07 PM, Micheal Butz michealb...@optonline.netwrote:

 There is a reason I have CSA in KEY 8

 Was just wondering If I have to do an explicit modeset to key=8



What you're doing is just stupendously wrong. As a privileged program, you
don't NEED to use key 8 storage and it is an integrity exposure to use key
8 CSA. The gymnastics you would have to go through to get what you're doing
to appear to work would further increase your exposures. Add to that the
fact that an ordinary prob state/key 8 task in another address space cannot
do a cross-memory post anyway (sounds like the likely reason for your
predicament) and you're just digging yourself a hole.

Don't do it. Don't even start doing it.

It is a whole lot easier to do it right from the start.

-- 
This email might be from the
artist formerly known as CC
(or not) You be the judge.

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

Re: System completion code 201

I don't know why the OP thinks he needs key 8 CSA storage. The only reason that 
I can think of is to update it from a non-authorized program. If it were me, 
I'd likely use a system key (probably 0, but maybe even 7 because I don't think 
anybody else uses it, so I can find it in a SYSDUMP with IPCS). IMO, if this is 
what is wanted (update from non authorized program), I'd do it by setting up a 
PC routine (PC-cp) to do it. That PC routine could then be used by any 
non-authorized program. I might consider putting some code in the PC to make 
sure that it was invoked by my program. I'm just not too sure how to do that.

-- 
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Chris Craddock
 Sent: Wednesday, April 11, 2012 2:54 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: System completion code 201
 
 On Wed, Apr 11, 2012 at 1:07 PM, Micheal Butz 
 michealb...@optonline.netwrote:
 
  There is a reason I have CSA in KEY 8
 
  Was just wondering If I have to do an explicit modeset to key=8
 
 
 
 What you're doing is just stupendously wrong. As a privileged 
 program, you
 don't NEED to use key 8 storage and it is an integrity 
 exposure to use key
 8 CSA. The gymnastics you would have to go through to get 
 what you're doing
 to appear to work would further increase your exposures. Add 
 to that the
 fact that an ordinary prob state/key 8 task in another 
 address space cannot
 do a cross-memory post anyway (sounds like the likely reason for your
 predicament) and you're just digging yourself a hole.
 
 Don't do it. Don't even start doing it.
 
 It is a whole lot easier to do it right from the start.
 
 -- 
 This email might be from the
 artist formerly known as CC
 (or not) You be the judge.
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
 
 

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

Re: PL/I with variable PLISTs (was: LE C calling HLASM)

2012-04-11 Thread Bernd Oppolzer


It's true: when passing 64 bit addresses, the VL bit mechanism will
not work any more, so maybe it has no future.

The C stdarg mechanism has its drawbacks, but it does not rely on
a specific platform or operating system, it is portable, and it works
with 64 bit environments, too. This is what I like about C - it is sometimes
a little bit strange, but the programs conforming to the ANSI standard
run on almost every platform and - if you do it right - need not be 
changed,

even when your platform changes, for example, from 32 to 64 bit.

Kind regards

Bernd



Am 11.04.2012 19:32, schrieb McKown, John:

I had never read that. And, guess what, whomever wrote the initiator code 
didn't either. Because it use ATTACH or maybe ATTACHX to run the program 
specified on the EXEC PGM=. And it is documented that the parameter list has 
the high bit set on in the last address. But it always and only passes one 
parameter to the program (the PARM= string). However, the program being 
executed may or may not accept a variable number of parms. IEFBR14 does not use 
any parms. IDCAMS accepts 0 or more parms. Most COBOL main routines only accept 
a single parameter. The initiator doesn't know how many parms may be accepted 
by the invoked program. So the comment on ATTACH/ATTACHX macros, which is also 
on LINK/LINKX macros, is ludicrous. Likely it should say something like:

You only need to specify VL=1 only if the called program can be passed a 
variable number of parameters. VL=1 causes the high-order bit of the last 
address parameter to be set to 1; the bit can be checked to find the end of the 
list.

But having the VL=1 does no harm. IMO, the comment in the manual omits the You only need 
to neede at the start of the first sentence. Maybe the editor needed to decrease the 
manual word count?grin

Other interesting things that I hadn't noted: neither ATTACH[X] or LINK[X] 
support above the bar PARMS; CALL doesn't have the note about VL only being for 
called programs which can be passed a variable number of parameters; CALL 
supports 64-bit addresses (either AMODE64 without PLIST4=YES, or not AMODE64 
and PLIST8=YES). But when it uses an 8-bytes-per-entry plist, you cannot 
specify VL. Which means that to pass a plist to a program which uses a variable 
number of list entries, using the 8-bytes-per-entry plist format, you must pass 
the number of parameters in the list to the called routine. I would think by 
making the first parameter a pointer (4 or 8 bytes as needed by the called 
routine) to a fullword containing the number of parameters in the list.

Given all the above facts, I wonder if it is time to abandon, in our own code, 
the practice of indicating end-of-list by setting the high order bit of the 
last parameter to '1'b. If, instead, we might want to pass the number of 
parameters in the list either: (1) by value (fullword or doubleword pointed to 
by GPR1 is the number of parameters in the rest of the list) or (2) by 
reference (fullword or doubleword pointed to by GPR1 points to a fullword which 
contains the number of parameters in the rest of the list). All the size of 
each list entry pointed to by GPR1 would be 4 (not AMODE64 and not PLIST8=YES) 
or 8 (AMODE64 and not PLIST4=YES, or PLIST8=YES regardless of AMODE). Of course 
the called routine must be written to accept either one of: (1) 4 
bytes-per-entry in the list, or (2) 8-bytes-per-entry in the list.



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

Re: System completion code 201

2012-04-11 Thread Richard L Peurifoy


On 4/11/2012 3:09 PM, McKown, John wrote:

I'd likely use a system key (probably 0, but maybe even 7

 because I don't think anybody else uses it

I think IMS and DB2 use key 7. The last time I looked the
least used keys were 2 and 3, but it has been a long time
since I checked.

--
Richard

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

Re: HSM to open systems

Hi Miklos.
Interesting situation with the HSM exits.
Can you view the HSM ML2 files under USS using vi or more?
Is the data compressed under the USS file system?
I suspect I could use something like FTP (or similar products) to copy to a 
Linux on Intel from the HSM exit.  Is that possible?
Regards,
Uriel

From: IBM Mainframe Discussion List [IBM-MAIN@bama.ua.edu] on behalf of Miklos 
Szigetvari [miklos.szigetv...@isis-papyrus.com]
Sent: Wednesday, April 11, 2012 10:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: HSM to open systems

Hi

Not the same as your case, but we have here HSM exits, to use HFS (Unix)
dataset in the place of ML2
So with this exit we migrate/recall everything from/ to HFS (Unix) .


On 4/11/2012 3:41 PM, Uriel Carrasquilla wrote:
 My company is in the process of sun setting our MF.
 We have about 40 TBytes of data under HSM control.
 I have been tasked with the responsibility to pull the data and put it under 
 a Unix/Linux system as an archived data.
 The only time we will need to reference it (without the MF) is in case some 
 of our users need to retrieve one of the files (not to update), just to look 
 at.
 We are supposed to keep the data for up to 15 years.
 Any suggestions will be greatly appreciated.
 Uriel

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



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

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

Re: HSM to open systems

Hi Lisette.
In response to your questions:
1) Time frame to move data to server?  I have from now until early 2014.
2) Efforts involved?  Do you have a large staff, small staff?  Do you have
time to write exits for HSM and redirect the HSM data? Once I have an idea of 
the size, then we will see how much we can do ourselves and how much help we 
will need.
3) Is the 40 TB all of the data or is the information you need to place on
the server a smaller number?  My HSM data is about 40 TB (between disk and 
tape).
4) Will you have a dedicated server for your mainframe storage? Yes, a Linux 
server.

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

Re: HSM to open systems

Kirk, thank you for the information.
I printed the Co:Z user guide and I think it has a lot of the pieces of what I 
need.

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

Re: PL/I with variable PLISTs

That does, indeed, work.  And it's also as fugly as h*ck.  :-)
Thanks Steve.

Frank

- Original Message -
 From: Frank Swarbrick frank.swarbr...@yahoo.com
 To: IBM-MAIN@bama.ua.edu
 Cc: 
 Sent: Wednesday, April 11, 2012 12:55 PM
 Subject: Re: PL/I with variable PLISTs

 Sorry, Victor's was so short and sweet I used it and assumed it was the same 
 as yours.  I'll look more carefully at yours later.
 Thanks!
 Frank

 - Original Message -
  From: Steve Comstock st...@trainersfriend.com
  To: IBM-MAIN@bama.ua.edu
  Cc: 
  Sent: Wednesday, April 11, 2012 12:09 PM
  Subject: Re: PL/I with variable PLISTs

  On 4/11/2012 11:38 AM, Frank Swarbrick wrote:
   Hmmm  Have you (or anyone) actually verified that this works?  I 
 just 
  wrote the following programs:

     identification division.
     program-id.  callopt.
     data division.
     working-storage section.
     77  one                         pic x(4) value z'one'.
         call 'callee' using one
         goback.
     end program callopt.

     id division.
     program-id. 'callee'.
     data division.
     local-storage section.
     77  addr                        pointer.
     77  addr-val redefines addr     pic s9(9) comp-5.

     linkage section.
     01  string-1                    pic x(101).
     01  string-2                    pic x(101).

     01  result                      pic s9(8) comp-5.

     procedure division using string-1 string-2
                              returning result.
          call 'print-string' using string-1
          set addr to address of string-1
          if  addr-val not less than zero
              call 'print-string' using string-2.
          move zero to result
          goback.

   When I run it, according to COBOL ADDR is set to x0F0960B8. I am 
 guessing
   thatthe high-order bit is in fact set, but that COBOL does not reveal 
 that
   implementation detail to the COBOL application.

   Either that or I am doing something wrong.

   Frank

  I think Victor's example is wrong. You should follow the
  instructions I gave you. OK, here's a short example of a
  subroutine being passed a variable number of parameters:

         process test(sym,none) numproc(pfd) offset opt
         process flag(w,w) map xref(short)
         Identification division.
         program-id.  cobsUB3.
        *  Copyright (C) 1999 by Steven H. Comstock

         environment division.
         data division.
         working-storage section.

         01  text-1.
             05                      pic s9(4) binary value 07.
             05                      pic x(07)
                   value ' SUBCOB'.

         01  text-2.
             05                      pic s9(4) binary value 09.
             05                      pic x(09)
                   value ' Parm1   '.
         01  dest  pic s9(9)   binary  value 2.
         01  fc    pic x(12)   value low-values.

         linkage section.
         01  parm-1-chk           pic s9(9) binary.
         01  parm-2-ptr       pointer.
         01  parm-2-chk       redefines parm-2-ptr.
             02 parm-2-val        pic s9(9) binary.
         01  parm-3-ptr       pointer.
         01  parm-3-chk       redefines parm-3-ptr.
             02 parm-3-val        pic s9(9) binary.
         01  parm-4-ptr       pointer.
         01  parm-4-chk       redefines parm-4-ptr.
             02 parm-4-val        pic s9(9) binary.
         01  parm-1-value     pic s9(9)   binary.
         01  parm-2-value     pic s9(9)   binary.
         01  parm-3-value     pic s9(9)   binary.
         01  parm-4-value     pic s9(9)   binary.
        /
         procedure division using by value
                                  parm-1-chk,
                                  parm-2-ptr,
                                  parm-3-ptr,
                                  parm-4-ptr.
         thecode.
             display '..In COBSUB3'
             display '..parm-1-chk = ' parm-1-chk

             set address of parm-2-value to parm-2-ptr
             display '..parm-2-value = ' parm-2-value
             if parm-2-val  0
                display 'End of list'
                go to end-of-list
             else
                display 'Not end of list'
             end-if

             set address of parm-3-value to parm-3-ptr
             display '..parm-3-value = ' parm-3-value
             if parm-3-val  0
                display 'End of list'
                go to end-of-list
             else
                display 'Not end of list'
             end-if

             set address of parm-4-value to parm-4-ptr
             display '..parm-4-value = ' parm-4-value
             if parm-4-val  0
                display 'End of list'
                go to end-of-list
             else
                display 'Not end of list'
             end-if.

         end-of-list.
             display '..Leaving COBSUB3'
             goback.

  Play around with it.

Re: PL/I with variable PLISTs


On 4/11/2012 3:44 PM, Frank Swarbrick wrote:

That does, indeed, work.  And it's also as fugly as h*ck.  :-)
Thanks Steve.

Frank


Plenty more where that came from: practical information
on how to call programs statically and dynamically, how
to set up arguments and receive parameters with each of
four languages (COBOL, Assembler, PL/I, and C) or even
just within the same language, discussion on EXTERNAL
data items, alternate entry points, and more.

In only three days!

Check out

  http://www.trainersfriend.com/Language_Environment_courses/m520descr.htm




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.html

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

Re: realpath() syntax?