date:20111121

There is a name for '¬' too.  See the discussion of notation in volume
1 of Principia Mathematica.

John Gilmore, Ashland, MA 01721 - USA

--
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: Simple record extraction from a sequential file

My post provoked a good many responses, and I am happy thagt it did so.

What is interesting about them is that the arguments against my view,
many of them cogent, were bureaucratic, not technical.

One reason why mainframe shops are being supplanted by less effective
and in particular less reliable technology is that they are usually
much older and thus organizationally senescent too.  They are managed
for the most part by people who either 1) never understood the
technology or, worse, 2) understood it well circa 1975.

In the upshot these shops are bureaucratic, technically inadequate,
shy of innovation, and risk-averse in general.  The technology is not
obsolete; the culture is, irretrievably so I fear.

John Gilmore, Ashland, MA 01721 - USA

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

2011-11-21 Thread Gerhard Postpischil


On 11/21/2011 4:32 PM, Rick Fochtman wrote:

-
"negation symbol", but informally called the "not sign".


The only name I heard for it, that I remember, was "inverted
circumflex". How about that for a meaningless mouthful? :-)


There is a name for an inverted circumflex, but it's not a not 
sign, but rather a caron, or hacek (with one on top of the c). 
My grandfather had one in his name.


Gerhard Postpischil
Bradford, VT

--
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: Simple record extraction from a sequential file

Ford Prefect wrote:

| John,
|
| I think you'd be hard pressed to write a program in either C or PL/I that
| would even approach the I/O performance of DFSORT.  In fact, I doubt it's
| possible.

This is the received opinion, but it is wrong.

In C it would be all but impossible.  In PL/I it would be
comparatively easy in this particular situation.  (In general, of
course, assembly language can be made to yield noty just better but
much better performance., and DFSORT I/O is superb.  It is not,
however, optimized for a situation in which much of SORTIN is
discarded.)

What can be done in statement-level procedural languages and what is
usually done in them needs to be distinguished sharply.

COBOL I/O is not notorious for performance, but on Thursday my wife
and I shall be drinking the last two of six bottles of six bottles of
Le Montrachet that I won from a colleague who judged that high
performance was impossible in COBOL.  (For historical reasons COBOL
does better record I/O than C.  Things could be otherwise if it were
judged important that they should be, but they are not.)


John Gilmore, Ashland, MA 01721 - USA

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Gerhard Postpischil


On 11/21/2011 6:13 PM, John Gilmore wrote:

I am of course familiar with production-control schemes.  Production
must be orderly, but in my experience bureaucratic controls alone do
not reduce errors: They only diffuse responsibility.


Some of us are handicapped by management uneasy with things they 
do not understand. Rigid and rigorous procedures for adoption of 
production changes are the most benign form of this; I worked as 
a contractor at a site where we failed to convince management 
that a particular approach would save them time and money. A 
manager unable to complete a work load in a batch window has 
plenty of excuses the higher-ups will understand (more work to 
process - we need a faster machine), whereas a radical change 
the manager can't explain may result in unemployment at the 
slightest hint of a problem.


Gerhard Postpischil
Bradford, VT

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Ed Gould

 Peter,

I both agree and disagree with you entry.
There Is a strong case for testing for even the most simplistic of programming 
whether it be a iebgener or sort or what ever utility you want to use. On at 
least 2 occaisons a programmer slipped into a production job stream untested 
and production went down in flames. All hell broke loose and we had two 
VP's fired and a programmer. 
It's one thing for a COBOL compile it's something else for production.

Ed

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

2011-11-21 Thread Roger Bolan

I searched IBM font codepages and found that symbol designated as "Logical
NOT/End Of Line Symbol".  I've always just called it "not sign".
--Roger

On Mon, Nov 21, 2011 at 2:32 PM, Rick Fochtman  wrote:

> --****
> ---
> I hope, since this is not about "USS", that I won't be moderated on  this.
> I wish to reply to a question John McKown raised on 18 Nov :"And  what is
> the proper word for the PL/1 "not" sign' ? (x'00AC' in  Unicode). It is a
> standard operator in formal mathematical language,  AFAIK almost
> universally used to indicate logical negation in an  expression, and
> normally called the "negation symbol", but informally  called the "not
> sign".
> --**--**
> 
> The only name I heard for it, that I remember, was "inverted circumflex".
>  How about that for a meaningless mouthful?  :-)
>
> Rick
>
> --**--**--
> 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: Simple record extraction from a sequential file

2011-11-21 Thread Farley, Peter x23353

John,

I have to disagree with you as concerns the efficiency of SORT I/O (of the main 
two SORT competitors at least) vs. statement level language I/O.  In my 
experience, the proprietary EXCP (or even lower) level algorithms used by SORT 
will almost always exceed the efficiency of even the best-written HLL 
applications program.  SORT can do things at a level just not available (or not 
easily available) to the general programming public.  I think it would not be 
inaccurate to state that channel programming is just not in the skill set of 
99.99% of programmers, and due at least to privilege requirements is not 
usually available to a programmer even if they have the skill set.

The observed performance numbers speak for themselves.  My admittedly 
unscientific observations have always seen a decrease in consumed resources *on 
the same task* for SORT vs. any HLL I have ever used, and in very large volume 
cases I generally see quite large decreases.

I also admit that for small data volumes the observed decrease in resource 
usage may not be (easily) observable.

I can certainly agree with your comment on the ultimate usefulness of 
bureaucratic controls alone as error-reduction mechanisms.

Peter

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
> Behalf Of John Gilmore
> Sent: Monday, November 21, 2011 6:14 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Simple record extraction from a sequential file
> 
> I am not at all hostile to DFSORT, which I now prefer slightly to
> SYNCHSORT.
> 
> I am, however, hostile to the notion that I/O in a statement-level
> language is always inferior to that of DFSORT.  Here both of my young
> programmers used a locate-mode READ-SET for the input records,
> examined each in its buffer, and an effectively asynchronous move-mode
> WRITE-TO a LOCATEd position in an output buffer for the selected
> records.  Their JCL included appropriate BUFNO=, etc.
> (Interestingly, something very similar could be but in fact is almost
> never done in COBOL with a reusable C or PL/I driver.)
> 
> I am of course familiar with production-control schemes.  Production
> must be orderly, but in my experience bureaucratic controls alone do
> not reduce errors: They only diffuse responsibility.
--


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

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

Re: Terminology

2011-11-21 Thread Rick Fochtman


-
I hope, since this is not about "USS", that I won't be moderated on  
this. I wish to reply to a question John McKown raised on 18 Nov :"And  
what is the proper word for the PL/1 "not" sign' ? (x'00AC' in  
Unicode). It is a standard operator in formal mathematical language,  
AFAIK almost universally used to indicate logical negation in an  
expression, and normally called the "negation symbol", but informally  
called the "not sign".


The only name I heard for it, that I remember, was "inverted 
circumflex".  How about that for a meaningless mouthful?  :-)


Rick

--
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: IKJ139I BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR

