Re: Channel types

[Miklos Szigetvari]

 Hi

Thank you very much Ron for your valuable comments.
We are using the RMF reports, but I will suggest to my colleagues to 
take this with a pinch of salt (if my dictionary is correct)


On 9/15/2010 5:59 PM, Ron Hawkins wrote:

Miklos,

Figuring out how busy all the channel processors are on the Host is easy. It
is reported in the Type 73 RMF record for the LPAR and the CEC. This does
not tell you how busy the channel is. A FICON Express Four channel maxes out
at approx 14,000 normal IOPS, but the FICON channel itself will handle more
than double that IO rate. The channel is not 100% busy when the FICON MP on
the host runs out of steam.

Also realize that this does not tell you how busy the channel processors are
on the Front End Director boards connecting the storage to the channel.
There is not a one to one correspondence because the storage typically has a
very different architecture and processing cost. For instance IBM storage
has a single microprocessor on each board which is shared by four channels,
while HDS has four micro-processors that are shared by all four channels on
the Board. RMF has no idea how busy these MP are in IBM and HDS, and there
is no way to estimate it.

This becomes even more complex and confusing when you have channel fan-in,
meaning multiple CEC connect to one storage port through a switch, or
multiple CEC connected to one board. The only way to measure channel busy
behavior is to understand channel path busy using RMF and the MP measurement
provided by the storage vendor.

For volume busy you are going to get some very unexpected results if you run
two or more LPARs, or PAV/HypePAV. The traditional measure for Device busy
is (Connect + Disconnect)/ Interval, but because Multiple Device Allegiance
and Parallel Access Volumes allow concurrent IO to the volume you can easily
end up with a volume greater than 100% busy. Because volume busy has little
to do with queuing for MDA and PAV what is the purpose of a Volume busy
measure? Note that a LUN Busy measurement on other platforms is just as
(in)accurate unless the Q-DEPTH is set to one.

If you really want disk and not volume busy, then again there is nothing in
RMF, and you have turn to the Storage vendor's internal performance numbers
for the Array Groups.

Of course the nice charts will be important for Capacity Plan trends, but
I'd be sure your colleagues understand how to apply the information they are
looking at. I still remember showing my manager a volume running at greater
than 100% busy on a 7980-3 because of Logical Device Allegiance and two CEC
access, and while I thought it was great he thought it was a problem.

Ron


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On

Behalf Of

Miklos Szigetvari
Sent: Wednesday, September 15, 2010 3:40 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: [IBM-MAIN] Channel types

   Hi
On 9/15/2010 12:24 PM, Ron Hawkins wrote:

Miklos,

By the disk I assume you mean the volume. How can you figure out how

busy

a volume is?


Not a volume,  the complete system, all the DISK channel's
(if we can figure out this)

RMF does not report how busy a FICON channel is, only the FICON Channel

MP.

What is the tool that reports FCP Channel busy and LUN busy on other
platforms.

I don't know if any tool can report this.

My colleagues want to get four nice charts about CPU , STORAGE , DISK
and  NET activity.
On the other side, it has some sense to ask how active was the complete
DISK or NETWORK system
in a period.


Ron


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On

Behalf Of

Miklos Szigetvari
Sent: Wednesday, September 15, 2010 2:27 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: [IBM-MAIN] Channel types

On 9/15/2010 10:57 AM, R.S. wrote:

Miklos Szigetvari pisze:

   Hi

We would like to categorize the channels as in the Mainframe Concept
book


(http://publib.boulder.ibm.com/infocenter/zos/basics/index.jsp?topic=/com.ib

m.

zos.znetwork/znetwork_74.htm)

CCW channel or Coupling channel or QDIO/OSA.
Can I make this from the channel type codes ?

In fact you just did it.

What do you want to achieve?
I'm asking, because there are different point of view:
CHPID type - as in HCD, i.e. CNC, FC, FCV, CTC, etc. A physical
channel can be defined as one of allowable types. For ESCON you have 4
choices.
Channel card type - i.e. FICON Express2, Express4, Express8 - all
those cards support same set of CHPID types.
Channel media - related to Channel card type.
CPC - machine model sometimes decides wht CHPID can be used, i.e. CFR
cannot be defined on z9, even if the same card do support CFR.

CCW channels:
BusTag, ESCON, FICON (no-Express, Express, Express2,4,8)
CHPID: BL, BY, CTC, CNC, CVC, CBY, FC, FCP, FCP

CF link channels:
ISC(fiber optic 2-3 generations), ICB (copper, several incompatible
generations, ICB, ICB-3, ICB-4), PSIFB (Infiniband), IC (internal,
emulated).
CHPID: CFP, CFR, CFS, CBP, 

Re: Channel types

[Ron Hawkins]

Miklos,

Forgive me if I gave the impression the information in RMF is not valuable.
I just wanted to point out that some measurements may not be what we think
they are, and that other instrumentation is required for the whole picture.

Ron

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of
 Miklos Szigetvari
 Sent: Thursday, September 16, 2010 12:23 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: [IBM-MAIN] Channel types
 
   Hi
 
 Thank you very much Ron for your valuable comments.
 We are using the RMF reports, but I will suggest to my colleagues to
 take this with a pinch of salt (if my dictionary is correct)
 
 On 9/15/2010 5:59 PM, Ron Hawkins wrote:
  Miklos,
 
  Figuring out how busy all the channel processors are on the Host is
easy. It
  is reported in the Type 73 RMF record for the LPAR and the CEC. This
does
  not tell you how busy the channel is. A FICON Express Four channel maxes
out
  at approx 14,000 normal IOPS, but the FICON channel itself will handle
more
  than double that IO rate. The channel is not 100% busy when the FICON MP
on
  the host runs out of steam.
 
  Also realize that this does not tell you how busy the channel processors
are
  on the Front End Director boards connecting the storage to the channel.
  There is not a one to one correspondence because the storage typically
has a
  very different architecture and processing cost. For instance IBM
storage
  has a single microprocessor on each board which is shared by four
channels,
  while HDS has four micro-processors that are shared by all four channels
on
  the Board. RMF has no idea how busy these MP are in IBM and HDS, and
there
  is no way to estimate it.
 
  This becomes even more complex and confusing when you have channel
fan-in,
  meaning multiple CEC connect to one storage port through a switch, or
  multiple CEC connected to one board. The only way to measure channel
busy
  behavior is to understand channel path busy using RMF and the MP
measurement
  provided by the storage vendor.
 
  For volume busy you are going to get some very unexpected results if you
run
  two or more LPARs, or PAV/HypePAV. The traditional measure for Device
busy
  is (Connect + Disconnect)/ Interval, but because Multiple Device
Allegiance
  and Parallel Access Volumes allow concurrent IO to the volume you can
easily
  end up with a volume greater than 100% busy. Because volume busy has
little
  to do with queuing for MDA and PAV what is the purpose of a Volume busy
  measure? Note that a LUN Busy measurement on other platforms is just as
  (in)accurate unless the Q-DEPTH is set to one.
 
  If you really want disk and not volume busy, then again there is nothing
in
  RMF, and you have turn to the Storage vendor's internal performance
numbers
  for the Array Groups.
 
  Of course the nice charts will be important for Capacity Plan trends,
but
  I'd be sure your colleagues understand how to apply the information they
are
  looking at. I still remember showing my manager a volume running at
greater
  than 100% busy on a 7980-3 because of Logical Device Allegiance and two
CEC
  access, and while I thought it was great he thought it was a problem.
 
  Ron
 
  -Original Message-
  From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
  Behalf Of
  Miklos Szigetvari
  Sent: Wednesday, September 15, 2010 3:40 AM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: [IBM-MAIN] Channel types
 
 Hi
  On 9/15/2010 12:24 PM, Ron Hawkins wrote:
  Miklos,
 
  By the disk I assume you mean the volume. How can you figure out how
  busy
  a volume is?
 
  Not a volume,  the complete system, all the DISK channel's
  (if we can figure out this)
  RMF does not report how busy a FICON channel is, only the FICON
Channel
  MP.
  What is the tool that reports FCP Channel busy and LUN busy on other
  platforms.
  I don't know if any tool can report this.
 
  My colleagues want to get four nice charts about CPU , STORAGE , DISK
  and  NET activity.
  On the other side, it has some sense to ask how active was the complete
  DISK or NETWORK system
  in a period.
 
  Ron
 
  -Original Message-
  From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
  Behalf Of
  Miklos Szigetvari
  Sent: Wednesday, September 15, 2010 2:27 AM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: [IBM-MAIN] Channel types
 
  On 9/15/2010 10:57 AM, R.S. wrote:
  Miklos Szigetvari pisze:
 Hi
 
  We would like to categorize the channels as in the Mainframe
Concept
  book
 
 
(http://publib.boulder.ibm.com/infocenter/zos/basics/index.jsp?topic=/com.ib
  m.
  zos.znetwork/znetwork_74.htm)
  CCW channel or Coupling channel or QDIO/OSA.
  Can I make this from the channel type codes ?
  In fact you just did it.
 
  What do you want to achieve?
  I'm asking, because there are different point of view:
  CHPID type - as in HCD, i.e. CNC, FC, FCV, CTC, etc. A physical
  channel can be defined as one of 

Re: z/OS, TCP/IP, and OSA

[Chris Mason]

Mike

Based on previous questions I have noticed from you, I assume you are most 
interested in the IP component of z/OS Communications Server (CS).

The CS IP component's predecessor, TCP/IP for MVS, didn't know what an 
OSA was and communicated just fine with a variety of implementations of 
interfaces. These are, in general, still supported although, given that some of 
the supporting products are not supported or sensible today, the list is 
not 
really so long. You can judge what the list is easily by examining the various 
DEVICE and LINK statement sets backed up in a few cases by a few chapters 
in the Configuration Reference manual. There are about 14 sets of DEVICE and 
LINK statements. There are various reasons for discarding some - obviously 
starting with any related to OSA and going on to the not sensible - but, 
after this filtering, you will find a few left which you still might care to 
use 
today.

I find these manuals have a wealth of information in them! Maybe your 
interlocutor noticed that handy diagram Figure 1, Summary of DEVICE and 
LINK statements.

-

I see some of your respondents refer to the 3172. This was an IBM product 
which implemented a general design - some people use the 
term architecture - for a channel-attached device which can support at 
least an IP interface. One of the successors to the 3172 because it 
implements the same set of protocols over the channel is the OSA feature 
using the OSE channel type. Given that this is a case of the OSA feature 
replacing a product, I'm not sure it really counts given the way you posed 
your question.

Chris Mason

On Tue, 14 Sep 2010 17:22:05 -0500, Ward, Mike S mw...@ssfcu.org 
wrote:

Hello all, I have a question. I was talking with someone that said you
don't need OSA's to run tcpip under z/os and use it to communicate with
the outside world. If that's true then what would be used instead of an
OSA?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

FROMNTS - FB-80 datasets????

[Andy Robertson]

We have a lot of PTFs in a SMPNTS directory, and we want to do RECEIVE FROMNTS 
to get (the relevant subsets of) them them into a series of (about 20) 
different global CSIs.

Unfortunately this is about 3500 MB of stuff and each separate RECEIVE FROMNTS 
takes about three hours.

It seems the time is mostly taken up by un-taring the downloaded tarball (or 
unpaxing the paxball, or whatever)

Question therefor: is there any way to convert the PTFs and HOLDs in the SMPNTS 
directory into nice sensible z/OS datasets, so they may be RECEIVEd simply and 
quickly??


Andy Robertson
**
This email is confidential and may contain copyright material of the John Lewis 
Partnership. 
If you are not the intended recipient, please notify us immediately and delete 
all copies of this message. 
(Please note that it is your responsibility to scan this message for viruses). 
Email to and from the
John Lewis Partnership is automatically monitored for operational and lawful 
business reasons.
**

John Lewis plc
Registered in England 233462
Registered office 171 Victoria Street London SW1E 5NN
 
Websites: http://www.johnlewis.com 
http://www.waitrose.com 
http://www.greenbee.com
http://www.johnlewispartnership.co.uk
 
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Where is APF documented?

[Tom Marchant]

On Wed, 15 Sep 2010 17:12:57 -0500, Chuck Arney wrote:

  On 9/9/2010 4:35 PM, Chris Craddock wrote:
 yeah I know, I just didn't feel like going off on one of my normal
rants
 about integrity exposures. It seems like nobody listens anyway.

and on 9/15/2010 Ed Jaffe wrote:
 Some of us do... :-)

Yep.  When Chris speaks I listen.  Usually it is entertaining and
sometimes even educational.

Ha!  The posts that Chris makes are usually educational. 
Sometimes they are also entertaining.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Initiators

[Tom Marchant]

On Wed, 15 Sep 2010 17:10:11 -0400, Thompson, Steve wrote:

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Tom Marchant
Sent: Wednesday, September 15, 2010 3:42 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Initiators

On Wed, 15 Sep 2010 16:06:55 -0400, Thompson, Steve wrote:

Each initiator, drained or running, takes up room in the SQA for ASCBs
and such.

An address space is created when the initiator is started.  When the
initiator is drained the address space ends.  There is no ASCB for a
drained initiator.

SNIPPAGE

And where does the ASCB go? It isn't pageable now is it?

I could be wrong, but I thought that when an address space 
terminates the ASCB is deleted.


I thought all of these had to be configured in IEASYSxx. And that is
even if it is WLM controlled.

 MAXUSER=nn

Yes, MAXUSER sets a limit to the number of ASIDs that can be in use. 
I thought that an ASCB was created when the address space was 
created and deleted when the address space terminated.  But if, as 
I think you are suggesting, an ASCB is created for them all at IPL 
time, then it doesn't matter whether some number of those ASCBs 
are allocated to drained initiators, does it?

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Question on 'Welcome to IBM Service Request'

[Richbourg, Claude]

Did any of you get an email from a donotreply address at IBM for this
new service?

Just curious if it was legit.

 

Regards,

Claude

 

 

 

 

 

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Question on 'Welcome to IBM Service Request'

[Baraniecki, Ray]

Yes, I received that email earlier this week.

Thanks;


Ray Baraniecki
Morgan Stanley Smith Barney
1 New York Plaza - 18th Floor
New York, NY 10004
Telephone: 212-276-5641
Cell:   917-597-5692
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Richbourg, Claude
Sent: Thursday, September 16, 2010 8:05 AM
To: IBM-MAIN@bama.ua.edu
Subject: Question on 'Welcome to IBM Service Request'

