Sure! I hope it doesn't get too wordy.
First, I run IDCAMS to list all catalogs, master and user. I create
all tapes with a HLQ of TAPE, but I check all catalogs just in case.
Then I wrote a program to process this listing and search for tape
devices (I used PL/I, but back in the 80's, I wrote the same program
in assembler). Check the DEVTYPE for '80' in positions 5 and 6,
indicating a tape device. Write out the dataset name and the VOLSER
to a file.
Next, I sort the output file by VOLSER. I don't think this is really
necessary, but it makes the list look neater.
Then I read this list and generate shell commands to do the
following:
- Move all tape datasets to the SCRATCHTAPES directory
- Move the tapes with cataloged datasets (from the previous
output file) to the TAPES directory
Last, I use a program that I wrote (again back in the 80's) to
issue CP commands to the host. Hercules takes them and since they
start with 'sh' issues them to my host, which is Linux.
The only manual step I do after that is to re-initialize the
scratch tapes to release the previously used space.
I can provide you with any of my program code and JCL if you
like.
On 2/5/24 11:00, Doug Wegscheid wrote:
toggle quoted message
Show quoted text
On Mon, Feb 5, 2024 at 09:53 AM, Dennis Stone wrote:
Once a month I run a job to identify uncataloged tapes and
move them from the
used tapes directory to the scratch tapes directory. It works
like a charm.
I'd be really interested in seeing what that job looks like, or
a hint as to what utilities and processing were involved. Sounds
like a lot can be learned there.
