Page 1 of 1

CA Tape Inquiry (TI) in batch mode in REXX program

PostPosted: Sun Jan 20, 2019 9:00 pm
by rakeshp
The requirement is to extract the catalog information for some 100k files, out of which 30k are on tape. I have written a REXX program to trap the output of the DSLIST and LISTCAT for the files that are on DASD and then parse the output to extract the required information. This is working fine, but need help in doing the same for the tape files.

The shop has the tool "CA-1 TAPE INQUIRY" to see the catalog information. And it can be used by giving "TI" against the file name in option 3.4. But I am unable to use the same in the batch mode in REXX program.

Please suggest, how to extract the catalog information of tape files in batch mode through REXX program. Mainly I need the information of RECFM, LRECL, BLKSIZE, Creation Date, Last Used Date etc. I checked with system admins and they also don't have any way to get these information easily.

I did some google and went through the CA-1 manual and then tried the below, but it says command not found.
1. TSO TI ('PROD.DAJ010D.NMBA.VEND.DWNLD')
2. TSO TIQ ('PROD.DAJ010D.NMBA.VEND.DWNLD')
3. TSMTOSTQ ('PROD.DAJ010D.NMBA.VEND.DWNLD')

Below is the output of "TI" when used in 3.4


 -----------------------------   CA-1 TAPE INQUIRY  ----------------------------
                                                                               
 Data Set Name . . . : PROD.DAJ010D.NMBA.VEND.DWNLD                
                                                                               
 General Data                         Creation Information                      
  Volume Serial. . . : D46438          Date . . . . . . : 2012/07/30            
  Alternate Volume . :                 Time . . . . . . : 01:05:00              
  Media type   . . . : 3590-128X       Jobname  . . . . : DAJ010D              
  Record Format. . . : FB              Program  . . . . : IEBGENER              
  Record Length. . . : 94             Last Used Information                    
  Block Size   . . . : 32712           Date . . . . . . : 2012/07/30            
  Number of blocks . : 2120718         Time . . . . . . : 01:05:00              
  Percent utilized . :                 Jobname  . . . . : DAJ010D              
  Batch ID/Hook ID . :                Expiration Information                    
  Status   . . . . . : ACTIVE          Expire Date. . . : CATALOG              
                                                                               
 File  / Volume Set                   Vault Management Information              
  Base Volume. . . . : D46438          Outcode. . . . . :                      
  Sequence Number. . : 1               Slot   . . . . . : 0000000              
  Total Files in Set : 1               Outdate. . . . . :                      
 Secondary volumes:                                                            
 USER DATA: ..   .CONCATENATE FILES      ..15541840NM                          
 


Below is code snippet for listcat used in the REXX program, just for reference:

y = OUTTRAP("Lst.")                            
Address TSO "LISTCAT ENTRIES('"filename"') all"
y = OUTTRAP("OFF")                            
 

Re: CA Tape Inquiry (TI) in batch mode in REXX program

PostPosted: Mon Jan 21, 2019 12:44 am
by enrico-sorichetti
read the CA Tape Inquiry manuals to see if it can be scripted using rexx

Re: CA Tape Inquiry (TI) in batch mode in REXX program

PostPosted: Mon Jan 21, 2019 8:10 am
by Robert Sample
CA-1 batch reporting is done using CA-EARL. https://docops.ca.com/ca-1-tms/14-0/en/ ... m-ca-1-tmc has information about it as well as sample programs to pull data from CA-1.

Re: CA Tape Inquiry (TI) in batch mode in REXX program

PostPosted: Mon Jan 21, 2019 12:50 pm
by expat
The IBM Catalog Search Interface - which can easily be processed in REXX should give you everything that you need.

Worth a google IMHO.

Re: CA Tape Inquiry (TI) in batch mode in REXX program

PostPosted: Mon Jan 21, 2019 6:28 pm
by rakeshp
Thank you everyone for your responses. I will go through the CA1 manual again, then try the CA-Earl job and explore IBM Catalog Search Interface too.
I will post back if I need more guidance. Also if I am able to build the solution, will post the same too.