Did any of you get an email from a donotreply address at IBM for this
new service?

Just curious if it was legit.

 

Regards,

Claude

 

 

 

 

 

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
Important Notice to Recipients:
 
It is important that you do not use e-mail to request, authorize or effect the 
purchase or sale of any security or commodity, to send fund transfer 
instructions, or to effect any other transactions. Any such request, orders, or 
instructions that you send will not be accepted and will not be processed by 
Morgan Stanley Smith Barney.
 
The sender of this e-mail is an employee of Morgan Stanley Smith Barney LLC. If 
you have received this communication in error, please destroy all electronic 
and paper copies and notify the sender immediately.  Erroneous transmission is 
not intended to waive confidentiality or privilege. Morgan Stanley Smith Barney 
reserves the right, to the extent permitted under applicable law, to monitor 
electronic communications. By e-mailing with Morgan Stanley Smith Barney you 
consent to the foregoing.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FROMNTS - FB-80 datasets????

[Paul Gilmartin]

On Thu, 16 Sep 2010 10:23:30 +0100, Andy Robertson wrote:

We have a lot of PTFs in a SMPNTS directory, and we want to do RECEIVE FROMNTS 
to get (the relevant subsets of) them them into a series of (about 20) 
different global CSIs.

Unfortunately this is about 3500 MB of stuff and each separate RECEIVE FROMNTS 
takes about three hours.

It seems the time is mostly taken up by un-taring the downloaded tarball (or 
unpaxing the paxball, or whatever)

Question therefor: is there any way to convert the PTFs and HOLDs in the 
SMPNTS directory into nice sensible z/OS datasets, so they may be RECEIVEd 
simply and quickly??

I suppose you could RECEIVE FROMNTS to one CSI and use a concatenation
of (the relevant subsets of) members of its SMPPTS as SMPPTFIN to the
remainder.  Might take multiple job steps if you're constrained by the
allocation limits on concatenation.

If there are RELFILEs involved it's harder: you'd need to modify the
SMPMCS to point to the TLIBs.

This appears to be a good application for a single GLOBAL zone shared
by multiple TARGET/DLIB pairs.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Initiators

[Paul Gilmartin]

On Thu, 16 Sep 2010 06:23:34 -0500, Tom Marchant wrote:

I could be wrong, but I thought that when an address space
terminates the ASCB is deleted.


I thought all of these had to be configured in IEASYSxx. And that is
even if it is WLM controlled.

 MAXUSER=nn

Yes, MAXUSER sets a limit to the number of ASIDs that can be in use.
I thought that an ASCB was created when the address space was
created and deleted when the address space terminated.  But if, as
I think you are suggesting, an ASCB is created for them all at IPL
time, then it doesn't matter whether some number of those ASCBs
are allocated to drained initiators, does it?

May I assume this applies equally to address spaces created by BPXAS?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FROMNTS - FB-80 datasets????

[Kurt Quackenbush]

Question therefor: is there any way to convert the PTFs and HOLDs
in the SMPNTS directory into nice sensible z/OS datasets, so they
may be RECEIVEd simply and quickly??


Sure, use GIMUNZIP to unzip the archive files from SMPNTS into data sets 
containing MCS and HOLDDATA and possibly RELFILEs.


Kurt Quackenbush -- IBM, SMP/E Development

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Initiators

[Mark Zelden]

On Thu, 16 Sep 2010 08:09:28 -0500, Mark Zelden mzel...@flash.net wrote:

 The ASCB (at least in z/OS 1.11) is 384
bytes and is located below the 16M line.  It would be a very bad thing
if they were all allocated / reserved based on MAXUSER.

I meant to write...  would have been in the context of MVS history.  

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:mzel...@flash.net  
Mark's MVS Utilities: http://home.flash.net/~mzelden/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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Where is APF documented?

[Walt Farrell]

On Sat, 11 Sep 2010 22:34:04 -0400, Shmuel Metz (Seymour J.)
shmuel+ibm-m...@patriot.net wrote:

In listserv%201009090958197966.1...@bama.ua.edu, on 09/09/2010
   at 09:58 AM, Walt Farrell wfarr...@us.ibm.com said:

That may have made you happy, Charles, but technically it's wrong.

Well, yes, but then so is your description. Specifically, the entire
steplib or whatever must be APF authorized for the library to be
treated as authorized, except that the rules for the link list are
more complicated.

And that's why I said (in the part you didn't quote) some other stuff
omitted for simplicity and also such as ..., Shmuel   :) 

(The steplib consideration is one of the things that was omitted for
simplicity, and also didn't make the such as list either, but I figured
that I was sufficient covered.)

-- 
Walt Farrell
IBM STSM, z/OS Security Design

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Should the value of PSATOLD be different in XMEM mode

[Micheal Butz]

Hi

Would anyone know if the value of PSATOLD is different in XMEM mode

Sent from my iPhone

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Initiators

[Mark Zelden]

On Thu, 16 Sep 2010 06:23:34 -0500, Tom Marchant m42tom-ibmm...@yahoo.com
wrote:

On Wed, 15 Sep 2010 17:10:11 -0400, Thompson, Steve wrote:

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Tom Marchant
Sent: Wednesday, September 15, 2010 3:42 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Initiators

On Wed, 15 Sep 2010 16:06:55 -0400, Thompson, Steve wrote:

Each initiator, drained or running, takes up room in the SQA for ASCBs
and such.

An address space is created when the initiator is started.  When the
initiator is drained the address space ends.  There is no ASCB for a
drained initiator.

SNIPPAGE

And where does the ASCB go? It isn't pageable now is it?

I could be wrong, but I thought that when an address space
terminates the ASCB is deleted.


I thought all of these had to be configured in IEASYSxx. And that is
even if it is WLM controlled.

 MAXUSER=nn

Yes, MAXUSER sets a limit to the number of ASIDs that can be in use.
I thought that an ASCB was created when the address space was
created and deleted when the address space terminated.  But if, as
I think you are suggesting, an ASCB is created for them all at IPL
time, then it doesn't matter whether some number of those ASCBs
are allocated to drained initiators, does it?


MAXUSER controls the creation of the ASVT (address space vector table),
along with RSVSTRT and RSVNONR.   Those entries are 4 bytes each.  
There is also storage used by CSCB/CSCXs which use SQA/ESQA (depends
on your IEASYSxx CSCBLOC parm). That is all the storage that is reserved.
As the name suggests, ASCBs are associated with address spaces.  No
address space, no ASCB.   The ASCB (at least in z/OS 1.11) is 384
bytes and is located below the 16M line.  It would be a very bad thing
if they were all allocated / reserved based on MAXUSER.  

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:mzel...@flash.net  
Mark's MVS Utilities: http://home.flash.net/~mzelden/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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Higher Paging under z/OS V1.11 OA33307

[Mark Jacobs]

On 09/16/10 09:41, Patrick Lyon wrote:

On Wed, 25 Aug 2010 09:17:14 -0400, Lizette Koehler
stars...@mindspring.com  wrote:

   

We are seeing small spurts in paging.  We will be going along fine for hours
and then suddenly see a 1-2 min spike in paging for DB2.  And when I say
spike, it goes from 0 page-in up to 35% pagein rate under RMF.  My workset
size is stable as are my page datasets.  But using STORF in RMF and going
for 3 min intervals does show this spike.  So when I look at a daily
results, it does not look like I am having any paging issues at all.



IBM has responded with the following

The increase paging and aux storage utilization directly related to
the move to 1.11 as well as paging in small bursts as you are seeing
definitely points directly at oa33307.  If you would like to take a dump
we can take a look to ensure the paging is being driven by shortages of
frames above 2gig.  A console dump of master taken as close to one of
the paging spikes as you can get it would be sufficient.
You will not see and ira message indicators or asm indicators other
than probably a higher slot usage number or percent than you had prior
to the move to 1.11.


So it sounds like this may be an issue greater than I expected.  The APAR
talks about MASTER spikes, but on various newsgroups (CICS and DB2) it
 

looks
   

like it maybe more pervasive.

Just an FYI..


Lizette
 

FYI - OA33307 has been updated with the released PTFs.  Another APAR IBM
recommends is OA32947.

   


snip

I looked at OA33307 and it seems to apply to systems with a little over 
2GB of real storage. Would it also apply to environments with real 
storage in the 20GB range?


--
Mark Jacobs
Time Customer Service
Tampa, FL


There you are, your own number on your very own door. And behind
that door, your very own office! Welcome to the team, DZ-015

Mr Warrenn - Brazil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Should the value of PSATOLD be different in XMEM mode

[Binyamin Dissen]

On Thu, 16 Sep 2010 09:10:50 -0400 Micheal Butz michealb...@optonline.net
wrote:

:Would anyone know if the value of PSATOLD is different in XMEM mode

PSATOLD contains the address of the currently dispatched task in the home
address space. XMEM mode does not change that. But be careful because it is
quite likely that the TCB address will map to valid storage (and possibly a
TCB as well) in the primary address space.

--
Binyamin Dissen bdis...@dissensoftware.com
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Higher Paging under z/OS V1.11 OA33307

[Chase, John]

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Mark Jacobs
 
 snip
 
 I looked at OA33307 and it seems to apply to systems with a little
over
 2GB of real storage. Would it also apply to environments with real
 storage in the 20GB range?

From my reading of it, it seems not only possible if above-the-bar
storage is sufficiently committed, but the effect would be
proportionally (or exponentially) worse.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IT staff integration?

[Larry Macioce]

I do z/OS plus admin for Linux on z/VM, we have a VM guy now who also helps 
on the Linux side, but I also dabble(with a capitital D) in aix as we have a 
DR550 which run aix as it's operating system
Mace

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Higher Paging under z/OS V1.11 OA33307

[Patrick Lyon]

On Wed, 25 Aug 2010 09:17:14 -0400, Lizette Koehler 
stars...@mindspring.com wrote:

We are seeing small spurts in paging.  We will be going along fine for hours
and then suddenly see a 1-2 min spike in paging for DB2.  And when I say
spike, it goes from 0 page-in up to 35% pagein rate under RMF.  My workset
size is stable as are my page datasets.  But using STORF in RMF and going
for 3 min intervals does show this spike.  So when I look at a daily
results, it does not look like I am having any paging issues at all.



IBM has responded with the following

The increase paging and aux storage utilization directly related to
the move to 1.11 as well as paging in small bursts as you are seeing
definitely points directly at oa33307.  If you would like to take a dump
we can take a look to ensure the paging is being driven by shortages of
frames above 2gig.  A console dump of master taken as close to one of
the paging spikes as you can get it would be sufficient.
You will not see and ira message indicators or asm indicators other
than probably a higher slot usage number or percent than you had prior
to the move to 1.11.


So it sounds like this may be an issue greater than I expected.  The APAR
talks about MASTER spikes, but on various newsgroups (CICS and DB2) it 
looks
like it maybe more pervasive.

Just an FYI..


Lizette

FYI - OA33307 has been updated with the released PTFs.  Another APAR IBM 
recommends is OA32947.

APAR Identifier .. OA33307  Last Changed  10/09/15
  AT Z/OS R11, MUCH HIGHER-THAN-NORMAL PAGING TO AUX AND VERY
  HIGH PERCENTAGE (UP TO 100%) CPU IN *MASTER* DUE TO IAXUO SRB
 
  Symptom .. PR PERFM Status ... CLOSED  PER
  Severity ... 2  Date Closed . 10/09/02
  Component .. 5752SC1CR  Duplicate of 
  Reported Release . 760  Fixed Release  999
  Component Name RSM - REAL STOR  Special Notice   HIPER
  Current Target Date ..10/10/01  Flags
  SCP ...  PERFORMANCE
  Platform  PERVASIVE
 
  Status Detail: SHIPMENT - Packaged solution is available for
shipment.
 
  PE PTF List:
 
  PTF List:
  Release 760   : UA56636 available 10/09/15 (1000 )
  Release 770   : UA56637 available 10/09/15 (1000 )
 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

ZFS questions

[R.S.]

I need to perform some changes with ZFS datatets.

Q1. Can I rename ZFS cluster, i.e. using IDCAMS ALTER? I assume the 
filesystem is unmounted during IDCAMS ALTER process.


Q2. My ZFS has extents. I want to consolidate it to avoid out-of-extents 
condition in the future. How can I do it? Can I simply allocate larger 
cluster and perform IDCAMS REPRO?

(the filesystem can be unmounted for that time)

Q3. How can I do activities like above for ROOT ZFS ? Can I temporarily 
unmount root fs?


--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sąd Rejonowy dla m. st. Warszawy 
XII Wydział Gospodarczy Krajowego Rejestru Sądowego, 
nr rejestru przedsiębiorców KRS 025237

NIP: 526-021-50-88
Według stanu na dzień 01.01.2009 r. kapitał zakładowy BRE Banku SA (w całości 
wpłacony) wynosi 118.763.528 złotych. W związku z realizacją warunkowego 
podwyższenia kapitału zakładowego, na podstawie uchwały XXI WZ z dnia 16 marca 
2008r., oraz uchwały XVI NWZ z dnia 27 października 2008r., może ulec 
podwyższeniu do kwoty 123.763.528 zł. Akcje w podwyższonym kapitale zakładowym 
BRE Banku SA będą w całości opłacone.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: ZFS questions

[Veilleux, Jon L]

1. Yes
2. I would use a UNIX utility like pax, copytree, etc (use -XDEV to keep it 
from spanning zFSes)
3. read Replacing the sysplex root file system in the shared file system 
configuration (z/OS UNIX), 4.21.28 in System commands. NOTE this may not work 
if you are back leveled (below z/OS 1.10 I believe)


Jon L. Veilleux 
veilleu...@aetna.com 
(860) 636-9179 


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
R.S.
Sent: Thursday, September 16, 2010 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: ZFS questions

I need to perform some changes with ZFS datatets.

Q1. Can I rename ZFS cluster, i.e. using IDCAMS ALTER? I assume the filesystem 
is unmounted during IDCAMS ALTER process.

Q2. My ZFS has extents. I want to consolidate it to avoid out-of-extents 
condition in the future. How can I do it? Can I simply allocate larger cluster 
and perform IDCAMS REPRO?
(the filesystem can be unmounted for that time)

