Chuck, If you're familiar with COBOL you can write a COBOL program that will do what you want. We wrote a couple of COBOL programs that read the TMS dataset and provides reports for DR purposes.
Thanks, Ron McCabe Mutual of Enumclaw -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hardee, Chuck Sent: Friday, February 12, 2016 6:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Reading the CA-1 Tape Catalog Yes, I know, that is EXACTLY why I want to read the CA-1 tape library. I'm already getting the active cataloged tapes from the CSI call. I then use the VOLSER from those results to get more information from CA-1. What I'm looking for is how to read the CA-1 library and find all the tapes that match the GDG name I've been given. From there, I can get the information I need. I've read thru the CA-1 programming manual and, not being familiar with some of the terminology and concepts behind CA-1, things didn't quite gel with me. Since I posted my query this morning, I have had someone reply with information that has made some things come together with what I have read, but I now have other questions that I need to ask. Thanks for the feedback Mike. Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration EAS Information Technology Thermo Fisher Scientific 300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com | www.thermofisher.com WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this e-mail or the information herein by anyone other than the intended recipient, or an employee or agent of a system responsible for delivering the message to the intended recipient, is prohibited. If you are not the intended recipient, please inform the sender and delete all copies. -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Schwab Sent: Friday, February 12, 2016 9:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Reading the CA-1 Tape Catalog Until the tape is overwritten the scratched tapes will still be in the database. On Fri, Feb 12, 2016 at 5:17 AM, Hardee, Chuck <chuck.har...@thermofisher.com> wrote: > Hello Everyone, > > I have posted this to the IBM Mainframe and IBM Assembler lists. > > I was wondering if anyone has ever written a program to read the CA-1 Tape > Catalog for a generic name? > In a nutshell, what I am wanting to do is look up in the catalog all entries > for a GDG base name. > > Currently my program issues a call to the IBM Catalog Search Interface (CSI) > program, IGGCSI00, passing the GDG name and I get back all entries that are > currently cataloged. However, if I go to CA-1's TSO Inquiry panel and put in > the GDG name modified to have a low level qualifier of "-" (CA-1's equivalent > of "*"), I get back 621 entries. Since the GDG is defined to have 150 > entries, that's all I'll ever get, via MVS services. However, as can be seen, > there are more tapes available. > > I have read thru the CA-1 Tape Management Programming Guide, and there appear > to be numerous macros that can be used to access the catalog, but the > narratives for the macros leave something to be desired in the name of > clarity when one isn't a CA-1 expert. And, before you ask, yes, I have asked > CA-1 support for help but I am getting the run around from them. For whatever > reason, they just don't want to seem to help. It may be a level 1 protecting > level 2 situation, or it may just be they don't want to take the time to > educate the user community. Whatever the reason, I need to look for > alternative assistance. > > So, if anyone has a snippet or three of code to OPEN, READ and CLOSE the CA-1 > catalog looking for a dataset name, I would appreciate it if you would be > willing to share. > > Thanks in advance, > Chuck > > > Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com> > Senior Systems Engineer/Database Administration EAS Information > Technology > > Thermo Fisher Scientific > 300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | > Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230 > chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com> | > www.thermofisher.com > > WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of > this e-mail or the information herein by anyone other than the intended > recipient, or an employee or agent of a system responsible for delivering the > message to the intended recipient, is prohibited. If you are not the intended > recipient, please inform the sender and delete all copies. > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Confidentiality Notice: This e- mail and all attachments may contain CONFIDENTIAL information and are meant solely for the intended recipient. It may contain controlled, privileged, or proprietary information that is protected under applicable law and shall not be disclosed to any unauthorized third party. If you are not the intended recipient, you are hereby notified that any unauthorized review, action, disclosure, distribution, or reproduction of any information contained in this e- mail and any attachments is strictly PROHIBITED. If you received this e- mail in error, please reply to the sender immediately stating that this transmission was misdirected, and delete or destroy all electronic and paper copies of this e-mail and attachments without disclosing the contents. This e- mail does not grant or assign rights of ownership in the proprietary subject matter herein, nor shall it be construed as a joint venture, partnership, teaming agreement, or any other formal business relationship. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN