[OT] IBM Mainframe DSLIST to Dataset w/ Wildcards?

[d***@panix.com]

All righty... here's how we're spending some slow time here. Datasets get
generated on a biweekly basis with the format:

USERID01.TAnnnnn.Pooo.Ddddhhmm.node

... where nnnnn represents a division, ooo is a pay period, ddd = 'Julian'
date, hhmm = time and .node is any one of four possible values. The
primary criterion of selection will be ooo, the pay period.

(Pay period is designated as single-digit year and 01 - 27, a biweekly
cycle; research has determined that the earliest datasets are P0, year
2000, and that no P9 exist.)

(I know... but I didn't design the naming convention.)

Folks in corner offices want these deleted and their wills be done... but
I'm looking to automate the task since there are about 14,000 datasets
involved, spread out over five USERIDs... oh, and most - but not all - are
in MIGRAT1 or MIGRAT2 status.

Now... if I use the (Library Function) 3.4 Data Set List Utility I can
specify a wildcarded string - eg USERID02.TA*.P0* - and the P command-line
option; if I log off and Keep my listing dataset I can then use it as
input to a DFSORT, taking the listings of

USERID02.TA11111.P001.NODE1
USERID02.TA11111.P001.NODE2
USERID02.TA22222.P001.NODE1
USERID02.TA22222.P002.NODE2

... etc. and editing/reformatting them to create another file, consisting
of...

HDELETE USERID02.TA11111.P001.NODE1
HDELETE USERID02.TA11111.P001.NODE2
HDELETE USERID02.TA22222.P001.NODE1
HDELETE USERID02.TA22222.P002.NODE2

... and use that as a SYSTSIN for an IKJEFT01. For the datasets that
aren't archived I can do this again and create an IDCAMS input of

DELETE USERID02.TA33333.P026.NODE3

... and get rid of the last.

Combining an interactive task, a logoff/logon sequence and a batch job in
this way - while it will work - offends my sense of elegance; while I have
a solution I'm looking for a better one.

What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Might anyone be able to suggest where I might look to find such a utility?

Thanks much!

DD

[Howard Brazee]

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Looks like you want a Rexx routine. Would you like me to post your
question in the IBM-MAIN listserver?

[d***@panix.com]

Post by Howard Brazee

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Looks like you want a Rexx routine. Would you like me to post your
question in the IBM-MAIN listserver?

Ow... Rexx is not a part of my skill-set but I'd be game to try... sure,
why not, give it a whack and ask them to kindly accept my apologies in
advance.

Thanks much!

[Nite4Hawks]

You could take a look at IDCAMS utility (use command LISTCAT
ENTRIES(USERID02.TA*.P0*) in batch to get a list of the relevant
datasets.

[d***@panix.com]

Post by Nite4Hawks
You could take a look at IDCAMS utility (use command LISTCAT
ENTRIES(USERID02.TA*.P0*) in batch to get a list of the relevant
datasets.

I thought I tried that for another problem and ran into a difficulty about
how many wildcard nodes IDCAMS allows... but just to check... ahhh, there
it is. From the SYSOUT:

LISTCAT ENTRIES(USERID02.TA*.P0*)

IDC3203I ITEM 'USERID02.TA*.P0*' DOES NOT ADHERE TO RESTRICTIONS
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

Thanks much!

DD

[Howard Brazee]

Go to the download section of my Web site at
http://gsf-soft.com/Download/ and download FILE183.PDS. In it, you
will find XDELETE and XRENAME, two REXX execs which do things similar
to what you want (if I understand you correctly).
--
 Gilbert Saint-Flour
 GSF Software
 http://gsf-soft.com/
mailto:***@pobox.com

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

[d***@panix.com]

[posted and emailed]

Post by Howard Brazee
Go to the download section of my Web site at
http://gsf-soft.com/Download/ and download FILE183.PDS. In it, you
will find XDELETE and XRENAME, two REXX execs which do things similar
to what you want (if I understand you correctly).

Thanks much... come Monday I will grab a copy and see if I can make heads
or tails of it!

DD

[SkippyPB]

Post by d***@panix.com
[posted and emailed]

Post by Howard Brazee
Go to the download section of my Web site at
http://gsf-soft.com/Download/ and download FILE183.PDS. In it, you
will find XDELETE and XRENAME, two REXX execs which do things similar
to what you want (if I understand you correctly).

Thanks much... come Monday I will grab a copy and see if I can make heads
or tails of it!
DD

I posted this on IBM-MAIN List as well.

One possible solution is to use the ADRDSSU utility. Our operations
center uses this every night to delete test files left out on DASD
volumes by the programmers. Basically, the have a parmlib member
wherein programmers can EXCLUDE particular members from that night's
deletes. Everything else is deleted. As an example the parmlib
member might look like this:

DUMP DATASET INCLUDE (H0SD1.**) -
EXCLUDE (H0SD1.MYFILE.**.**)) -
OUTDD (TAPEOUT) -
TOL (IOER) -
ALLX -
OPT(3) -
DELETE PURGE

In the previous, the utility would delete everything (sam, vsam etc.)
that started with a high order qualifier of H0SD1 except if the second
qualifier was MYFILE. In JCL TAPEOUT would be assigned to dummy. You
could of course assign it to a real cartridge and backup everything
but we don't do that for test files.

For your purposes, you may want to try a dump command that has an
include of (USERID02.TA*.P0*.**) or to catch all user ids something
like (USERID*.TA*.P0*.**) might work.

With this solution, you don't need REXX. It is just a straight
forward JCL utility job.

Regards,
////
(o o)
-oOO--(_)--OOo-


"Liberals feel unworthy of their possessions. Conservatives
feel they deserve everything they've stolen."
--Mort Sahl
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Remove nospam to email me.

Steve

[d***@panix.com]

Post by SkippyPB

Post by d***@panix.com
[posted and emailed]

Post by Howard Brazee
Go to the download section of my Web site at
http://gsf-soft.com/Download/ and download FILE183.PDS. In it, you
will find XDELETE and XRENAME, two REXX execs which do things similar
to what you want (if I understand you correctly).

Thanks much... come Monday I will grab a copy and see if I can make heads
or tails of it!
DD

I posted this on IBM-MAIN List as well.
One possible solution is to use the ADRDSSU utility.

Hmmmm... I recall seeing this utility recommended here before and I have a
copy of the JCL someplace... not one of the more common ones, I don't
recall reading about it in Trombetta & Finklestein.

[snip]

Post by SkippyPB
DUMP DATASET INCLUDE (H0SD1.**) -
EXCLUDE (H0SD1.MYFILE.**.**)) -
OUTDD (TAPEOUT) -
TOL (IOER) -
ALLX -
OPT(3) -
DELETE PURGE
In the previous, the utility would delete everything (sam, vsam etc.)
that started with a high order qualifier of H0SD1 except if the second
qualifier was MYFILE. In JCL TAPEOUT would be assigned to dummy. You
could of course assign it to a real cartridge and backup everything
but we don't do that for test files.

Outstanding. This might be exactly what is needed.

Thanks much!

DD

[SkippyPB]

Post by d***@panix.com

Post by SkippyPB

Post by d***@panix.com
[posted and emailed]

Post by Howard Brazee
Go to the download section of my Web site at
http://gsf-soft.com/Download/ and download FILE183.PDS. In it, you
will find XDELETE and XRENAME, two REXX execs which do things similar
to what you want (if I understand you correctly).

Thanks much... come Monday I will grab a copy and see if I can make heads
or tails of it!
DD

I posted this on IBM-MAIN List as well.
One possible solution is to use the ADRDSSU utility.

Hmmmm... I recall seeing this utility recommended here before and I have a
copy of the JCL someplace... not one of the more common ones, I don't
recall reading about it in Trombetta & Finklestein.
[snip]

Post by SkippyPB
DUMP DATASET INCLUDE (H0SD1.**) -
EXCLUDE (H0SD1.MYFILE.**.**)) -
OUTDD (TAPEOUT) -
TOL (IOER) -
ALLX -
OPT(3) -
DELETE PURGE
In the previous, the utility would delete everything (sam, vsam etc.)
that started with a high order qualifier of H0SD1 except if the second
qualifier was MYFILE. In JCL TAPEOUT would be assigned to dummy. You
could of course assign it to a real cartridge and backup everything
but we don't do that for test files.

Outstanding. This might be exactly what is needed.
Thanks much!
DD

Here's a link to the IBM documentation for the utility:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ADR5R104/REVISIONS?SHELF=&DT=19950919164409

By the way, this is also an excellent backup/restore utility. We use
it for production backups to cartridge tapes and I've used it to
backup multiple files into a DASD GDG which makes for handy restores
for test files etc.

Regards,
////
(o o)
-oOO--(_)--OOo-


"Start every day with a smile and get it over with."
-- W.C. Fields
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Remove nospam to email me.

Steve

[d***@panix.com]

[snip]

Post by SkippyPB

Post by d***@panix.com

Post by SkippyPB
One possible solution is to use the ADRDSSU utility.

Hmmmm... I recall seeing this utility recommended here before and I have a
copy of the JCL someplace... not one of the more common ones, I don't
recall reading about it in Trombetta & Finklestein.
[snip]

Post by SkippyPB
DUMP DATASET INCLUDE (H0SD1.**) -
EXCLUDE (H0SD1.MYFILE.**.**)) -
OUTDD (TAPEOUT) -
TOL (IOER) -
ALLX -
OPT(3) -
DELETE PURGE

[snip]

Post by SkippyPB
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ADR5R104/REVISIONS?SHELF=&DT=19950919164409

