The LCS External Services Parameter List (LCSPL), mapped by macro
CBRLCSPL, is used to pass parameters to the LCS External Services,
and to pass return and reason codes and other information back to
the caller.
The storage for the LCSPL must be aligned to a fullword boundary.
If this is not the case, an error is returned and the requested function
is not performed.
Here is the format of the LCS External Services parameter list.
The boldfaced lines of code are new for this release.
Rule: Fields that are identified as
RESERVED FOR IBM FUTURE OR INTERNAL USE must not be used by the installation.
*---------------------------------------------------------------------*
* *
* LIBRARY CONTROL SYSTEM (LCS) PARAMETER LIST *
* *
*---------------------------------------------------------------------*
SPACE 1
LCSPL DSECT , LCS PARAMETER LIST
SPACE 1
*---------------------------------------------------------------------*
* *
* CBRXLCS OUTPUT PARAMETERS *
* *
*---------------------------------------------------------------------*
LCSOPARM DS 0F CBRXLCS OUTPUT PARAMETER SECTION
LCSLIBNM DS CL8 LIBRARY NAME
LCSCONSN DS CL8 CONSOLE NAME
LCSLBID DS CL5 LIBRARY ID
DS CL3 RESERVED FOR ALIGNMENT
LCSTVI@ DS A ADDRESS OF TAPE VOLUME INFORMATION,
* MAPPED BY CBRTVI
LCSTDI@ DS A ADDRESS OF PTP VTS DATA
* MAPPED BY CBRTDI
DS A RESERVED FOR IBM FUTURE USE
DS A RESERVED FOR IBM INTERNAL USE
DS A RESERVED FOR IBM INTERNAL USE
LCSFLAGS DS XL1 OUTPUT FLAGS
LCSATL EQU X'80' ON IF THE LIBRARY IS AUTOMATED
LCSMTL EQU X'40' ON IF THE LIBRARY IS MANUAL
LCSVTS EQU X'10' ON IF THE LIBRARY IS A VTS
LCSVCL EQU X'08' ON IF VTS COMPOSITE LIBRARY
LCSVDL EQU X'04' ON IF VTS DISTRIBUTED LIBRARY
LCSVE EQU X'02' ON IF VTS VIRTUALIZATION ENGINE
DS XL1 RESERVED FOR IBM FUTURE USE
LCSMFLGS DS XL1 MISCELLANEOUS OUTPUT FLAGS
LCSLOPM EQU X'80' ON IF OUTBOARD POLICY MANAGEMENT
* SUPPORTED IN LIBRARY
DS XL1 RESERVED FOR IBM FUTURE USE
LCSRCODE DS F CBRXLCS RETURN CODE
LCSREAS DS F CBRXLCS REASON CODE
DS XL8 RESERVED FOR IBM FUTURE USE
LCSPOLEN EQU *-LCSOPARM LENGTH EQUATE FOR OUTPUT PARMS
*
*---------------------------------------------------------------------*
* *
* CBRXLCS RETURN CODES *
* (RETURNED IN REGISTER 15 AND FIELD LCSRCODE UPON *
* COMPLETION OF LCS EXTERNAL SERVICES PROCESSING) *
* *
*---------------------------------------------------------------------*
*
LCSSUCC EQU 0 SUCCESSFUL EXECUTION
LCSWARN EQU 4 REQUEST COMPLETED WITH WARNING
* CONDITION
LCSIREQ EQU 8 INVALID REQUEST
LCSFAIL EQU 12 REQUEST FAILED
LCSENVIR EQU 16 INVALID ENVIRONMENT
*
*---------------------------------------------------------------------*
* *
* CBRXLCS INPUT PARAMETERS *
* (INITIALIZED BY THE CBRXLCS MACRO EXPANSION) *
* *
*---------------------------------------------------------------------*
LCSIPARM DS F CBRXLCS INPUT PARAMETER SECTION
LCSFLAG DS BL4 FLAG BYTES
LCSFLG1 DS BL1 FLAG BYTE 1
* BITS ASSIGNED TO LCSFLG1
LCS_VOLIST EQU B'10000000' MCE VOLUME LIST PARAMETER SPECIFIED
LCS_VOLUME EQU B'00100000' VOLUME PARAMETER SPECIFIED
LCS_SPNUM EQU B'00010000' SUBPOOL PARAMETER SPECIFIED
LCS_UCBPTR EQU B'00001000' UCBPTR PARAMETER SPECIFIED
LCS_USE EQU B'00000100' USE PARAMETER SPECIFIED
LCS_TYPE EQU B'00000010' TYPE PARAMETER SPECIFIED
LCS_FUNC EQU B'00000001' FUNC PARAMETER SPECIFIED
*
LCSFLG2 DS BL1 FLAG BYTE 2
* BITS ASSIGNED TO LCSFLG2
LCS_DEVTYPE EQU B'10000000' DEVICE TYPE PARAMETER SPECIFIED
LCS_GRPNAME EQU B'01000000' STORAGE GROUP NAME PARAMETER
* SPECIFIED
LCS_EXPDATE EQU B'00100000' EXPIRATION DATE PARAMETER
* SPECIFIED
LCS_WRTDATE EQU B'00010000' LAST DATE WRITTEN PARAMETER
* SPECIFIED
LCS_WRTPROT EQU B'00001000' WRITE PROTECTION STATUS
* PARAMETER SPECIFIED
LCS_LIBID EQU B'00000100' LIBRARY ID PARAMETER SPECIFIED
LCS_LIBNAME EQU B'00000001' LIBRARY NAME PARM SPECIFIED
*
LCSFLG3 DS BL1 FLAG BYTE 3
LCS_EXITINFO EQU B'10000000' INSTALLATION EXIT INFORMATION
* SPECIFIED
LCS_BULKEJCT EQU B'01000000' BULK EJECT PARAMETER SPECIFIED
LCS_EJECTOPT EQU B'00100000' EJECTOPT PARAMETER SPECIFIED
LCS_VOLINFO EQU B'00000100' VOLINFO=YES SPECIFIED
LCS_USERID EQU B'00000010' USERID SPECIFIED (FUNC EJECT)
LCS_CANCEL EQU B'00000001' CANCEL SPECIFIED
LCSFLG4 DS BL1 FLAG BYTE 4 (FUNCTION SPECIFIC)
* QVR FUNCTION FLAG
LCS_NOTCDBCK EQU B'10000000' NO RECORD RETRIEVAL FOR QVR
LCS_STORADDR EQU B'01000000' STORADDR SPECIFIED
LCS_QVRSPLOC EQU B'00100000' QVR SUBPOOL LOCATION SPECIFIED
* GDPS PTPMC AND PTPDATA FUNCTION FLAGS
LCS_IOLIB EQU B'10000000' PTPMC IOLIB SPECIFIED
LCS_COPYMODE EQU B'01000000' PTPMC COPYMODE SPECIFIED
LCS_COPYOPER EQU B'00100000' PTPMC COPYOPER SPECIFIED
LCS_ACCESS EQU B'00010000' PTPMC ACCESS SPECIFIED
LCS_DATATYPE EQU B'00001000' PTPDATA DATATYPE SPECIFIED
LCS_SPLOC EQU B'00000100' SUBPOOL LOCATION SPECIFIED
LCS_DEFTHRSH EQU B'00000010' DEFERRED THRESHOLD SPECIFIED
* CUA OUTBOARD POLICY MANAGEMENT FLAGS
LCS_GETPOLICY EQU B'10000000' GETPOLICY SPECIFIED
LCS_SETLMSC EQU B'01000000' SCNAME POLICY SPECIFIED
LCS_SETLMMC EQU B'00100000' MCNAME POLICY SPECIFIED
LCS_SETLMDC EQU B'00010000' DCNAME POLICY SPECIFIED
* LCS_GRPNAME USED FOR SG
*
*---------------------------------------------------------------------*
* *
* CBRXLCS FUNCTION AND FUNCTION TYPES *
* *
*---------------------------------------------------------------------*
LCSTYPE DS XL1 FUNCTION TYPE
LCSTAPE EQU 1 FUNCTION TYPE = TAPE
*
LCSFUNC DS XL1 REQUEST FUNCTION
*
LCSTVE EQU 1 TEST VOLUME ELIGIBILITY
LCSCUA EQU 3 CHANGE USE ATTRIBUTE
LCSOLN EQU 4 OBTAIN LIBRARY NAME INFORMATION
LCSMCE EQU 5 MANUAL CARTRIDGE ENTRY
LCSQVR EQU 6 QUERY VOLUME RESIDENCE
LCSEJECT EQU 7 EJECT VOLUME
LCSIMPRT EQU 8 IMPORT
LCSEXPRT EQU 9 EXPORT
LCSPTPMC EQU 10 PEER-TO-PEER MODE CONTROL
LCSPTPDT EQU 11 PEER-TO-PEER DATA REQUEST
*
*---------------------------------------------------------------------*
* *
* OTHER INPUT PARAMETERS AND CONSTANTS USED TO INITIALIZE THEM *
* (INITIALIZED BY THE CBRXLCS MACRO EXPANSION) *
* *
*---------------------------------------------------------------------*
LCSUSE DS XL1 USE ATTRIBUTE TYPE
* VALUES ASSIGNED TO LCSUSE
LCSPRIV EQU 1 USE ATTRIBUTE OF PRIVATE
LCSSCR EQU 2 USE ATTRIBUTE OF SCRATCH
*
LCSSPNUM DS XL1 SUBPOOL NUMBER IN WHICH TO OBTAIN
* STORAGE FOR TVI/TDI
LCSSTOR@ DS A POINTER TO STORADDR STORAGE
LCSEXPDT DS XL4 EXPIRATION DATE
LCSDVTYP DS A POINTER TO THE TAPE DEVICE
* SELECTION INFORMATION
LCSUCB@ DS A UCB ADDRESS FOR TAPE DRIVE WHOSE
* ELIGIBILITY IS TO BE TESTED
LCSVOL@ DS A POINTER TO A LIST OF VOLUME SERIAL
* NUMBERS
DS A RESERVED FOR IBM INTERNAL USE
LCSEXITI DS XL16 INFORMATION TO BE PASSED TO THE
* MCE, CUA, AND EJECT INSTALLATION
* EXITS
LCSUSERID DS CL8 USERID (FUNCTION EJECT)
LCSVOLSR DS CL6 TAPE VOLUME SERIAL NUMBER
LCSWRTPR DS CL1 WRITE PROTECTION STATUS
* VALUES ASSIGNED TO LCSWRTPR
LCSWPYES EQU C'Y' WRITE PROTECT STATUS YES
LCSWPNO EQU C'N' WRITE PROTECT STATUS NO
*
LCSDATAT DS XL1 PEER-TO-PEER DATA TYPE
* VALUES ASSIGNED TO LCSDATAT
LCSMODE EQU 1 MODE DATA TYPE REQUEST
LCSDEVIC EQU 2 DEVICE DATA TYPE REQUEST
*
LCSTRGRP DS CL8 STORAGE GROUP NAME
LCSLIBID DS CL5 LIBRARY ID
LCSIOLIB DS XL1 PEER-TO-PEER IO LIBRARY
* VALUES ASSIGNED TO LCSIOLIB
LCSPRIM EQU 1 PRIMARY IO LIBRARY
LCSPREFD EQU 2 PREFERRED IO LIBRARY
LCSBALCD EQU 3 BALANCE IO
LCSIODFT EQU 4 DEFAULT IO TO CE SETTING
*
LCSCPYMD DS XL1 PEER-TO-PEER COPYMODE
* VALUES ASSIGNED TO LCSCPYMD
LCSIMMED EQU 1 IMMEDIATE COPY MODE
LCSDFERD EQU 2 DEFERRED COPY MODE
LCSCPYDF EQU 3 DEFAULT TO CE SETTING
*
LCSCPYOP DS XL1 PEER-TO-PEER COPY OPERATIONS
* VALUES ASSIGNED TO LCSCPYOP
LCSENABL EQU 1 ENABLE COPY OPERATIONS
LCSDSABL EQU 2 DISABLE COPY OPERATIONS
*
LCSLBNM DS CL8 LIBRARY NAME
LCSEJOPT DS CL1 EJECT OPTION OF KEEP OR PURGE
* VALUES ASSIGNED TO LCSEJOPT
LCSKEEP EQU C'K' KEEP TCDB RECORD ON EJECT
LCSPURGE EQU C'P' PURGE TCDB RECORD ON EJECT
LCSEJQRY EQU C'Q' QUERY OAM EJECT QUEUES
LCSBULK DS CL1 EJECT TO BULK OR CONVENIENCE
* OUTPUT STATION FOR ATL
* VALUES ASSIGNED TO LCSBULK
LCSBLYES EQU C'Y' ATL BULK OUTPUT STATION
LCSBLNO EQU C'N' ATL CONVENIENCE OUTPUT STATION
*
LCSACCES DS XL1 PEER-TO-PEER SPECIAL ACCESS
* VALUES ASSIGNED TO LCSACCES
LCSRWDIS EQU 1 READ/WRITE DISCONNECTED
*
LCSSPLOC DS XL1 SUBPOOL LOCATION SPECIFICATION
* VALUES ASSIGNED TO LCSSPLOC
LCSANY EQU 0 MAY BE ABOVE THE 16 MEG LINE
LCSBELOW EQU 1 BELOW THE 16 MEGABYTE LINE
LCSDPTHV DS XL1 DEFERRED PRIORITY THRESHOLD
DS CL3 RESERVED FOR IBM FUTURE USE
LCSPILEN EQU *-LCSIPARM LENGTH EQUATE FOR INPUT PARMS
*--------------------------------------------------------------------*
* *
* DIAGNOSTIC INFORMATION *
* (RETURNED FROM LCS EXTERNAL SERVICES)
* *
*--------------------------------------------------------------------*
LCSDIAG DS 0F DIAGNOSTIC INFORMATION SECTION
LCSSABCD DS F SYSTEM ABEND CODE
LCSSABRC DS F ABEND REASON CODE
LCSLBSRC DS F RETURN CODE FROM DEVICE SVCS
LCSLBSRS DS F REASON CODE FROM DEVICE SVCS
LCSSSIRC DS F RETURN CODE FOR SMS SSI
LCSSMSRC DS F RETURN CODE FROM CONSTRUCT ACCESS
* SERVICES
LCSSMSRS DS F REASON CODE FROM CONSTRUCT ACCESS
* SERVICES
LCSUSRC DS F RETURN CODE FROM UCBSCAN
LCSUSRS DS F REASON CODE FROM UCBSCAN
LCSXLIBR DS F RETURN CODE FROM TCDB LIBRARY
* RECORD INQUIRY
LCSXVOLR DS F RETURN CODE FROM TCDB VOLUME
* RECORD INQUIRY
LCSCATRC DS F RETURN CODE FROM CATALOG
LCSCATRS DS XL2 REASON CODE FROM CATALOG
DS XL2 RESERVED FOR IBM INTERNAL USE
LCSOAMRC DS F RETURN CODE FROM OAM
LCSOAMRS DS F REASON CODE FROM OAM
LCSCATMI DS CL2 CATALOG MODULE ID
LCSLBSNF DS XL1 FORMAT OF SENSE RECORD CREATED BY
* 3490 CONTROL UNIT AFTER I/O ERROR
* BETWEEN HOST AND CONTROL UNIT
LCSLBERA DS XL1 ERROR RECOVERY ACTION (ERA) CODE
* RETURNED AFTER FAILURE TO PERFORM
* REQUESTED LIBRARY FUNCTION
LCSLBERM DS XL1 ERROR MODIFIER CODE ASSOCIATED WITH
* THE ERA CODE
LCSFCCW DS XL1 FAILING COMMAND CODE (CCW)
LCSIOST DS XL2 SUBCHANNEL STATUS INFORMATION,
* INCLUDES DEVICE STATUS FOLLOWED BY
* SUBCHANNEL STATUS
DS CL4 RESERVED FOR IBM FUTURE USE
LCSPDLEN EQU *-LCSDIAG LENGTH EQUATE FOR DIAGNOSTIC
* SECTION
*--------------------------------------------------------------------*
* *
* LCSPL POLICY INPUT AREA *
* *
*--------------------------------------------------------------------*
LCSPOLS DS 0F LM POLICY SPECIFICATIONS
* LM STORAGE GROUP IN LCSTRGRP
LCSLMSC DS CL8 LM STORAGE CLASS SPECIFICATION
LCSLMMC DS CL8 LM MANAGEMENT CLASS SPECIFICATION
LCSLMDC DS CL8 LM DATA CLASS SPECIFICATION
*--------------------------------------------------------------------*
* *
* LCSPL EXPANSION AREA *
* *
*--------------------------------------------------------------------*
LCSEXP DS 0F EXPANSION AREA
DS CL48 RESERVED FOR IBM FUTURE USE
DS CL48 RESERVED FOR IBM FUTURE USE
LCSPELEN EQU *-LCSEXP LENGTH EQUATE FOR EXPANSION AREA
*
LCSPLENG EQU *-LCSPL LENGTH EQUATE
*--------------------------------------------------------------------*
* *
* CBRXLCS VOLUME LIST MAPPING *
* (TO BE INITIALIZED AND PROVIDED AS INPUT FOR A REQUEST *
* TO ENTER A LIST OF VOLUMES INTO A MANUAL TAPE LIBRARY (MCE)) *
* *
*--------------------------------------------------------------------*
LCSV DSECT (POINTED TO BY LCSVOL@)
LCSVBUF DS F TOTAL LENGTH OF VOLUME LIST
* (HEADER + LIST)
LCSVCNT DS F NUMBER OF VOLUMES IN THE LIST
LCSVLEN DS F LENGTH OF A VOLUME ENTRY
LCSVADDR DS A POINTER TO FIRST ENTRY
LCSVEND EQU *-LCSV LENGTH OF LCSV
LCSMLIST DSECT (POINTED TO BY LCSVADDR FOR AN
* MCE REQUEST)
LCSMVOL DS CL6 LEFT JUSTIFIED, RIGHT PADDED
DS CL6 RESERVED FOR IBM FUTURE USE
LCSMTDSI DS F TAPE DEVICE SELECTION INFORMATION
* (TDSI) FOR THIS VOLUME
LCSMREC DS XL1 TAPE RECORDING TECHNOLOGY
LCSMMED DS XL1 MEDIA TYPE
LCSMCOMP DS XL1 COMPACTION
LCSMSPEC DS XL1 SPECIAL ATTRIBUTE
LCSMRET DS F RETURN CODE FOR VOLUME
LCSMREAS DS F REASON CODE FOR VOLUME
LCSMLEND EQU *-LCSMLIST LENGTH OF LCSMLIST
*---------------------------------------------------------------------*
* *
* CBRXLCS REASON CODES *
* (RETURNED IN REGISTER 0 AND FIELD LCSREAS UPON *
* COMPLETION OF LCS EXTERNAL SERVICES PROCESSING, *
* AND FIELD LCSMREAS FOR AN MCE REQUEST.) *
* *
*---------------------------------------------------------------------*
LCSGOOD EQU 0 SUCCESSFUL EXECUTION
LCSOAMNA EQU 2 OAM CONTROL BLOCKS NOT AVAILABLE
LCSWNMNT EQU 3 DELETED WITH MTL SOFTWARE-ONLY
* SPE
LCSWVAS EQU 4 VOLUME ALREADY SCRATCH
LCSWVAP EQU 5 VOLUME ALREADY PRIVATE
LCSCUADS EQU 6 CUA PROCESSING DISABLED
LCSNOCUV EQU 7 CUA PROCESSING NOT PERFORMED
* FOR THIS VOLUME PER INSTALLATION
* EXIT REQUEST
LCSWSTMP EQU 8 SCRATCH VOLUME THRESHOLD MESSAGE
* PROCESSING WAS NOT COMPLETED
* SUCCESSFULLY
LCSIRTYP EQU 9 REQUIRED TYPE PARAMETER NOT
* SPECIFIED
LCSIRMEX EQU 10 MUTUALLY EXCLUSIVE REQUIRED
* PARAMETERS SPECIFIED
LCSITYPE EQU 11 INVALID TYPE VALUE SPECIFIED
LCSIRFUN EQU 12 REQUIRED FUNC PARAMETER NOT
* SPECIFIED
LCSIFUNC EQU 13 INVALID FUNC VALUE
LCSIRUSE EQU 14 REQUIRED USE PARAMETER NOT
* SPECIFIED
LCSIUSE EQU 15 INVALID USE VALUE
LCSIRVOL EQU 16 REQUIRED VOLUME PARAMETER NOT
* SPECIFIED
LCSIVOL EQU 17 INVALID VOLUME VALUE
LCSIRUCB EQU 18 REQUIRED UCBPTR NOT SPECIFIED
LCSIUCB EQU 19 INVALID UCBPTR VALUE SPECIFIED
LCSIRLST EQU 20 REQUIRED VOLLIST NOT SPECIFIED
LCSIVL EQU 21 INVALID VOLUME LIST VALUE
LCSISGL EQU 22 INVALID VALUE IN STORAGE GROUP LIST
* HEADER
LCSIRLBN EQU 23 REQUIRED LIBRARY NAME NOT SPECIFIED
LCSIVLMM EQU 24 INVALID VOLUME LIST, MIXED MEDIA,
* REWRITABLE AND WORM VOLUMES
LCSIEXPD EQU 25 INVALID EXPIRATION DATE VALUE
LCSILBND EQU 26 LIBRARY NOT DEFINED TO STORAGE
* GROUP
LCSILBNM EQU 27 INVALID LIBRARY NAME SPECIFIED
LCSIWPS EQU 28 INVALID WRITE PROTECT STATUS VALUE
LCSIBADR EQU 29 INVALID ADDRESS SPECIFIED FOR PARAMETER LIST
* OR MAPPING MACRO
LCSIWDBD EQU 30 ADDRESS NOT ON WORD BOUNDARY
* OR LEVEL
LCSIRTDS EQU 31 REQUIRED TAPE DEVICE SELECTION
* INFORMATION (TDSI) NOT SPECIFIED
*
LCSIRLID EQU 32 REQUIRED LIBRARY ID OR LIBRARY
* NAME NOT SPECIFIED
LCSILID EQU 33 INVALID VALUE SPECIFIED FOR LIBRARY
* ID
LCSISGNM EQU 34 INVALID STORAGE GROUP NAME
LCSIRMED EQU 35 REQUIRED MEDIA TYPE NOT SPECIFIED
* FOR MCE VOLUME
*
LCSICOMP EQU 38 INVALID COMPACTION SPECIFIED
* IN TDSI
LCSISPEC EQU 39 INVALID SPECIAL ATTRIBUTE SPECIFIED
* IN TDSI
LCSIDSC EQU 40 INVALID COMBINATION OF TAPE DEVICE
* SELECTION VALUES SPECIFIED
LCSIATDC EQU 41 AMBIGUOUS TDSI COMBINATION
* SPECIFIED
LCSITDNA EQU 42 TAPE DEVICE SELECTION VALUE
* SPECIFIED WHERE NOT ALLOWED OR
* NOT APPLICABLE
LCSITDSP EQU 43 INVALID POINTER TO TDSI SPECIFIED
*
LCSIDISP EQU 44 INVALID VALUE SPECIFIED FOR DISP
* KEYWORD
LCSFLUNK EQU 45 LIBRARY NAME AS DEFINED IN VOLUME
* RECORD NOT FOUND IN TCDB
LCSNENAB EQU 46 NO ENABLED STORAGE GROUPS
LCSFSSTG EQU 47 NOT ALL VOLUMES ASSOCIATED WITH THE
* SAME STORAGE GROUP
LCSSGNDS EQU 48 STORAGE GROUP STATE IS NOTCON,
* DISALL, OR DISNEW
LCSFNDP EQU 49 NO DEVICE POOLS EXIST TO FULFILL
* REQUEST FOR TDSI SPECIFICATION
LCSFVSCR EQU 51 SPECIFIC VOLSER REQUEST FOR SCRATCH
* VOLUME
LCSFNLRS EQU 52 VOLUME(S) RESIDE OUTSIDE LIBRARY
LCSFNLCB EQU 53 LIBRARY FOR SPECIFIED VOLUME NOT
* DEFINED TO SMS CONFIGURATION
LCSFNTSG EQU 54 SMS STORAGE GROUP WAS
* NOT OF TYPE TAPE
LCSFDNRV EQU 55 REQUESTED DEVICE DOES NOT RESIDE IN
* SAME LIBRARY AS REQUESTED VOLUME
*
LCSFNLSG EQU 56 NO LIBRARIES ASSOCIATED WITH LIST
* OF STORAGE GROUPS OR THE LIBRARY IS
* UNKNOWN
LCSFXVOL EQU 58 FAILURE ACCESSING THE VOLUME RECORD
* IN THE CATALOG
LCSFXLIB EQU 59 FAILURE ACCESSING THE LIBRARY
* RECORD IN THE CATALOG
LCSFCASV EQU 60 FAILURE ACCESSING THE SMS STORAGE
* GROUP CONSTRUCTS
LCSFLBSV EQU 61 FAILURE ACCESSING HARDWARE
* CONFIGURATION INFORMATION
LCSFLIBN EQU 62 SPECIFIED LIBRARY IS NOT DEFINED
* TO ACTIVE SMS CONFIGURATION
LCSNOVR EQU 63 VOLUME RECORD NOT FOUND FOR
* REQUESTED VOLUME
LCSNOLR EQU 64 LIBRARY RECORD NOT FOUND IN TCDB
* FOR REQUESTED LIBRARY
LCSFLNDF EQU 65 LIBRARY LOGICAL TYPE NOT DEFINED
LCSNRECT EQU 66 NO DEVICE POOLS TO FULFILL REQUEST
* FOR SPECIFIED RECORDING TECHNOLOGY
*
LCSNMEDX EQU 67 NO DEVICE POOLS TO FULFILL REQUEST
* FOR SPECIFIED MEDIA TYPE
LCSCANCL EQU 69 REQUEST FAILED BECAUSE VOLUME NOT
* IN LIBRARY INSTALLATION EXIT
* (CBRUXVNL) SAID TO CANCEL JOB
LCSFVNIL EQU 70 VOLUME NOT FOUND IN LIBRARY MANAGER
* INVENTORY
LCSFFULL EQU 72 DELETED WITH MTL SOFTWARE-ONLY
* SPE
LCSFDUPV EQU 74 REQUEST FAILED BECAUSE VOLUME
* SERIAL NUMBER ALREADY EXISTS IN
* LIBRARY MANAGER INVENTORY
LCSFUCBS EQU 75 UNEXPECTED UCBSCAN ERROR
* ENCOUNTERED DURING PROCESSING
LCSFLBEN EQU 76 DELETED WITH MTL SOFTWARE-ONLY
* SPE
LCSFLBEJ EQU 77 DELETED WITH MTL SOFTWARE-ONLY
* SPE
LCSFXVRV EQU 78 ERROR ATTEMPTING TO RETRIEVE
* VOLUME RECORD
LCSFXVUP EQU 79 ERROR ATTEMPTING TO WRITE VOLUME
* RECORD
LCSESTAY EQU 80 ESTAE ROUTINE NOT ESTABLISHED
LCSEGETF EQU 81 GETMAIN FAILED FOR DEVICE POOL
* NAMES LIST OR LOCAL WORKING
* STORAGE
LCSEXITF EQU 82 ABNORMAL TERMINATION OCCURRED
* DURING INSTALLATION EXIT
* (CBRUXCUA) EXECUTION
LCSXINVD EQU 83 INVALID RETURN CODE OR DATA
* RETURNED FROM CHANGE USE
* ATTRIBUTE INSTALLATION EXIT
* (CBRUXCUA)
LCSEABND EQU 84 ABNORMAL TERMINATION OCCURRED
* DURING EXECUTION
*
LCSENDIS EQU 90 CARTRIDGE ENTRY PROCESSING HAS
* BEEN DISABLED
LCSENSUS EQU 91 CARTRIDGE ENTRY PROCESSING HAS
* BEEN SUSPENDED FOLLOWING ERROR
* INVOKING INSTALLATION EXIT
LCSNOTMT EQU 92 LIBRARY FOR MCE NOT MANUAL TAPE
* LIBRARY
LCSLBOFF EQU 93 LIBRARY OFFLINE, PENDING
* OFFLINE, OR NOT OPERATIONAL
LCSINLIB EQU 94 SPECIFIED VOLUME ALREADY RESIDES
* IN ANOTHER LIBRARY
LCSXVETO EQU 95 INSTALLATION EXIT VETOED ENTRY
* OF VOLUME INTO LIBRARY
LCSXIGNR EQU 96 VOLUME NOT ENTERED INTO MTL BECAUSE
* INSTALLATION EXIT SAID TO IGNORE
* THE VOLUME
LCSDASDV EQU 97 VOLUME OF SAME VOLSER IS KNOWN DASD
* VOLUME
*
*
*
* ADDITIONAL REASON CODES ASSOCIATED WITH RETURN CODE
* LCSWARN(4)
*
LCSNTMNT EQU 120 VOLUME IS INELIGIBLE BECAUSE
* THE TYPE OF MEDIA DEFINED IN
* THE VOLUME RECORD MAY NOT BE
* MOUNTED ON SPECIFIED DEVICE
LCSMMISM EQU 121 VOLUME IS INELIGIBLE BECAUSE
* THE TYPE OF MEDIA DEFINED IN
* THE TDSI DOES NOT MATCH MEDIA
* DEFINED ON THE VOLUME RECORD
LCSVERST EQU 122 VOLUME IS INELIGIBLE BECAUSE
* THE VOLUME RECORD REFLECTS AN
* ERROR STATUS
LCSRTNMT EQU 123 VOLUME IS INELIGIBLE BECAUSE THE
* SPECIFIED RECORDING TECHNOLOGY
* IS INCOMPATIBLE WITH THE VOLUME
* MEDIA TYPE OR THE SPECIFIED
* DRIVE TYPE
LCSSAMEL EQU 130 SPECIFIED VOLUME ALREADY
* RESIDES IN THIS TAPE LIBRARY
LCSWLNOP EQU 131 SCRATCH VOLUME THRESHOLD PROCESS-
* SING NOT PERFORMED BECAUSE
* LIBRARY WAS NOT OPERATIONAL
LCSWNSCT EQU 132 DELETED WITH 3590 SUPPORT
LCSWNULR EQU 133 DELETED WITH 3590 SUPPORT
LCSWLMIO EQU 134 NO TCDB RECORD BUT VOLUME RESIDES
* IN SPECIFIED LIBRARY
LCSWMSLM EQU 135 LIBRARY MISMATCH, VOLUME RESIDES
* IN SPECIFIED LIBRARY
LCSWMSNF EQU 136 LIBRARY MISMATCH, VOLUME NOT FOUND
* IN SPECIFIED LIBRARY
LCSWMSLF EQU 137 LIBRARY MISMATCH, UNABLE TO ACCESS
* SPECIFIED LIBRARY
LCSWSCNU EQU 138 LIBRARY SCRATCH COUNT NOT
* UPDATED IN TCDB
LCSWMSLN EQU 139 LIBRARY NAME MISMATCH, SPECIFIED
* LIB NAME DID NOT MATCH MTL VOLUME
* RECORD LIB NAME
* ADDITIONAL REASON CODES ASSOCIATED WITH RETURN CODE
* LCSIREQ(8)
*
LCSEJCTD EQU 201 VOLUME ALREADY EJECTED
LCSEJEJO EQU 202 INVALID VALUE FOR EJECT OPTION
LCSEJBLK EQU 203 INVALID VALUE FOR BULK EJECT
*
LCSIUSER EQU 204 INVALID TSO USERID SPECIFIED
LCSBADRT EQU 215 NOT ALL VOLUMES HAVE THE SAME
* RECORDING TECHNOLOGY
LCSINOLN EQU 216 INVALID TCDBCHK=NO SPECIFIED
* WITH MTL LIB NAME
LCSIMOPT EQU 217 AT LEAST ONE OPTIONAL KEYWORD MUST
* BE SPECIFIED WITH FUNCTION
LCSIRDAT EQU 218 REQUIRED DATATYPE NOT SPECIFIED
LCSIOPMC EQU 219 INVALID POLICY NAME
LCSIEXCL EQU 220 MUTUALLY EXCLUSIVE OPTIONAL
* KEYWORDS SPECIFIED
LCSISHLG EQU 221 INVALID STORAGE HEADER AND/OR
* LENGTH
*
* ADDITIONAL REASON CODES ASSOCIATED WITH RETURN CODE
* LCSFAIL(12)
*
LCSEJABD EQU 300 OAM ABEND DURING EJECT REQUEST
LCSEJPND EQU 302 EJECT REQUEST ALREADY PENDING
* FOR VOLUME
LCSEJUSE EQU 303 UNABLE TO MAKE USER ADDRESS
* SPACE NON-SWAPPABLE
LCSEJTCD EQU 304 TCDB ACCESS ERROR IN OAM
LCSEJTCA EQU 305 TCDB AUTHORIZATION ERROR IN
* OAM
LCSEJOAM EQU 306 OAM INTERNAL ERROR
LCSEJVOL EQU 307 VOLSER NOT IN TCDB
LCSFNSUP EQU 310 MEDIA TYPE OR RECORDING TECHNOLOGY
* NOT SUPPORTED AT THIS SOFTWARE
* LEVEL
LCSFNSML EQU 311 DELETED WITH MTL SOFTWARE-ONLY
* SPE
LCSFNCOM EQU 312 FUNCTION NOT COMPATIBLE WITH
* THE LIBRARY
LCSFVINU EQU 313 VOLUME IS CURRENTLY IN USE
LCSFSEQK EQU 314 IMPORT/EXPORT ALREADY IN
* PROGRESS OR HOST PROCESSING
* NOT COMPLETE
LCSFNEDR EQU 315 NOT ENOUGH PHYSICAL DRIVES
* AVAILABLE IN VTS
LCSFMXNX EQU 316 IMPORT/EXPORT NOT IN PROGRESS
LCSFMTCT EQU 317 EMPTY CATEGORY
* IMPORT: NO IMPORT VOLUMES
* EXPORT/IMPORT: NO SCRATCH
* VOLUMES
LCSFLFUL EQU 318 MAXIMUM LOGICALS DEFINED TO
* LIBRARY
LCSFNRNF EQU 319 NO TCDB RECORD AND VOLUME NOT
* FOUND IN SPECIFIED LIBRARY
LCSFNRLF EQU 320 NO TCDB RECORD AND UNABLE TO
* ACCESS SPECIFIED LIBRARY
LCSFMUMT EQU 321 MANUAL CARTRIDGE ENTRY FAILED,
* MEDIA TYPE RETURNED FROM THE
* INSTALLATION EXIT DOES NOT
* MATCH THE MEDIA TYPE DEFINED
* IN THE VOLUME RECORD.
LCSFCMRJ EQU 322 COMMAND REJECTED BY THE LIBRARY
LCSFOPCN EQU 323 UNABLE TO RETRIEVE POLICY
* NAMES(S)FROM LIBRARY
LCSFNXPD EQU 324 VOLUME EXPIRE TIME HAS NOT ELAPSED
LCSFIOTO EQU 325 I/O TERMINATED DUE TO TIMEOUT
* DETECTION
LCSFACDE EQU 326 SELECTIVE DEVICE ACCESS CONTROL
* GROUP DENIED REQUEST
LCSFACNV EQU 327 SELECTIVE DEVICE ACCESS CONTROL
* GROUP IS NOT VALID
* ADDITIONAL REASON CODES ASSOCIATED WITH RETURN CODE
* LCSENVIR(16)
*
LCSEJNUL EQU 400 OAM INITIALIZED WITH NULL
* CONFIGURATION
LCSEJLIB EQU 401 LIBRARY NOT ACCESSIBLE,
* OFFLINE, OR NOT OPERATIONAL
LCSEJVIS EQU 402 VISION SYSTEM NOT OPERATIONAL
LCSEJXAB EQU 403 EJECT PROCESSING HAS BEEN
* DISABLED BECAUSE AN ERROR IN
* THE EJECT INSTALLATION EXIT
* (CBRUXEJC) HAS BEEN DETECTED
LCSEJNAV EQU 404 OAM ADDRESS SPACE NOT
* AVAILABLE
LCSNOOAM EQU 404 OAM ADDRESS SPACE NOT
* AVAILABLE
.END MEND */