2011-11-21 Thread Jerry Whitteridge

Another vote for Sam's excellent Broadcast utilities. They should be in every 
sysprogs tool box if responsibilities include TSO

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Lizette Koehler
Sent: Monday, November 21, 2011 4:22 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: IKJ139I   BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR

> Hi all
> 
>  In the syslog,there is the following message:
> 
> IKJ139I   BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR
> 
>  My question :
> 
>  1. Do it mean sys1.broadcast is broken?
> 
>  2. How to verify sys1.broadcast DATSET?
> 
>  3. How to solve this problem?
> 
>

Jason,

What level of z/OS?
Are you using SYS1.BRODCAST or individual BRODAST datasets?  I might recommend 
you use individual BRODCAST datasets (see IKJTSOxx member in SYS1.PARMLIB).  
That way it would only impact one user rather than many.

See if you can browse the dataset.  If you can then it might not completely 
broken

Go to CBTTAPE.ORG and download the file 247 Broadcast Manager Utilities to 
manage SYS1.BRODCAST

Without any additional messages it might be that you need to clean up your 
BROADCAST dataset.

Lizette 

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

"Email Firewall" made the following annotations.
--

Warning: 
All e-mail sent to this address will be received by the corporate e-mail 
system, and is subject to archival and review by someone other than the 
recipient.  This e-mail may contain proprietary information and is intended 
only for the use of the intended recipient(s).  If the reader of this message 
is not the intended recipient(s), you are notified that you have received this 
message in error and that any review, dissemination, distribution or copying of 
this message is strictly prohibited.  If you have received this message in 
error, please notify the sender immediately.   

==

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

Re: Simple record extraction from a sequential file

2011-11-21 Thread Jonathan Goossen

Another reason to use Sort instead of a home grown program is 
maintainability. We have some home grown programs developed by two of us 
as a team. We each can support our own part, but no one else knows how to 
fix it. Yet we have many people who can change sort parameters.

Twice now I have a job go down because a software upgrade changed the 
column layout. It took a change to a column start parameter in Sort to get 
the data from the new column. The change to the Sort cards was much faster 
to push back through channels into production than a program change would 
have been. The sort cards were much fewer lines than a program would have 
been. Plus Sort is likely more efficient for our large files than I would 
do in my own program.

We use canned programs as much as posible and write our own when it looks 
like it makes sense. It all depends on the situation.

Thank you and have a Terrific day!

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



IBM Mainframe Discussion List  wrote on 11/21/2011 
04:36:49 PM:

> From: "Farley, Peter x23353" 
> To: IBM-MAIN@bama.ua.edu
> Date: 11/21/2011 04:42 PM
> Subject: Re: Simple record extraction from a sequential file
> Sent by: IBM Mainframe Discussion List 
> 
> John,
> 
> I am not the OP, but I can imagine one very good reason -- 
> Production control procedures.
> 
> If the file that the OP is trying to extract is a production file 
> and the resulting file also has to feed another production program, 
> then a new program has to pass through all of the system development
> lifecycle processes, which can be quite bureaucratic in a large 
organization.
> 
> However, sort control cards for a production JCL sort job *may* 
> (depending on the organization) more easily and quickly pass through
> such procedures, sometimes with much less process and paperwork.
> 
> Besides that, sort is EVER so much more efficient at doing I/O 
> (especially to or from non-VSAM files) than any user-written HLL 
> program.  Sort is often my first choice on that basis alone 
> (assuming the selection and/or processing logic can be accommodated 
> with existing sort control verbs).
> 
> Just a couple of thoughts for your consideration.
> 
> Peter


This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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

Re: Simple record extraction from a sequential file

I have now read Donald Russell's riposte, and I find it persuasive in
the business context he describes.

A discussion of the radical deficiencies of this context would be
inappropriate here.

John Gilmore, Ashland, MA 01721 - USA

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Ford Prefect

John,

I think you'd be hard pressed to write a program in either C or PL/I that
would even approach the I/O performance of DFSORT.  In fact, I doubt it's
possible.

On Mon, Nov 21, 2011 at 6:13 PM, John Gilmore wrote:

> I am not at all hostile to DFSORT, which I now prefer slightly to
> SYNCHSORT.
>
> I am, however, hostile to the notion that I/O in a statement-level
> language is always inferior to that of DFSORT.  Here both of my young
> programmers used a locate-mode READ-SET for the input records,
> examined each in its buffer, and an effectively asynchronous move-mode
> WRITE-TO a LOCATEd position in an output buffer for the selected
> records.  Their JCL included appropriate BUFNO=, etc.
> (Interestingly, something very similar could be but in fact is almost
> never done in COBOL with a reusable C or PL/I driver.)
>
> I am of course familiar with production-control schemes.  Production
> must be orderly, but in my experience bureaucratic controls alone do
> not reduce errors: They only diffuse responsibility.
>
> John Gilmore, Ashland, MA 01721 - USA
>
> --
> 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: Simple record extraction from a sequential file

I am not at all hostile to DFSORT, which I now prefer slightly to SYNCHSORT.

I am, however, hostile to the notion that I/O in a statement-level
language is always inferior to that of DFSORT.  Here both of my young
programmers used a locate-mode READ-SET for the input records,
examined each in its buffer, and an effectively asynchronous move-mode
WRITE-TO a LOCATEd position in an output buffer for the selected
records.  Their JCL included appropriate BUFNO=, etc.
(Interestingly, something very similar could be but in fact is almost
never done in COBOL with a reusable C or PL/I driver.)

I am of course familiar with production-control schemes.  Production
must be orderly, but in my experience bureaucratic controls alone do
not reduce errors: They only diffuse responsibility.

John Gilmore, Ashland, MA 01721 - USA

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Frank Yaeger

Donald Russell on IBM Mainframe Discussion List 
wrote on 11/21/2011 02:43:10 PM:
> > The use of the SORT to do this job seems to me to be much akin to
> > using a piledriver to set a ten-penny nail., and I should be
> > interested to know why you sought a canned solution to a problem of
> > this sort.
> >
>
> Though clearly the programming effort to write my own code to do this is
> trivial, the reason for wanting a "canned solution" is to avoid all the
> "business rules and procedures" associated with writing "custom code".
>
> If I roll my own, it has to go through the whole QA process, and
> distributed to various geographically diverse MVS systems where I need
this
> capability.  DFSORT is available right now. It's been debugged, it's been
> accepted, it's in production, now.
>
> If DFSORT can do what I need, that's perfect. The cycles to run DFSORT
for
> this are less expensive than my and other people's time to properly
support
> it.
>
> If there's another "out-of-the-box" solution, I'm all ears. i.e. my
cms/tso
> pipelines solution suggested in my original post. (But I'm note sure we
> have PIPELINES on all our MVS systems.)
>
> I'm also a big believer in using existing wheels. Why do I want to write
a
> program that already does what another, already available one does?
>
> The reason I need this capability is so I can extract a subset of records
> from one or more tapes in various geographically diverse MVS sites, send
> that data to another MVS site that has USS and do some stuff with it
there.
> I could just copy the entire tape across the country/globe, but I do have
> some limits regarding wasted bandwidth/cycles. :-)
>
> It's a trade-off/balancing act.

I'm glad to hear that devoting most of my career at IBM to adding more and
more functions to DFSORT and DFSORT's ICETOOL hasn't been a waste of
time. :-)

It's nice to know I can't be completely replaced by a couple of teenagers
writing PL/I code.

The "use a utility" vs "roll your own" argument seems to come up every now
and
then.  Besides the QA process considerations and efficiency considerations,
it
often comes down to a "how complex does something have to be before you
stop
rolling your own" decision.

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Donald Russell

On Mon, Nov 21, 2011 at 14:02, John Gilmore wrote:

>
>
> The use of the SORT to do this job seems to me to be much akin to
> using a piledriver to set a ten-penny nail., and I should be
> interested to know why you sought a canned solution to a problem of
> this sort.
>

Though clearly the programming effort to write my own code to do this is
trivial, the reason for wanting a "canned solution" is to avoid all the
"business rules and procedures" associated with writing "custom code".

If I roll my own, it has to go through the whole QA process, and
distributed to various geographically diverse MVS systems where I need this
capability.  DFSORT is available right now. It's been debugged, it's been
accepted, it's in production, now.

If DFSORT can do what I need, that's perfect. The cycles to run DFSORT for
this are less expensive than my and other people's time to properly support
it.

If there's another "out-of-the-box" solution, I'm all ears. i.e. my cms/tso
pipelines solution suggested in my original post. (But I'm note sure we
have PIPELINES on all our MVS systems.)

I'm also a big believer in using existing wheels. Why do I want to write a
program that already does what another, already available one does?

The reason I need this capability is so I can extract a subset of records
from one or more tapes in various geographically diverse MVS sites, send
that data to another MVS site that has USS and do some stuff with it there.
I could just copy the entire tape across the country/globe, but I do have
some limits regarding wasted bandwidth/cycles. :-)

It's a trade-off/balancing act.

Cheers

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Farley, Peter x23353

John,

I am not the OP, but I can imagine one very good reason -- Production control 
procedures.

If the file that the OP is trying to extract is a production file and the 
resulting file also has to feed another production program, then a new program 
has to pass through all of the system development lifecycle processes, which 
can be quite bureaucratic in a large organization.

However, sort control cards for a production JCL sort job *may* (depending on 
the organization) more easily and quickly pass through such procedures, 
sometimes with much less process and paperwork.

Besides that, sort is EVER so much more efficient at doing I/O (especially to 
or from non-VSAM files) than any user-written HLL program.  Sort is often my 
first choice on that basis alone (assuming the selection and/or processing 
logic can be accommodated with existing sort control verbs).

Just a couple of thoughts for your consideration.

Peter

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
> Behalf Of John Gilmore
> Sent: Monday, November 21, 2011 5:02 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Simple record extraction from a sequential file
> 
> You have a response that apparently meets your needs.
> 
> Your question interests me for another reason.  I asked two admittedly
> very bright 15 year olds to write a  parameterized--a value V, a field
> of length L, and a one-origin offset O of its first byte--PL/I
> procedure to do what you want to do.
> 
> It took them 10 and 13 minutes, respectively, to come up with correct,
> working procedures complete with bullet proofing and test cases.
> 
> The use of the SORT to do this job seems to me to be much akin to
> using a piledriver to set a ten-penny nail., and I should be
> interested to know why you sought a canned solution to a problem of
> this sort.
> 
> John Gilmore, Ashland, MA 01721 - USA
> 
> --
> 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 message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

Re: Simple record extraction from a sequential file

2011-11-21 Thread Steve Comstock


On 11/21/2011 3:02 PM, John Gilmore wrote:

You have a response that apparently meets your needs.

Your question interests me for another reason.  I asked two admittedly
very bright 15 year olds to write a  parameterized--a value V, a field
of length L, and a one-origin offset O of its first byte--PL/I
procedure to do what you want to do.

It took them 10 and 13 minutes, respectively, to come up with correct,
working procedures complete with bullet proofing and test cases.

The use of the SORT to do this job seems to me to be much akin to
using a piledriver to set a ten-penny nail., and I should be
interested to know why you sought a canned solution to a problem of
this sort.

John Gilmore, Ashland, MA 01721 - USA


John,

It's the wave of the future. Actually, the wave of the present:
if I create it myself I will have to think. If I can take a
canned solution, the bulk of the thinking is done for me.

How many times have you seen people on this list say, proudly
even, "I'm lazy so ... ".

From a more practical standpoint: it's efficient to use existing
art. (Not counting the time it takes to find the existing art,
such as querying on ibm-main.)

The whole mantra of "code reuse" has always struck me as sort of
disengenuous. Java is not the only language that can create
methods that can be used by many other programs. Think subroutines.

But in large shops I have seen the number of subroutines be so
overwhelming that it's often easier to roll your own. So now
we get a proliferation of subroutines (or methods) available but
no one knows how to find them or use them (except for, perhaps,
the most frequently used 10%).

So it goes.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

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

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

Re: Simple record extraction from a sequential file

2011-11-21 Thread Frank Yaeger

Rick Fochtman on IBM Mainframe Discussion List  wrote
on 11/21/2011 01:38:29 PM:
>
> Take a look at DFSORT, using INCLUDE/EXCLUDE control statements
>

For the record, that's INCLUDE/OMIT, not INCLUDE/EXCLUDE.

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

--
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: Simple record extraction from a sequential file

You have a response that apparently meets your needs.

Your question interests me for another reason.  I asked two admittedly
very bright 15 year olds to write a  parameterized--a value V, a field
of length L, and a one-origin offset O of its first byte--PL/I
procedure to do what you want to do.

It took them 10 and 13 minutes, respectively, to come up with correct,
working procedures complete with bullet proofing and test cases.

The use of the SORT to do this job seems to me to be much akin to
using a piledriver to set a ten-penny nail., and I should be
interested to know why you sought a canned solution to a problem of
this sort.

John Gilmore, Ashland, MA 01721 - USA

--
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: Simple record extraction from a sequential file

2011-11-21 Thread Rick Fochtman


---


I have a tape dataset from which I need to extract all records that begin
with a specific 2 byte prefix. The RECFM is VB or possibly U.

Is there an IBM utility that lets me just select those given records?

I thought IEBEDIT sounded like a good candidate, but that seems to deal
with actual job streams then I thought of IEBGENR, but that doesn't
appear to do what I want either.

Surely I'm missing something, I'd think this is a very common task.

For example, CMS/TSO PIPELINES
PIPE < input | STRFIND /xx/ | > output
 


-
Take a look at DFSORT, using INCLUDE/EXCLUDE control statements

Rick

--
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: Set Clock Command