*Most* helpful and greatly appreciated. Thanks much!

DD

[foodman]

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.

Tony Dilworth

[d***@panix.com]

Post by foodman

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.

Mr Dilworth, it might be difficult for those of a particular bent to
realise what is being attempted here... but when I posted:

--begin quoted text:

Combining an interactive task, a logoff/logon sequence and a batch job in
this way - while it will work - offends my sense of elegance; while I have
a solution I'm looking for a better one.

--end quoted text

... I thought I had made it clear that I *had* done my own work - unless,
of course, phrases 'while it will work' and 'while I have a solution I'm
looking for a better one' are a bit too subtle to understand.

What I am looking for is a pointer to a way to improve what I have come up
with on my own... you know, Mr Dilworth, a way of trying to make one'sself
better by looking outside one'sself?

Hmmmmm... perhaps you *don't* know; my apologies if I made the mistake of
assuming too much on your part.

DD

[Colin Campbell]

Post by d***@panix.com

Post by foodman

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.

Mr Dilworth, it might be difficult for those of a particular bent to
Combining an interactive task, a logoff/logon sequence and a batch job in
this way - while it will work - offends my sense of elegance; while I have
a solution I'm looking for a better one.
--end quoted text
... I thought I had made it clear that I *had* done my own work - unless,
of course, phrases 'while it will work' and 'while I have a solution I'm
looking for a better one' are a bit too subtle to understand.
What I am looking for is a pointer to a way to improve what I have come up
with on my own... you know, Mr Dilworth, a way of trying to make one'sself
better by looking outside one'sself?
Hmmmmm... perhaps you *don't* know; my apologies if I made the mistake of
assuming too much on your part.
DD

Come on, you can't blame a guy for posting the equivalent of "do your
own homework"! It's too much fun to pass up. Besides, I'll bet he was
just messing with you. When I opened your original post, my very first
nasty, small-minded idea was to post the very same thing!

If I'm not mistaken, the 3.4 utility can be run in background. (I don't
have any mainframe access any more, so I can't "do my own checking".)
If true, then you can capture the JCL that is generated to do that, and
your desire to do the entire task in batch can be realized.

Gilbert's bag of goodies is well worth digging around in, so even if my
suggestion works for you, I suggest stealing a few cycles to play with
what he has pointed you to, as well.

When the bosses ask people to do mind-numbing stuff, they deserve to
have you spend some of your (paid) time learning more tricks to stave
off boredom, now and in the future.

It'd also be a good idea to introduce them to the concept of
"production" data sets, and Generation Data Groups. Carrying 14,000
data sets around, "owned" by various TSO Users, seems (insert your own
word here). TSO Userids were forbidden in production JCL, in our shop,
and we checked for violations when JCL was put into production. Using
GDGs, the old, unneeded, data sets could age off the catalog, and get
deleted automatically. They could still be named in some useful way
that allowed humans to understand what the contents were.

[d***@panix.com]

Post by Colin Campbell

Post by d***@panix.com

Post by foodman

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.

[snip]

Post by Colin Campbell

Post by d***@panix.com
What I am looking for is a pointer to a way to improve what I have come up
with on my own... you know, Mr Dilworth, a way of trying to make one'sself
better by looking outside one'sself?
Hmmmmm... perhaps you *don't* know; my apologies if I made the mistake of
assuming too much on your part.

Come on, you can't blame a guy for posting the equivalent of "do your
own homework"! It's too much fun to pass up.

