Tape device selection information (TDSI), mapped by macro CBRTDSI, is used to pass device selection information to and among system components providing tape library support. Here is the format for Tape Device Selection Information.
*--------------------------------------------------------------------*
* TAPE DEVICE SELECTION INFORMATION *
*--------------------------------------------------------------------*
TDSI DSECT , TAPE DEVICE SELECTION INFORMATION
*
*--------------------------------------------------------------------
TDSDEVT DS 0F
TDSREC DS XL1 RECORDING TECHNOLOGY
TDSMEDIA DS XL1 MEDIA TYPE
TDSCOMP DS XL1 COMPACTION TYPE
TDSSPEC DS XL1 SPECIAL ATTRIBUTES
*--------------------------------------------------------------------*
* CONSTANT FOR DONTCARE OR ZERO *
* ZERO, OR TDSNOCAR, IS AN ACCEPTABLE VALUE FOR TDSI. *
*--------------------------------------------------------------------*
TDSNOCAR EQU 0
*--------------------------------------------------------------------*
* CONSTANTS TO DEFINE RECORDING TECHNOLOGY *
*--------------------------------------------------------------------*
TDSNOREC EQU 0 RECORDING TECHNOLOGY UNKNOWN OR
* UNSPECIFIED
TDS18TRK EQU 1 READ/WRITE ON 18 TRACK DEVICE
TDS36TRK EQU 2 READ/WRITE ON 36 TRACK DEVICE
TDS128TRK EQU 3 READ/WRITE ON 128 TRACK DEVICE
TDS256TRK EQU 4 READ/WRITE ON 256 TRACK DEVICE
TDS384TRK EQU 5 READ/WRITE ON 384 TRACK DEVICE
TDSEFMT1 EQU 6 READ/WRITE ON ENTERPRISE
* FORMAT 1 (EFMT1) DEVICE
TDSEFMT2 EQU 7 READ/WRITE ON ENTERPRISE
* FORMAT 2 (EFMT2) DEVICE
TDSEEFMT2 EQU 8 READ/WRITE ON ENTERPRISE ENCRYPTED
* FORMAT 2 (EEFMT2) DEVICE
TDSEFMT3 EQU 9 READ/WRITE ON ENTERPRISE
* FORMAT 3 (EFMT3) DEVICE
TDSEEFMT3 EQU 10 READ/WRITE ON ENTERPRISE ENCRYPTED
* FORMAT 3 (EEFMT3) DEVICE
TDSEFMT4 EQU 11 READ/WRITE ON ENTERPRISE
* FORMAT 4 (EFMT4) DEVICE
TDSEEFMT4 EQU 12 READ/WRITE ON ENTERPRISE ENCRYPTED
* FORMAT 4 (EEFMT4)DEVICE
*--------------------------------------------------------------------*
* CONSTANTS TO DEFINE MEDIA TYPE *
*--------------------------------------------------------------------*
TDSNOMED EQU 0 MEDIA TYPE UNKNOWN OR UNSPECIFIED
TDSMED1 EQU 1 MEDIA1 - CARTRIDGE SYSTEM TAPE
TDSMED2 EQU 2 MEDIA2 - ENHANCED CAPACITY
* CARTRIDGE SYSTEM TAPE
TDSMED3 EQU 3 MEDIA3 - HIGH PERFORMANCE CARTRIDGE
* TAPE
TDSMED4 EQU 4 MEDIA4 - EXTENDED HIGH PERFORMANCE
* CARTRIDGE TAPE
TDSMED5 EQU 5 MEDIA5 - ENTERPRISE TAPE CARTRIDGE
TDSMED6 EQU 6 MEDIA6 - ENTERPRISE WORM TAPE
* CARTRIDGE
TDSMED7 EQU 7 MEDIA7 - ENTERPRISE ECONOMY TAPE
* CARTRIDGE
TDSMED8 EQU 8 MEDIA8 - ENTERPRISE ECONOMY WORM
* TAPE CARTRIDGE
TDSMED9 EQU 9 MEDIA9 - ENTERPRISE EXTENDED TAPE
* CARTRIDGE
TDSMED10 EQU 10 MEDIA10 - ENTERPRISE EXTENDED WORM
* TAPE CARTRIDGE
TDSMED11 EQU 11 MEDIA11 - ENTERPRISE ADVANCED
* TAPE CARTRIDGE
TDSMED12 EQU 12 MEDIA12 - ENTERPRISE ADVANCED
* WORM TAPE CARTRIDGE
TDSMED13 EQU 13 MEDIA13 - ENTERPRISE ADVANCED
* ECONOMY TAPE CARTRIDGE
*--------------------------------------------------------------------*
* *
* CONSTANTS TO DEFINE COMPACTION TYPE *
* (THE MEANING OF THE COMPACTION FIELD HAS CHANGED *
* FROM TYPE OF COMPACTION TO COMPACTION YES/NO. *
* TDSIDRC AND TDSCOMPT CAN BE USED INTERCHANGEABLY.) *
*--------------------------------------------------------------------*
TDSCMPNS EQU 0 COMPACTION TYPE UNKNOWN OR NOT SET
TDSNOCMP EQU 1 NO COMPACTION
TDSIDRC EQU 2 COMPACTION
TDSCOMPT EQU 2 COMPACTION
*--------------------------------------------------------------------*
* CONSTANTS TO DEFINE SPECIAL ATTRIBUTE *
*--------------------------------------------------------------------*
TDSNOSPC EQU 0 VOLUME HAS NO SPECIAL ATTRIBUTE
TDSRDCOM EQU 1 VOLUME WILL BE MOUNTED FOR READ
* ONLY - ALL READ-COMPATIBLE
* DEVICES MAY BE SELECTED
*--------------------------------------------------------------------*