There are many more. The SMTPNOTE rexx exec, STDENV file in the CSSMTP
started task procedure. (a similar variable in the SMTP parmlib member,
..
You might also think about /etc/rc

I am amazed at how many places it needs to be specified


> 
> BTW, don't forget to update the TZ environment variable in all of the
> myriad locations it appears in.

I haven't touched that value, CST6CDT - US Central Time, since I first
set it properly. And I've never had a problem with z/OS UNIX using the
wrong time. It automagically adjusts because it is smart enough to know
when to switch back and forth. I have TZ set in exactly three places:
/etc/init.options; /etc/profile; and the CEEPRMnn member of PARMLIB.
But, then, I'm on a very simple 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

Re: Set Clock Command

> -Original Message-

> 
> BTW, don't forget to update the TZ environment variable in all of the
> myriad locations it appears in.

I haven't touched that value, CST6CDT - US Central Time, since I first set it 
properly. And I've never had a problem with z/OS UNIX using the wrong time. It 
automagically adjusts because it is smart enough to know when to switch back 
and forth. I have TZ set in exactly three places: /etc/init.options; 
/etc/profile; and the CEEPRMnn member of PARMLIB. But, then, I'm on a very 
simple system.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

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

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

 

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

Re: ISRPROF member is hosed

2011-11-21 Thread Tony's Comcast account

ISTR a rexx out there somewhere that opens a file but tabbing to the dataset
name and pressing enter or a pf key.  It probably lives in many shops under
various and sundry names.  Having this rexx, all one would have to do is
edit a member or file to house any number of dataset names.

Years ago I had CA's PDSMAN and EZedit that provided a fancy MSL.  ISPF WP
is a good suggestion if OEMs are not affordable. 


  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Dave Salt
Sent: Monday, November 21, 2011 1:58 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: ISRPROF member is hosed

This isn't the first time I've heard of the ISPF profile being corrupted by
a home grown "favorite data set" utility. I'd strongly recommend removing
the customized panel and using something that doesn't corrupt the profile,
such as the ISPF Workplace (which is free) or a paid utility (such as
SimpList or IPT).
 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  





> Date: Mon, 21 Nov 2011 11:05:07 -0800
> From: john.norga...@ucdmc.ucdavis.edu
> Subject: Re: ISRPROF member is hosed
> To: IBM-MAIN@bama.ua.edu
> 
> Here's the rest of the story.
> 
> We have an overay panel for option2(edit) which is an installation created

> panel
> 
> --- EDIT - Alternate Panel 
> --
> COMMAND ===>,
> 
>  SELECTION ,===>,1,
>  MEMBER NAME   ,===>,,(Blank or pattern for member selection list,
>  , ignored for sequential data set selection)
> OTHER PARTITIONED OR SEQUENTIAL DATASET:
>  DATASET NAME  ,===>,
> VOLUME ,===>,,(If not cataloged)
> 
>  1 -,, C -,
>  2 -,, D -,
>  3 -,, E -,
>  4 -,, F -,
>  5 -,, G -,
>  6 -,, H -,
>  7 -,, I -,
>  8 -,, J -,
>  9 -,, K -,
>  A -,, L -,
>  B -,, M -,
> 
> The user had all his "favorite datasets specified using 1 - M
> 
> These datasets get stored in ISRPROF. 
> 
> And one day some of his dataset names got delete from the ISRPROF member.
> 
> So Ed, you're saying that if a member is saved with nulls on STD, this 
> could cause a problem?
> 
> 
> 
> 
> John Norgauer
> Senior Systems Programmer
> Mainframe Technical Support Services
> University of California Davis Medical Center
> 2315 Stockton Blvd
> ASB 1300
> Sacramento, Ca 95817
> 916-734-0536
> 
>  SYSTEMS PROGRAMMING..  Guilty, until proven innocent !! "JN  2004
> 
> "Hardware eventually breaks - Software eventually works"  anon
> 
> 
> --
> 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: Set Clock Command

The OP's "TOD" clock is set to local time. 
If  the TOD clock is reset, the XCF *WILL* fail the IPL if the IPL time
is earlier than the timestamp in the XCF couple dataset.

>> We are a monplex environment with the SE clock set to locale 
>> time, we run DB2, CICS and DASD XCF dataset. Our current 
...snippage


I agree all of the statements below, once the XCF couple datasets have
the proper (GMT) timestamp.


>DASD XCF is unaffected by the SET TIMEZONE or SET CLOCK commands. It
uses the TOD clock internally (aka "GMT time"). DB2 also uses this
clock. >CICS is a bit trickier because you must first issue the T CLOCK=
or T TIMEZONE=, then for each CICS region, issue the command: CEMT PER
RESET. >We do this using the MODIFY command to each CICS region. We have
the z/OS consoles setup as CICS terminals so that we can do this. If all
your CICS >regions start with the same "prefix", then your modify can
looks something like:
z/OS will issue a MODIFY command against every executing address space
which begins with CICS for you. Handy if you have a decent naming
>convention.


BTW, don't forget to update the TZ environment variable in all of the
myriad locations it appears in.


 

--
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: Set Clock Command

2011-11-21 Thread Blaicher, Christopher Y.

Others have mentioned XCF and system stuff, there are also application 
considerations.

It depends on your applications and how they are written.  If they use the TIME 
macro, or the various language equivalents, you may have a problem at switch 
times.  See the ZONE parameter of the TIME macro.

During the transition in the Spring, you can have a few transactions that look 
like they ran an hour longer than they did.  In the Fall you can have 
transactions that look like they end before they begin.

If the programmers coded ZONE with the right option, then there is no problem.  
For those that are still sensitive, what you can do is stop processing those 
applications just before the switch time and restart the processes right after 
without doing the IPL.  In the Spring that means you need about a 10 minute 
outage.  In the fall you have to stop them for about an hour and ten minutes to 
let the clock catch back up.

This is a programming short-coming and I have been of the opinion for 10 years 
that they need to fix it and stop making operations jump through hoops every 
Spring and Fall.  Just my personal 2 cents on this.

Chris Blaicher
Senior Software Engineer, Software Services
Syncsort Incorporated
50 Tice Boulevard, Woodcliff Lake, NJ 07677
P: 201-930-8260  |  M: 512-627-3803    
E: cblaic...@syncsort.com

www.syncsort.com

Check out our Knowledge Base at www.syncsort.com/support

Syncsort aims for the best product and service experience. 
We welcome your feedback.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Dazzo, Matt
Sent: Monday, November 21, 2011 2:13 PM
To: MVS List Server 1
Subject: Set Clock Command

We are a monplex environment with the SE clock set to locale time, we run DB2, 
CICS and DASD XCF dataset. Our current procedure for time change is to shutdown 
MVS, change the SE clock and IPL. Clock=00 member has no off set and has been 
set up like this since the beginning of time.

I have been looking at the set clock command in hopes of maybe eliminating the 
IPL. From reading the good old book I think I have to do the following. 
Anything else I am missing or should be aware of?  How does the DASD XCF 
dataset handle the time change when going back 1 hr? Thanks Matt

1.Set the SE clock to GMT
2. Change the TIMEZONE to -5 for EST




--
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: Set Clock Command

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Dazzo, Matt
> Sent: Monday, November 21, 2011 2:13 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Set Clock Command
> 
> We are a monplex environment with the SE clock set to locale 
> time, we run DB2, CICS and DASD XCF dataset. Our current 
> procedure for time change is to shutdown MVS, change the SE 
> clock and IPL. Clock=00 member has no off set and has been 
> set up like this since the beginning of time.
> 
> I have been looking at the set clock command in hopes of 
> maybe eliminating the IPL. From reading the good old book I 
> think I have to do the following. Anything else I am missing 
> or should be aware of?  How does the DASD XCF dataset handle 
> the time change when going back 1 hr? Thanks Matt
> 
> 1.Set the SE clock to GMT
> 2. Change the TIMEZONE to -5 for EST

DASD XCF is unaffected by the SET TIMEZONE or SET CLOCK commands. It uses the 
TOD clock internally (aka "GMT time"). DB2 also uses this clock. CICS is a bit 
trickier because you must first issue the T CLOCK= or T TIMEZONE=, then for 
each CICS region, issue the command: CEMT PER RESET. We do this using the 
MODIFY command to each CICS region. We have the z/OS consoles setup as CICS 
terminals so that we can do this. If all your CICS regions start with the same 
"prefix", then your modify can looks something like:
F CICS*,CEMT PER RESET.

z/OS will issue a MODIFY command against every executing address space which 
begins with CICS for you. Handy if you have a decent naming convention.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

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

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

 

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

Re: ISRPROF member is hosed

2011-11-21 Thread Ed Finnell

Depends on the code. Better to use ISPF services to update VARs  in the 
profile.
 
 
In a message dated 11/21/2011 1:11:23 P.M. Central Standard Time,  
john.norga...@ucdmc.ucdavis.edu writes:

So Ed,  you're saying that if a member is saved with nulls on STD, this 
could  cause a problem?



--
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: Set Clock Command

You got it. The XCF couple dataset uses the stamp from the GMT clock. 
Instead of SET CLOCK= twice a year, you would issue SET TIMEZONE twice a
year .

Check the fine manuals for details on SET TIMEZONE. The TIMEZONE value
should also be set in CLOCKxx.

Since resetting the hardware clock will require a Power On Reset, there
is no additional impact.

Of course, you can eliminate the HW clock/Power On Reset by fudging the
TIMEZONE values.

NOTE: The XCF couple dataset cannot handle the back time change. It
"remembers" the last time it was used and will fail the IPL if the
timestamps are not in ascending sequence. I would allocate a new set of
XCF couple datasets and IPL with those (or wait 5 hours for the IPL).
After IPL, you can dynamically migrate back to the original files if
desired.

HTH,



I have been looking at the set clock command in hopes of maybe
eliminating the IPL. From reading the good old book I think I have to do
the following. Anything else I am missing or should be aware of?  How
does the DASD XCF dataset handle the time change when going back 1 hr?
Thanks Matt

1.Set the SE clock to GMT
2. Change the TIMEZONE to -5 for EST


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

Set Clock Command

2011-11-21 Thread Dazzo, Matt

We are a monplex environment with the SE clock set to locale time, we run DB2, 
CICS and DASD XCF dataset. Our current procedure for time change is to shutdown 
MVS, change the SE clock and IPL. Clock=00 member has no off set and has been 
set up like this since the beginning of time.

I have been looking at the set clock command in hopes of maybe eliminating the 
IPL. From reading the good old book I think I have to do the following. 
Anything else I am missing or should be aware of?  How does the DASD XCF 
dataset handle the time change when going back 1 hr? Thanks Matt

1.Set the SE clock to GMT
2. Change the TIMEZONE to -5 for EST




--
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: ISRPROF member is hosed

2011-11-21 Thread Dave Salt

This isn't the first time I've heard of the ISPF profile being corrupted by a 
home grown "favorite data set" utility. I'd strongly recommend removing the 
customized panel and using something that doesn't corrupt the profile, such as 
the ISPF Workplace (which is free) or a paid utility (such as SimpList or IPT).
 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  





> Date: Mon, 21 Nov 2011 11:05:07 -0800
> From: john.norga...@ucdmc.ucdavis.edu
> Subject: Re: ISRPROF member is hosed
> To: IBM-MAIN@bama.ua.edu
> 
> Here's the rest of the story.
> 
> We have an overay panel for option2(edit) which is an installation created 
> panel
> 
> --- EDIT - Alternate Panel 
> --
> COMMAND ===>,
> 
>  SELECTION ,===>,1,
>  MEMBER NAME   ,===>,,(Blank or pattern for member selection list,
>  , ignored for sequential data set selection)
> OTHER PARTITIONED OR SEQUENTIAL DATASET:
>  DATASET NAME  ,===>,
> VOLUME ,===>,,(If not cataloged)
> 
>  1 -,, C -,
>  2 -,, D -,
>  3 -,, E -,
>  4 -,, F -,
>  5 -,, G -,
>  6 -,, H -,
>  7 -,, I -,
>  8 -,, J -,
>  9 -,, K -,
>  A -,, L -,
>  B -,, M -,
> 
> The user had all his "favorite datasets specified using 1 - M
> 
> These datasets get stored in ISRPROF. 
> 
> And one day some of his dataset names got delete from the ISRPROF member.
> 
> So Ed, you're saying that if a member is saved with nulls on STD, this 
> could cause a problem?
> 
> 
> 
> 
> John Norgauer
> Senior Systems Programmer
> Mainframe Technical Support Services
> University of California Davis Medical Center
> 2315 Stockton Blvd
> ASB 1300
> Sacramento, Ca 95817
> 916-734-0536
> 
>  SYSTEMS PROGRAMMING..  Guilty, until proven innocent !! "JN  2004
> 
> "Hardware eventually breaks - Software eventually works"  anon
> 
> 
> --
> 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: Simple record extraction from a sequential file

2011-11-21 Thread Donald Russell

On Mon, Nov 21, 2011 at 10:31, Frank Yaeger  wrote:

> Donald Russell on IBM Mainframe Discussion List 
> wrote on 11/21/2011 10:16:26 AM:
> > I have a tape dataset from which I need to extract all records that begin
> > with a specific 2 byte prefix. The RECFM is VB or possibly U.
> >
> > Is there an IBM utility that lets me just select those given records?
> >
> > I thought IEBEDIT sounded like a good candidate, but that seems to deal
> > with actual job streams then I thought of IEBGENR, but that doesn't
> > appear to do what I want either.
> >
> > Surely I'm missing something, I'd think this is a very common task.
> >
> > For example, CMS/TSO PIPELINES
> > PIPE < input | STRFIND /xx/ | > output
>
> If you want to select VB records that have XX in positions 5-6 (after the
> RDW in positions 1-4), you can use a DFSORT job like the following:
>
> //S1 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD DSN=...  input tape file (VB)
> //SORTOUT DD DSN=...  output file (VB)
> //SYSIN DD *
>  OPTION COPY
>  INCLUDE COND=(5,2,CH,EQ,C'XX')
> /*
>
> However, DFSORT cannot process RECFM=U data sets.
>



Thanks... That's perfect...

Cheers,

--
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: ISRPROF member is hosed

2011-11-21 Thread John Norgauer

Here's the rest of the story.

We have an overay panel for option2(edit) which is an installation created 
panel

--- EDIT - Alternate Panel 
--
COMMAND ===>,

 SELECTION ,===>,1,
 MEMBER NAME   ,===>,,(Blank or pattern for member selection list,
 , ignored for sequential data set selection)
OTHER PARTITIONED OR SEQUENTIAL DATASET:
 DATASET NAME  ,===>,
VOLUME ,===>,,(If not cataloged)

 1 -,, C -,
 2 -,, D -,
 3 -,, E -,
 4 -,, F -,
 5 -,, G -,
 6 -,, H -,
 7 -,, I -,
 8 -,, J -,
 9 -,, K -,
 A -,, L -,
 B -,, M -,

The user had all his "favorite datasets specified using 1 - M

These datasets get stored in ISRPROF. 

And one day some of his dataset names got delete from the ISRPROF member.

So Ed, you're saying that if a member is saved with nulls on STD, this 
could cause a problem?




John Norgauer
Senior Systems Programmer
Mainframe Technical Support Services
University of California Davis Medical Center
2315 Stockton Blvd
ASB 1300
Sacramento, Ca 95817
916-734-0536

 SYSTEMS PROGRAMMING..  Guilty, until proven innocent !! "JN  2004

"Hardware eventually breaks - Software eventually works"  anon


--
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: Simple record extraction from a sequential file

2011-11-21 Thread Ulrich Krueger

Donald,
Think simple ... think SORT (IBM's SORT or any vendor's SORT)...


Regards,
Ulrich Krueger


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Donald Russell
Sent: Monday, November 21, 2011 10:16 AM
To: IBM-MAIN@bama.ua.edu
Subject: Simple record extraction from a sequential file

I have a tape dataset from which I need to extract all records that begin
with a specific 2 byte prefix. The RECFM is VB or possibly U.

Is there an IBM utility that lets me just select those given records?

I thought IEBEDIT sounded like a good candidate, but that seems to deal
with actual job streams then I thought of IEBGENR, but that doesn't
appear to do what I want either.

Surely I'm missing something, I'd think this is a very common task.

For example, CMS/TSO PIPELINES
PIPE < input | STRFIND /xx/ | > output

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

Re: Simple record extraction from a sequential file

2011-11-21 Thread Frank Yaeger

Donald Russell on IBM Mainframe Discussion List 
wrote on 11/21/2011 10:16:26 AM:
> I have a tape dataset from which I need to extract all records that begin
> with a specific 2 byte prefix. The RECFM is VB or possibly U.
>
> Is there an IBM utility that lets me just select those given records?
>
> I thought IEBEDIT sounded like a good candidate, but that seems to deal
> with actual job streams then I thought of IEBGENR, but that doesn't
> appear to do what I want either.
>
> Surely I'm missing something, I'd think this is a very common task.
>
> For example, CMS/TSO PIPELINES
> PIPE < input | STRFIND /xx/ | > output

If you want to select VB records that have XX in positions 5-6 (after the
RDW in positions 1-4), you can use a DFSORT job like the following:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input tape file (VB)
//SORTOUT DD DSN=...  output file (VB)
//SYSIN DD *
  OPTION COPY
  INCLUDE COND=(5,2,CH,EQ,C'XX')
/*

However, DFSORT cannot process RECFM=U data sets.

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

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

Simple record extraction from a sequential file

2011-11-21 Thread Donald Russell

I have a tape dataset from which I need to extract all records that begin
with a specific 2 byte prefix. The RECFM is VB or possibly U.

Is there an IBM utility that lets me just select those given records?

I thought IEBEDIT sounded like a good candidate, but that seems to deal
with actual job streams then I thought of IEBGENR, but that doesn't
appear to do what I want either.

Surely I'm missing something, I'd think this is a very common task.

For example, CMS/TSO PIPELINES
PIPE < input | STRFIND /xx/ | > output

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

Re: HSM Journal dataset is almost full

2011-11-21 Thread Uriel Carrasquilla

OK, mission accomplished.  The Journal is now larger.
Thank you all for your participation and help, particularly Walter.
Once the HSM re-start was disabled in OPS/MVS, it all worked as advertised.

--
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: SDSF versus (E)JES

2011-11-21 Thread Edward Jaffe


On 11/21/2011 7:42 AM, Paul Gilmartin wrote:

Do the alternatives offer a Rexx API comparable to SDSF's


I'm sure all of the popular offerings provide some sort of programmable API(s). 
(E)JES provides a REXX API, a Java API, and a callable API for programs written 
in HLASM, C/C++, COBOL, etc. (The REXX and Java connectors are written in HLASM 
and C++ using their respective APIs.)


I believe (E)JES is the only SDSF alternative that can execute REXX execs 
authored to exploit the SDSF REXX API (ISFCALLS). We wanted our customers to be 
able to download publicly-available execs from the CBT tape and elsewhere and 
run them essentially unchanged. Of course, customers tend to author their own 
in-house execs using our more powerful, better performing and easier-to-use 
native interfaces.


I also believe (E)JES is still the only product of its kind that executes on 
zIIP processors.


http://news.thomasnet.com/fullstory/Spool-Browse-System-Manager-runs-SDSF-REXX-executables-548160

Disclaimer: The above suppositions are based on my current understanding of the 
capabilities of the products available in the marketplace today. However, I am 
not privy to internal design specifications for products other than (E)JES nor 
am I a customer or user of those products.


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.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: equipment available

2011-11-21 Thread Mike Schwab

That is about 4 TB usuable after 6 + P + S.  eBay posting followed by
a link probably would be fairest method of resale.

On Mon, Nov 21, 2011 at 9:19 AM, Pommier, Rex R.
 wrote:
> All,
>
> Don't know if this is legit on the list, but here goes.  We've done some data 
> migration and have a DS6800 available for the right home.
>
> 3 drawers, 40-146 GB 10K drives, 4-2Gb FICON channels.
>
> It's been on IBM maintenance since the day we installed it.  Been solid as a 
> rock, and I hate to part with it.
>
> If you're interested, please contact me off-list and I can send you a 
> complete feature list.
>
> Rex Pommier
> CNA Surety
> Sioux Falls, SD
>
> rex.pomm...@cnasurety.com
>
> 605-977-7719
>
> The information contained in this e-mail may contain confidential and/or 
> privileged information and is intended for the sole use of the intended 
> recipient. If you are not the intended recipient, you are hereby notified 
> that any unauthorized use, disclosure, distribution or copying of this 
> communication is strictly prohibited and that you will be held responsible 
> for any such unauthorized activity, including liability for any resulting 
> damages. As appropriate, such incident(s) may also be reported to law 
> enforcement. If you received this e-mail in error, please reply to sender and 
> destroy or delete the message and any attachments. Thank you.

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

http://www.physics.ohio-state.edu/~bcd/humor/os.vu.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: Religious controversy on IBM-MAIN

2011-11-21 Thread R.S.

W dniu 2011-11-21 15:39, McKown, John pisze:

Am I still allowed to poo-poo Windows and make fun of them?

Is it related to IBM-MAIN scope?
(hint: sometimes it is, sometimes it's not).
And of course it's Darren's (the list owner) role to allow or disallow
something.

Regards
--
Radoslaw Skorupka
Lodz, Poland

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

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

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

--
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: Religious controversy on IBM-MAIN

2011-11-21 Thread John Weber

Spoken like a true Vulcan.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
CM Poncelet
Sent: Saturday, November 19, 2011 10:01 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Religious controversy on IBM-MAIN

The only religion that matters is logic.

Shmuel Metz (Seymour J.) wrote:

>In
>,
>on 11/19/2011
>   at 09:18 AM, John Gilmore  said:
>
>  
>
>>We are a mixture of the devout, the indifferent, and the militantly
>>anti-religious.  This mixture is explosive.
>>
>>
>
>Religous comments would be potentially explosive even if everyone here
>were devout, perhaps especially if everyone here were devout.
>Different religions, even different sects of the "same" religion, hold
>profoundly different views.
> 
>  
>

--
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: IKJ139I BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR

2011-11-21 Thread Chris Mason

Jason

Note that I am treating this question purely on its merits since I don't have 
any special insights regarding SYS1.BRODCAST. What I'm mentioning now is how 
I'd start to go about solving the problem if I still had my "sandbox" systems 
with which to play.

First check the message text:

IKJ139I BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR

Explanation: An operator SEND command was issued which required accessing the 
broadcast data set. However, in accessing the data set a read/write failure was 
encountered.

System Action: Processing is ended; messages may or may not have been saved in 
the broadcast data set. Broadcast data set-independent processing has been 
completed.

Operator Response: Report this message to the system programmer.

System Programmer Response: Determine and remove the cause of the I/O error.

Right! Not so very helpful - in this case.

Since this clearly concerns SYS1.BRODCAST, try the following:

"z/OS Internet Library"

http://www-03.ibm.com/systems/z/os/zos/bkserv/

Assuming V1R13, select V1.13 under "Publication titles, filenames, and order 
numbers by z/OS release".

Enter SYS1.BRODCAST in the "Search text" box under "z/OS V1R13.0 Base Elements 
Optional Features  - 448 books" and select.

>From here you have a list of 26 manuals, but "nous" suggests that "TSO/E 
>Customization" could be promising.

Then the topic "1.1.2.2 UADS and broadcast data set maintenance" looks like a 
good starting point:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b4c0/1.1.2.2

I went a bit further in order to try to be sure I wasn't leading you down the 
garden path.

And I don't believe I am: In "4.2 Chapter 24. Working with the UADS and 
broadcast data set", I see the following first paragraph:

If you are installing TSO/E on your system for the first time, you must create 
both the UADS and the broadcast data sets. If you are installing a new release 
of TSO/E, you may have to reformat both data sets. During subsequent operation, 
you may have to update both data sets by adding, changing, or deleting entries. 
In addition, you may reformat the data sets to eliminate wasted space caused by 
periodic additions, changes, and deletions. 

I'm going to guess that, to use a peculiar verb to which the IBM-LIST 
subscribers are much attached, what follows in this section may also be 
relevant when your existing SYS1.BRODCAST data set is "hosed".

Chris Mason

On Mon, 21 Nov 2011 13:56:46 +0800, ibmnew  wrote:

>Hi all
>
> In the syslog,there is the following message:
>
>IKJ139I   BROADCAST DATA SET NOT USABLE, I/O SYNAD ERROR
>
> My question :
>
> 1. Do it mean sys1.broadcast is broken?
>
> 2. How to verify sys1.broadcast DATSET?
>
> 3. How to solve this problem?
>
>
>Thanks a lot!
>
>Jason Cai

--
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: SDSF versus (E)JES

2011-11-21 Thread Paul Gilmartin

On Mon, 21 Nov 2011 09:10:12 -0500, Knutson, Sam wrote:

>Many folks use another SPOOL browser and drop SDSF to reduce software costs.
>I use IOF and SYSVIEW for historical reasons but E(JES) would work as well or 
>better.
>We dropped SDSF a couple years ago since it duplicated functionality of the 
>other products and had a limited user base compared to IOF.
>
>E(JES) http://www.phoenixsoftware.com/ejes.htm
>
>IOF http://www.triangle-systems.com/iofwhy.shtml
>
>SYSVIEW http://www.ca.com/us/performance-management.aspx
> 
How do the alternatives compare in cost with SDSF?

Do the alternatives offer a Rexx API comparable to SDSF's


>You may also get a good response on this and related topics in the ISVCOSTS 
>forum
> http://www-03.ibm.com/software/solutions/isvcosts/
>See Discussion Group sign-up.

-- 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: Religious controversy on IBM-MAIN

2011-11-21 Thread Darth Keller

As far as I'm concerned - that's neither political nor religious - just 
good ol' common sense.
;o)
ddk



Am I still allowed to poo-poo Windows and make fun of them?
--
John McKown 
\


This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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

equipment available

2011-11-21 Thread Pommier, Rex R.

All,

Don't know if this is legit on the list, but here goes.  We've done some data 
migration and have a DS6800 available for the right home.

3 drawers, 40-146 GB 10K drives, 4-2Gb FICON channels.

It's been on IBM maintenance since the day we installed it.  Been solid as a 
rock, and I hate to part with it.


If you're interested, please contact me off-list and I can send you a complete 
feature list.


Rex Pommier
CNA Surety
Sioux Falls, SD

rex.pomm...@cnasurety.com

605-977-7719

The information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited and that you will be held responsible for any such 
unauthorized activity, including liability for any resulting damages. As 
appropriate, such incident(s) may also be reported to law enforcement. If you 
received this e-mail in error, please reply to sender and destroy or delete the 
message and any attachments. 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

Re: SDSF versus (E)JES

2011-11-21 Thread Knutson, Sam

Many folks use another SPOOL browser and drop SDSF to reduce software costs.
I use IOF and SYSVIEW for historical reasons but E(JES) would work as well or 
better.
We dropped SDSF a couple years ago since it duplicated functionality of the 
other products and had a limited user base compared to IOF.

E(JES) http://www.phoenixsoftware.com/ejes.htm 

IOF http://www.triangle-systems.com/iofwhy.shtml 

SYSVIEW http://www.ca.com/us/performance-management.aspx 


You may also get a good response on this and related topics in the ISVCOSTS 
forum 
http://www-03.ibm.com/software/solutions/isvcosts/ 
See Discussion Group sign-up.


    Best Regards, 

    Sam Knutson, GEICO 
    System z Team Leader 
    mailto:sknut...@geico.com 
    (office)  301.986.3574 
    (cell) 301.996.1318   
   
"Think big, act bold, start simple, grow fast..." 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Ivanno Alexander
Sent: Sunday, November 20, 2011 7:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: SDSF versus (E)JES

Hello.

Does any of you guys use (E)JES and dropped the IBM payment of SDSF?

Regards,

Ivan



This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

--
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: Religious controversy on IBM-MAIN

Am I still allowed to poo-poo Windows and make fun of them?

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

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

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

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Darth Keller
> Sent: Monday, November 21, 2011 8:35 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Religious controversy on IBM-MAIN
> 
> ditto in regards to the political -
> ddk
> 
> 
> 
> Historically, many fora having another focus have found it advisable
> to avoid the discussion of religion, which is divisive and likely to
> escalate into invective and worse.
> 
> We are a mixture of the devout, the indifferent, and the militantly
> anti-religious.  This mixture is explosive.  It would therefore be
> better, I think, if we agreed informally not to discuss our own or
> others' religious views here.   We have other things to talk about.
> 
> John Gilmore, Ashland, MA 01721 - USA
> 
> This e-mail message and all attachments transmitted with it may
> contain legally privileged and/or confidential information intended
> solely for the use of the addressee(s). If the reader of this
> message is not the intended recipient, you are hereby notified that
> any reading, dissemination, distribution, copying, forwarding or
> other use of this message or its attachments is strictly
> prohibited. If you have received this message in error, please
> notify the sender immediately and delete this message and all
> copies and backups thereof. Thank you.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@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: Religious controversy on IBM-MAIN

2011-11-21 Thread Darth Keller

ditto in regards to the political -
ddk



Historically, many fora having another focus have found it advisable
to avoid the discussion of religion, which is divisive and likely to
escalate into invective and worse.

We are a mixture of the devout, the indifferent, and the militantly
anti-religious.  This mixture is explosive.  It would therefore be
better, I think, if we agreed informally not to discuss our own or
others' religious views here.   We have other things to talk about.

John Gilmore, Ashland, MA 01721 - USA

This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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

RRDS conversion

2011-11-21 Thread jagadishan perumal

Hi



One of our customers in  plans to Implement Sysplex with Coupling Facility
. We have suggested to convert existing  ESDS to RRDS files to faciliate
the use of " named service counter " .
 Are there are known bottlenecks / performance issues with RRDS ?

Jags

--
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: Help on Rexx Code.

In my original reply, I warned you that "yesterday" is more difficult than 
"today". And now you see why. The approach is different. Instead of getting 
today's date in ddmmyy format, you need to get the "base date", which is simply 
a number - the number of days since 1 Jan 0001. To get "yesterday" from this is 
easy. Subtract one. To then get "yesterday" in ddmmyy format, you again use the 
DATE function to convert the adjusted "base value" into dd/mm/yy and then 
remove the /s as before. This should be simple, so I'll give you a reference to 
the page in the manual and allow you to figure out how to do this. As a hint, 
it should take an absolute maximum of 4 simple REXX statements. Of course, it 
could be done in just one statement - but it would be a "complicated" statement 
instead of a "simple" one. Sometimes "simpler" is "better" when it comes to 
understanding the code. Of course, back in college, I was someone who took 
pride in doing very complicated programs in a single line!
  of APL code. I've "mellowed" a bit in my old age. 

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

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

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

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

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of sunil mirchandani
> Sent: Monday, November 21, 2011 6:52 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Help on Rexx Code.
> 
> Hello All,
> 
> I did some changes and make this rexx code executable to run on daily
> basis(working fine) and so that it can consolidate yesterday dataset
> contents into a single repository datatset.But I am not sure for Date
> 1,31,30, and leap years.
> 
> Can any one help me in some modification of this code so that 
> problem get
> resolved.
> 
> EX:- Datasets are :- 
> USERID.TEST.DDDMMYY.**(USERID.TEST.D20), So if i
> can run this job today then i will get contents of all
> datasets(USERID.TEST.D20.**) into one dataset.
> /* REXX */
>  TRACE I
>  XX=OUTTRAP("DATA.","*")
>  TODAY=DATE('E')
>  TODAY=SPACE(TRANSLATE(TODAY,' ','/'),0)
>  DD=LEFT(TODAY,2)
>  MMYY=RIGHT(TODAY,4)
>  YEST=DD-1
>  YDAY=YEST||MMYY
>  XX=OUTTRAP("DATA.","*")
>  DSLEVEL="USERID.TEST.D"||YDAY
>  ADDRESS TSO "LISTCAT LVL("DSLEVEL")"
>  DO I=1 TO DATA.0
>LINE=DATA.I
>IF 'NONVSAM' <> WORD(LINE,1) THEN ITERATE
>DSN=WORD(LINE,3) /* DSN IS 3RD WORD IN LINE */
>   ADDRESS TSO "ALLOC DDN(SYSUT1) DSN('"DSN"') SHR REUSE"
>   ADDRESS TSO "CALL *(IEBGENER)"
>   ADDRESS TSO "FREE DDN(SYSUT1)"
> END
> 
> 
> JOB:-
> //REXXJOBA JOB MSGCLASS=S,CLASS=A,NOTIFY=&SYSUID,REGION=0M
> //MERGE EXEC PGM=IKJEFT01,REGION=0M,PARM='%MERGE'
> //SYSTSPRT DD SYSOUT=*
> //SYSTSIN DD *
> /*
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD DUMMY
> //SYSUT2 DD DSN=USERID.TEST.DAILY.OUTPUT(0),
> // DISP=(MOD,CATLG)
> //SYSEXEC DD DISP=SHR,DSN=USERID.REXXEXEC
> 
> 
> Thanks
> Sunil
> 
> On Sun, Nov 20, 2011 at 8:36 AM, John McKown 
>  wrote:
> 
> > On Sat, 2011-11-19 at 19:03 -0500, Shmuel Metz (Seymour J.) wrote:
> > > In
> > > 
> ,
> > > on 11/18/2011
> > >at 10:35 PM, sunil mirchandani 
> > > said:
> > >
> > > >since i am new to rexx so any one can look and suggest 
> me with any
> > > >sample or written rexx code.
> > >
> > > I'd start by looking at the REXX code in SYS1.SAMPLIB for 
> calling the
> > > Catalog Search Interface (CSI). I'd also read up on the date()
> > > function and the parse statement.
> > >
> > > >Please let me know if i am on right forum
> > >
> > > Since your goal relates as much to MVS as it does to 
> Rexx, IMHO you're
> > > better off here.
> >
> > IGGCSI00 is very powerful. But for a newbie to both z/OS 
> and REXX? It
> > may be just a bit too involved.
> >
> > >
> > --
> > John McKown
> > Maranatha! <><
> >
> > 
> --
> > 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
> >
> 
> 
> 
> -- 
> Thanks & Regards:
> Sunil Mirchandani
> 9243116830
> 
> "Yesterday I dared to struggle. Today I dare to win"
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
>

Re: Terminology