Tape volume information (TVI), mapped by macro CBRTVI, is used
to pass information from both the TCDB and the library manager inventory
about the volume specified on a CBRXLCS query volume residence request.
Here is the format for the tape volume information. The boldfaced lines of code are new for this release.
*********************************************************************
* *
* TAPE VOLUME INFORMATION MAPPING *
* *
*********************************************************************
SPACE 1
TVI DSECT ,
SPACE 1
*********************************************************************
* *
* HEADER *
* *
*********************************************************************
TVIHDR DS 0F TVI HEADER
TVIID DS CL4 TVI IDENTIFIER EBCDIC 'TVI '
TVILENG DS F LENGTH OF TVI
* USE THIS VALUE FOR STORAGE LENGTH
* WHEN FREEING TVI STORAGE
TVIVER DS XL1 VERSION OF TVI
TVIREV DS XL1 REVISION LEVEL OF TVI
TVISPNUM DS XL1 SUBPOOL IN WHICH TVI WAS OBTAINED
DS XL1 RESERVED FOR IBM USE
DS F RESERVED FOR IBM USE
********************************************************************
* *
* VOLUME SERIAL *
* *
********************************************************************
TVIVOLSR DS CL6 VOLUME SERIAL NUMBER
********************************************************************
* *
* VOLUME INFORMATION FROM THE TCDB *
* *
* NOTE: LIBRARY NAME AND CONSOLE NAME ARE FOUND IN THE LCSPL *
* - LIBRARY NAME IS STORED IN FIELD LCSLIBNM *
* - CONSOLE NAME IS STORED IN FIELD LCSCONSN *
* *
* IF THE LIBRARY NAME IS SPECIFIED ON THE QVR INVOCATION, LCSLIBNM *
* CONTAINS THE SPECIFIED LIBRARY AND LCSCONSN CONTAINS THE CONSOLE *
* NAME OF THE SPECIFIED LIBRARY. THE SPECIFIED LIBRARY NAME MAY *
* OR MAY NOT MATCH THE LIBRARY NAME IN THE VOLUME RECORD, TVILIBNM.*
* *
* IF THE LIBRARY NAME IS NOT SPECIFIED ON THE QVR INVOCATION, *
* AND THE VOLUME RECORD EXISTS IN THE TCDB, BOTH LCSLBNM AND *
* TVILIBNM FIELDS CONTAIN THE LIBRARY NAME FOUND IN THE VOLUME *
* RECORD. LCSCONSN CONTAINS THE CONSOLE NAME OF TVILIBNM. *
* *
* INCLUDE MAPPING MACRO CBRVERR TO DEFINE CONSTANTS *
* FOR THE VALUES ASSIGNED TO TVIERROR. *
* *
********************************************************************
TVIUSEA DS CL1 VOLUME USE ATTRIBUTE AS DEFINED IN
* THE TAPE VOLUME RECORD
* 'P' FOR PRIVATE
* 'S' FOR SCRATCH
DS XL1 RESERVED FOR IBM USE
TVITDSI DS 0F TAPE DEVICE SELECTION INFORMATION
TVIREC DS XL1 RECORDING TECHNOLOGY
TVIMEDIA DS XL1 MEDIA TYPE
TVICOMP DS XL1 COMPACTION
TVISPEC DS XL1 SPECIAL ATTRIBUTE
TVIERROR DS H VOLUME ERROR STATUS
DS XL2 RESERVED FOR IBM USE
TVISTGRP DS CL8 STORAGE GROUP NAME
TVIWPROT DS CL1 WRITE PROTECTION STATUS
* 'Y' FOR WRITE-PROTECTED
* 'N' FOR NOT WRITE-PROTECTED
* ' ' BLANK FOR STATUS UNKNOWN
TVICHKPT DS CL1 CHECKPOINT VOLUME INDICATOR
* 'Y' FOR CHECKPOINT VOLUME
* 'N' FOR NOT CHECKPOINT VOLUME
* ' ' BLANK FOR STATUS UNKNOWN
TVILOC DS CL1 VOLUME LOCATION CODE
* 'L' FOR LIBRARY-RESIDENT
* 'S' FOR SHELF-RESIDENT
TVIVINFO DS BL1 ADDITIONAL VOLUME INFORMATION
TVIVWORM DS B'10000000' ON IF VOLUME IS WORM TAPE AS DEFINED
* IN THE TAPE VOLUME RECORD (SET FOR
* PHYSICAL WORM - TVILWORM SET FOR
* LOGICAL WORM)
TVISHLOC DS CL32 SHELF LOCATION
TVIOWNER DS CL64 VOLUME OWNER INFORMATION
TVICREAT DS CL10 VOLUME RECORD CREATION DATE
TVIENTEJ DS CL10 LAST ENTRY OR EJECTION DATE
TVIMOUNT DS CL10 LAST MOUNTED DATE
TVIWRITE DS CL10 LAST WRITTEN DATE
TVIEXPIR DS CL10 VOLUME EXPIRATION DATE
TVILIBNM DS CL8 LIBRARY NAME FROM VOLUME RECORD
DS CL24 RESERVED FOR IBM USE
********************************************************************
* *
* VOLUME INFORMATION FROM LIBRARY MANAGER *
* *
********************************************************************
TVIOPM DS 0CL32 OUTBOARD POLICY MANAGEMENT
TVILMSG DS CL8 LIBRARY MANAGER STORAGE GROUP NAME
TVILMSC DS CL8 LIBRARY MANAGER STORAGE CLASS NAME
TVILMMC DS CL8 LIBRARY MANAGER MANAGEMENT CLASS
* NAME
TVILMDC DS CL8 LIBRARY MANAGER DATA CLASS NAME
*
TVIHCAT DS XL2 VOLUME CATEGORY IN HEX
TVILCAT DS CL2 VOLUME CATEGORY FROM LIBRARY MANAGER
* (CONSTANTS FOR CATEGORIES ASSIGNED TO
* TVILCAT ARE DECLARED LATER IN MACRO
* MACRO)
TVIMEDTY DS XL1 VOLUME MEDIA TYPE
* (FOR VALID VALUES, SEE MEDIA TYPE
* CONSTANTS UNDER TCDB TAPE DEVICE
* SELECTION INFORMATION)
TVIATTR DS XL1 VOLUME ATTRIBUTE
* 0 PHYSICAL NON-VTS VOLUME
* 1 LOGICAL VTS VOLUME
* 2 VTS LOGICAL VOLUME BEING
* IMPORTED
* 3 PHYSICAL VTS VOLUME
TVISTAT DS 0BL2 VOLUME STATUS
TVISTAT1 DS BL1 VOLUME STATUS - BYTE 1
TVIINACC EQU B'10000000' VOLUME IS IN LIBRARY BUT INACCESSIBLE
TVIMNT EQU B'01000000' VOLUME IS MOUNTED
TVIMNTQ EQU B'00100000' VOLUME IS QUEUED FOR MOUNT
TVIMNTIP EQU B'00010000' VOLUME IN PROCESS OF BEING MOUNTED
TVIDMNTQ EQU B'00001000' VOLUME QUEUED FOR DEMOUNT
TVIDMNTP EQU B'00000100' VOLUME IN PROCESS OF BEING DEMOUNTED
TVIEJCQ EQU B'00000010' VOLUME IS QUEUED FOR EJECT/EXPORT
TVIEJCIP EQU B'00000001' VOLUME IN PROCESS OF BEING
* EJECTED/EXPORTED
TVISTAT2 DS BL1 VOLUME STATUS - BYTE 2
TVIAUDQ EQU B'10000000' VOLUME QUEUED FOR AUDIT
TVIAUDIP EQU B'01000000' VOLUME IN PROCESS OF BEING AUDITED
TVIMISS EQU B'00100000' VOLUME IS MISPLACED
TVIBLAB EQU B'00010000' VOLUME HAS UNREADABLE OR NO LABEL
TVIUMAN EQU B'00001000' VOLUME WAS USED DURING MANUAL MODE
TVIMANEJ EQU B'00000100' VOLUME WAS MANUALLY EJECTED
TVIFASTR EQU B’00000010’ VOLUME IS ASSIGNED TO A CATEGORY
* WITH FAST READY ATTRIBUTE SET
TVISTATA DS BL1 ADDITIONAL VOLUME STATUS
TVICACHE EQU B'10000000' VOLUME IS CACHE RESIDENT
TVIVCOPY EQU B'01000000' VALID COPY IN AT LEAST TWO DISTRIBUTED
* LIBRARIES
TVIDCOPY EQU B'00100000' DUPLICATE COPY IN THE STAND ALONE
* VTS LIBRARY
TVIVOPM EQU B'00010000' NON DEFAULT TVIOPM PROVIDED
TVILOPM EQU B'00001000' VOLUME RESIDES IN A LIBRARY WITH
* OUTBOARD POLICY MANAGEMENT SUPPORT
TVILWORM EQU B'00000100’ LOGICAL WORM VOLUME1
TVIEXFLG DS BL1 EXPANDED VOLUME STATUS FLAGS
TVICCMOK EQU X'80' COPY CLUSTER BIT MAPPING TVICCMAP
VALID TO LOOK AT (UNAVAILABE CLUSTERS
MAY STILL BE EXCLUDED FROM MAPPING)
TVICCMAP DS BL1 COPY CLUSTER BIT MAPPIMG (LEFT TO RIGHT
STARTING WITH CLUSTER 0)
TVICCCL0 EQU X'80' CL0 HAS VALIDATED CONSISTENT COPY
TVICCCL1 EQU X'40' CL1 HAS VALIDATED CONSISTENT COPY
TVICCCL2 EQU X'20' CL2 HAS VALIDATED CONSISTENT COPY
TVICCCL3 EQU X'10' CL3 HAS VALIDATED CONSISTENT COPY
TVICCCL4 EQU X'08' CL4 HAS VALIDATED CONSISTENT COPY
TVICCCL5 EQU X'04' CL5 HAS VALIDATED CONSISTENT COPY
TVICCCL6 EQU X'02' CL6 HAS VALIDATED CONSISTENT COPY
TVICCCL7 EQU X'01' CL7 HAS VALIDATED CONSISTENT COPY
DS CL23 RESERVED FOR IBM USE
DS 0D END OF VTI
TVILNGTH EQU *-TVI
SPACE 1
********************************************************************
* *
* TCDB USE ATTRIBUTE CONSTANTS *
* *
********************************************************************
TVIPRIV EQU C'P' PRIVATE USE ATTRIBUTE
TVISCRT EQU C'S' SCRATCH USE ATTRIBUTE
SPACE 1
********************************************************************
* *
* TCDB TAPE DEVICE SELECTION INFORMATION CONSTANTS *
* *
********************************************************************
* CONSTANTS TO DEFINE RECORDING TECHNOLOGY
TVINOREC EQU 0 RECORDING TECHNOLOGY UNKNOWN OR
* UNSPECIFIED
TVI18TRK EQU 1 READ/WRITE ON 18 TRACK DEVICE
TVI36TRK EQU 2 READ/WRITE ON 36 TRACK DEVICE
TVI128TRK EQU 3 READ/WRITE ON 128 TRACK DEVICE
TVI256TRK EQU 4 READ/WRITE ON 256 TRACK DEVICE
TVI384TRK EQU 5 READ/WRITE ON 384 TRACK DEVICE
TVIEFMT1 EQU 6 READ/WRITE ON ENTERPRISE FORMAT 1
* (EFMT1) DEVICE
TVIEFMT2 EQU 7 READ/WRITE ON ENTERPRISE FORMAT 2
* (EFMT2) DEVICE
TVIEEFMT2 EQU 8 READ/WRITE ON ENTERPRISE ENCRYPTED FORMAT 2
* (EEFMT2) DEVICE
TVIEFMT3 EQU 9 READ/WRITE ON ENTERPRISE FORMAT 3
* (EFMT3) DEVICE
TVIEEFMT3 EQU 10 READ/WRITE ON ENTERPRISE ENCRYPTED FORMAT 3
* (EEFMT3) DEVICE
TVIEFMT4 EQU 11 READ/WRITE ON ENTERPRISE FORMAT 4
* (EFMT4) DEVICE
TVIEEFMT4 EQU 12 READ/WRITE ON ENTERPRISE ENCRYPTED FORMAT 4
* (EEFMT4) DEVICE
* CONSTANTS TO DEFINE MEDIA TYPE
TVINOMED EQU 0 MEDIA TYPE UNKNOWN OR UNSPECIFIED
TVIMED1 EQU 1 MEDIA1 - CARTRIDGE SYSTEM TAPE
TVIMED2 EQU 2 MEDIA2 - ENHANCED CAPACITY CARTRIDGE
* SYSTEM TAPE
TVIMED3 EQU 3 MEDIA3 - HIGH PERFORMANCE CARTRIDGE
* TAPE
TVIMED4 EQU 4 MEDIA4 - EXTENDED HIGH PERFORMANCE
* CARTRIDGE TAPE
TVIMED5 EQU 5 MEDIA5 - ENTERPRISE TAPE CARTRIDGE
TVIMED6 EQU 6 MEDIA6 - ENTERPRISE WORM CARTRIDGE
* TAPE
TVIMED7 EQU 7 MEDIA7 - ENTERPRISE ECONOMY
* CARTRIDGE TAPE
TVIMED8 EQU 8 MEDIA8 - ENTERPRISE ECONOMY WORM
* CARTRIDGE TAPE
TVIMED9 EQU 9 MEDIA9 - ENTERPRISE EXTENDED
* TAPE CARTRIDGE
TVIMED10 EQU 10 MEDIA10 - ENTERPRISE EXTENDED WORM
* TAPE CARTRIDGE
TVIMED11 EQU 11 MEDIA11 - ENTERPRISE ADVANCED
* TAPE CARTRIDGE
TVIMED12 EQU 12 MEDIA12 - ENTERPRISE ADVANCED
* WORM TAPE CARTRIDGE
TVIMED13 EQU 13 MEDIA13 - ENTERPRISE ADVANCED
* ECONOMY TAPE CARTRIDGE
* CONSTANTS TO DEFINE COMPACTION
* (TVIIDRC AND TVICOMPT CAN BE USED INTERCHANGEABLY)
TVICMPNS EQU 0 COMPACTION UNKNOWN OR NOT SET
TVINOCMP EQU 1 NO COMPACTION
TVIIDRC EQU 2 COMPACTION
TVICOMPT EQU 2 COMPACTION
* CONSTANTS TO DEFINE SPECIAL ATTRIBUTE
TVINOSPC EQU 0 VOLUME HAS NO SPECIAL ATTRIBUTE
TVIRDCOM EQU 1 VOLUME WILL BE MOUNTED FOR READ ONLY -
* ALL READ-COMPATIBLE DEVICES MAY BE
* SELECTED
********************************************************************
* *
* VOLUME ATTRIBUTE CONSTANTS *
* *
********************************************************************
TVIPHYCL EQU 0 PHYSICAL NON-VTS VOLUME
TVILOGCL EQU 1 LOGICAL VTS VOLUME
TVIMPORT EQU 2 VTS LOGICAL VOLUME BEING IMPORTED
TVISTKED EQU 3 PHYSICAL VTS VOLUME
*
********************************************************************
* *
* MISCELLANEOUS SOFTWARE CONSTANTS *
* *
********************************************************************
TVIYES EQU C'Y' YES
TVINO EQU C'N' NO
TVIBLANK EQU C' ' BLANK
*
********************************************************************
* *
* LIBRARY MANAGER CATEGORY CONSTANTS FOR TVILCAT *
* *
********************************************************************
TVISCRM1 EQU C'S1' VOLUME IS MEDIA1 SCRATCH
TVISCRM2 EQU C'S2' VOLUME IS MEDIA2 SCRATCH
TVISCRM3 EQU C'S3' VOLUME IS MEDIA3 SCRATCH
TVISCRM4 EQU C'S4' VOLUME IS MEDIA4 SCRATCH
TVISCRM5 EQU C'S5' VOLUME IS MEDIA5 SCRATCH
TVISCRM6 EQU C'S6' VOLUME IS MEDIA6 SCRATCH
TVISCRM7 EQU C'S7' VOLUME IS MEDIA7 SCRATCH
TVISCRM8 EQU C'S8' VOLUME IS MEDIA8 SCRATCH
TVISCRM9 EQU C'S9' VOLUME IS MEDIA9 SCRATCH
TVISCRMA EQU C'SA' VOLUME IS MEDIA10 SCRATCH
TVISCRMB EQU C'SB' VOLUME IS MEDIA11 SCRATCH
TVISCRMC EQU C'SC' VOLUME IS MEDIA12 SCRATCH
TVISCRMD EQU C'SD' VOLUME IS MEDIA13 SCRATCH
TVIERRC EQU C'ER' VOLUME IS IN ERROR CATEGORY
TVIPRIVC EQU C'PR' VOLUME IS IN PRIVATE CATEGORY
TVIINSRT EQU C'IN' VOLUME IS IN INSERT CATEGORY
TVICNVEJ EQU C'CE' VOLUME IS IN CONVENIENCE EJECT CATEGORY
TVIBLKEJ EQU C'BE' VOLUME IS IN BULK EJECT CATEGORY
TVIPURGE EQU C'PG' VOLUME IS IN PURGE CATEGORY
TVIMEJCT EQU C'ME' VOLUME IS IN MANUAL EJECT CATEGORY
TVIIMPRT EQU C'IM' VOLUME IS IN IMPORT CATEGORY
* (PHYSICAL VOLUMES CONTAINING LOGICAL
* VOLUMES TO IMPORT)
TVIIMPND EQU C'IP' VOLUME IS IN IMPORT PENDING CATEGORY
TVIEXPND EQU C'XP' VOLUME IS IN EXPORT PENDING CATEGORY
TVIEXPTD EQU C'XD' VOLUME IS IN EXPORTED CATEGORY
TVISTAKD EQU C'ST' VOLUME IS IN STACKED VOLUME CATEGORY
* (PHYSICAL VOLUMES THAT VTS MANAGES)
TVIUNASN EQU C'UA' VOLUME IS IN UNASSIGNED CATEGORY
TVIEXPHD EQU C'EH' VOLUME IS IN EXPORT HOLD CATEGORY
* (PHYSICAL VOLUMES CONTAINING LOGICAL
* VOLUMES THAT COMPLETED EXPORT
* PROCESSING)
TVICEXP EQU C'CX' VOLUME IS IN COPY EXPORT CATEGORY
* (PHYSICAL VOLUMES THAT HAVE BEEN OR
* ARE IN THE PROCESS OF BEING COPY
* EXPORTED)
TVICEXPH EQU C'CH' VOLUME IS IN COPY EXPORT HOLD CATEGORY
* (PHYSICAL VOLUMES THAT HAVE BEEN MOVED
* OR ARE BEING MOVED INTO THE COPY
* EXPORT HOLD STATE)
TVIBADTK EQU C'BT' VOLUME IS IN CORRUPTED TOKEN CATEGORY
TVIBDLBL EQU C'BL' VOLUME IS IN UNREADABLE OR INVALID
* INTERNAL LABEL CATEGORY
TVIUNK EQU C'UN' VOLUME CATEGORY IS NOT KNOWN
********************************************************************
* *
* HEADER CONSTANTS *
* *
********************************************************************
TVIIDC EQU C'TVI ' TVI IDENTIFIER
TVIVERV EQU 1 VERSION
TVIREVV EQU 13 REVISION LEVEL
.END MEND */