Mr Capmbell blame can be laid in a variety of places at a variety of
times... the propriety of the laying might, of course, be subject to
debate. Mr Dilworth is not the first to offer such 'harmless joshin''
towards a posting of mine which... you might want to check out the
Subject: line of
<http://groups.google.com/group/comp.software.year-2000/msg/ce7b178d9841080b?dmode=source&hl=en>
which was put up here a few years back.

As for 'too much fon to pass up'... it has been said that part of what
makes someone What They Are is not what they do but what they also refrain
from doing... sorry to mention that but I could *not* resist.

Post by Colin Campbell
Besides, I'll bet he was
just messing with you. When I opened your original post, my very first
nasty, small-minded idea was to post the very same thing!

And yet... you refrained. I cannot speak for others, Mr Campbell, but I,
also, refrain from 'please do your job/homework' when someone shows a
modicum of initiative in their posting. In my own case, supplying a
completely functional solution which was unsatisfactory only to my
(admittedly idiosyncratic) sense of aesthetics might have counted for
that; it may have been that Mr Dilworth neglected to notice this, hence my
reminder.

Post by Colin Campbell
If I'm not mistaken, the 3.4 utility can be run in background. (I don't
have any mainframe access any more, so I can't "do my own checking".)
If true, then you can capture the JCL that is generated to do that, and
your desire to do the entire task in batch can be realized.

That's what I'm hoping to do, aye... but there's been little luck in that
yet. Then again... it is the weekend here.

[snip]

Post by Colin Campbell
When the bosses ask people to do mind-numbing stuff, they deserve to
have you spend some of your (paid) time learning more tricks to stave
off boredom, now and in the future.

To drag in a bit of the Religion threads that have been changing so many
minds here... a thought of mine has been, at times, 'May (divinity of your
choice) bless and keep you from getting 'what you deserve'.' Years on
back, when I was younger and nastier, I had a supervisor who would wander
into my work area (this job didn't even have cublcies, we had a
'programmer's pit') between seven and eight times a day... I'd be pounding
away furiously on my keyboard and he'd ask 'So, what are you doing?'

The first few times I actually thought he was interested so I dragged
myself 'down from the heights of inspiration' and explained to him what I
was attempting to accomplish... he'd listen, nod, say something like 'Very
good, keep at it!', stroll off... and come back 42.5 minutes later with
the same 'So, what are you doing?'

After the first times my response changed to 'I'm aboput forty-five
minutes ahead of where I was when you last asked'... and, of course, when
he smiled thinly and inquired 'Where were you when I last asked?' I
replied 'I can barely remember what I need to know to do my own job, I'm
not paid to remember what other people know to do theirs'...

... and when this failed to discourage him things broke down to
interactions of:

(clackety-clackety-clackety-clack)
'So, what're you doing?'

'I'm thinking about sex... and you've ruined it for me, are you happy
now?'

Post by Colin Campbell
It'd also be a good idea to introduce them to the concept of
"production" data sets, and Generation Data Groups.

One step at a time, old boy... in the nigh two-and-a-half years I've been
there I've managed to introduce the concept and practice of a VSAM
alternate index, de-duping files by DFSORT and using the DFSORT SPLICE
operator (thanks, Mr Yaeger!) to create files instead of writing custom
COBOL code to do match/merge processing against a half-dozen input
files... step at a time.

(Every time an idiocy in processing is encountered someone is bound to say
'Well, it looks stupid... but you have to understand the history behind
it'... and proceeds to relate a tale which combines Incompetent Managers,
Worthless Consultants, Impossible Budget Constraints... and the Virtuous
Coders - who, at the time, evidently didn't understand things like VSAM
alternate indices - struggling against such mighty odds to make the system
work.)

DD

[Pete Dashwood]

Post by d***@panix.com

Post by foodman

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.

Mr Dilworth, it might be difficult for those of a particular bent to
Combining an interactive task, a logoff/logon sequence and a batch job in
this way - while it will work - offends my sense of elegance; while I have
a solution I'm looking for a better one.
--end quoted text
... I thought I had made it clear that I *had* done my own work - unless,
of course, phrases 'while it will work' and 'while I have a solution I'm
looking for a better one' are a bit too subtle to understand.
What I am looking for is a pointer to a way to improve what I have come up
with on my own... you know, Mr Dilworth, a way of trying to make one'sself
better by looking outside one'sself?
Hmmmmm... perhaps you *don't* know; my apologies if I made the mistake of
assuming too much on your part.
DD

Assuming anything beyond the horizon of a garden mole, would be overdoing it
with Foodman, Doc...

Pete.

[d***@panix.com]

[snip]

Post by Pete Dashwood

Post by d***@panix.com
What I am looking for is a pointer to a way to improve what I have come up
with on my own... you know, Mr Dilworth, a way of trying to make one'sself
better by looking outside one'sself?
Hmmmmm... perhaps you *don't* know; my apologies if I made the mistake of
assuming too much on your part.

Assuming anything beyond the horizon of a garden mole, would be overdoing it
with Foodman, Doc...

Now, now, Mr Dashwood... Mr Campbell already explained how it was just
'harmless joshin'' on Mr Dilworth's part... but in case I was wrong I
apologised, just the same.

DD

[Pete Dashwood]

Post by foodman

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.

Do your own work.
Tony Dilworth

Getting gentler with age I see, and still not abe to originate an idea of
his own... :-)

Life on Planet Dilworth must still really suck.

Pete.

[Joe Zitzelberger]

Post by d***@panix.com
All righty... here's how we're spending some slow time here. Datasets get
USERID01.TAnnnnn.Pooo.Ddddhhmm.node
... where nnnnn represents a division, ooo is a pay period, ddd = 'Julian'
date, hhmm = time and .node is any one of four possible values. The
primary criterion of selection will be ooo, the pay period.
(Pay period is designated as single-digit year and 01 - 27, a biweekly
cycle; research has determined that the earliest datasets are P0, year
2000, and that no P9 exist.)
(I know... but I didn't design the naming convention.)
Folks in corner offices want these deleted and their wills be done... but
I'm looking to automate the task since there are about 14,000 datasets
involved, spread out over five USERIDs... oh, and most - but not all - are
in MIGRAT1 or MIGRAT2 status.
Now... if I use the (Library Function) 3.4 Data Set List Utility I can
specify a wildcarded string - eg USERID02.TA*.P0* - and the P command-line
option; if I log off and Keep my listing dataset I can then use it as
input to a DFSORT, taking the listings of
USERID02.TA11111.P001.NODE1
USERID02.TA11111.P001.NODE2
USERID02.TA22222.P001.NODE1
USERID02.TA22222.P002.NODE2
... etc. and editing/reformatting them to create another file, consisting
of...
HDELETE USERID02.TA11111.P001.NODE1
HDELETE USERID02.TA11111.P001.NODE2
HDELETE USERID02.TA22222.P001.NODE1
HDELETE USERID02.TA22222.P002.NODE2
... and use that as a SYSTSIN for an IKJEFT01. For the datasets that
aren't archived I can do this again and create an IDCAMS input of
DELETE USERID02.TA33333.P026.NODE3
... and get rid of the last.
Combining an interactive task, a logoff/logon sequence and a batch job in
this way - while it will work - offends my sense of elegance; while I have
a solution I'm looking for a better one.
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.
Might anyone be able to suggest where I might look to find such a utility?
Thanks much!
DD

The TSO manual documents an interface called ICF, I think that means
something like Interactive Catalog Facility, but I could be totally
wrong.

Anyway, it is very easy to use, you can do what amount to DSL calls
inside of Cobol programs. You can ask for all datasets that fit a mask,
for example USERID%%.**.NODEXYZ and repeated calls will return the next
dataset.

I think I could dig up an example program if needed...

[d***@panix.com]

[snip]

Post by Joe Zitzelberger

Post by d***@panix.com
What I'd like to do is find a utility that does in batch what the Data Set
List Utility does in the foreground, something that I can feed a string
like USERID02.TA*.P0* and have it generate the listing of the datasets
that I can feed to a SYSOUT and pass to the DFSORT edit/reformat step.
Might anyone be able to suggest where I might look to find such a utility?

The TSO manual documents an interface called ICF, I think that means
something like Interactive Catalog Facility, but I could be totally
wrong.
Anyway, it is very easy to use, you can do what amount to DSL calls
inside of Cobol programs. You can ask for all datasets that fit a mask,
for example USERID%%.**.NODEXYZ and repeated calls will return the next
dataset.
I think I could dig up an example program if needed...

I've been given a solution using ADRDSSU... but I'm always willing to take
a gander at another'n. It would be greatly appreciated, Mr Zitzelberger.

Thanks much!

DD