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