Q3. How can I do activities like above for ROOT ZFS ? Can I temporarily unmount 
root fs?

--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sąd Rejonowy dla m. st. Warszawy 
XII Wydział Gospodarczy Krajowego Rejestru Sądowego, 
nr rejestru przedsiębiorców KRS 025237
NIP: 526-021-50-88
Według stanu na dzień 01.01.2009 r. kapitał zakładowy BRE Banku SA (w całości 
wpłacony) wynosi 118.763.528 złotych. W związku z realizacją warunkowego 
podwyższenia kapitału zakładowego, na podstawie uchwały XXI WZ z dnia 16 marca 
2008r., oraz uchwały XVI NWZ z dnia 27 października 2008r., może ulec 
podwyższeniu do kwoty 123.763.528 zł. Akcje w podwyższonym kapitale zakładowym 
BRE Banku SA będą w całości opłacone.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: ZFS questions

[McKown, John]

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:ibm-m...@bama.ua.edu] On Behalf Of R.S.
 Sent: Thursday, September 16, 2010 9:43 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: ZFS questions
 
 I need to perform some changes with ZFS datatets.
 
 Q1. Can I rename ZFS cluster, i.e. using IDCAMS ALTER? I assume the 
 filesystem is unmounted during IDCAMS ALTER process.

zFS files are simply VSAM LINEAR datasets. So you can do an ALTER ... NEWNAME 
on them, so long as it is unmounted.

 
 Q2. My ZFS has extents. I want to consolidate it to avoid 
 out-of-extents 
 condition in the future. How can I do it? Can I simply 
 allocate larger 
 cluster and perform IDCAMS REPRO?
 (the filesystem can be unmounted for that time)

Again, whatever you can do to a VSAM LINEAR dataset should work with a zFS 
dataset. However, to be safe, I would allocate a new zFS, format it, mount it 
on a new mountpoint (subdirectory) then use pax to do a logical copy from the 
old zFS filesystem to the new one. I'd then unmount both and mount the new DSN 
at the original mount point.

 
 Q3. How can I do activities like above for ROOT ZFS ? Can I 
 temporarily 
 unmount root fs?

You cannot unmount root. On z/OS 1.10 and above with the proper PTF level 
(UA49782), you can format a new zFS, mount it at a new mount point, use pax to 
copy the old root to the newroot, unmount the new zFS, then do the z/OS 
operator command: F OMVS,NEWROOT=new.zfs.root.dsn . But it appears, to me, that 
you __MUST__ be in using the UNIX in the sysplex mode: SYSPLEX(YES) in the 
active BPXPRMnn at IPL. I don't know if it is possible to switch to 
SYSPLEX(YES) on-the-fly or if it requires a sysplex-wide IPL.

 
 -- 
 Radoslaw Skorupka
 Lodz, Poland


--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Higher Paging under z/OS V1.11 OA33307

[Doug Henry]

On Thu, 16 Sep 2010 09:49:09 -0400, Mark Jacobs 
mark.jac...@custserv.com wrote:

I looked at OA33307 and it seems to apply to systems with a little over
2GB of real storage. Would it also apply to environments with real
storage in the 20GB range?


Hi Mark,
Unfortunately yes! IBM recommended 3 apars to us. OA32947, OA33307, and
OA33682. Also unfortunately this also requires UA53190 which has a muti-
system hold that requires UA53187 to be rolled out sysplex wide before 
applying any of this. UA53187 was on RSU1004 and we haven't rolled it 
through our sysplex(s) yet.

This problem was workload dependent for us. We hit the problem on lpars that 
had had very active IMS, DB2, and an OEM product that captures updates and 
logs them. We increased our real storage (doubled)  and tuned the OEM 
product to reduce the paging to a managable level.

Doug
 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Where is APF documented?

[Chris Craddock]

Tom, Chuck and Ed wrote:


   On 9/9/2010 4:35 PM, Chris Craddock wrote:
  yeah I know, I just didn't feel like going off on one of my normal
 rants
  about integrity exposures. It seems like nobody listens anyway.
 
 and on 9/15/2010 Ed Jaffe wrote:
  Some of us do... :-)
 
 Yep.  When Chris speaks I listen.  Usually it is entertaining and
 sometimes even educational.

 Ha!  The posts that Chris makes are usually educational.
 Sometimes they are also entertaining.
 http://bama.ua.edu/archives/ibm-main.html



aw shucks, educational AND occasionally entertaining! Thanks guys. :-)

-- 
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Registers in a SLIP IF dump

[Tony Harminc]

On 15 September 2010 20:51, Jim Mulder d10j...@us.ibm.com wrote:


  STATUS CPU REGS is doing a CBF REGGEN  to format the GPRs.  So you should
 see the same thing as if you do the CBF REGGEN command yourself.


Indeed I do. Wrong registers.


   REGGEN should be defined in your BLSCECT member as

 DATA STRUCTURE(REGGEN) FIND(BLSSREGG) FORMAT(BLSQREG,HBB7703) +
ENVIRONMENT(ALL)/* GPRs  @H3C*/


DATA STRUCTURE(REGGEN) FIND(BLSSREGG) FORMAT(BLSQREG,HBB7703) +
ENVIRONMENT(ALL)/* 32-bit GPRs   @H3C*/

Curious that the comment is slightly different, but the definition is
identical.


   The FIND routine (BLSSREGG), for a SLIP dump, uses the registers
 in the SLIP section of the header record.  This processing knows
 nothing about SCVAs.


By a remarkable coincidence, neither do I. :-)


   And when I try this, using z/OS 1.10 IPCS, it seems to work as I have
 described, and the registers displayed by STATUS CPU REGS, CBF REGGEN,
 and those in the 4k buffer, all seem to match.


Aha! When I transfer the dump to another 1.10 z/OS machine, the output is
correct. So presumably the first LPAR is misconfigured somehow, though it's
a puzzle how IPCS is getting the bad register values it is displaying, since
they (well, at least the R1 value) don't appear in the dump dataset anywhere
but in one SCVA, and in what appears to be a dump header record in storage
(i.e. not the dump header record itself). To be clear, for this I am
browsing the dump dataset with ISPF browse, and doing a find x'' on
the bogus R1 value, and it is found exactly twice, both times in CV records,
and not in an H record. It seems reasonable to me to conclude that IPCS is
getting it from dumped storage rather than from the SLIP section of the dump
header, unless the registers are stored in some obfuscated way. So it's hard
to think what misconfiguration would lead to this behaviour.


   So you may want to open a PMR and send in your dump,


Clearly I need to first talk to the sysprog for the first machine. In any
case I have my registers now, so it's no longer a priority for me.

Many thanks.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: ZFS questions

[Mark Zelden]

On Thu, 16 Sep 2010 16:42:33 +0200, R.S. r.skoru...@bremultibank.com.pl wrote:

I need to perform some changes with ZFS datatets.

Q1. Can I rename ZFS cluster, i.e. using IDCAMS ALTER? I assume the
filesystem is unmounted during IDCAMS ALTER process.


Yes.

Q2. My ZFS has extents. I want to consolidate it to avoid out-of-extents
condition in the future. How can I do it? Can I simply allocate larger
cluster and perform IDCAMS REPRO?
(the filesystem can be unmounted for that time)

I don't think so.  I think you can backup / restore via REPRO if operating in
CI mode, but IIRC I could never get LDS to LDS repro to work.  Well,
work, but then mounted and seeing the directory structure.

So just allocate a new one and use another utility like pax or copytree 
to logically copy old to new.


Q3. How can I do activities like above for ROOT ZFS ? Can I temporarily
unmount root fs?


Sysplex root or MVS / version root?  If MVS, just do it to your maintenance 
root and IPL.  For sysplex root, you still would create a new one (see #2)
and use the NEWROOT command to switch it:

F OMVS,NEWROOT=new.root.file.system.name,COND=YES|NO   

assuming you are z/OS 1.10 or above...  

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:mzel...@flash.net  
Mark's MVS Utilities: http://home.flash.net/~mzelden/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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

z/XDC release z1.12, beta #2 posted: z/Enterprise machine instructions supported

[David Cole]

Hi All,

I have just posted beta build #2 for z/XDC's upcoming release z1.12.

z/XDC is a development and debugging tool for Assembler Language 
code. This build includes support for the new z/Enterprise machine 
instructions (all of them).


Also, this release includes a growing set of Helper Dialogs (sorta 
like Wizards) to help with using some of z/XDC's more complex features.


More information can be found at 
www.colesoft.com/PressRelease/100816_z112beta.html. Existing z/XDC 
customers can get access to the beta by contacting me.


Thanks,

Dave Cole  REPLY TO: dbc...@colesoft.com
ColeSoft Marketing WEB PAGE: http://www.colesoft.com
736 Fox Hollow RoadVOICE:540-456-8536
Afton, VA 22920FAX:  540-456-6658 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Registers in a SLIP IF dump

[Brian Peterson]

On Thu, 16 Sep 2010 12:06:02 -0400, Tony Harminc wrote:

Aha! When I transfer the dump to another 1.10 z/OS machine, the output is
correct. So presumably the first LPAR is misconfigured somehow, though it's
a puzzle how IPCS is getting the bad register values it is displaying, since
they (well, at least the R1 value) don't appear in the dump dataset anywhere
but in one SCVA, and in what appears to be a dump header record in storage
(i.e. not the dump header record itself). To be clear, for this I am
browsing the dump dataset with ISPF browse, and doing a find x'' on
the bogus R1 value, and it is found exactly twice, both times in CV records,
and not in an H record. It seems reasonable to me to conclude that IPCS is
getting it from dumped storage rather than from the SLIP section of the dump
header, unless the registers are stored in some obfuscated way. So it's hard
to think what misconfiguration would lead to this behaviour.

You've already probably solved this issue, but here's the details.  From
z/OS MVS IPCS User's Guide:

-=-=-=-=-=-=-
1.3.2  Running Different Levels of IPCS

The version and release level of IPCS must match the level of the system 
that produced the dump. You must use the z/OS MVS libraries of IPCS code,
for example, to analyze a dump or trace produced by an z/OS MVS system.  
-=-=-=-=-=-=-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Question on WTO macro - Programming requirements

[McKown, John]

In: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A990/88.1.2

it states: You should clear register 0. But it doesn't say why. Nor does it 
indicate whether it means the 32 bit portion or the 64 bit portion. I guess it 
doesn't really matter since GPR0 is volatile, but I am curious.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Cobol calling C function

[Scott Ford]

I have seen several 'bit and piece' posts on LE Cobol calling C
All:

I have seen several 'bit and piece' posts on LE Cobol calling C. I have written 
a sample C call and here is the source and have included the C source and JCL , 
Cobol source and JCL, I dont understand what I have missed, I have been through 
the LE Books and C-C++ books and I am confused and the execution is receiving a 
S0C7 :

JCL for 'C' compile:
--

//ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
// NOTIFY=SYSUID,REGION=0M
// EXEC EDCCL,
//   INFILE=SFORD.JCLLIB.CNTL(TESTC)',
//   OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'

'C'  Source:
---

#include stdio.h
#include string.h
#pragma linkage(TS04B,COBOL)
void TS04B( char *pBuffer )
{
  strcpy( pBuffer, OK   );
  fprintf(stderr,ok trans\n);
}

LE Cobol V4r1 JCL:
--

//ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
// NOTIFY=SYSUID,REGION=4096K
//*
//COB EXEC PGM=IGYCRCTL,
// PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
// MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
// REGION=1024K
//STEPLIB   DD DISP=SHR,DSN=IGY410.SIGYCOMP
//SYSLIB    DD DISP=SHR,DSN=CEE.ACEESRC1
//  DD DISP=SHR,DSN=SFORD.CLINKLIB
//SYSPRINT  DD SYSOUT=X
//SYSUT1    DD UNIT=VIO
//SYSUT2    DD UNIT=VIO
//SYSUT3    DD UNIT=VIO
//SYSUT4    DD UNIT=VIO
//SYSUT5    DD UNIT=VIO
//SYSUT6    DD UNIT=VIO
//SYSUT7    DD UNIT=VIO
//SYSLIN    DD DISP=(,PASS),DSN=LOADSET,
// UNIT=VIO,
// DCB=BLKSIZE=3200
//SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
//*
//LNK EXEC PGM=IEWL,
// COND=(4,LT,COB),
// PARM='LIST,XREF',
// REGION=4096K
//SYSLIB    DD DISP=SHR,DSN=SFORD.CLINKLIB
//  DD DISP=SHR,DSN=CEE.SCEELKED
//  DD DISP=SHR,DSN=SYS1.CSSLIB
//  DD DISP=SHR,DSN=TCPIP.SEZATCP
//SYSLMOD   DD DISP=SHR,DSN=SFORD.CLINKLIB
//SYSUT1    DD UNIT=SYSDA,
// DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT  DD SYSOUT=X
//SYSLOUT   DD SYSOUT=X
//SYSLIN    DD DISP=(OLD,DELETE),DSN=LOADSET
//  DD DDNAME=SYSIN
//SYSIN DD *
  MODE AMODE(31),RMODE(ANY)
  INCLUDE SYSLIB(EDCSTART)
  INCLUDE SYSLIB(CEEROOTB)
  INCLUDE SYSLIB(@@CBL2C)
  INCLUDE SYSLMOD(TS04B)
  ENTRY THRALLC
  NAME THRALLC(R)
/*
//

LE Cobol Source:
-

   IDENTIFICATION DIVISION.
   PROGRAM-ID. THRALLC.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   DATA DIVISION.
   FILE SECTION.
   WORKING-STORAGE SECTION.
   01 TS04B    PIC X(8) VALUE 'TS04B'.
   01 TESTIT   PIC X(10) VALUE 'SCOTT'.
   PROCEDURE DIVISION.
   DISPLAY 'START OF TS04A'.
   CALL TS04B USING TESTIT.
   DISPLAY TESTIT.
   GOBACK.

Sorry for the long post, but I think one has to see all the pieces.
Please tell me am I blind in my old age or what...
Thanks in advance.

 
Scott J Ford




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Question on WTO macro - Programming requirements

[Elliot, David]

Wasn't R0 used (at one time) for the message id to link multiline WTOs together?

David Elliot
 
zSeries Software Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
McKown, John
Sent: Thursday, September 16, 2010 12:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Question on WTO macro - Programming requirements

In: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A990/88.1.2

it states: You should clear register 0. But it doesn't say why. Nor does it 
indicate whether it means the 32 bit portion or the 64 bit portion. I guess it 
doesn't really matter since GPR0 is volatile, but I am curious.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Question on WTO macro - Programming requirements

[Scott Ford]

I havent cleared R0 in my wtos and never had an issue, so mayb
John:

I havent cleared R0 in my wtos and never had an issue, so maybe its something 
new ??? new fix ? apar ?
 
Scott J Ford
 





From: Elliot, David elli...@aafes.com
To: IBM-MAIN@bama.ua.edu
Sent: Thu, September 16, 2010 1:40:30 PM
Subject: Re: Question on WTO macro - Programming requirements

Wasn't R0 used (at one time) for the message id to link multiline WTOs together?

David Elliot

zSeries Software Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
McKown, John
Sent: Thursday, September 16, 2010 12:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Question on WTO macro - Programming requirements

In: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A990/88.1.2

it states: You should clear register 0. But it doesn't say why. Nor does it 
indicate whether it means the 32 bit portion or the 64 bit portion. I guess it 
doesn't really matter since GPR0 is volatile, but I am curious.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Registers in a SLIP IF dump

[Tony Harminc]

On 16 September 2010 12:52, Brian Peterson 
brian.peterson.ibm.m...@comcast.net wrote:

 On Thu, 16 Sep 2010 12:06:02 -0400, Tony Harminc wrote:

 Aha! When I transfer the dump to another 1.10 z/OS machine, the output is
 correct. So presumably the first LPAR is misconfigured somehow, though
 it's
 a puzzle how IPCS is getting the bad register values it is displaying,
 since
 they (well, at least the R1 value) don't appear in the dump dataset
 anywhere
 but in one SCVA, and in what appears to be a dump header record in storage
 (i.e. not the dump header record itself). To be clear, for this I am
 browsing the dump dataset with ISPF browse, and doing a find x''
 on
 the bogus R1 value, and it is found exactly twice, both times in CV
 records,
 and not in an H record. It seems reasonable to me to conclude that IPCS is
 getting it from dumped storage rather than from the SLIP section of the
 dump
 header, unless the registers are stored in some obfuscated way. So it's
 hard
 to think what misconfiguration would lead to this behaviour.

 You've already probably solved this issue, but here's the details.  From
 z/OS MVS IPCS User's Guide:

 -=-=-=-=-=-=-
 1.3.2  Running Different Levels of IPCS

 The version and release level of IPCS must match the level of the system
 that produced the dump. You must use the z/OS MVS libraries of IPCS code,
 for example, to analyze a dump or trace produced by an z/OS MVS system.
 -=-=-=-=-=-=-


Thanks - I'm well aware of that. But as I said in the original post, IPCS
reports that its level matches that of the dumping system. (In fact I am
running IPCS *on* the dumping system.) Now I'm not the sysprog for this
system, and it may well be that there is some library mixup, but that fails
to address the question of where IPCS *is *getting the register values it
displays.

In a sense I don't care, since I have two workarounds, but it is nonetheless
a curious situation.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Question on WTO macro - Programming requirements

[Tony Harminc]

On 16 September 2010 13:40, Elliot, David elli...@aafes.com wrote:

 Wasn't R0 used (at one time) for the message id to link multiline WTOs 
 together?

There was a now obsolete MCSFLAG=REG0 option that set a flag in the
argument list saying to use the content of R0 for message direction
purposes. I can't imagine anyone was going to look at R0 if the flag
was not set, even when it was supported. And now, after all the
console restructuring stuff, you'll get an MNOTE if you try to
assemble such a WTO.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Cobol calling C function

[zMan]

What is the failure you're seeing?

On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com wrote:
 I have seen several 'bit and piece' posts on LE Cobol calling C
 All:

 I have seen several 'bit and piece' posts on LE Cobol calling C. I have 
 written
 a sample C call and here is the source and have included the C source and JCL 
 ,
 Cobol source and JCL, I dont understand what I have missed, I have been 
 through
 the LE Books and C-C++ books and I am confused and the execution is receiving 
 a
 S0C7 :

 JCL for 'C' compile:
 --

 //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
 // NOTIFY=SYSUID,REGION=0M
 // EXEC EDCCL,
 //   INFILE=SFORD.JCLLIB.CNTL(TESTC)',
 //   OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'

 'C'  Source:
 ---

 #include stdio.h
 #include string.h
 #pragma linkage(TS04B,COBOL)
 void TS04B( char *pBuffer )
 {
   strcpy( pBuffer, OK   );
   fprintf(stderr,ok trans\n);
 }

 LE Cobol V4r1 JCL:
 --

 //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
 // NOTIFY=SYSUID,REGION=4096K
 //*
 //COB EXEC PGM=IGYCRCTL,
 // PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
 // MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
 // REGION=1024K
 //STEPLIB   DD DISP=SHR,DSN=IGY410.SIGYCOMP
 //SYSLIB    DD DISP=SHR,DSN=CEE.ACEESRC1
 //  DD DISP=SHR,DSN=SFORD.CLINKLIB
 //SYSPRINT  DD SYSOUT=X
 //SYSUT1    DD UNIT=VIO
 //SYSUT2    DD UNIT=VIO
 //SYSUT3    DD UNIT=VIO
 //SYSUT4    DD UNIT=VIO
 //SYSUT5    DD UNIT=VIO
 //SYSUT6    DD UNIT=VIO
 //SYSUT7    DD UNIT=VIO
 //SYSLIN    DD DISP=(,PASS),DSN=LOADSET,
 // UNIT=VIO,
 // DCB=BLKSIZE=3200
 //SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
 //*
 //LNK EXEC PGM=IEWL,
 // COND=(4,LT,COB),
 // PARM='LIST,XREF',
 // REGION=4096K
 //SYSLIB    DD DISP=SHR,DSN=SFORD.CLINKLIB
 //  DD DISP=SHR,DSN=CEE.SCEELKED
 //  DD DISP=SHR,DSN=SYS1.CSSLIB
 //  DD DISP=SHR,DSN=TCPIP.SEZATCP
 //SYSLMOD   DD DISP=SHR,DSN=SFORD.CLINKLIB
 //SYSUT1    DD UNIT=SYSDA,
 // DCB=BLKSIZE=1024,
 // SPACE=(1024,(200,20))
 //SYSPRINT  DD SYSOUT=X
 //SYSLOUT   DD SYSOUT=X
 //SYSLIN    DD DISP=(OLD,DELETE),DSN=LOADSET
 //  DD DDNAME=SYSIN
 //SYSIN DD *
   MODE AMODE(31),RMODE(ANY)
   INCLUDE SYSLIB(EDCSTART)
   INCLUDE SYSLIB(CEEROOTB)
   INCLUDE SYSLIB(@@CBL2C)
   INCLUDE SYSLMOD(TS04B)
   ENTRY THRALLC
   NAME THRALLC(R)
 /*
 //

 LE Cobol Source:
 -

    IDENTIFICATION DIVISION.
    PROGRAM-ID. THRALLC.
    ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    DATA DIVISION.
    FILE SECTION.
    WORKING-STORAGE SECTION.
    01 TS04B    PIC X(8) VALUE 'TS04B'.
    01 TESTIT   PIC X(10) VALUE 'SCOTT'.
    PROCEDURE DIVISION.
    DISPLAY 'START OF TS04A'.
    CALL TS04B USING TESTIT.
    DISPLAY TESTIT.
    GOBACK.

 Sorry for the long post, but I think one has to see all the pieces.
 Please tell me am I blind in my old age or what...
 Thanks in advance.


 Scott J Ford




 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Question on WTO macro - Programming requirements

[McKown, John]

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:ibm-m...@bama.ua.edu] On Behalf Of Elliot, David
 Sent: Thursday, September 16, 2010 12:40 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Question on WTO macro - Programming requirements
 
 Wasn't R0 used (at one time) for the message id to link 
 multiline WTOs together?
 
 David Elliot
  
 zSeries Software Support

Perhaps so, I don't know. When looking at another section on WTO, it said that 
when I do a MLWTO, that For a multiple-line message, you must clear the three 
high-order bytes of register 0.  But it, again, doesn't say anything about 
whether it is talking about the 64 bit Grande register or the old-style 32 bit 
reg 0. Somebody who is totally new to z could read that quote and think that it 
was taking about bits 0..23 of the 64 bit register. Whereas I'd bet it is 
talking about bits 32..55 of the 64 bit register. Mainly because I'd bet it was 
written pre-grande registers.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Cobol calling C function

[Scott Ford]

START OF TS04A
CEE3207S The system detected a data exception (
zMan:

START OF TS04A
CEE3207S The system detected a data exception (System Completion Code=0C7).
 From compile unit THRALLC at entry point THRALLC at compile unit offset
 at address 11A00E4E.

Looks like I have something wrong in C. I am not a C heavy...So any help is 
super great !
Thanks


 
Scott J Ford
 





From: zMan zedgarhoo...@gmail.com
To: IBM-MAIN@bama.ua.edu
Sent: Thu, September 16, 2010 1:58:43 PM
Subject: Re: Cobol calling C function

What is the failure you're seeing?

On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com wrote:
 I have seen several 'bit and piece' posts on LE Cobol calling C
 All:

 I have seen several 'bit and piece' posts on LE Cobol calling C. I have 
written
 a sample C call and here is the source and have included the C source and JCL 
,
 Cobol source and JCL, I dont understand what I have missed, I have been 
through
 the LE Books and C-C++ books and I am confused and the execution is receiving 
a
 S0C7 :

 JCL for 'C' compile:
 --

 //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
 // NOTIFY=SYSUID,REGION=0M
 // EXEC EDCCL,
 //   INFILE=SFORD.JCLLIB.CNTL(TESTC)',
 //   OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'

 'C'  Source:
 ---

 #include stdio.h
 #include string.h
 #pragma linkage(TS04B,COBOL)
 void TS04B( char *pBuffer )
 {
   strcpy( pBuffer, OK   );
   fprintf(stderr,ok trans\n);
 }

 LE Cobol V4r1 JCL:
 --

 //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
 // NOTIFY=SYSUID,REGION=4096K
 //*
 //COB EXEC PGM=IGYCRCTL,
 // PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
 // MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
 // REGION=1024K
 //STEPLIB   DD DISP=SHR,DSN=IGY410.SIGYCOMP
 //SYSLIB    DD DISP=SHR,DSN=CEE.ACEESRC1
 //  DD DISP=SHR,DSN=SFORD.CLINKLIB
 //SYSPRINT  DD SYSOUT=X
 //SYSUT1    DD UNIT=VIO
 //SYSUT2    DD UNIT=VIO
 //SYSUT3    DD UNIT=VIO
 //SYSUT4    DD UNIT=VIO
 //SYSUT5    DD UNIT=VIO
 //SYSUT6    DD UNIT=VIO
 //SYSUT7    DD UNIT=VIO
 //SYSLIN    DD DISP=(,PASS),DSN=LOADSET,
 // UNIT=VIO,
 // DCB=BLKSIZE=3200
 //SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
 //*
 //LNK EXEC PGM=IEWL,
 // COND=(4,LT,COB),
 // PARM='LIST,XREF',
 // REGION=4096K
 //SYSLIB    DD DISP=SHR,DSN=SFORD.CLINKLIB
 //  DD DISP=SHR,DSN=CEE.SCEELKED
 //  DD DISP=SHR,DSN=SYS1.CSSLIB
 //  DD DISP=SHR,DSN=TCPIP.SEZATCP
 //SYSLMOD   DD DISP=SHR,DSN=SFORD.CLINKLIB
 //SYSUT1    DD UNIT=SYSDA,
 // DCB=BLKSIZE=1024,
 // SPACE=(1024,(200,20))
 //SYSPRINT  DD SYSOUT=X
 //SYSLOUT   DD SYSOUT=X
 //SYSLIN    DD DISP=(OLD,DELETE),DSN=LOADSET
 //  DD DDNAME=SYSIN
 //SYSIN DD *
   MODE AMODE(31),RMODE(ANY)
   INCLUDE SYSLIB(EDCSTART)
   INCLUDE SYSLIB(CEEROOTB)
   INCLUDE SYSLIB(@@CBL2C)
   INCLUDE SYSLMOD(TS04B)
   ENTRY THRALLC
   NAME THRALLC(R)
 /*
 //

 LE Cobol Source:
 -

    IDENTIFICATION DIVISION.
    PROGRAM-ID. THRALLC.
    ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    DATA DIVISION.
    FILE SECTION.
    WORKING-STORAGE SECTION.
    01 TS04B    PIC X(8) VALUE 'TS04B'.
    01 TESTIT   PIC X(10) VALUE 'SCOTT'.
    PROCEDURE DIVISION.
    DISPLAY 'START OF TS04A'.
    CALL TS04B USING TESTIT.
    DISPLAY TESTIT.
    GOBACK.

 Sorry for the long post, but I think one has to see all the pieces.
 Please tell me am I blind in my old age or what...
 Thanks in advance.


 Scott J Ford




 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Cobol calling C function

[Scott Ford]

 INCLUDE SYSLIB(EDCSTART)
 INCLUDE SYSLIB(CEEROOTB)
 IN
Sam:

 INCLUDE SYSLIB(EDCSTART)
 INCLUDE SYSLIB(CEEROOTB)
 INCLUDE SYSLIB(IGZEBST)
 INCLUDE SYSLIB(@@CBL2C)
 INCLUDE SYSMOD(xxx)    -  I think this should be the C module
 ENTRY TS04B     - C module
 NAME  THRALLC(R)                - name for the cobol routine

Yields a S0C1 ...

SYSTEM COMPLETION CODE=0C1  REASON CODE=0001
 TIME=15.38.39  SEQ=00058  CPU=  ASID=001A
 PSW AT TIME OF ERROR  078D   91A01718  ILC 2  INTC 01
   ACTIVE LOAD MODULE   ADDRESS=11A00A28  OFFSET=0CF0
   NAME=THRALLC
   DATA AT PSW  11A01712 - F34407FF  11A0  1A20
   GR 0: FD08   1: 6FF8
  2: 0040   3: 008D79D4
  4: 008D79B0   5: 008FF350
  6: 008C6FE0   7: FD00
  8: 91A017E0   9: 008CFCC8
  A:    B: 11A01680
  C:    D: 6F60
  E: 91A0168A   F: 11A01A20

Regards,
 
Scott J Ford
 





From: Sam Siegel s...@pscsi.net
To: IBM-MAIN@bama.ua.edu
Sent: Thu, September 16, 2010 3:33:49 PM
Subject: Re: Cobol calling C function

On Thu, Sep 16, 2010 at 12:26 PM, Scott Ford scott_j_f...@yahoo.com wrote:

 Good point, but that compiled C module is in that library but i
 Sam:

 Good point, but that compiled C module is in that library but it brings  a
 good
 point. According the the LE/C manuals the binder should look like this:

 INCLUDE SYSLIB(EDCSTART)
 INCLUDE SYSLIB(CEEROOTB)
 INCLUDE SYSLIB(IGZEBST)
 INCLUDE SYSLIB(@@CBL2C)
 INCLUDE SYSMOD(xxx)    -  I think this should be the C module
 ENTRY CBLRTN                - cobol routine
 NAME  (R)                - name for the cobol routine

 The CSECT for C was wrong in the linkage output , here is the line from the
 Binder...

 z/OS V1 R10 BINDER    12:52:13 THURSDAY SEPTEMBER 16, 2010
 BATCH EMULATOR  JOB(ADCDMETA) STEP(LKED    ) PGM= HEWL
 IEW2278I B352 INVOCATION PARAMETERS - AMODE=31,MAP

 IEW2650I 5102 MODULE ENTRY NOT PROVIDED.  ENTRY DEFAULTS TO SECTION
 $PRIV10.

 Maybe its me, but this looks wrong


That message occurs when your 'c' function does not have a 'main' in it and
no ENTRY control card is specified for the binder.

Try ENTRY TS04B in your binder and see if it goes away.

Sam


 Scott J Ford





 
 From: Sam Siegel s...@pscsi.net
 To: IBM-MAIN@bama.ua.edu
 Sent: Thu, September 16, 2010 2:38:31 PM
 Subject: Re: Cobol calling C function

 On Thu, Sep 16, 2010 at 11:27 AM, Scott Ford scott_j_f...@yahoo.com
 wrote:

  START OF TS04A
  CEE3207S The system detected a data exception (
  zMan:
 
  START OF TS04A
  CEE3207S The system detected a data exception (System Completion
 Code=0C7).
           From compile unit THRALLC at entry point THRALLC at compile unit
  offset
           at address 11A00E4E.
 
  Looks like I have something wrong in C. I am not a C heavy...So any help
 is
  super great !
  Thanks
 
  I'm not sure if this is related but you appear to be dynamically calling
 a
  function that you have statically linked.  Are you sure that you are
 picking
  up the correct version of TSO4B?
 

 Sam

 
  Scott J Ford
 
 
 
 
 
  
  From: zMan zedgarhoo...@gmail.com
  To: IBM-MAIN@bama.ua.edu
  Sent: Thu, September 16, 2010 1:58:43 PM
  Subject: Re: Cobol calling C function
 
  What is the failure you're seeing?
 
  On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com
  wrote:
   I have seen several 'bit and piece' posts on LE Cobol calling C
   All:
  
   I have seen several 'bit and piece' posts on LE Cobol calling C. I have
  written
   a sample C call and here is the source and have included the C source
 and
  JCL
  ,
   Cobol source and JCL, I dont understand what I have missed, I have been
  through
   the LE Books and C-C++ books and I am confused and the execution is
  receiving
  a
   S0C7 :
  
   JCL for 'C' compile:
   --
  
   //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
   //    NOTIFY=SYSUID,REGION=0M
   //    EXEC EDCCL,
   //  INFILE=SFORD.JCLLIB.CNTL(TESTC)',
   //  OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'
  
   'C'  Source:
   ---
  
   #include stdio.h
   #include string.h
   #pragma linkage(TS04B,COBOL)
   void TS04B( char *pBuffer )
   {
    strcpy( pBuffer, OK      );
    fprintf(stderr,ok trans\n);
   }
  
   LE Cobol V4r1 JCL:
   --
  
   //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
   //    NOTIFY=SYSUID,REGION=4096K
   //*
   //COB    EXEC PGM=IGYCRCTL,
   //            PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
   //            MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
   //            REGION=1024K
   //STEPLIB  DD DISP=SHR,DSN=IGY410.SIGYCOMP
   //SYSLIB    DD DISP=SHR,DSN=CEE.ACEESRC1
   //          DD DISP=SHR,DSN=SFORD.CLINKLIB
   //SYSPRINT  DD SYSOUT=X
   //SYSUT1    DD UNIT=VIO
 

Re: ZFS questions

[Traylor, Terry]

Some z/FS clusters can grow to be very large.  You can allocate them with a 
dataclass that allows Extended Addressability and Extent Constraint removal.


Terry Traylor 
charlesSCHWAB 
TIS Mainframe Storage Management 
Remedy Queue: tis-hs-mstg
(602) 977-5154

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
R.S.
Sent: Thursday, September 16, 2010 7:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: ZFS questions

I need to perform some changes with ZFS datatets.

Q1. Can I rename ZFS cluster, i.e. using IDCAMS ALTER? I assume the filesystem 
is unmounted during IDCAMS ALTER process.

Q2. My ZFS has extents. I want to consolidate it to avoid out-of-extents 
condition in the future. How can I do it? Can I simply allocate larger cluster 
and perform IDCAMS REPRO?
(the filesystem can be unmounted for that time)

Q3. How can I do activities like above for ROOT ZFS ? Can I temporarily unmount 
root fs?

--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sąd Rejonowy dla m. st. Warszawy 
XII Wydział Gospodarczy Krajowego Rejestru Sądowego, 
nr rejestru przedsiębiorców KRS 025237
NIP: 526-021-50-88
Według stanu na dzień 01.01.2009 r. kapitał zakładowy BRE Banku SA (w całości 
wpłacony) wynosi 118.763.528 złotych. W związku z realizacją warunkowego 
podwyższenia kapitału zakładowego, na podstawie uchwały XXI WZ z dnia 16 marca 
2008r., oraz uchwały XVI NWZ z dnia 27 października 2008r., może ulec 
podwyższeniu do kwoty 123.763.528 zł. Akcje w podwyższonym kapitale zakładowym 
BRE Banku SA będą w całości opłacone.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Cobol calling C function

[Sam Siegel]

On Thu, Sep 16, 2010 at 11:27 AM, Scott Ford scott_j_f...@yahoo.com wrote:

 START OF TS04A
 CEE3207S The system detected a data exception (
 zMan:

 START OF TS04A
 CEE3207S The system detected a data exception (System Completion Code=0C7).
  From compile unit THRALLC at entry point THRALLC at compile unit
 offset
  at address 11A00E4E.

 Looks like I have something wrong in C. I am not a C heavy...So any help is
 super great !
 Thanks

 I'm not sure if this is related but you appear to be dynamically calling a
 function that you have statically linked.  Are you sure that you are picking
 up the correct version of TSO4B?


Sam


 Scott J Ford





 
 From: zMan zedgarhoo...@gmail.com
 To: IBM-MAIN@bama.ua.edu
 Sent: Thu, September 16, 2010 1:58:43 PM
 Subject: Re: Cobol calling C function

 What is the failure you're seeing?

 On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com
 wrote:
  I have seen several 'bit and piece' posts on LE Cobol calling C
  All:
 
  I have seen several 'bit and piece' posts on LE Cobol calling C. I have
 written
  a sample C call and here is the source and have included the C source and
 JCL
 ,
  Cobol source and JCL, I dont understand what I have missed, I have been
 through
  the LE Books and C-C++ books and I am confused and the execution is
 receiving
 a
  S0C7 :
 
  JCL for 'C' compile:
  --
 
  //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
  // NOTIFY=SYSUID,REGION=0M
  // EXEC EDCCL,
  //   INFILE=SFORD.JCLLIB.CNTL(TESTC)',
  //   OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'
 
  'C'  Source:
  ---
 
  #include stdio.h
  #include string.h
  #pragma linkage(TS04B,COBOL)
  void TS04B( char *pBuffer )
  {
strcpy( pBuffer, OK   );
fprintf(stderr,ok trans\n);
  }
 
  LE Cobol V4r1 JCL:
  --
 
  //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
  // NOTIFY=SYSUID,REGION=4096K
  //*
  //COB EXEC PGM=IGYCRCTL,
  // PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
  // MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
  // REGION=1024K
  //STEPLIB   DD DISP=SHR,DSN=IGY410.SIGYCOMP
  //SYSLIBDD DISP=SHR,DSN=CEE.ACEESRC1
  //  DD DISP=SHR,DSN=SFORD.CLINKLIB
  //SYSPRINT  DD SYSOUT=X
  //SYSUT1DD UNIT=VIO
  //SYSUT2DD UNIT=VIO
  //SYSUT3DD UNIT=VIO
  //SYSUT4DD UNIT=VIO
  //SYSUT5DD UNIT=VIO
  //SYSUT6DD UNIT=VIO
  //SYSUT7DD UNIT=VIO
  //SYSLINDD DISP=(,PASS),DSN=LOADSET,
  // UNIT=VIO,
  // DCB=BLKSIZE=3200
  //SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
  //*
  //LNK EXEC PGM=IEWL,
  // COND=(4,LT,COB),
  // PARM='LIST,XREF',
  // REGION=4096K
  //SYSLIBDD DISP=SHR,DSN=SFORD.CLINKLIB
  //  DD DISP=SHR,DSN=CEE.SCEELKED
  //  DD DISP=SHR,DSN=SYS1.CSSLIB
  //  DD DISP=SHR,DSN=TCPIP.SEZATCP
  //SYSLMOD   DD DISP=SHR,DSN=SFORD.CLINKLIB
  //SYSUT1DD UNIT=SYSDA,
  // DCB=BLKSIZE=1024,
  // SPACE=(1024,(200,20))
  //SYSPRINT  DD SYSOUT=X
  //SYSLOUT   DD SYSOUT=X
  //SYSLINDD DISP=(OLD,DELETE),DSN=LOADSET
  //  DD DDNAME=SYSIN
  //SYSIN DD *
MODE AMODE(31),RMODE(ANY)
INCLUDE SYSLIB(EDCSTART)
INCLUDE SYSLIB(CEEROOTB)
INCLUDE SYSLIB(@@CBL2C)
INCLUDE SYSLMOD(TS04B)
ENTRY THRALLC
NAME THRALLC(R)
  /*
  //
 
  LE Cobol Source:
  -
 
 IDENTIFICATION DIVISION.
 PROGRAM-ID. THRALLC.
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 DATA DIVISION.
 FILE SECTION.
 WORKING-STORAGE SECTION.
 01 TS04BPIC X(8) VALUE 'TS04B'.
 01 TESTIT   PIC X(10) VALUE 'SCOTT'.
 PROCEDURE DIVISION.
 DISPLAY 'START OF TS04A'.
 CALL TS04B USING TESTIT.
 DISPLAY TESTIT.
 GOBACK.
 
  Sorry for the long post, but I think one has to see all the pieces.
  Please tell me am I blind in my old age or what...
  Thanks in advance.
 
 
  Scott J Ford
 
 
 
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
  Search the archives at http://bama.ua.edu/archives/ibm-main.html
 



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

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html





 --
 For 

Re: Cobol calling C function

[Sam Siegel]

On Thu, Sep 16, 2010 at 12:26 PM, Scott Ford scott_j_f...@yahoo.com wrote:

 Good point, but that compiled C module is in that library but i
 Sam:

 Good point, but that compiled C module is in that library but it brings  a
 good
 point. According the the LE/C manuals the binder should look like this:

 INCLUDE SYSLIB(EDCSTART)
 INCLUDE SYSLIB(CEEROOTB)
 INCLUDE SYSLIB(IGZEBST)
 INCLUDE SYSLIB(@@CBL2C)
 INCLUDE SYSMOD(xxx)-  I think this should be the C module
 ENTRY CBLRTN - cobol routine
 NAME  (R)- name for the cobol routine

 The CSECT for C was wrong in the linkage output , here is the line from the
 Binder...

 z/OS V1 R10 BINDER 12:52:13 THURSDAY SEPTEMBER 16, 2010
 BATCH EMULATOR  JOB(ADCDMETA) STEP(LKED) PGM= HEWL
 IEW2278I B352 INVOCATION PARAMETERS - AMODE=31,MAP

 IEW2650I 5102 MODULE ENTRY NOT PROVIDED.  ENTRY DEFAULTS TO SECTION
 $PRIV10.

 Maybe its me, but this looks wrong


That message occurs when your 'c' function does not have a 'main' in it and
no ENTRY control card is specified for the binder.

Try ENTRY TS04B in your binder and see if it goes away.

Sam


 Scott J Ford





 
 From: Sam Siegel s...@pscsi.net
 To: IBM-MAIN@bama.ua.edu
 Sent: Thu, September 16, 2010 2:38:31 PM
 Subject: Re: Cobol calling C function

 On Thu, Sep 16, 2010 at 11:27 AM, Scott Ford scott_j_f...@yahoo.com
 wrote:

  START OF TS04A
  CEE3207S The system detected a data exception (
  zMan:
 
  START OF TS04A
  CEE3207S The system detected a data exception (System Completion
 Code=0C7).
   From compile unit THRALLC at entry point THRALLC at compile unit
  offset
   at address 11A00E4E.
 
  Looks like I have something wrong in C. I am not a C heavy...So any help
 is
  super great !
  Thanks
 
  I'm not sure if this is related but you appear to be dynamically calling
 a
  function that you have statically linked.  Are you sure that you are
 picking
  up the correct version of TSO4B?
 

 Sam

 
  Scott J Ford
 
 
 
 
 
  
  From: zMan zedgarhoo...@gmail.com
  To: IBM-MAIN@bama.ua.edu
  Sent: Thu, September 16, 2010 1:58:43 PM
  Subject: Re: Cobol calling C function
 
  What is the failure you're seeing?
 
  On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com
  wrote:
   I have seen several 'bit and piece' posts on LE Cobol calling C
   All:
  
   I have seen several 'bit and piece' posts on LE Cobol calling C. I have
  written
   a sample C call and here is the source and have included the C source
 and
  JCL
  ,
   Cobol source and JCL, I dont understand what I have missed, I have been
  through
   the LE Books and C-C++ books and I am confused and the execution is
  receiving
  a
   S0C7 :
  
   JCL for 'C' compile:
   --
  
   //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
   //NOTIFY=SYSUID,REGION=0M
   //EXEC EDCCL,
   //  INFILE=SFORD.JCLLIB.CNTL(TESTC)',
   //  OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'
  
   'C'  Source:
   ---
  
   #include stdio.h
   #include string.h
   #pragma linkage(TS04B,COBOL)
   void TS04B( char *pBuffer )
   {
strcpy( pBuffer, OK  );
fprintf(stderr,ok trans\n);
   }
  
   LE Cobol V4r1 JCL:
   --
  
   //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
   //NOTIFY=SYSUID,REGION=4096K
   //*
   //COBEXEC PGM=IGYCRCTL,
   //PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
   //MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
   //REGION=1024K
   //STEPLIB  DD DISP=SHR,DSN=IGY410.SIGYCOMP
   //SYSLIBDD DISP=SHR,DSN=CEE.ACEESRC1
   //  DD DISP=SHR,DSN=SFORD.CLINKLIB
   //SYSPRINT  DD SYSOUT=X
   //SYSUT1DD UNIT=VIO
   //SYSUT2DD UNIT=VIO
   //SYSUT3DD UNIT=VIO
   //SYSUT4DD UNIT=VIO
   //SYSUT5DD UNIT=VIO
   //SYSUT6DD UNIT=VIO
   //SYSUT7DD UNIT=VIO
   //SYSLINDD DISP=(,PASS),DSN=LOADSET,
   //UNIT=VIO,
   //DCB=BLKSIZE=3200
   //SYSINDD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
   //*
   //LNKEXEC PGM=IEWL,
   //COND=(4,LT,COB),
   //PARM='LIST,XREF',
   //REGION=4096K
   //SYSLIBDD DISP=SHR,DSN=SFORD.CLINKLIB
   //  DD DISP=SHR,DSN=CEE.SCEELKED
   //  DD DISP=SHR,DSN=SYS1.CSSLIB
   //  DD DISP=SHR,DSN=TCPIP.SEZATCP
   //SYSLMOD  DD DISP=SHR,DSN=SFORD.CLINKLIB
   //SYSUT1DD UNIT=SYSDA,
   //DCB=BLKSIZE=1024,
   //SPACE=(1024,(200,20))
   //SYSPRINT  DD SYSOUT=X
   //SYSLOUT  DD SYSOUT=X
   //SYSLINDD DISP=(OLD,DELETE),DSN=LOADSET
   //  DD DDNAME=SYSIN
   //SYSINDD *
MODE AMODE(31),RMODE(ANY)
INCLUDE SYSLIB(EDCSTART)
INCLUDE SYSLIB(CEEROOTB)
INCLUDE SYSLIB(@@CBL2C)
INCLUDE SYSLMOD(TS04B)
ENTRY THRALLC

Re: Cobol calling C function

[Scott Ford]

Good point, but that compiled C module is in that library but i
Sam:

Good point, but that compiled C module is in that library but it brings  a good 
point. According the the LE/C manuals the binder should look like this:

INCLUDE SYSLIB(EDCSTART)
INCLUDE SYSLIB(CEEROOTB)
INCLUDE SYSLIB(IGZEBST)
INCLUDE SYSLIB(@@CBL2C)
INCLUDE SYSMOD(xxx)    -  I think this should be the C module
ENTRY CBLRTN - cobol routine
NAME  (R)    - name for the cobol routine

The CSECT for C was wrong in the linkage output , here is the line from the 
Binder...

z/OS V1 R10 BINDER 12:52:13 THURSDAY SEPTEMBER 16, 2010
BATCH EMULATOR  JOB(ADCDMETA) STEP(LKED    ) PGM= HEWL
IEW2278I B352 INVOCATION PARAMETERS - AMODE=31,MAP
 
IEW2650I 5102 MODULE ENTRY NOT PROVIDED.  ENTRY DEFAULTS TO SECTION $PRIV10.

Maybe its me, but this looks wrong


Scott J Ford
 





From: Sam Siegel s...@pscsi.net
To: IBM-MAIN@bama.ua.edu
Sent: Thu, September 16, 2010 2:38:31 PM
Subject: Re: Cobol calling C function

On Thu, Sep 16, 2010 at 11:27 AM, Scott Ford scott_j_f...@yahoo.com wrote:

 START OF TS04A
 CEE3207S The system detected a data exception (
 zMan:

 START OF TS04A
 CEE3207S The system detected a data exception (System Completion Code=0C7).
          From compile unit THRALLC at entry point THRALLC at compile unit
 offset
          at address 11A00E4E.

 Looks like I have something wrong in C. I am not a C heavy...So any help is
 super great !
 Thanks

 I'm not sure if this is related but you appear to be dynamically calling a
 function that you have statically linked.  Are you sure that you are picking
 up the correct version of TSO4B?


Sam


 Scott J Ford





 
 From: zMan zedgarhoo...@gmail.com
 To: IBM-MAIN@bama.ua.edu
 Sent: Thu, September 16, 2010 1:58:43 PM
 Subject: Re: Cobol calling C function

 What is the failure you're seeing?

 On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com
 wrote:
  I have seen several 'bit and piece' posts on LE Cobol calling C
  All:
 
  I have seen several 'bit and piece' posts on LE Cobol calling C. I have
 written
  a sample C call and here is the source and have included the C source and
 JCL
 ,
  Cobol source and JCL, I dont understand what I have missed, I have been
 through
  the LE Books and C-C++ books and I am confused and the execution is
 receiving
 a
  S0C7 :
 
  JCL for 'C' compile:
  --
 
  //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
  //    NOTIFY=SYSUID,REGION=0M
  //    EXEC EDCCL,
  //  INFILE=SFORD.JCLLIB.CNTL(TESTC)',
  //  OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'
 
  'C'  Source:
  ---
 
  #include stdio.h
  #include string.h
  #pragma linkage(TS04B,COBOL)
  void TS04B( char *pBuffer )
  {
   strcpy( pBuffer, OK      );
   fprintf(stderr,ok trans\n);
  }
 
  LE Cobol V4r1 JCL:
  --
 
  //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
  //    NOTIFY=SYSUID,REGION=4096K
  //*
  //COB    EXEC PGM=IGYCRCTL,
  //            PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
  //            MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
  //            REGION=1024K
  //STEPLIB  DD DISP=SHR,DSN=IGY410.SIGYCOMP
  //SYSLIB    DD DISP=SHR,DSN=CEE.ACEESRC1
  //          DD DISP=SHR,DSN=SFORD.CLINKLIB
  //SYSPRINT  DD SYSOUT=X
  //SYSUT1    DD UNIT=VIO
  //SYSUT2    DD UNIT=VIO
  //SYSUT3    DD UNIT=VIO
  //SYSUT4    DD UNIT=VIO
  //SYSUT5    DD UNIT=VIO
  //SYSUT6    DD UNIT=VIO
  //SYSUT7    DD UNIT=VIO
  //SYSLIN    DD DISP=(,PASS),DSN=LOADSET,
  //            UNIT=VIO,
  //            DCB=BLKSIZE=3200
  //SYSIN    DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
  //*
  //LNK    EXEC PGM=IEWL,
  //            COND=(4,LT,COB),
  //            PARM='LIST,XREF',
  //            REGION=4096K
  //SYSLIB    DD DISP=SHR,DSN=SFORD.CLINKLIB
  //          DD DISP=SHR,DSN=CEE.SCEELKED
  //          DD DISP=SHR,DSN=SYS1.CSSLIB
  //          DD DISP=SHR,DSN=TCPIP.SEZATCP
  //SYSLMOD  DD DISP=SHR,DSN=SFORD.CLINKLIB
  //SYSUT1    DD UNIT=SYSDA,
  //            DCB=BLKSIZE=1024,
  //            SPACE=(1024,(200,20))
  //SYSPRINT  DD SYSOUT=X
  //SYSLOUT  DD SYSOUT=X
  //SYSLIN    DD DISP=(OLD,DELETE),DSN=LOADSET
  //          DD DDNAME=SYSIN
  //SYSIN    DD *
   MODE AMODE(31),RMODE(ANY)
   INCLUDE SYSLIB(EDCSTART)
   INCLUDE SYSLIB(CEEROOTB)
   INCLUDE SYSLIB(@@CBL2C)
   INCLUDE SYSLMOD(TS04B)
   ENTRY THRALLC
   NAME THRALLC(R)
  /*
  //
 
  LE Cobol Source:
  -
 
         IDENTIFICATION DIVISION.
         PROGRAM-ID. THRALLC.
         ENVIRONMENT DIVISION.
         INPUT-OUTPUT SECTION.
         FILE-CONTROL.
         DATA DIVISION.
         FILE SECTION.
         WORKING-STORAGE SECTION.
         01 TS04B        PIC X(8) VALUE 'TS04B'.
         01 TESTIT      PIC X(10) VALUE 'SCOTT'.
         

Re: Cobol calling C function

[Sam Siegel]

On Thu, Sep 16, 2010 at 12:43 PM, Scott Ford scott_j_f...@yahoo.com wrote:

  INCLUDE SYSLIB(EDCSTART)
  INCLUDE SYSLIB(CEEROOTB)
  IN
 Sam:

  INCLUDE SYSLIB(EDCSTART)
  INCLUDE SYSLIB(CEEROOTB)
  INCLUDE SYSLIB(IGZEBST)
  INCLUDE SYSLIB(@@CBL2C)
  INCLUDE SYSMOD(xxx)-  I think this should be the C module
  ENTRY TS04B - C module
  NAME  THRALLC(R)- name for the cobol routine


Hi Scott,
My error, I should have been more clear.  Use the entry TS04B when you
compile/bind TS04B.

Do not use it for your cobol program.  sorry about that.

Sam


 Yields a S0C1 ...

 SYSTEM COMPLETION CODE=0C1  REASON CODE=0001
  TIME=15.38.39  SEQ=00058  CPU=  ASID=001A
  PSW AT TIME OF ERROR  078D   91A01718  ILC 2  INTC 01
ACTIVE LOAD MODULE   ADDRESS=11A00A28  OFFSET=0CF0
NAME=THRALLC
DATA AT PSW  11A01712 - F34407FF  11A0  1A20
GR 0: FD08   1: 6FF8
   2: 0040   3: 008D79D4
   4: 008D79B0   5: 008FF350
   6: 008C6FE0   7: FD00
   8: 91A017E0   9: 008CFCC8
   A:    B: 11A01680
   C:    D: 6F60
   E: 91A0168A   F: 11A01A20

 Regards,

 Scott J Ford





 
 From: Sam Siegel s...@pscsi.net
 To: IBM-MAIN@bama.ua.edu
 Sent: Thu, September 16, 2010 3:33:49 PM
 Subject: Re: Cobol calling C function

 On Thu, Sep 16, 2010 at 12:26 PM, Scott Ford scott_j_f...@yahoo.com
 wrote:

  Good point, but that compiled C module is in that library but i
  Sam:
 
  Good point, but that compiled C module is in that library but it brings
 a
  good
  point. According the the LE/C manuals the binder should look like this:
 
  INCLUDE SYSLIB(EDCSTART)
  INCLUDE SYSLIB(CEEROOTB)
  INCLUDE SYSLIB(IGZEBST)
  INCLUDE SYSLIB(@@CBL2C)
  INCLUDE SYSMOD(xxx)-  I think this should be the C module
  ENTRY CBLRTN- cobol routine
  NAME  (R)- name for the cobol routine
 
  The CSECT for C was wrong in the linkage output , here is the line from
 the
  Binder...
 
  z/OS V1 R10 BINDER12:52:13 THURSDAY SEPTEMBER 16, 2010
  BATCH EMULATOR  JOB(ADCDMETA) STEP(LKED) PGM= HEWL
  IEW2278I B352 INVOCATION PARAMETERS - AMODE=31,MAP
 
  IEW2650I 5102 MODULE ENTRY NOT PROVIDED.  ENTRY DEFAULTS TO SECTION
  $PRIV10.
 
  Maybe its me, but this looks wrong
 
 
 That message occurs when your 'c' function does not have a 'main' in it and
 no ENTRY control card is specified for the binder.

 Try ENTRY TS04B in your binder and see if it goes away.

 Sam


  Scott J Ford
 
 
 
 
 
  
  From: Sam Siegel s...@pscsi.net
  To: IBM-MAIN@bama.ua.edu
  Sent: Thu, September 16, 2010 2:38:31 PM
  Subject: Re: Cobol calling C function
 
  On Thu, Sep 16, 2010 at 11:27 AM, Scott Ford scott_j_f...@yahoo.com
  wrote:
 
   START OF TS04A
   CEE3207S The system detected a data exception (
   zMan:
  
   START OF TS04A
   CEE3207S The system detected a data exception (System Completion
  Code=0C7).
From compile unit THRALLC at entry point THRALLC at compile
 unit
   offset
at address 11A00E4E.
  
   Looks like I have something wrong in C. I am not a C heavy...So any
 help
  is
   super great !
   Thanks
  
   I'm not sure if this is related but you appear to be dynamically
 calling
  a
   function that you have statically linked.  Are you sure that you are
  picking
   up the correct version of TSO4B?
  
 
  Sam
 
  
   Scott J Ford
  
  
  
  
  
   
   From: zMan zedgarhoo...@gmail.com
   To: IBM-MAIN@bama.ua.edu
   Sent: Thu, September 16, 2010 1:58:43 PM
   Subject: Re: Cobol calling C function
  
   What is the failure you're seeing?
  
   On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford scott_j_f...@yahoo.com
   wrote:
I have seen several 'bit and piece' posts on LE Cobol calling C
All:
   
I have seen several 'bit and piece' posts on LE Cobol calling C. I
 have
   written
a sample C call and here is the source and have included the C source
  and
   JCL
   ,
Cobol source and JCL, I dont understand what I have missed, I have
 been
   through
the LE Books and C-C++ books and I am confused and the execution is
   receiving
   a
S0C7 :
   
JCL for 'C' compile:
--
   
//ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
//NOTIFY=SYSUID,REGION=0M
//EXEC EDCCL,
//  INFILE=SFORD.JCLLIB.CNTL(TESTC)',
//  OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'
   
'C'  Source:
---
   
#include stdio.h
#include string.h
#pragma linkage(TS04B,COBOL)
void TS04B( char *pBuffer )
{
 strcpy( pBuffer, OK  );
 fprintf(stderr,ok trans\n);
}
   
LE Cobol V4r1 JCL:
--
   
//ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
//NOTIFY=SYSUID,REGION=4096K

Re: symbolic date parameter

[Ted MacNEIL]

You'll have to migrate to VSE to get this feature.

Or have a front end to parse the data before submission.

-
I'm a SuperHero with neither powers, nor motivation!
Kimota!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Frank Swarbrick]

You'll have to migrate to VSE to get this feature.

:-)

On 9/16/2010 at 2:47 PM, in message
d075e858419f4f45ab32ccfc321a616202b3edfad...@fbnex.furniturebrands.com,
Harris, Randy rhar...@furniturebrands.com wrote:
 Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
 I would like to be able append the system date to the dataset in the put 
 statement.
 Is there a symbolic parameter for date that will allow me to do this?
 
 //FTPTEST  JOB  (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
 //STEP01   EXEC PGM=FTP
 //SYSFTPD  DD  DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP,KEEP)
 //SYSTCPD  DD  DSN=parmlib(TCPDATA),DISP=(SHR,KEEP,KEEP)
 //SYSMDUMP DD  SYSOUT=*
 //SYSPRINT DD  SYSOUT=*
 //OUTPUT   DD  SYSOUT=*
 //INPUTDD  *
 xxx.xxx.xxx.xxx
 userid password
 PUT 'randys.test.ftp.dataset' ''randys.test.ftp.dataset.Dyymmdd' 
 QUIT
 /*
 
 Thanks,
 
 Randy Harris
 Lane Furniture Industries, Inc.
 Tupelo, MS 38802
 Phone: 662-566-3447
 rhar...@furniturebrands.commailto:rhar...@furniturebrands.com
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html

 

The information contained in this electronic communication and any document 
attached hereto or transmitted herewith is confidential and intended for the 
exclusive use of the individual or entity named above.  If the reader of this 
message is not the intended recipient or the employee or agent responsible for 
delivering it to the intended recipient, you are hereby notified that any 
examination, use, dissemination, distribution or copying of this communication 
or any part thereof is strictly prohibited.  If you have received this 
communication in error, please immediately notify the sender by reply e-mail 
and destroy this communication.  Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

COBOL XML Generate - Only generate tags if data exists

[George.William]

We are using Enterprise COBOL for z/OS  4.2.0

 

Is there a means to have the XML GENERATE statement generate tags only
for those data items that have data?

 

The big issue is with a table with a group level occurring 50 times and
that group has 20 elemental items below it.

If there is only one entry in the table we'd like to NOT create empty
tags for the other empty 49 occurrences.

 

I could, and can if necessary, write a special routine to weed those out
using INSPECT logic but before I go to that measure I'd like to see if
I'm missing something that might be a tad easier.  I see nothing in the
COBOL manual on it.  It just seems odd to pass all those empty tags.

 

Thanks for any insights!

 

Bill

__
CONFIDENTIALITY NOTICE: This email from the State of California is for the sole 
use of the intended recipient and may contain confidential and privileged 
information. Any unauthorized review or use, including disclosure or 
distribution, is prohibited. If you are not the intended recipient, please 
contact the sender and destroy all copies of this email.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

symbolic date parameter

[Harris, Randy]

Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
I would like to be able append the system date to the dataset in the put 
statement.
Is there a symbolic parameter for date that will allow me to do this?

//FTPTEST  JOB  (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
//STEP01   EXEC PGM=FTP
//SYSFTPD  DD  DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP,KEEP)
//SYSTCPD  DD  DSN=parmlib(TCPDATA),DISP=(SHR,KEEP,KEEP)
//SYSMDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//INPUTDD  *
xxx.xxx.xxx.xxx
userid password
PUT 'randys.test.ftp.dataset' ''randys.test.ftp.dataset.Dyymmdd'
QUIT
/*

Thanks,

Randy Harris
Lane Furniture Industries, Inc.
Tupelo, MS 38802
Phone: 662-566-3447
rhar...@furniturebrands.commailto:rhar...@furniturebrands.com



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Mike Schwab]

I wrote a small program that took the parm (after the system
substituted the variables) and wrote it as a F 80 80 file w 1 record.
Ran it once for each card then used all the files for the input file.

On Thu, Sep 16, 2010 at 4:19 PM, Frank Swarbrick
frank.swarbr...@efirstbank.com wrote:
 You'll have to migrate to VSE to get this feature.

 :-)

 On 9/16/2010 at 2:47 PM, in message
 d075e858419f4f45ab32ccfc321a616202b3edfad...@fbnex.furniturebrands.com,
 Harris, Randy rhar...@furniturebrands.com wrote:
 Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
 I would like to be able append the system date to the dataset in the put
 statement.
 Is there a symbolic parameter for date that will allow me to do this?

 //FTPTEST  JOB  (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
 //STEP01   EXEC PGM=FTP
 //SYSFTPD  DD  DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP,KEEP)
 //SYSTCPD  DD  DSN=parmlib(TCPDATA),DISP=(SHR,KEEP,KEEP)
 //SYSMDUMP DD  SYSOUT=*
 //SYSPRINT DD  SYSOUT=*
 //OUTPUT   DD  SYSOUT=*
 //INPUT    DD  *
 xxx.xxx.xxx.xxx
 userid password
 PUT 'randys.test.ftp.dataset' ''randys.test.ftp.dataset.Dyymmdd'
 QUIT
 /*

 Thanks,

 Randy Harris
 Lane Furniture Industries, Inc.
 Tupelo, MS 38802
 Phone: 662-566-3447
 rhar...@furniturebrands.commailto:rhar...@furniturebrands.com



 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html



 The information contained in this electronic communication and any document 
 attached hereto or transmitted herewith is confidential and intended for the 
 exclusive use of the individual or entity named above.  If the reader of this 
 message is not the intended recipient or the employee or agent responsible 
 for delivering it to the intended recipient, you are hereby notified that any 
 examination, use, dissemination, distribution or copying of this 
 communication or any part thereof is strictly prohibited.  If you have 
 received this communication in error, please immediately notify the sender by 
 reply e-mail and destroy this communication.  Thank you.

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Paul Gilmartin]

On Thu, 16 Sep 2010 15:47:59 -0500, Harris, Randy wrote:

Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
I would like to be able append the system date to the dataset in the put 
statement.
Is there a symbolic parameter for date that will allow me to do this?

I believe that in the newest z/OS release (1.12?) FTP will
be able to take its input from a named pipe (FIFO).  With
this, you could achieve your result by concatenating
the output of date(1) and your data set into such a pipe.

So, wait patiently.

//FTPTEST  JOB  (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
//STEP01   EXEC PGM=FTP
//SYSFTPD  DD  DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP,KEEP)
//SYSTCPD  DD  DSN=parmlib(TCPDATA),DISP=(SHR,KEEP,KEEP)
//SYSMDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//INPUTDD  *
xxx.xxx.xxx.xxx
userid password
PUT 'randys.test.ftp.dataset' ''randys.test.ftp.dataset.Dyymmdd'
QUIT

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Roberto Halais]

Why don't you use a REXX script that will generate your JCL and parms and
submit the job.
That way you will get the date from REXX functions.

On Thu, Sep 16, 2010 at 5:26 PM, Ted MacNEIL eamacn...@yahoo.ca wrote:

 You'll have to migrate to VSE to get this feature.

 Or have a front end to parse the data before submission.

 -
 I'm a SuperHero with neither powers, nor motivation!
 Kimota!

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




-- 
The philosopher has never killed any priests, whereas the priest has
killed a great many philosophers.
~ Denis Diderot

I am as you, in you, for you. One as you in all, as all, forever. My call
is your call.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Paul Gilmartin]

On Thu, 16 Sep 2010 16:43:42 -0500, Mike Schwab wrote:

I wrote a small program that took the parm (after the system
substituted the variables) and wrote it as a F 80 80 file w 1 record.
Ran it once for each card then used all the files for the input file.

But you had to type the date by hand into the PARM, failing
to satisfy the OP's requirement for a symbolic parameter.

 On 9/16/2010 at 2:47 PM, Harris, Randy wrote:

 Is there a symbolic parameter for date that will allow me to do this?

Come to think of it, nowadays FTP can take its input from
a DDNAME.  Many installations have dealt with the symbolic
date stupidity by providing a parameter member that's
updated periodically, automatically.  You could use such
a member as the first catenand.

Hmmm.  DDNAME.  Concatenation.  I know some of the deficiencies
of FTP.  I'd be pessimistic about supplying:

//FTPDATA  DD  PATH='/...'
// DD  *
// DD  DSN=...
// ...

I wonder whether that works?  I wonder whether it's
documented that it doesn't?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Cobol calling C function

[Steve Comstock]

On 9/16/2010 11:38 AM, Scott Ford wrote:

I have seen several 'bit and piece' posts on LE Cobol calling C
All:

I have seen several 'bit and piece' posts on LE Cobol calling C. I have written
a sample C call and here is the source and have included the C source and JCL ,
Cobol source and JCL, I dont understand what I have missed, I have been through
the LE Books and C-C++ books and I am confused and the execution is receiving a
S0C7 :

JCL for 'C' compile:
--

//ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
// NOTIFY=SYSUID,REGION=0M
// EXEC EDCCL,
//   INFILE=SFORD.JCLLIB.CNTL(TESTC)',
//   OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR'

'C'  Source:
---

#includestdio.h
#includestring.h
#pragma linkage(TS04B,COBOL)
void TS04B( char *pBuffer )
{
   strcpy( pBuffer, OK   );
   fprintf(stderr,ok trans\n);
}

LE Cobol V4r1 JCL:
--

//ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
// NOTIFY=SYSUID,REGION=4096K
//*
//COB EXEC PGM=IGYCRCTL,
// PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT,
// MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST),
// REGION=1024K
//STEPLIB   DD DISP=SHR,DSN=IGY410.SIGYCOMP
//SYSLIBDD DISP=SHR,DSN=CEE.ACEESRC1
//  DD DISP=SHR,DSN=SFORD.CLINKLIB
//SYSPRINT  DD SYSOUT=X
//SYSUT1DD UNIT=VIO
//SYSUT2DD UNIT=VIO
//SYSUT3DD UNIT=VIO
//SYSUT4DD UNIT=VIO
//SYSUT5DD UNIT=VIO
//SYSUT6DD UNIT=VIO
//SYSUT7DD UNIT=VIO
//SYSLINDD DISP=(,PASS),DSN=LOADSET,
// UNIT=VIO,
// DCB=BLKSIZE=3200
//SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC)
//*
//LNK EXEC PGM=IEWL,
// COND=(4,LT,COB),
// PARM='LIST,XREF',
// REGION=4096K
//SYSLIBDD DISP=SHR,DSN=SFORD.CLINKLIB
//  DD DISP=SHR,DSN=CEE.SCEELKED
//  DD DISP=SHR,DSN=SYS1.CSSLIB
//  DD DISP=SHR,DSN=TCPIP.SEZATCP
//SYSLMOD   DD DISP=SHR,DSN=SFORD.CLINKLIB
//SYSUT1DD UNIT=SYSDA,
// DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT  DD SYSOUT=X
//SYSLOUT   DD SYSOUT=X
//SYSLINDD DISP=(OLD,DELETE),DSN=LOADSET
//  DD DDNAME=SYSIN
//SYSIN DD *
   MODE AMODE(31),RMODE(ANY)
   INCLUDE SYSLIB(EDCSTART)
   INCLUDE SYSLIB(CEEROOTB)
   INCLUDE SYSLIB(@@CBL2C)
   INCLUDE SYSLMOD(TS04B)
   ENTRY THRALLC
   NAME THRALLC(R)
/*
//

LE Cobol Source:
-

IDENTIFICATION DIVISION.
PROGRAM-ID. THRALLC.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 TS04BPIC X(8) VALUE 'TS04B'.
01 TESTIT   PIC X(10) VALUE 'SCOTT'.
PROCEDURE DIVISION.
DISPLAY 'START OF TS04A'.
CALL TS04B USING TESTIT.
DISPLAY TESTIT.
GOBACK.

Sorry for the long post, but I think one has to see all the pieces.
Please tell me am I blind in my old age or what...
Thanks in advance.


Scott J Ford



I think there's a bunch of issues here, so I'll try and address
them all.

1. It seems to me you unnecessarily complicate things by
   calling your C source member TESTC and then binding it
   under the name TSO4B; why do that? life is simpler if
   you can use source member names the same as load module
   names; so I reverted to that

2. You don't really need the #pragma linkage(TS04B,COBOL)
   or, in my case, #pragma linkage(TESTC,COBOL) statement;
   (we'll see the tradeoffs shortly)

3. When you pass an array (in this case, a character string)
   to a C subroutine, C expects to be passed a pointer to
   the string; C also does not handle the end-of-list bit
   flag that COBOL generates; there are three ways (at least)
   to handle this:

   * code the #pragma linkage(TESTC,COBOL) statement
 - don't like to limit a subroutine to a single
   programming language

   * in your calling program, pass an extra parm, so that
 the first parm is the true string you want to pass
 and the second parm is just a place for COBOL to
 set on the end-of-list flag, which C will not even
 notice, since it is only expecting one parameter
 - a simple example, that works, is to name the
   parameter twice, such as:

  call testc using testit, testit
   (this works)

   * in your calling program, set up pointer to your
 last (and only, in this case) argument, and pass
 the pointer BY VALUE; for example:

   IDENTIFICATION DIVISION.
   PROGRAM-ID. THRALLC.
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 TS04BPIC X(8) VALUE 'TESTC'.
   01 TESTIT   PIC X(10) VALUE 'SCOTT'.
   01 TESTIT-PTR   POINTER.
   PROCEDURE DIVISION.
   DISPLAY 'START OF THRALL.'
   SET TESTIT-PTR TO ADDRESS OF TESTIT
  

Re: symbolic date parameter

[Wayne Bickerdike]

I came up against this and now build the whole ftp job using a batch
initiated REXX program.

We ftp backup files to a remote server and I needed a generation of 3
weeks worth of files.

Our ftp datasets now look like this:

PACK#10.D10210.T10801 etc...

I use another REXX program to build a series of FTP DELETE statements
to remove files older than 3 weeks old.

Clunky but it works OK.

If the OP wants a sample, email me off list.



On Fri, Sep 17, 2010 at 8:11 AM, Paul Gilmartin paulgboul...@aim.com wrote:
 On Thu, 16 Sep 2010 16:43:42 -0500, Mike Schwab wrote:

I wrote a small program that took the parm (after the system
substituted the variables) and wrote it as a F 80 80 file w 1 record.
Ran it once for each card then used all the files for the input file.

 But you had to type the date by hand into the PARM, failing
 to satisfy the OP's requirement for a symbolic parameter.

 On 9/16/2010 at 2:47 PM, Harris, Randy wrote:

 Is there a symbolic parameter for date that will allow me to do this?

 Come to think of it, nowadays FTP can take its input from
 a DDNAME.  Many installations have dealt with the symbolic
 date stupidity by providing a parameter member that's
 updated periodically, automatically.  You could use such
 a member as the first catenand.

 Hmmm.  DDNAME.  Concatenation.  I know some of the deficiencies
 of FTP.  I'd be pessimistic about supplying:

    //FTPDATA  DD  PATH='/...'
    //         DD  *
    //         DD  DSN=...
    // ...

 I wonder whether that works?  I wonder whether it's
 documented that it doesn't?

 -- gil

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




-- 
Wayne V. Bickerdike

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL XML Generate - Only generate tags if data exists

[George.William]

Thanks Craig that did in fact remove the unwanted table entries!

Bill

-Original Message-
From: Craig Schneiderwent [mailto:cschneid.lists...@gmail.com] 
Sent: Thursday, September 16, 2010 2:47 PM
To: IBM Mainframe Discussion List; George.William
Subject: Re: COBOL XML Generate - Only generate tags if data exists

You can use COBOL's Occurs Depending On phrase.  See SHARE
presentation at
http://ew.share.org/proceedingmod/abstract.cfm?abstract_id=21057 for
some examples and pitfalls.

On Thu, Sep 16, 2010 at 4:08 PM, George.William
william.geo...@ftb.ca.gov wrote:
 We are using Enterprise COBOL for z/OS  4.2.0



 Is there a means to have the XML GENERATE statement generate tags only
 for those data items that have data?
 [...]

__
CONFIDENTIALITY NOTICE: This email from the State of California is for the sole 
use of the intended recipient and may contain confidential and privileged 
information. Any unauthorized review or use, including disclosure or 
distribution, is prohibited. If you are not the intended recipient, please 
contact the sender and destroy all copies of this email.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL XML Generate - Only generate tags if data exists

[Steve Comstock]

On 9/16/2010 3:08 PM, George.William wrote:

We are using Enterprise COBOL for z/OS  4.2.0



Is there a means to have the XML GENERATE statement generate tags only
for those data items that have data?



The big issue is with a table with a group level occurring 50 times and
that group has 20 elemental items below it.

If there is only one entry in the table we'd like to NOT create empty
tags for the other empty 49 occurrences.



I could, and can if necessary, write a special routine to weed those out
using INSPECT logic but before I go to that measure I'd like to see if
I'm missing something that might be a tad easier.  I see nothing in the
COBOL manual on it.  It just seems odd to pass all those empty tags.



Thanks for any insights!



Bill



How would the generate statement know there were
empty occurrences? Each still has its initial
value, at least, and how can the compiler tell
if you want to include those or not?

Nothing built in, I'm afraid.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL XML Generate - Only generate tags if data exists

[George.William]

Craig pointed me to a SHARE presentation he did that uses the OCCURS
DEPENDING ON clause to accomplish the no generation of empty
occurrences.

The elemental items remain a mystery still outside of my code a routine
to remove them.


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Steve Comstock
Sent: Thursday, September 16, 2010 3:45 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: COBOL XML Generate - Only generate tags if data exists

On 9/16/2010 3:08 PM, George.William wrote:
 We are using Enterprise COBOL for z/OS  4.2.0



 Is there a means to have the XML GENERATE statement generate tags only
 for those data items that have data?



 The big issue is with a table with a group level occurring 50 times
and
 that group has 20 elemental items below it.

 If there is only one entry in the table we'd like to NOT create empty
 tags for the other empty 49 occurrences.



 I could, and can if necessary, write a special routine to weed those
out
 using INSPECT logic but before I go to that measure I'd like to see if
 I'm missing something that might be a tad easier.  I see nothing in
the
 COBOL manual on it.  It just seems odd to pass all those empty
tags.



 Thanks for any insights!



 Bill


How would the generate statement know there were
empty occurrences? Each still has its initial
value, at least, and how can the compiler tell
if you want to include those or not?

Nothing built in, I'm afraid.


-- 

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

__
CONFIDENTIALITY NOTICE: This email from the State of California is for the sole 
use of the intended recipient and may contain confidential and privileged 
information. Any unauthorized review or use, including disclosure or 
distribution, is prohibited. If you are not the intended recipient, please 
contact the sender and destroy all copies of this email.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[John McKown]

On Thu, 2010-09-16 at 16:35 -0500, Paul Gilmartin wrote:
 On Thu, 16 Sep 2010 15:47:59 -0500, Harris, Randy wrote:
 
 Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
 I would like to be able append the system date to the dataset in the put 
 statement.
 Is there a symbolic parameter for date that will allow me to do this?
 
 I believe that in the newest z/OS release (1.12?) FTP will
 be able to take its input from a named pipe (FIFO).  With
 this, you could achieve your result by concatenating
 the output of date(1) and your data set into such a pipe.
 

I think that is referring to accessing a named pipe in the PUT or GET
ftp subcommand. Not for using a pipe to send the commands to the ftp
processor.

For PGM=FTP, I cannot think of an EASY way to do this. Using Co:Z to
launch a shell session to do the FTP, it is brain dead easy.


//FTPSTEP EXEC PROC=COZPROC
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDIN DD *
YYMMDD=$(date +%C%m%d)
ftp -e server.ip.address EOF
userid password
put 'randys.test.ftp.dataset' 'randys.test.ftp.dataset.${DYYMMDD}'
EOF
/*

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Paul Gilmartin]

On Thu, 16 Sep 2010 18:12:56 -0500, John McKown wrote:
 
 I believe that in the newest z/OS release (1.12?) FTP will
 be able to take its input from a named pipe (FIFO).  With
 this, you could achieve your result by concatenating
 the output of date(1) and your data set into such a pipe.

I think that is referring to accessing a named pipe in the PUT or GET
ftp subcommand. Not for using a pipe to send the commands to the ftp
processor.

We're in intense agreement on that point.  And I just glanced
at the 1.12 Comm Svr Commands manual.  A bunch of rules about
named pipes.  But the server can create, delete, and manipulate
named pipes on behalf of the client, and the client can use
named pipes as local files for either GET or PUT.

But, as I feared, FTP misbehaves when I put from a local //DD:
which refers to a mixed concatenation (sample job below).
When the first catenand is a Unix file, all subsequent catenands
seem to be ignored.  In the case given, the imbedded instream
data set is mixed with hundreds of blank lines.  IEBGENER with
the same SYSUT1 gets it right.  A major violation of the KISS
principle.  Why can't FTP just do QSAM GETs from the supplied
DDNAME and write to the socket?  Obviously it tries something
more complicated and fails miserably.  (z/OS 1.10)

//STEP1EXEC  PGM=FTP,PARM='SERVER (EXIT'
//OUTPUTDD   SYSOUT=(,)
//NETRC DD   PATHOPTS=ORDONLY,RECFM=VB,LRECL=999,
//  FILEDATA=TEXT,
//  PATH='NETRC'
//SYSUT1DD   *
===
== Prefixed instream data
===
//  DD   PATHOPTS=ORDONLY,RECFM=FB,LRECL=80,BLKSIZE=24000,
//  FILEDATA=TEXT,
//  PATH='/etc/rc'
//  DD   *
===
== This is instream data
===
//  DD   DISP=SHR,DSN=SYS1.MACLIB(SPLEVEL)
//INPUT DD   *
put //DD:SYSUT1  foo.catftp
quit
//*
//* Compare to IEBGENER =
//STEP2EXEC PGM=IEBGENER
//SYSPRINT  DD  SYSOUT=(,)
//SYSIN DD  DUMMY
//SYSUT2DD  SYSOUT=(,)
//SYSUT1DD   *
===
== Prefixed instream data
===
//  DD   PATHOPTS=ORDONLY,RECFM=FB,LRECL=80,BLKSIZE=24000,
//  FILEDATA=TEXT,
//  PATH='/etc/rc'
//  DD   *
===
== This is instream data
===
//  DD   DISP=SHR,DSN=SYS1.MACLIB(SPLEVEL)
//

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Roland Fernandez]

Randy,

Have you considered the system symbol interpreter called EZACFSM1?  I 
checked to make sure it was available in Comm Server 1.7.  This is what your 
sample job will turn into:

//FTPTEST  JOB  (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
//STEP01   EXEC PGM=EZACFSM1
//SYSOUT   DD   DSN=T1,DISP=(,PASS),UNIT=VIO
//SYSINDD   *
xxx.xxx.xxx.xxx
userid password
PUT 'RANDYS.TEST.FTP.DATASET' randys.test.ftp.dataset.MONDAYamp;YR2
QUIT
/*
//*
//STEP02   EXEC PGM=FTP
//SYSFTPD  DD  DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP,KEEP)
//SYSTCPD  DD  DSN=parmlib(TCPDATA),DISP=(SHR,KEEP,KEEP)
//SYSMDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//INPUTDD  DSN=T1,DISP=(OLD,PASS)
/*

Regards,
Roland

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Paul Gilmartin]

On Thu, 16 Sep 2010 18:32:41 -0500, Roland Fernandez wrote:

Have you considered the system symbol interpreter called EZACFSM1?  I
checked to make sure it was available in Comm Server 1.7.

Thanks!  I didn't know about this.  I still know very little;
the only meager documentation I can find is a single example
in:

#1.2.9.1 z/OS V1R10.0 Comm Svr: IP Configuration Guide
1.2.9.1 MVS system symbols

no formal syntax description, DDNAME specification, Usage Notes,
etc.

Sarcasm Wonderful! Sarcasm
So IBM provides this utility that has all the uncertainty
that IBM claims they're protecting me from by not making
system symbols available in batch JCL for only the minor
inconvenience of wrapping my JCL in another job.  But it
is available to all potential customers.  And it substitutes
system symbols in instream data sets.  But it doesn't
substitute JCL symbols.  A test case:

//EZACFSM1  JOB  505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//* Doc: Demonstrate the use of EZACFSM1
//*
//USERCOUTPUT JESDS=ALL,DEFAULT=YES,
//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//  SET JCLSYM='Test symbol value'
//*
//SUBMIT   EXEC  PGM=EZACFSM1
//SYSOUTDD   SYSOUT=(,INTRDR)
//SYSIN DD   DATA,DLM='..'
//EZACFSMX  JOB  505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//USERCOUTPUT JESDS=ALL,DEFAULT=YES,
//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//DOIT EXEC  PGM=IEBGENER
//TEST  DD   DISP=(,DELETE),UNIT=SYSALLDA,SPACE=(CYL,1),
//  DSN=SYSUID..ECATEST.DATA.DMONDAYYR2
//SYSPRINT  DD   SYSOUT=(,)
//SYSIN DD   DUMMY
//SYSUT2DD   SYSOUT=(,)
//SYSUT1DD   *
datum is SYSUID..ECATEST.DATA.DMONDAYYR2
JCL symbol is JCLSYM
Does double ampersand (amp;) protect amp;MONamp;DAYamp;YR2  Yes!
But it doesn't protect itself amp;WTF
//

Thanks again,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Should the value of PSATOLD be different in XMEM mode

[Mike Myers]

 Micheal:

It would make sense that it is always the address of the current TCB, 
regardless of operating mode (except when in SRB mode, when PSATOLD is 
zero).


IIRC, it is used along with PSAAOLD to determine what was running on a 
CPU that dies (generating an external interrupt), so that ACR can take 
control of that unit of work and run it on a still living CPU in the LPAR.


If it were ever not pointing to the current TCB, ACR would likely fail 
to recover when the task running on the failing CPU exclusively owned 
any serialized resource, such as system lock.


Mike Myers
Mentor Services Corporation

 On 9/16/2010 9:10 AM, Micheal Butz wrote:

Hi

Would anyone know if the value of PSATOLD is different in XMEM mode

Sent from my iPhone

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: symbolic date parameter

[Kirk Wolf]

John,

I like it!, but in your example I think you meant to use PGM=COZBATCH, and
not PROC=COZPROC
Also (a nit), but you have a typo (two different names for the shell
variable).

This is a good example of how inline use of the z/OS Unix shell can be used
as an effective scripting language in the context of JCL.  It may not be of
interest to traditionalists, but more and more folks using z/OS these days
also know Unix and mixing USS with JCL can be very cool.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS Just to clarify:
COZBATCH runs a shell script in batch ( a friendlier replacement for
BPXBATCH).
COZPROC is a PROC for the Co:Z Launcher, which runs a script on a remote
system, in an environment where the remote script can access z/OS datasets
in the launching job.
Both are part of the free Co:Z Toolkit

On Thu, Sep 16, 2010 at 6:12 PM, John McKown joa...@swbell.net wrote:


 I think that is referring to accessing a named pipe in the PUT or GET
 ftp subcommand. Not for using a pipe to send the commands to the ftp
 processor.

 For PGM=FTP, I cannot think of an EASY way to do this. Using Co:Z to
 launch a shell session to do the FTP, it is brain dead easy.


 //FTPSTEP EXEC PROC=COZPROC
 //STDOUT DD SYSOUT=*
 //STDERR DD SYSOUT=*
 //STDIN DD *
 YYMMDD=$(date +%C%m%d)
 ftp -e server.ip.address EOF
 userid password
 put 'randys.test.ftp.dataset' 'randys.test.ftp.dataset.${DYYMMDD}'
 EOF
 /*

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

George McLaren is out of the office

[George McLaren]

I will be out of the office starting  16/09/2010 and will not return until
27/09/2010.

I will respond to your mail, if required ,on my return.
 If urgent please contact Richard Mackay on 53459.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html